问题

Option base 1 Private sub command1_click() Dim a(3 3) For I=1 to 3 For j=1 to 3 If j>

Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j>1 and I>1 then a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else a(I,j)=I*j end if print a(I,j);” “; next j print next I end sub 程序运行后，单击命令按钮后，在窗体显示的结果是？

请帮忙给出正确答案和分析，谢谢！

参考答案

您可能感兴趣的试题

现有如下一段程序：Option base 1Private Sub Command1_Click（) Dim a a=Array（3,5,7,9) X=1 For

答案解析
有如下程序：Option base 1Private Sub Command1_Click Dim arr（10) Arr=Array（10,35,28,90,54,68

答案解析
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Private Sub Comma

答案解析
（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Comma

答案解析
（26）在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Private Option Base 1 Sub C

答案解析
在窗体上画一个名称为Command1的命令按钮然后编写如下程序: Option Base 1 Private Sub Command

答案解析

Option base 1 Private sub command1_click() Dim a(3 3) For I=1 to 3 For j=1 to 3 If j&gt;

Option base 1 Private sub command1_click() Dim a(3 3) For I=1 to 3 For j=1 to 3 If j>