问题详情

在窗体上画一个名称为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 69

B、2 3 4 3 4 5 4 5 6

C、1 4 7 2 5 8 3 6 9

D、1 2 3 4 5 6 7 8 9

时间：2022-02-21 16:56 关键词：

答案解析

D
解析：本题仍然是使用For循环对二维数组赋值。由于有For,循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j”可知输出的数值为1、2、3。此时For j循环终止，并执行“Print”语句，即进行换行。然后再执行For i的第二次循环，以此类推，正确答案为D。

相关问题

在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： OptionBase1 PrivateSubCommand1_Click（） Dima s=0 a=Array（1,2,3,4）;j=1 Fori=4To1Step-1 s=s+a（i）*j j=j*10 Nexti Prints EndSub 运行上面的程序，单击命令按钮，其输出结果是（　　）。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： PrivateSubCommand1_Click（） n=Val（Text1.Text） Fori=2Ton Forj=2ToSqr（i） IfiModj=0ThenExitFor Nextj Ifj>Sqr（i）ThenPrinti Nexti EndSub 该事件过程的功能是（　　）。
在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是（　　）。{Page}
设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_____
在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_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 运行上面的程序，单击命令按钮，其输出结果是______