单项选择题

有如下程序
Private Sub Command1_Click()
a = 100
Do
s=s+a
a=a+1
Loop While a＞120
Print a
End Sub
程序运行后，单击命令按钮，其输出的结果为

A．100
B．120
C．201
D．101
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static a As Integer，b As Integer Cls b = b + 3 a = a + b Print a，b End Sub 程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为
A．8 16
B．6 6
C．15 18
D．18 9
单项选择题
在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String *20 End Type Private Sub Command1_Click() Dim Maxsize, NextChar, MyChar Open d: temp female.txt For Input As #1 Maxsize = LOF(1) For NextChar = Maxsize To 1 Step -1 Seek #1, NextChar MyChar = Input(1, #1) Next NextChar Print EOF(I) Close 31 End Sub 程序运行后，单击命令按钮，其输出的结果为
A．True
B．False
C．0
D．Null
相关试题