网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读程序 SUB P(B( ) AS INTEGER) FOR I=1 TO 4 B(I) =2*I NEXT I END SUB PRIVATE SUB COMMAND1_CLICK( ) DIM A( 1 TO 4) AS INTEGER A(1)=5 A(2) =6 A(3) =7 A(4) =8 P A( ) FOR I = 1 TO 4 MSGBOX A(I) NEXT I END SUB 运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。
A．出错
B．10, 12, 14, 16
C．5, 6, 7, 8
D．2, 4, 6, 8
参考答案
更多 “ 阅读程序 SUB P(B( ) AS INTEGER) FOR I=1 TO 4 B(I) =2*I NEXT I END SUB PRIVATE SUB COMMAND1_CLICK( ) DIM A( 1 TO 4) AS INTEGER A(1)=5 A(2) =6 A(3) =7 A(4) =8 P A( ) FOR I = 1 TO 4 MSGBOX A(I) NEXT I END SUB 运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。A．出错B．10, 12, 14, 16C．5, 6, 7, 8D．2, 4, 6, 8 ” 相关考题
考题
有以下程序：Sub subp（b（）As Integer）For i=1To4b（i）=2-iNext iEnd SubPrivate Sub Command1_Click（）Dim a （1 To 4）As IntegerA） （1）=5A） （2）=6A） （3）=7A） （4）=8subpa（）For i=1 To4Print a （i）Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（ ）。 A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
考题
在窗体上添加一个名称为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打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
考题
（ 26 ）有以下程序：Sub subP(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为A ） 2468B ） 5678C ） 10121416D ） 出错
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）Dim i As IntegerFor i=LBound（oldCopy（） ） To UBound（oldCopy（） ）newCopy（i） =oldCopy（i）Next iEnd SubPrivate Sub Command1_Click（）Dim m（10） As Integer, n（10） As IntegerFor i=1 To 10m（i） =i iNext iCall BTC（m, n）Print n（5）End Sub程序运行后，单击命令按钮输出结果为（ ）。A．0B．2C．10D．25
考题
有如下程序：Private Sub Command1_Click（）Dim k As Integer, m As IntegerDim p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pEnd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为（ ）。A．4 6B．6 6C．8 8D．10 12
考题
请阅读程序：Sub subP(b()As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Command 1_Click()Dim a(1 To 4)As Integera(1)=5：a(2)=6：a(3)=7：a(4)=8subP a()For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
考题
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
考题
有如下的程序：Private Sub Command1_Click()Dim k As Integer，m AB IntegerDim P As Integerk=4:m=1P=Fun(k，m) =Print P；P=Fun(k，m) :Print PEnd SubPrivate Function Fun(a As Integer，b As Integer)Static m As Integer，i As Integerm=5:i=2i=i+m+1m=i+a+bFun=m\2End Function单击命令按钮后，输出结果为A． 2 2B．4 4C．5 5D．6 6
考题
下面程序段的运行结果是【 】。Option Base 1Private Sub Swap (a() As IntegFor I=1 to 10\2t=a(I)a(I)=a(10-I+1)a(10-I+1)=tNext IEnd SubPrivate Sub Form_Click()Dim x(10) As IntegerFor I=1 to 10x(I)=I*2Next ISwap x()For I=1 to 10Print x(I)Next IEnd Sub
考题
在窗体中添加一个名称为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 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窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。
考题
请阅读程序： Sub subP(b（ ）As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click（ ） Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a（ ） For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是（ ）。A.2 4 6 8B.5 6 7 8C.10 12 14 16D.出错
考题
有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m\2 End Function 单击命令按钮后，输出结果为A．2 2B．4 4C．5 5D．6 6
考题
有如下的程序。Private Sub Command1_Click()Dim k As Integer, m As IntegerDim P As Integerk=4: m=1P=Fun(k, m) : Print P;P=Fun(k, m) : Print PEnd SubPrivate Function Fun(a As Integer, b As Integer)Static m As Integer, i As Integerm=5: i=2i=i + m + 1m=i + a + bFun=m \ 2End Function单击命令按钮后,输出结果为A．2 2B．4 4C．5 5D．6 6
考题
有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m\2 End Function 单击命令按钮后，输出结果为A．2 2B．4 4C．5 5D．6
考题
单击命令按钮后，下列程序代码的执行结果是______。Public Sub fun (a As Integer, b As Integer, c As Integer)Doa=b+ cn=n+1Loop While n ＞ 3End SubPrivate Sub command1_ click()Dim m As Integer, n As Integer, i As IntegerFor i = 0 To 2: m = n + 1: Next iFor i = 1 To 2: Call fun (m, n, i): Next iFor i = 0 To 3Print m;Next iEnd Sub
考题
单击一次命令按钮后，下列程序的执行结果为Private Sub Command1_Click()Dim m As Integer，I As Integer，x(10) As IntegerFor I=0 To 4：x(I)=I+1：Next IFor I=1 TO 2：Call Prioc(x)：Next IFor I=0 TO 3：Print x(I)；：Next IEnd SubPrivate Sub Prioc(a()As Integer)Static I As IntegerDoa(I)=a(I)+a(I+1)I=I+1Loop While I＜2End SubA．3 4 7 5B．3 5 7 4C．1 2 3 4D．1 2 3 5
考题
在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：Private Sub s(By Val p As Integer)p=p*2End SubPrirate Sub Command1_Click( )Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
考题
阅读程序： Sub subP(b() As Integer) For i＝1 To 4 b(i)=2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)＝5 a(2)＝6 a(3)＝7 a(4)＝8 subP a() For i＝1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
考题
阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（ ）。A.35B.31C.33D.37
考题
有如下的程序：Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print PEnd SubPrivate Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m\2End Function单击命令按钮后，输出结果为A．2 2B．4 4C．5 5D．6 6
考题
阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
考题
请阅读程序：Sub subP(b（ ）As Integer)For i=1 To4b(i)=2*iNext iEnd SubPrivate Sub Commandl Click（ ）Dim a(1 To 4)As Integera(1)=5:a(2)=6:a(3)=7:a(4)=8subP a（ ）For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是（ ）。A.2468B.5678C.10121416D.出错
考题
阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行以上程序，单击命令按钮，输出结果为______ 。A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
考题
在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是( )。Private Sub p1(n As Integer)For i=n To 1 Step-1x=String(i,"*")Print xNext iEnd SubPrivate Sub Command1_Click()p1(3)End SubA)*B)C)D)A．*** ** *B．* ** ****C．* * *D．******
考题
下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd SubA．12345B．6C．1 2 3 4 5 6D．0
考题
（ 12 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub s （ By Val p As lnteger ）p=p*2End SubPrivate Sub Command1_Click()Dim i As Integeri=3Call s(i)If i4 Then i=i^2MsgBox iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 12 】 。
热门标签
最新试卷
