单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim num As Integer
num=1
DO Until num＞6
Print num；
num=num+2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是

A．1 3.4 5.8
B．1 3 5
C．1 4 7
D．无数据输出
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下通用过程： Public Sub Fun(a( )，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr( )，n) Textl.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是
A．10
B．15
C．25
D．24
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： OPtion Base l Private Sub Commandl_Click( ) d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) C=x(i) Else d=d-c End lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A．89
B．99
C．23
D．77
相关试题