题型：综合题 题类：常考题 难易度：困难
浙江省高中信息技术 环问题练习
最佳方案:初始时所有人聚集在2号房间，花费的能量和:7*0+8*1+6*2+4*3+4*4=48。为了解决这个问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。
实现上述功能的VB代码如下，请在划线处填入合适代码。
Dim a(1 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 j
If t < ans Then
k= i
ans = t
End If
Next i
Text1.Text = Str (k) ‘起始房间编号
Text2.Text =
End Sub
程序代码如下：
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框内容
For i = 3 To 97 ___①___ If f(i) And f(i+2)=true Then List1.AddItem Str(i) + " 和 " + Str(i + 2) End If Next i |
End Sub
Private Function f(x As Integer) As Boolean '判断是否为素数，若是返回true,若不是则返回false
………
End Function
试题篮
