A.\退学\If bz =\缺考\If bz =\缓考\
B.\退学\缺考\缓考\
C.\退学\缺考\缓考\ D.\退学\缺考\缓考\
问题13
如果备注(bz)是\退学\，成绩(cj)=-1；如果备注是\缺考\，成绩=0；如果备注是\缓考\，成绩=-2。下面哪段程序正确？ A.\退学\ cj = -1
ElseIf bz =\缺考\ cj = 0
ElseIf bz =\缓考\ cj = -2 End If\
B.\退学\缺考\缓考\
C.\退学\缺考\缓考\ D.\退学\缺考\缓考\
问题14
如果成绩＞=80分标签框显示\优秀\，成绩＞=60并且＜80显示\及格\，成绩＞0且＜60显示不及格，下面哪段程序正确？
A.\优秀\及格\不及格\ B.\＞= 80 Then Label1.Caption = \优秀\If cj ＞= 60 Then Label1.Caption = \及格\If cj ＞= 0 Then Label1.Caption = \不及格\ C.\＞= 0 Then Label1.Caption =\不及格\If cj ＞= 60 Then Label1.Caption =\及格\If cj ＞= 80 Then Label1.Caption =\优秀\ D.\＞= 80 Then
Label1.Caption = \不及格\ElseIf cj ＞= 60 Then Label1.Caption = \及格\ElseIf cj ＞= 0 Then
Label1.Caption = \优秀\End If\
问题15
如果成绩＞=80分标签框显示\优秀\，成绩＞=60并且＜80显示\及格\，成绩＞0且＜61显示不及格，成绩＞100或者＜0标签框显示\数据错误\，下面哪个不正确？
A.\＞ 100, \数据错误\＞= 80, \优秀\＞= 60, \及格\＞= 0, \不及格\数据错误\
B.\＞ 100 Or cj ＜ 0, \数据错误\＞= 80, \优秀\＞= 60, \及格\不及格\ C.\＞ 100 Or cj ＜ 0 Then Label1.Caption = \数据错误\Else
Label1.Caption = IIf(cj ＞= 80, \优秀\＞= 60, \及格\不及格\End If\
D.\＞ 100 And cj ＜ 0 Then Label1.Caption = \数据错误\Else
Label1.Caption = IIf(cj ＞= 80, \优秀\＞= 60, \及格\不及格\End If\
问题16
\下面程序执行后，会输出哪个结果？ nl=8
Select Case nl Case 8
Print 1; Case Is＜=8 Print 2; Case 8 to 100 Print 3; Case 8,10,15 Print 4; End Select\ A.1 B.1 2 C.1 2 3 D.1 2 3 4
问题17
\下面程序在运行时不出现消息框，文本框中的内容是选择项目的哪个值？ nl=val(text1.text) Select Case nl Case is ＞=90
Msgbox \优秀\消息\Case Is＞=80
Msgbox \良好\消息\Case Is＞=60
Msgbox \及格\消息\Case Is＞=0 End Select\ A.120
B.80 C.65 D.-10
问题18
\下面程序在运行后，变量x的内容是什么？ x=0
for i=1 to 10 Select Case i Case Is＞9 x=x+i Case 2,4 x=x+I End Select Next I\ A.16 B.30 C.55 D.10
问题19
\计算1到100的奇数的和，下面划线处应该使用哪组命令？ S=0
For J=1 to 100 _(1)_ _(2)_ Next J Print S\ A.\(2)S=S+1\ B.\(2)S=S+1\ C.\(2)S=S+J\ D.\(2)S=S+J\
问题20
\计算1到100的偶数的和，下面划线处应该使用哪组命令？ S=0
For _(1)_ Step -2 _(2)_ Next J Print S\
A.\
(2)S=S+J\ B.\(3)S=S+J\ C.\(4)S=S+1\ D.\(5)S=S+1\
问题21
\下面的程序功能是什么？ S = 0
While s ＞ 100
Print Int(Rnd * 50) s = s + 1 Wend\
A.打印100个50以内的随机整数。 B.打印1到100。
C.打印100个100以内的随机整数。 D.什么也没做。
问题22
\下面的程序功能是什么？ S = 0
While s ＜ 100
Print Int(Rnd * 20) s = s + 1 Wend\
A.打印99个20以内的随机整数。 B.打印100个20以内的随机整数。 C.打印101个20以内的随机整数。 D.什么也没做。
问题23
\下面的程序功能是什么？ S = 0
While s ＞100
Print Int(Rnd * 50) s = s + 2 Wend\
A.打印100个50以内的随机整数。 B.打印50个50以内的随机整数。 C.打印1到100。 D.什么也没做。
问题24
\下面的程序实现1到10的乘积，请选择下划线处的命令： s = 1 I = 1 Do
s = s * I I = I + 1
Loop While ______ Print s\ A.I＞10 B.I＞11 C.I＜10 D.I＜11
问题25
下面哪个循环体内的语句1次也没有执行过？ A.\Print i Next J\
B.\Print i Next J\
C.\Print i Next J\
D.\Print i Next J\
问题26
\计算1到10的奇数的积，下面划线处应该使用哪组命令？ __(1)__
For J=1 to 10 _(2)_ S=S*J Next J Print S\ A.\(2)Step 2\ B.\(2)Step -2\ C.\(2)Step 1\ D.\(2)Step 2\