题型：综合题 题类：模拟题 难易度：普通
浙江省2019年信息技术选考模拟试卷三
例如：n = 5,a(1)= 4,a(2)= 7 ,a(3)= 8,a(4)= 6,a(5)= 4。
最佳方案为初始时所有人聚集在2号房间花费的最小能量为7*0+8*1+6*2+4*3+4*4=48。
实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
Dim a( 1 To 100) As Integer '依次存储编号为 1 到 100 的房间的最多居住人数
Private Sub Form_Load()
'产生N的值
'本过程从数据库中依次读取编号为1到 N的房间的最多居住人数，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer
Dim t As Long, ans As Long
ans = 32767
For i=1 To n
t = 0
For j=0 To n-1
‘（1）
If w=0 Then w=n
‘（2）
Next j
If t < ans Then ans = t
Next i
Text2.Text = Str(ans)
End Sub
以上程序段运行时，为了实现上述功能，加框处代码应改正为：
⑴；⑵。
|
Dim sum As Integer 'sum 用来统计符合条件的自然数个数'
Dim n, max As Integer
List1.Clear
sum = 0
max = {#blank#}1{#/blank#}'指定查找范围的最大自然数，Text1文本框中输入'
n = 0
Do While n <= max
n = n + 1 '从自然数1开始不断往上寻找'
If {#blank#}2{#/blank#}Then
List1.AddItem Str(n) '找到后在List1中显示结果'
{#blank#}3{#/blank#}
End If
Loop
List1.AddItem ("共计" + Str(sum) + "个")
End Sub
试题篮
