单项选择题

有如下程序
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

<上一题目录下一题>

热门试题

单项选择题

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form Click() Dim s1 As String, s2 As String s1= teacher sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet
B．tahreee
C．themee
D．eerthea

单项选择题

在窗体上画一个按钮，然后再复制5个，形成名称为Command1的6个控件数组，删除其中Index=4的一个。有下列程序： Private Sub Command1_Click(Index As Integer) Print Command1.Count； Print Command1.LBound； Print Command1.UBound； End Sub 程序运行后，单击任一命令按钮，则窗体上显示的内容是

A．0 0 0
B．5 0 5
C．4 0 4
D．4 1 5

相关试题