Next i

　　Print d

　　End Sub

　　程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)

　　A.89

　　B.99

　　C.23

　　D.77

　　14.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)

　　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

　　15.在窗体上画一个名称为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

　　程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)

　　A.15

　　B.18

　　C.21

　　D.24

　　16.在窗体上画一个名称为Text1的文本框，并编写如下程序：

　　Private Sub Form_Load( )

　　Show

　　Text1.Text = ""

　　Text1.SetFocus

　　End Sub

　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)

　　Print "程序设计"

　　End Sub

　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

　　Print "Visual Basic";

　　End Sub

　　程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)

　　A.Visual Basic

　　B.程序设计

　　C.A程序设计

　　D.Visual Basic程序设计

　　17.设有如下程序：

　　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循环计算一个表达式的值，这个表达式是(C)(单)

　　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

　　18.以下有关数组定义的语句序列中，错误的是(D)(单)

　　A.Static arr1(3) ：arr1(1) = "100" ：

　　arr1(2) = "Hello" ：arr1(3) = "123.45"

　　B.Dim arr2( ),size As Integer

　　Private Sub Command2_Click( )

　　size =InputBox("输入：") ReDim arr2(size) ......

　　End Sub

　　C.Option Base 1 Private Sub Command3_Click( )

　　Dim arr3(3) As Integer ......

　　End Sub

　　D.Dim n As Integer Private Sub Command4_Click( )

　　Dim arr4(n) As Integer......

　　End Sub

　　19.执行下面的程序段后，I的值为【5.6】

　　s = 2

　　For I = 3.2 To 4.9 Step 0.8

　　s = s + 1

　　Next I

　　Print i

　　52170.执行下面的程序段后，S的值为【5】

　　Private Sub Command1_Click( )

　　s = 2

　　For c = 3.2 To 4.9 Step 0.8

　　s = s + 1

　　Next c

　　Print s

　　End Sub