21.在窗体上画两个滚动条，名称分别为Hscroll1、hscroll2；六个标签，名称分别为 Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示 “A”“B”“A＊B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值， Label3显示“A＊B”的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当 单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示 在Label3中。以下不能实现上述功能的事件过程是： A)、Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub B)、Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub C)、Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub D)、Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

A       B       C       D

22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 then m=m+n\3 Next n print n End sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 A、15 B、18 C、21 D、24

A       B       C       D

23.在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Lord() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic" End Sub 程序运行后，结果按“A”键，然后单击窗体，则在窗体上显示的内容是 A、Visual Basic B、程序设计 C、A程序设计 D、Visual Basic 程序设计

A       B       C       D

24.设有如下程序： Private Sub Command1_Click() Dim sum As Double,X As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5

A       B       C       D

25.以下有关数组定义的语句序列中，错误的是 A、Static arr1(3) arr(1)=100 arr(2)="Hello" arr(3)=123.45 B、Dim arr2() As Integer Dim size As Integer Private Sub Command2_Click() size=InputBox("输入：") ReDim arr2(size) ...... End Sub C、Option Base 1 Private Sub Command3_Click() Dim arr3() As Integer ...... End Sub D、Dim n As Integer Private Sub Command4_Click() Dim arr4(n) As Integer ...... End Sub

A       B       C       D