单项选择题

有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End Sub

A．5
B．10
C．12
D．20

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10；10)As Integer Dim i As Integer，j As Integer For i=1 To 3 For j=2：To 4 arrayl(i，j)=i+j Next j Next i Text1.Text=arrayl(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是

A．15
B．14
C．13
D．12

单项选择题

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．10 5
B．20 5
C．20 40
D．10 40

相关试题