网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上画一个命令按钮(其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 10
B．7 10 8 11
C．8 11 9 12
D．9 12 10 13
参考答案
更多 “ 在窗体上画一个命令按钮(其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 ” 相关考题
考题
在窗体上画一个名称为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
考题
在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 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．4221B．1234C．34D．12
考题
在窗体上面一个命令按钮(其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
考题
（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim aa=Array(1, 2, 3, 4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序，其输出结果是（ ）。A）1234B）12C）34D）4321
考题
（10）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim ArrArr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)pos=0neg=0For k=1 To 10If Arr(k)0 Then【10】Else【11】End IfNext kPrint pos, negEnd Sub以上程序的功能是，计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg，请填空。
考题
（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮后，其输出结果是A ） 4321B ） 1234C ） 34D ） 12
考题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click( )Dim s As IntegerDim aa(3, 2) As IntegerFor i = 1 To 3For j = 1 To 2aa(i, j) = i + jNext jNext is = aa(1, 2) + aa(2, 1)Print sEnd Sub程序运行后，单击命令按钮，窗体上显示的值是( )A. 4B. 5C.6D. 7
考题
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。A．0B．2C．3D．4
考题
在窗体上画一个命令按钮(其Nmne属性为Command1)，然后编写如下代码： Option Base l Private Sub Command1_Click( ) Dim a s=0 a=Array(1，2，2，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．1234C．34D．12
考题
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．空白B．错误提示C．北京D．上海
考题
在窗体上画一个名称为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．89B．99C．23D．77
考题
在窗体上画—个命令按钮，其名称为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
考题
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345
考题
在窗体上画一个命令按钮(其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 Next i End Sub 程序运行后，单击命令按钮，其输出结果为 ______ 。A．6 9 7 10B．7 10 8 11C．8 11 9 12D．9 12 10 13
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码： Option Base 1 Prirate 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
考题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim as=0:j=1a=Array(1,2,3,4)For i=4 To 1 Step-1s=s+a(i)*jj=j*10NextPrint sEnd Sub运行上面的程序并单击命令按钮,其输出结果是A．4221B．1234C．34D．12
考题
在窗体上画一个名称为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 Base 1Private Sub Command1_Click()Dim ArrArr=Array(1,2,3,4,5)j=1For i=5 To 1 Step-1S=S+Arr(i)*jj=j*10NextPrint SEnd Sub程序运行后，单击命令按钮，输出结果是( )。A．54321B．123C．12345D．345
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是______ 。A．4321B．12C．34D．1234
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option 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，然后编写下列代码：Option Base lPrivate Sub Command1 Click（ ）Dim aa=Array(1，2，3，4)j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint SEnd Sub程序运行后，单击命令按钮，其输出结果是（ ）。A.4321B.1234C.34D.12
考题
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1 Click() Dim a a=Array(2， 4， 6， 8) j=1 For i = 4 To 1 Step -3 s=s+a(i) (j j = j ( 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是A．22B．24C．26D．28
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click () Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub程序运行后，单击命令按钮，其输出结果是______。A．1234B．12C．34D．4321
考题
在窗体上画一个命令按钮，其名称为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
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private 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 i = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果为A．4321B．12C．34D．1234
考题
窗体上画一个命令按钮，然后编写如下代码：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open "c: \file. txt" for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后，单击命令按钮，其输出结果为______。A．TrueB．FalseC．0D．Null
考题
在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:Option Base 1Private Sub Command1_Click（）Dim as = 0a = Array（1,2,3,4）j = 1For i = 4 To 1 Step -1 s = s + a（i） * j j = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是（ ）。A．4321B．1234C．34D．12
热门标签
最新试卷