目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 V

A．程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮， 将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

图1    图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ,
tmp = ""

 ②_____ 

End If
Next i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。

在VB中设计了如图1所示的界面，图2为所选对象的属性面板，图3为工程资源管理窗口，以下说法正确的是()

图1    图2 图3
①所选对象名称是Circle，属于Shape类；②该窗体所存储的文件名是“草图．frm”；③该VB工程名是工程1；④所选对象运行时不可见。

A．①②

B．①②③

C．①③④

D．①③

阶乘是一种累乘积的计算方法，用“!”来表示阶乘，n!=1×2×3×……×n。如：8!=1×2×3×…×8=40320。小王为了求10! 的值，编写了如下Visual Basic代码：

Private Sub Command1_Click()

Dim i As Integer, s As Integer   ①

s = 0 ②

i = 1

Do While i < 10       ③   

i = i + 1
s = s * i ④

Loop

    Print s

End Sub

运行该程序，小王单击命令按钮Command1后，出现如第38题图对话框，已知序号①划线处的代码有错误，正确的代码应该是___________________________。经过代码修改后，小王重新运行该程序，单击命令按钮Command1，出现的结果是“0”， 那么序号_____（填①/②/③/④）划线处的代码有错误，正确的代码应该是________________。

VB语句List1.addItem d(i) 的作用是把数组d的数据添加到列表框对象List1中。该语句中的“addItem”是（   ）

A．属性名

B．属性值

C．方法

D．事件

下列各组控件都具有Caption属性的是( )

A．按钮、文本框	B．标签、列表框
C．按钮、标签	D．文本框、列表框