网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum_a(i) Next i X=Sum/5 For i=1 To 5 If a(i)＞x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．1 2
B．1 2 3
C．3 4 5
D．4 5
参考答案
更多 “ 窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Optlon Base 1 Prlvete Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum_a(i) Next i X=Sum/5 For i=1 To 5 If a(i)＞x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．1 2B．1 2 3C．3 4 5D．4 5 ” 相关考题
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（）Dim aa= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1NextPrint a（3）End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．5C．6D．7
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。A．5B．120C．153D．160
考题
设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。A．20B．7C．16D．17
考题
在窗体上画尸-个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 If i=1 Then x=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为： ______。A．1 2 3 4B．2 3 4 5C．2 3 4 4D．3 4 5 6
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j＝1 To 3 a(i,j)＝(i-1)*3+j Print a(i,j)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。A．1 2 3 2 4 6 3 6 9B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 TO 6 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．10B．16C．12D．20
考题
在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．5B．6C．8D．11
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Prirate Sub Command1_Click() s = 0 For i=1 To 13 x = i * i-1 If x Mod 3 = 0 Then s = s + 1 Next i Print s End Sub 程序运行后，单击命令按钮，则窗体中显示的内容是A．1B．5C．27D．45
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 5B．4 5C．8 4D．3 4
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Dim i As Integer,j As Integer Dim a(10，10)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j)； Nextj Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是A．1 2 3 24 6 3 6 9B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9
考题
有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End SubA． 25B．35C．45D．55
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A．3B．4C．5D．6
考题
在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) ＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A．1 2B．1 2 3C．3 4 5D．4 5
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。A．3B．4C．5D．6
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是A．1 2 3 246 3 69B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9
考题
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．0 3 7 5B．0 1 2 3C．3 2 4 5D．0 5 8 3
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序； Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i＝1 To 3 For j=1 To 3 a(i,j)＝(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是A．1 2 3 2 4 6 3 6 9B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(A) a(i)=a(i)+i-1 Next Print a(3) End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是A．4B．5C．6D．7
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)x Then Print a(i)； Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A．1 2B．1 2 3C．3 4 5D．4 5
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Dption Base 1 Private Sub Command1_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 If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。A．89B．99C．23D．77
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() For i=1 To 4 If i=1 Then x=i If i＜=4 Then x=X+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为：_______。A．1 2 3 4B．2 3 4 5C．2 3 4 4D．3 4 5 6
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 3 5 7B．2 8 14 53C．0 3 21 45D．0 5 11 34
考题
在窗体上画一个命令按钮，名称为Command1。然后编写如下事件过程： Private Sub Command1_Click() x=11 Sum=0 For i=1 To x n=Iif(i＞5, 1, 2) Sum=Sum+n Next i Print Sum End Sub 运行后的输出结果是______。A．16B．11C．5D．2
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant 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 s End Sub 运行上面的程序，单击命令按钮，其输出的结果为A．4321B．12C．34D．1234
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。A．3B．4C．5D．6
考题
在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为A．16B．24C．32D．36
考题
在窗体上画一个名称为Comillarldl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(" ") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。A．3B．4C．5D．6
热门标签
最新试卷