编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 86 If score ＞85 Then r = 1 ElseIf score ＞

admin2015-08-28 22

问题编写如下程序：
Private Sub Command1_Click()
Dim score As Integer
score = 86
If score ＞85 Then
   r = 1
ElseIf score ＞ 60 Then
   r = 2
Else
   r = 0
End If
Print r
End Sub
程序运行后，单击命令按钮Command1，输出结果为

选项 A、0
B、1
C、2
D、86

答案B

解析考察If…Else If…Else…End If语句。条件判断成立则执行对应分支的语句。86＞85，所以r=1。选B）。

转载请注明原文地址:https://kaotiyun.com/show/M1Lp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类