在Visual Basic中，语句x="123"所定义的变量x属于(    )

A．整数型

B．单精度实数型

C．字符串型

D．长整数型

下列VB表达式中：①Sin（x） ②Text1.Text ③Space(x) ④Year（x） ⑤Len（x）值为字符串型的是（   ）

A．①④⑤

B．②③⑤

C．④⑤

D．②③

下列是事件的是（   ）

A．LOAD

B．SHOW

C．PRINT

D．CLS

编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符串，单击“统 计”按钮Commandl，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如1图所示。

1图 2图
（1）在设计应用程序界面时，应使用2图所示“控件工具箱”中的___①___（填写相应编号）添加“统计”按钮。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim s As String，c As String
Dim i As Integer，n As Integer，num As Integer
s = ____②___(填程序代码）
num = 0
n = Len(s)
__③__'(填字母:从下列A、B、C三个选项中选取一项）
__④___'(填字母:从下列A、B、C三个选项中选取一项）
If  c>= "0" And c<= "9"  Then
num =" num" + 1
End If
Next  i
Labell. Caption = str(num)
End Sub
划线③、④的选项：

A．Do While i <=" n"

B．c =" Mid(s,i,1)"

C．For i =" 1" To n

用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元的红包。