单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End SubA．1 4 9 16B．1 3 5 7C．3 6 9 12D．2 4 6 8
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End Sub
A．1 4 9 16
B．1 3 5 7
C．3 6 9 12
D．2 4 6 8
相关考题：
在窗体上画一个名称为 \Command1\ 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a As StringA="123456789"For i=1 To 5Print Space（6-i）;Mid $ （a,______ ,2*i-1）Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。
在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(1)If i＞4 Then i=i*2MsgBox iEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（）Dim s，iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()sum=0For i=1 To 100 step 2sum=sum+iNext iMsgBox sumEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim a(10)，P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程Private Sub Command1 Click()Dim a As Stringa=______For i = 1 To 5Print Space(6-i)；Mid$(a， 6-i， 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果为5456345672345678123456789请填空。
在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：Private Sub s(ByVal p As Integer)p=p*2End SubPrivate Sub Com1_Click()Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2End sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_CliCk() A=75 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4
在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是______。A．4321B．1234C．34D．12
在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1Click（ ） Dim a(5)As String For i=1，To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是（ ）。A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub s(ByVal p As Integer)p=p*2End SubPrivate Sub Command1_click()Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2MsgBox iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
在窗体上添加十个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()sum＝0For i＝3 To 7sum＝i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
单击一次命令按钮之后，下列程序代码的执行结果为______。 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
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End SubA．24 6B．24 0C．12 6D．12 0
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End SubA．20 10B．10 20C．2 10D．10 10
在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______。A．3 4 6 7B．7 8 10 11C．1 2 4 5D．8 9 12 13
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。A．49B．64C．81D．100
在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为( )。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i，"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End SubA．*** ** *B．* ** ***C．* * *D．******
已知两个窗体Form1、Form2，下列事件过程中，______可以实现单击窗体Form1的命令按钮时，显示窗体Form2，而窗体Form1消失。A．Private Sub Command1_ Click() LoadForm2 Form1. Hide End SubB．Private Sub Command1_ Click() Show Form2 Form1. Hide EndSubC．Private Sub Command1_ click() Show Form2 Form1. Hide End SubD．Private Sub Command1_ click()
单击一次命令按钮之后，在对话框中输入12，2，34，．23，窗体中的输出结果为______。 Private Sub Command1_ Click() a = 10: b = 20: c = 30 Call check(a, b * 2, (c)) Print "Name:"; a; b; c End Sub Private Sub check(a, ByVal b,C)Dim t As Integer a = a + 1: b= b + 1: c = c + 1 t = a a =b b = t End SubA．20 30 40B．40 30 20C．41 30 10D．41 20 30
单击一次命令按钮之后，在对话框中输入12，21，30，3，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 s = InputBox (“请输入”) Call per(i, s) Next i Print s End Sub Sub per(a, ByValB)b = 1 For i = 1 To 3 a = a * i Next i End SubA．12 21 30 3B．24 42 60 6C．3 30 21 12D．只能输入一个数
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______。A．6 9 7 10B．7 10 8 11C．8 11 9 12D．9 12 10 13
单击一次命令按钮之后，在对话框中输入12，2，34，23，窗体中的输出结果为______。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = Val (InputBox (“请输入元素”)) Next i plus a(1), a(2), a(3) End Sub Sub plus(first As Integer, second As Integer, third As Integer, Optional forth) n = first + second + third If Not IsMissing (forth) Then n = n + forth End If Print n End SubA．14B．71C．48D．37
单击一次命令按钮之后，在对话框中输入10，20，30，40，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a(4) As Integer For i = 1 To 4 a(i) = InputBox (“请输入:”) Next i Call subper (A．For i = 1 To 4 Print a(i) Next i End Sub Sub subper (b () As Integer) For i = 1 To 4 b(i) = 2 * i Next i End SubA．10 20 30 40B．1 2 3 4C．2 4 6 8D．5 10 15 20
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：Private Sub Command1_Click()Dim s ， iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。