有如下程序： FOR j=1 TO 3 PRINT TAB（3*j）；11*（2*j-1）； NEXT j 运行后输出的结果是（）

下面程序运行时，输出的结果是（） 5 A=0 10 FOR L=1 TO 3 20 A=A+1 30 FOR J=1 TO L 40 A=A+1 50 NEXT J 60 A=A+1 70 NEXT L 80 PRINT A 90 END

在窗体上画一个名称为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 程序运行后，单击命令按钮，窗体上显示的是（）。（其中CR表示回车和换行）

有如下程序： Private Sub Command1_Click（） Fo rj=1 To 10 a=a+j\7 Next j Print a End Sub 在运行时输出a的值是（）

程序段： a$="54321"：b$="abcde" FOR j=1 TO 5 PRINT MID$（a$，6-j，1）+MID$（b$，j，1）； NEXT j 运行时输出的结果是（）

以下程序的循环次数是（ ）。Private Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd Sub

下列程序的运行结果是________。Dim a%(3,3),i%,j%For i=1 to 3a(I,i)=1:a(I,4-i)=1next iFor i=1 to 3For j=1 to 3Print a(I,j);next jPrintnext i

以下程序段中语句Print i*j执行的次数是。For i=1 to 3For j=5 to 1 step -1Print i*jNext j,i

下面程序运行结果第一行是 ，最后一行是 。 Private Sub Form_Click() Dim I As Integer, J As Integer, X(4, 3) As Integer For I = 1 To 3 For J = 1 To 2 X(I, J) = I + J Print X(I, J)； Next j Print Next i Print X(I, J) End Sub

下面程序段的运行结果为________。 For i=1 To 5 n=1 For j=1 To i n=n*j Next j Print n; Next i

以下程序的循环次数是（ ）。 Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End Sub

有如下程序：Dim a(3，3)As IntegerFor m ＝ 1 To 3For n ＝ 1 To 3a(m，n)＝(m-1)*3＋nNext nNext mFor m ＝ 2 To 3For n ＝ 1 To 2Print a(n，m)；Next nNext m运行后，输出结果是( )。

下列程序段的执行结果为 ______。 A=0：B=0 For I=-1 To-2 Step-1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A；B

下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="；A(5)

有如下程序：main（){int a[3][3]={{1,2},{3,4},{5,6}},i,j,s=0;for（i=1;i＜3；i++)for（j=0;j＜=i;j++

假定有以下程序段 n=0 for i=1 to 3 for j=-3 to 1 n=n+1 next j next i 运行完毕后，n的值是()。

在窗体上添加一个命令按钮，名为Command1，其单击事件中有如下程序段，则事件过程执行后，文本框中输出()。 For i= 1 To 4 For j = 1 To 3 x=3 For k =1 To 2 x=x+3 Next k Next j Next i TextText = Str(x)

下列程序段的执行结果为（)。 K=0 For J=1 to 2 For I = 1 to 3 K =I＋1 Next I For I = 1 to 7 K = K＋1 Next I Next J Print K

有如下程序：main（){int a[3][3]={{1，2}，{3，4}，{5，6}}，i,j,s=0；for（i=1；i＜3；i++) for（j=0；j＜=i；j+

若打印图形 * 实现代码如下。 *** ***** ******* for （int i=1 ; i＜= a ; i++) { for （int j="1;" j++) system.out.print（“*”); system.out.print（“\n”); } a处为（＞ A、3

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码： Option Base 1 Dim arr（) As Integer Private Sub Command1_Click（) Dim i As Integer, j As Integer Dim s As Integer ReDim arr（4, 2) s = 0 For i = 1 To 3 For j = 1 To 2 arr（i, j) = i + j Next j Next i ReDim Preserve arr（4, 4) For j = 3 To 4 arr（3, j) = j + 10 Next j For i = 1 To 4 s = s + arr（i, i) Next i Print s End Sub 程序运行过程中，当单击Command1时，输出结果为________。

求s=1+1×2+1×2×3+…+1×2×3×…×10， 并将结果存到变量s中。请在_________处填上适当的内容，完善程序。 Private Sub Form_Click（) Dim i, j As Integer Dim k As Long s = 0 For i = 1 To 10 k = ____________ For j = 1 To i k = k*j Next j s = s+k Next i Print “s=”;s End Sub

如下程序for i in range（3,5): sum=0 for j in range（3,5): sum+=j print（sum)的运行结果是（）。

有如下事件过程，单击命令按钮扣，输出结果是（)。 Private Sub Command1 Click（) Dim b% （1 To4) ,j%, t For j=1 To 4 b（j) =j Next j t=Tax（b（) ) Print "t="; t, End Sub Function Tax （a（) As Integer) Dim t, i% t=1 For i=2 To UBo

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) Fori=1 To 4 K=4 For j=1 To 3 K=3 For k=1 To 2 K=X+6 Next k Next j Next i Print X End Sub 程序运行后，单击命令按钮，输出结果是 【14】 。