在窗体上画一个标签Lab1和一个命令按钮Cmd1，然后输入如下事件过程： Private Sub Cmd1_Click（) Dim a（10) As Integer For i = 1 To 5 a（i) = i * i num = a（i) Next i Lab1.Caption = num End Sub 程序运行后，单击命令按钮，在标签中显示的结果是 。

在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是

A．visual basic

B．VISUAL BASIC

C．basic

D．BASIC

（22）在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编写如下事件过程：

Private Sub Command1_Click( )

Counter=0

For i=1 To 4

For j=6 To 1 Step -2

Counter=Counter+1

Next j

Next i

Label1.Caption=Str(Counter)

End Sub

程序运行后，单击命令按钮，标签中显示的内容是（ ）。

A）11

B）12

C）16

D）20

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1

B．5

C．27

D．45

在窗体上画一个名称为Command1的命令按钮、一个名称为Label1的标签，然后编写如下事件过程； Private Sub Command1_Click() s=0 For i=1 to 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1. Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1

B．5

C．27

D．45

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程 Private Sub Form_Load() List1.Addltem"Iteml" List1.Addltem"Item2" List1.Addltem"Item3" End Sub Private Sub Command1_click() List1.List(List1.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。

A．把字符串“AAAA”添加到列表框中，但位置不能确定

B．把字符串“AAAA人”添加到列表框的最后(即“Item3”的后面)

C．把列表框中原有的最后一项改为“AAAA”

D．把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)

（ 7 ）在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Labl1 、 Timer1 和Command1 ， 如图 1 所示 。 程序运行后 ， 如果单击命令按钮 ， 则标签开始闪烁 ， 每秒钟 “ 欢迎 ”二字显示、消失各一次，如图 2 所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load （）

Label1.Caption= " 欢迎 "

Timer1.Enabled=False

Timer1.Interval= 【 7 】

End Sub

Private Sub Timer1_Timer （）

Label1.Visible= 【 8 】

End Sub

Private Sub command1_Click （）

【 9 】

End Sub

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。

A．11

B．12

C．16

D．20

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。

A．11

B．12

C．16

D．20

在窗体上画两个标签和—个命令按钮，其名称分别为Label1、Labd2和Command1，然后编写如下程序：Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load() Label1. Caption="ABCDE" Label2．Caplion=10End SubPrivate Sub Command1_ Click() a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

在窗体上画两个标签和—个命令按钮，其名称分别为Label1、Labd2和Command1，然后编写如下程序：Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load() Label1. Caption="ABCDE" Label2．Caplion=10End SubPrivate Sub Command1_ Click() a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10