请阅读程序： Private Sub Form. Click（ ） m=1 For i=4To 1 Step-1 Print Str(m)；m=m+1 For j=1 To i Print"*"： Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是（ ）。A.1**** 2*** 3** 4*B.4**** 3*** 2** 1*C.**** *** ** *D.* ** *** ****
请阅读程序： Private Sub Form. Click（ ） m=1 For i=4To 1 Step-1 Print Str(m)；
m=m+1 For j=1 To i Print"*"： Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是（ ）。
A.1**** 2*** 3** 4*
B.4**** 3*** 2** 1*
C.**** *** ** *
D.* ** *** ****
相关考题：
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。A．0B．2C．3D．4
阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j 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 Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。A． 21B．13C．8D．25
在窗体上画一个名称为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
有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form. Click() Dim i As Integer,j 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 Preserve arr(3,4) For j＝3 To 4 arr(3,j)＝j+9 Next j Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为______。A．813B．013C．712D．00
请阅读程序：Private Sub Form_Click()m=1For i=4 To 1 Step-1Print Str(m)；m=m+1For j=1 To iPrint”*”；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是( )。A．1**** 2*** 3** 4*B．4* 3** 2*** 1****C．**** *** ** *D．* ** *** ****
在窗体上画—个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j 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 4 7 2 5 8 3 6 9B．1 2 3 4 5 6 7 8 9C．1 2 3 4 5 6 7 8 9D．没有输出
在窗体中画一个命令按钮，然后编写以下时间过程： Private Sub Command1_Click() For i=1 To 4 x=1 For j=1 To 3 x=2 For k=1 To 2 x= x+6 Next k Next j Next i Print x End Sub程序运行后，单击命令按钮，输出结果是______。A．2B．7C．14D．37
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21
执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$， i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End SubA．2B．3C．1D．0
阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(3，3) For i=1 To 3 For j=1 To 3 If i=j Then a(i，j)=1 If i＜j Then a(i，j)=2 If i＞i Then a(i，j)=3 Next j Next i For i=1 To 3 For j=1 To 3 Print a(i，j)； Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。A．1 3 3B．1 2 2C．2 3 3D．2 1 1 2 1 3 3 1 2 1 2 3 3 2 1 2 2 1 3 3 1 1 1 2 3 3 2
在窗体上画一个名称为Comlnalld1的命令按钮，然后编写如下程序： 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 2 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9
在窗体上画一个名称为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
在窗体上画一个名为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
阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10 8 11
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Shb Command1_Chck() Dim a(5,5) As Integer Dim i As Integer, j 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 4 7 2 5 8 3 6 9B．1 2 3 4 5 6 7 8 9C．1 2 3 4 5 6 7 8 9D．没有输出
在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub CommAnd1_Click() For i=1 To 4 x=0 For j=1 To 3 x=j For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮,输出结果是______ 。A．7B．15C．157D．538
阅读程序： 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
请阅读程序． 0ption Base 1 Private Sub Fo,m Click（ ） Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是（ ）。A.5 7 6 8B.6 8 7 9C.7 9 8 10D.8 10 8 11
阅读程序： Private Sub Form. Click（ ） a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是（ ）。A.105B.1C.120D.15
阅读程序： 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
请阅读程序：Private Sub Form. Click（ ）m=1For i=4To 1 Step-1Print Str(m)；m=m+1For j=1 To iPrint*：Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是（ ）。A.1****2***3**4*B.4****3***2**1*C.**********D.**********
下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End SubA．***** *** *B．* *** *****C． * *** *****D． * *** *****
在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码： Option Base l 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 j=j*10 Next i Print S End Sub 程序运行后，单击命令按钮，其输出结果是（ ）。A.4321B.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
在窗体上面画一个命令按钮，然后编写如下事件过程，运行程序，单击命令按钮，其输出结果是______。 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 j=j*10 Next i Print s End SubA．4321B．12C．34D．1234