注意：完成第三章的练习后，可以做以下练习：“第四章试题”、“第四章练习一”、“第四章练习二”、“第四章练习三”第四章[单选题]VB6.0程序中的注释所使用的字符是______。

（A）、\（B）、:（C）、'（D）、_[多选题]VB6.0中注释语句的前缀可以是________。

（A）、Rem（B）、逗号（C）、撇号（D）、分号[单选题]在代码编辑器中，关于注释语句的说法，不正确的是_______。

（A）、以单引号开头，绿色显示（B）、是非执行语句，它不会被解释和编译（C）、可以出现在续行符的后面（D）、不能放在代码中的任何位置[单选题]下列代码的运行结果是________。

Private Sub Command1_Click()For I = 1 To 3Print Chr(Asc("A") + I - 1);Next IEnd Sub（A）、65 66 67（B）、ABC（C）、abc（D）、BCD[单选题]设a=10，则执行x=iif(a>7,-1,0)后，x的值是_________。

（A）、10（B）、0（C）、7（D）、-1[单选题]下面程序的循环次数为________。

For i=10 to 40 step 6Print INext I（A）、 6（B）、32（C）、33（D）、 5[单选题]下列循环的执行次数是________。

Private Sub Form_Click()For i=1 to 10For j=1 to INext jNext IEnd Sub（A）、40（B）、55（C）、45（D）、50[单选题]下面程序运行后输出的结果为________。

For I = 1 To 2s = 1For j = 0 To I - 1s = s + s * 1MsgBox sNext jPrint s;Next I（A）、0 2（B）、 1 1（C）、 2 4（D）、 1 2[单选题]下列代码的运行结果是________。

Private Sub Command1_Click()For I = 1 To 3Print Chr(Asc("A") + I - 1);Next IEnd Sub（A）、 ABC（B）、 65 66 67（C）、 abc（D）、BCD[单选题]执行下列程序，从键盘输入10，运行结果是_________。

Private Sub Command1_Click()S=inputbox("请输入一个数字：")Select case sCase Is>0Print ">0"Case Is>3Print ">3"Case Is>5Print ">5"End SelectEnd Sub（A）、>0（B）、出错（C）、>3（D）、>5[单选题]执行下列程序，运行结果是__________。

Private Sub Command1_Click()s = 0Dim i As IntegerFor i = 2.1 To 5.7 Step 0.3s = s + 1NextPrint sEnd Sub（A）、14（B）、12（C）、13（D）、死循环[单选题]Private Sub Form_Click()For K=1 to 10For j=1 to KPrint "*" ;Next jPrintNext KEnd Sub运行时，输出星号的行数是_______。

（A）、10（B）、20（C）、50（D）、100[单选题]下列代码的运行结果是________。

Private Sub Command1_Click()s = 0n = 100For I = 1 To ns = s + IIf I Mod 25 = 0 Then Print "*"Next IEnd Sub（A）、100个"*"（B）、25个"*"（C）、4个"*"（D）、5个"*"[单选题]要计算1到100之间的偶数之和，请补充下列程序。

Private Sub Command1_Click()x = 0For i = 1 To 100 Step 2_________Next iPrint "1到100之间的偶数之和为:", xEnd Sub（A）、x=x+i+1（B）、x=x+1（C）、x=x+i（D）、x=x*2[单选题]执行下列程序，输出结果是__________。

Private Sub Command1_Click()a=10Dob=b+aa=a+2loop while a>20Print aEnd Sub（A）、10（B）、22（C）、12（D）、75[单选题]下面程序段运行后的输出结果是________。

x$="a"y$="b"z$="c"For i=1 to 2x$=y$:y$=z$:z$=x$Next iPrint x$+y$+z$（A）、 cab（B）、 bca（C）、 bcb（D）、 cbc[单选题]对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237, 126, 87, 48, 498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor I = 1 To 4If a(I) > m1 Thenm1 = a(I)m2 = IEnd IfNext IEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为________。

（A）、 498(回车符)4（B）、 237(回车符)1（C）、 498(回车符)5（D）、 48(回车符)4[单选题]在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 3 To 0 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是_________。

（A）、 34（B）、 12（C）、 4321（D）、 1234[单选题]在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 3 To 0 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是_________。

（A）、 4321（B）、 12（C）、 34（D）、1234[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是_______。

（A）、7（B）、15（C）、157（D）、538[单选题]下列语句的执行结果是________。

A=2b=3c=4print c=a+b（A）、 5（B）、0（C）、False（D）、 4[单选题]设有如下的记录类型Private Type PersonCode As StringName As StringAge As IntegerEnd TypeDim stu As PersonPrivate Sub Command1_Click()With stu.Name = "李洪".Code = "010101".Age = 19End WithPrint stu.CodeEnd SubPrint stu.Code的结果是________。

（A）、李洪（B）、女（C）、010101（D）、11[单选题]下面程序的循环次数为________。

For i=10 to 40 step 6Print INext I（A）、33（B）、 5（C）、 6（D）、32[单选题]执行下列程序，Private Sub Form_Click()c = 4x = Val(InputBox("请输入一个数"))While x < > -999If x > c Then c = xx = Val(InputBox("请输入一个数"))WendPrint c; Print Abs(x)End Sub运行时输入5,9,8,2,-999，输出的结果是_________。

（A）、9(回车符)8（B）、9(回车符)2（C）、9(回车符)999（D）、2(回车符)999[单选题]下列程序的输出结果是________。

Private Sub Command1_Click()num=0While num < =100num=num+1WendPrint numEnd Sub（A）、0（B）、100（C）、101（D）、 1[单选题]执行下列代码的结果是________。

Private Sub Command1_Click()Dim a(10)For i = 1 To 10a(i) = i * 10Next iPrint a(i)End Sub（A）、100（B）、110（C）、10（D）、数组下标越界[单选题]要计算1到100之间的偶数之和，请补充下列程序。

Private Sub Command1_Click()x = 0For i = 1 To 100 Step 2_________Next iPrint "1到100之间的偶数之和为:", xEnd Sub（A）、x=x+1（C）、x=x+i+1（D）、x=x*2[单选题]执行下列程序的输出结果是________。

Private Sub Command1_Click()For i = 1 To 3If i < = 1 Then x = 1If i < = 2 Then x = 2If i < = 3 Then x = 3Next iPrint xEnd Sub（A）、 2（B）、 3（C）、 1（D）、 4[多选题]下列语句不正确的________。