Function LEAP( Y  As Integer) As Integer
If  Y  Mod 400 =" 0" Or Y Mod 4 =" 0" And Y Mod 100 <> 0 Then LEAP =" 1" Else LEAP =" 0"
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Y1  As Integer
If  KeyAscii =" 13" Then
Y1 = Val(Text1.Text) ' 在text1中输入年份y1
Text2.Text =" Str(28" + LEAP(Y1)) ' 在text2中输出该年的二月份天数
End If
End Sub
以上程序运行后，在Text1中输入 2001，在 Text2中显示的是（  ）

A．28

B．29

C．30

D．31

某VB事件过程如下：
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text)    ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = Str(a)
End Sub
程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（   ）

A．7

B．5

C．3

D．1

为使左右框内的Visual Basic程序段实现相同的功能，可在左框内划线处填写的代码是：（   ）

A．g=2

B．g=6

C．g=g+1

D．g=g+2

某同学编写了以下Visual Basic 程序段，运行这段程序段，循环体的循环次数为：（  ）
Dim x，y As Integer
x=2
y=20
Do While  x<y
x =x^2
Loop

A．4

B．3

C．2

D．0

程序运行后，单击Command1命令按钮，变量x的值为（   ）
Private Sub Command1_Click()
n = 6
x = 1
For i ="1" To n
x =" x" * i
Next
End Sub

A．15

B．24

C．120

D．720

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer    'n为试题计数器,s为得分
Dim a, b As Integer  'a，b 为两个运算数
Dim c As String 'c为运算符："+ "表示加法，"-"表示减法
Private Sub Form_Load()
n = 0:
s = 0
End Sub
Private Sub Command1_Click()   ‘出题按钮
Randomize
n =" n" + 1
If n < 11 Then
Label1.Caption = "No：" + Str(n)
a =" Int(Rnd" * 100)  'a，b为运算数，且要求a不小于b
b =" Int(Rnd" * 100)
If   a > b   Then t =" a:" a =" b:" b = t '(1)
If  Rnd > 0.5  Then c = "+" Else  b = "-" '(2)
Label5.Caption =" Str(a)" + c + Str(b) + "="
Text1.Text = ""
Else
Command1.Caption = "完成测试"
End If
End Sub
Private Sub Command2_Click()   ‘判断按钮
If c = "+" Then
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10
Else
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10    '(3)
End If
Label3.Caption = "得分:" + Str(s)
End Sub

编写VB程序，求最小公倍数。在文本框Text1和Text2中分别输入两个数，单击“计算”按钮Command1，求出这两个数的最小公倍数，并在标签Label3 中输出结果。界面如图所示：
 
第1图    第2图
（1）在设计程序界面时，应使用第19题－2图所示“控件工具箱”中的__________（填相应编号）添加标签控件。要让Command1显示为“计算”，需要在属性面板中修改___________的值为“计算”。
（2）程序代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer
Dim a1 As Integer, b1 As Integer, g As Integer
a1 = Val(Text1.Text)
b1 = Val(Text2.Text) 
a = a1
b = b1
Do While b <> 0
r =" a" Mod b
a = b
b = r
Loop
g =" a1" * b1 / a
    ①     
End Sub
完善此程序，则①处应填入_______________。

下列VB表达式的值等于13的是( )

A．Val("11") + 2	B．Str(11) + "2"
C．Sqr(11) + 2	D．Len("11") + 2

编写一段程序求1Í2Í3Í……Í100的值，程序代码如下：
Private Sub Command1_Click()
Dim i As Integer, t As Integer
t = 1
For i =" 1" To 100
    ①    
Next i
Text1.Text = Str(t)
End Sub
（1）  请补充①处的代码___________________。
（2）  运行此程序，单击Command1按钮，出现对话框如图所示：

请分析出现该错误的原因__________，如何修改可以解决此问题_______________________。

下列VB程序段
Dim x As Single, y As Single
x = Val(Text1.Text)
If x > 10 Then
y =" x" * x
ElseIf x > 0 Then
y =" 10" * x
Else
y = 0
End If
Text2.Text = Str(y)
要测试所有分支程序代码是否正确，以下测试数据中，最恰当的一组是(    )

A．11，2，-1	B．0，10
C．-2，2，5	D．12，100，-1