Dim a (l To 100) As Integer '依次存储编号为1到100的房间的居住人数
Private Sub Form_Load()
'本过程从数据库中读取N的值和每个房间居住人数,存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer, k As Integer
Dim t As Long, ans As Long
k=0:ans=32767'ans初始化为最大的Integer数据
For i=1 To n
t=0
For j=0 To n-1
w= ①____
If w=0 Then w=n
t= ②____
Next iIf t<ans Then k=i:ans=t
Next i
Text1.Text=str(k) '起始房间编号
Text2.Text = Str(ans)
End Sub
同类型试题
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2