某 VB 程序中有语句：Command1.Caption="确定"。该语句中的"Caption"是（  ）

A．对象名

B．类名

C．属性名

D．属性值

下列VB函数返回值为数值的是(  )

A．Chr(x)	B．Str(x)
C．Val(x)	D．Mid(x，n，k)

小明编写了一个输出十进制与二进制数对应表的VB程序。程序运行时，单击“输出”按钮Command1后，在列表框List1中输出运行结果如第16题图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim b(4) As Integer   '数组b按位存储二进制数Private Sub pprint(m As Integer)  '本过程打印输出一行十进制数m和对应的二进制数'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
List1.Clear
List1.AddItem "十进制数 二进制数"
For i =" 1" To 4
b(i) = 0
Next i
For i =" 0" To 15
Call pprint(i) '打印输出一行
j =   1 '(1)
b(j) =" b(j)" + 1
Do While  b(j) =" 0" '(2)
b(j) = 0
j =" j" - 1
b(j) =" b(j)" + 1  
Loop
Next i
End Sub

在用计算机解决问题的过程中，寻找求解的方法和确定具体的求解步骤属于( )。

A．分析问题

B．设计算法

C．编写程序

D．调试运行

在ＶB中，用来描述对象的外部特征称为对象的( )。

A．事件

B．方法

C．属性

D．驱动

小李利用所学的 VB 知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：

（1）要实现程序运行时，单击文本框 Text1 即可将文本 框 清 空 ， 则 应 在 _______(A 、Command1_Click/B、 Form_Load/C、 Text1_Click)事件处理过程中添加语句 Text1.text=”” 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click
Dim s As String, ch As String, sum As  Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0: sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
p = ①________
Else
sum = ②________
p = 0
If ch = "-" Then
fh = -1
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
（3）若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：________ .（A、 120 / B、 22 / C、 0 /D、程序出错无法显示）

用VB编写“拆红包”程序，界面如图所示。在Text1中输入红包金额（元），在Text2中输入人数，点击“Command1”命令按钮，在列表框List1中显示分到的红包情况。

 

（1）把命令按钮Command1上显示的文字改成“拆红包”，应修改Command1按钮的__________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim i As Integer

Dim num As Integer  '存储红包的个数

Dim money As Single '存储红包的剩余金额

Dim k As Single '存储每次分到的红包金额

money = Val(Text1.Text)

num = Val(Text2.Text)

For i = ①________ To 1 Step -1

If i = 1 Then
k = Int(money * 100) / 100   '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)   
Next i
End Sub
（3）执行该程序，（选填：有 / 没有）________可能产生金额为0元的红包。

下面的程序是求100以内奇数和S的值（S=1+3+5+7...+99），请把空缺的地方填写完整（填数字、变量名称、或者属性名称等）。
Private Sub Command1_Click()
Dim s  As Integer
Dim i  As Integer
s=（1）
For i  = 1  to  100  Step （2）
s=s+i
Next （3）
Label1.（4）=Str(s)
End Sub
填空结果：
（1）________  （2）________  （3）________  （4）__________  

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。
(字母A和字母a的ASCII码值分别为65、97)

(1)该程序除窗体外使用了________（填数字）个对象。
(2)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Timer1.Enabled = _________________________'①
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim a As Integer, e As Integer, h As Integer
Randomize
s = ""
For a = 1 To 30
e = Int(Rnd() * 52 + 1)
If e <= 26 Then
h = e + 64
Else
h = _________________________'②
End If
c = _________________________'③
s = s + c
Next a
List1.AddItem s
End Sub
(3)为了减缓字符串的出现速度，可将Timer1的Interval属性值________（选填，填字母：

A．调大、

B．调小）。

用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。

（1）若要在程序运行时，修改窗体显示的标题为“得分计算”，则下面语句可行的是__________。
（单选，填字母：A.Command1.Caption=“得分计算”/B.Form1.Name=“得分计算”/C.Form1.Text=“得分计算”/

A．Form1.Caption=“得分计算”）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Integer   '裁判人数
Dim max As Integer, min As Integer, sum As Integer
Dim AveScore As Single  '存储最终得分
n = Val(Text1.Text): sum = 0
If n <= 2 Then MsgBox ("输入数据要大于2，请重新输入！")
If n > 2 Then
List1.Clear
Randomize
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
_______________________ ' ①
max = score
min = score
For i = 2 To n
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
If score > max Then max = score
If score < min Then min = score
sum = sum + score
Next i
AveScore = ______________________ '②
Text2.Text = Str(AveScore)
End If
End Sub
（3）若要将最终得分保留一位小数（四舍五入），下列代码可行的是______________________。
A.AveScore=int(AveScore+0.5)
B.AveScore=int(AveScore*10+0.5)/10
C.AveScore=int(AveScore*100+0.5)/100