第四章试题

注意：完成第三章的练习后，可以做以下练习：“第四章试题”、“第四章练习一”、“第四章练习二”、“第四章练习三”

第四章

[单选题]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 3

Print Chr(Asc("A") + I - 1);

Next I

End 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 6

Print I

Next I

（A）、 6

（B）、32

（C）、33

（D）、 5

[单选题]下列循环的执行次数是________。

Private Sub Form_Click()

For i=1 to 10

For j=1 to I

Next j

Next I

End Sub

（A）、40

（B）、55

（C）、45

（D）、50

[单选题]下面程序运行后输出的结果为________。

For I = 1 To 2

s = 1

For j = 0 To I - 1

s = s + s * 1

MsgBox s

Next j

Print s;

Next I

（A）、0 2

（B）、 1 1

（C）、 2 4

（D）、 1 2

[单选题]下列代码的运行结果是________。

Private Sub Command1_Click()

For I = 1 To 3

Print Chr(Asc("A") + I - 1);

Next I

End Sub

（A）、 ABC

（B）、 65 66 67

（C）、 abc

（D）、BCD

[单选题]执行下列程序，从键盘输入10，运行结果是_________。Private Sub Command1_Click()

S=inputbox("请输入一个数字：")

Select case s

Case Is>0

Print ">0"

Case Is>3

Print ">3"

Case Is>5

Print ">5"

End Select

End Sub

（A）、>0

（B）、出错

（C）、>3

（D）、>5

[单选题]执行下列程序，运行结果是__________。Private Sub Command1_Click()

s = 0

Dim i As Integer

For i = 2.1 To 5.7 Step 0.3

s = s + 1

Next

Print s

End Sub

（A）、14

（B）、12

（C）、13

（D）、死循环

[单选题]

Private Sub Form_Click()

For K=1 to 10

For j=1 to K

Print "*" ;

Next j

Print

Next K

End Sub

运行时，输出星号的行数是_______。

（A）、10

（B）、20

（C）、50

（D）、100

[单选题]下列代码的运行结果是________。Private Sub Command1_Click()

s = 0

n = 100

For I = 1 To n

s = s + I

If I Mod 25 = 0 Then Print "*"

Next I

End Sub

（A）、100个"*"

（B）、25个"*"

（C）、4个"*"

（D）、5个"*"

[单选题]要计算1到100之间的偶数之和，请补充下列程序。Private Sub Command1_Click()

x = 0

For i = 1 To 100 Step 2

_________

Next i

Print "1到100之间的偶数之和为:", x

End Sub

（A）、x=x+i+1

（B）、x=x+1

（C）、x=x+i

（D）、x=x*2

[单选题]执行下列程序，输出结果是__________。

Private Sub Command1_Click()

a=10

Do

b=b+a

a=a+2

loop while a>20

Print a

End Sub

（A）、10

（B）、22

（C）、12

（D）、75

[单选题]下面程序段运行后的输出结果是________。

x$="a"

y$="b"

z$="c"

For i=1 to 2