Visual Basic程序设计环境中的部分控制如图所示要将某图片加载到窗体中，则必须使用的控件是（    ）

A．①

B．②

C．③

D．④

打开并修改考生文件夹下“VB”文件夹中“test.vbp”，使其具有下列功能：在文本框Ｔext1中输入姓名，在性别栏中选择相应的性别，单击“OK”按钮（Command1）后，在标签Ｌabel2上显示“我的名字叫＊＊我＊，是个男孩（女孩）”。
VB界面如图所示：

（1）参照效果图，完善界面，并在属性窗口中完成对添加对象的caption属性的设置。（4分）
（2）为命令按钮选择合适的事件过程，该事件过程的代码可以从“VB”文件夹中的“code.txt”中得到。（4分）
（3）调试并运行程序时有错误提示，修改相关的事件过程代码，使程序实现上述功能。（4分）
Private Sub Command1_Click()
Dim name As String, xb As String
name = Text1.Text
If Option1.Value =" True" Then
xb = "男孩"
Else
xb = "女孩"
Label2.Caption = "我叫" + name + "，我是个" + xb
End Sub
（4）生成可执行程序“test.exe”,保存到“VB”文件夹下。保存窗体文件与工程文件。（4分）

打开并修改考生文件夹下“VB”文件重的工程文件“test.vbp”，使其具有下列功能在列表框List1中显示10位同学的身高，单击“计算”按钮Command1，计算平均身高，并显示在文本框Text1中。程序运行界面如图所示：

完成以下操作：
（1）在窗体重添加命令按钮Command1，并将它的Caption属性设置为“计算”；
（2）将窗体上的Label2标签的Caption属性值设置为“平均身高”；为命令按钮选择合适的事件过程，并将VB文件夹下的“code.txt”文件中的代码复制到该过程中。
（3）调试运行程序：找出程序中唯一的错误并改正，利用图中的数据进行测试，使程序实现上述功能。
保存窗体文件和工程文件。

程序运行界面如右图所示。要求在文本框Text1中输入字符串，单击“翻转”按钮Command1后，在标签Text2中显示处理后的字符串。需要编写的VB事件处理过程的名称为（   ）

A．Command1_Click

B．Text1_Click

C．Form_Click

D．Label2_Click

下图是某模拟“商品结算系统”的运行效果，该窗体一共添加了几种类型的控件？（    ）

A．4

B．7

C．12

D．16

在Visual Basic窗体中，如图所示，现把命令按钮外观进行下图操作，把按钮拖大。那么下面关于命令按钮的属性面板中位置对应的4个属性的属性值变化说法正确的是（   ）

A．Height和Width属性值都变大

B．Left和Top属性值都变大

C．Height和Width属性值都变小

D．Left和Top属性值都变小

以下语句中错误的是（   ）

A．Const var1=123

B．Dim var2 As String

C．x+y=9

D．Dim d(1 to 500) As Double

编写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

下列Visual Basic程序用于计算10¹⁰的值：
Private Sub Command1_Click()
Dim n As Integer, s As Integer
n = 10
s =" 10" ^ n
Text1.Text = Str(s)
End Sub
运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（  ）

A. A.变量n的数据类型说明不当

A．变量s的数据类型说明不当 C. C.文本框Text1的宽度不够

B．s值太大，因此不能在文本框Text1中输出

用VB编写一个字符串分行程序，功能如下：单击“分行”按钮Command1将文本框Text1中的英文文本在列表框List1中分行显示（分行时单词不得跨行，每行字符尽可能多但不超过40个）并在标签Label1中输出总行数，运行效果如图所示。分行算法如下：
（1）将文本框中的字符串保存到变量s中；
（2）当s中字符个数超过40时，循环执行下列①、②、③步，否则跳转到（3）：
①如果第41个字符不是英文字母，则分行位置p = 40;否则，向左逐个查找，直至找到第一个非英文字母，将其位置作为分行位置p;
②截取s的前p个字符，作为新增行显示在列表框List1中，同时总行数加1 ;
③将s中未分行部分重新赋值给变量s。
（3）将s作为新增行显示在列表框List1中，同时总行数加1。

实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Commandl_Click()
Dim s As String，c As String
Dim r As Integer, total As Integer，p As Integer
total = 0
s =__①___
Do While Len(s) > 40
r = 41
c = Mid(s，r，1)
If  Not((c>= "a"And c<="z" ) Or (c>="A"Andc<="Z")) Then
p = 40
Else
’从第41个字符幵始向左找到第1个非英文字母，并将其位置值赋给p
Do While (c >= "a" And c <= "z") Or (c >= "A"
And c <= "Z")
r =__②__
c = Mid(s，r，1)
Loop
p = r
End If
List1. Addltem  Mid(s，1，p)
total =" total" + 1
s =___③___
Loop
List1. AddItem  s
total =" total" + 1
Labell. Caption ="共"+ Str(total) + "行"
End Sub