在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim num As Integer num = 1 Do Until num ＞ 6 Form1.Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。A．1 3.4 5.8B．1 3 5C．1 4 7D．无数据输出
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim num As Integer num = 1 Do Until num ＞ 6 Form1.Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A．1 3.4 5.8
B．1 3 5
C．1 4 7
D．无数据输出
参考答案和解析
C
相关考题：
在窗体中使用一个文本框（名为 num1 ）接受输入值，有一个命令按钮 run13 ，事件代码如下：Private Sub run13_Click()If Me!num1 = 60 Thenresult = " 及格 "ElseIf Me!num1 = 70 Thenresult = " 通过 "ElseIf Me!num1 = 80 Thenresult = " 合格 "End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为 85 ，单击命令按钮，输出结果是 【 13 】
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．0B．5C．6D．7
（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For j=2 To n If number(j)p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出 A.-56 B.0 C.103 D.190
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_________。A．13.45.8B．1 3 5C．147D．无数据输出
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function Fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=In put Box("请输入一个数") n=CLng(n) r=Fun(n) Print r End SubA．20B．24C．9D．28
在窗体中使用一个文本框(名称为num1)接受输入值，有一个命令按钮run13，事件 代码如下： Private Sub run13_Click() If Me!num1＞=60 Then result="及格" Else If Me!num1＞=70 Then result="通过" Else If Me!num1＞=80 Then result="合格" End If MsgBOx result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是( )。A．及格B．通过C．合格D．其他
在窗体上画一个名称为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．13.45.8B．1 3 5C．1 4 7D．无数据输出
在窗体上画一今名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．79B．340C．97D．死循环
在窗体画一个命令按钮，然后编写如下过程:Function fun(ByVal num As Long)As LoneDim k As Longk=1num=Abs (num)Do While numk=k*(num Mod 10)num=num\10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn= InputBox (“请输入一个数”)n=CLng (n)r=fun (n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【 】。
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer，s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a＜=0 Print s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．7 9B．34 0C．9D．死循环
单击一次命令按钮之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End FunctionA．15B．20C．35D．40
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 = 60 Then result = "及格" ElseIf Me!num1 = 70 Then result = "通过" ElseIf Me!num1 = 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Dim num As Integer num=1 DO Until mum＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．1 3.4 5.8B．1 3 5C．1 4 7D．无数据输出
在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End SubA．20B．24C．9D．28
先在窗体上添加一个命令按钮，然后编写如下程序： Function fun(ByValnum As Long)As Long Dim k As Long k=1 num=Abs(nam) Do While num k=k*(num Mod 10) num=num\10 Loop Fun=k End Function PrivateSubCommandl_ClickA．0B．100C．200D．300
有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10) num= num\10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd SubA．12B．6C．3D．1
先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。A． 0B．100C．200D．300
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。A．13.45.8B．1 3 5C．147D．无数据输出
在窗体上画—个名称为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．13.45.8B．1 3 5C．1 4 7D．无数据输出
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．8B．2C．5D．11
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。A．-56B．0C．103D．190
编写下列事件过程和函数过程：Private Sub Commandl Click()Dim num(1 To 6)As Singlenum(1)=103:num(2)=190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num())End SubPrivate Function p2(ByVal n As Integer,number()As Single)As Integerp2=number(1)For j=2 To nIf number(j)＜p2 Then p2=number(j)Next jEnd Function程序运行后，在窗体上输出( )。A．-56B．0C．103D．190
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Sub Command1_Click()num As Integer= 1Until num >6num;= num + 2.4Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )A、1 3.4 5.8B、1 3 5C、1 4 7D、无数据输出
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是( )。A．11B．1C．16D．7
在窗体上面一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s; a End Sub 程序运行后，单击命令按钮．则窗体上显示的内容是______。A．7 9B．34 0C．9 7D．死循环
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:num(5)=-56：num(6)=100 Print Print p2(6，num()) End Sub Private Function p2(By Val n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。A．-56B．0C．103D．190
在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：Private Sub run13_Click()If Me!num1=60 Thenresult="及格"Elself Me!num1=70 Thenresult="通过"ElselfMe!numl=85 Thenresult="合格"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。