编写VB程序,实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

（1）观察运行界面，选项中没有用到的控件是 ( 选项

A．

B．

C．

D．)。

（2）设计该窗体界面时，需要将窗体form1的   属性设置为“最大随机数”。
（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) =" Int(Rnd" * 100)
List1.AddItem Str(a(i))
s =" s" + a(i)
①
Loop
max = a(1)
For i =" 2" To n
If a(i) > max Then      ②
Next i
List1.AddItem "和为：" + ③
List1.AddItem "最大值为：" + Str(max)
End Sub
空格处应填写的代码为:① ② ③ 。

调试如下VB程序段，出现如图所示的错误信息。

For i = 1 To 10
If d(i) >= 0 Then
t=t+1
List1.AddItem Str(d(i))
Else
t=t-1
List2.AddItem Str(d(i))
Next
则该程序段出错的原因是缺少了（    ）

A．Next

B．i

C．For

D．End If

奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t=____________①
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +____________②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是____________。

下列VB程序运行时，单击Command1后，标签Label1中显示的内容是_______
Private Sub Command1_Click()
Dim s As Integer, j As Integer
s = 0
For j =" 1" To 10
If j Mod 2 <> 0 Then
s =" s" + j
End If
Next j
Label1.Caption = Str(s)
End Sub

（加试题）小明编写了一个求真分数精确值的 VB 程序。程序运行时，在文本框 Text1 中输入被 除数，在文本 Text2 中输入除数，并保证被除数小于除数，单击“计算”按钮 Command1，在 标签 Label3 中显示结果。如果无限小数的小数点后，从某一位起向右进行到某一位止的一节数 字循环出现，首尾衔接，称这种小数为循环小数，这一节数字称为循环节。如果商为循环小数 保留一个循环节，否则最多计算到第 20 位。 程序运行界面如下图所示。

（1）运行程序，在文本框 Text1 中输入被除数 13，在文本框 Text2 中输入除数 99，单击“计算”按钮 Command1，在标签 Label3 中显示的结果是_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 20) As Integer, b(1 To 20) As Integer
Private Sub Command1_Click
Dim m As Integer, n As Integer, pa As Integer, pb As Integer
Dim flag As Boolean, s As String m = Val(Text1.Text)
n = Val(Text2.Text)
s = Str(m) + "/" + Str(n) + " = " s = s + "0."
pa = 1: pb = 1: flag = True b(1) = m
m = m * 10
Do While pa <= 20 And flag = True a(pa) = m \ n
If a(pa) > 0 Then pb = pb + 1
①________
m= b(pb)*10
Else
m = m * 10
End If
flag = Jud(pb)
If b(pb) = 0 Then flag = False s =②_________
pa = pa + 1
Loop
Label3.Caption = s
End Sub
Function Jud(x As Integer) As Boolean
Dim i As Integer
For i = 1 To x - 1
If③________Then
Jud = False
Exit Function   '退出自定义函数
End If
Next i
Jud = True
End Function