单项选择题

有下面的程序段，其功能是按图1所示的规律输出数据( )。


Dim a(3,5)As Integer
For i 1 To 3
For j=1 To 5
a(i,j)=i+j:Print a(i,j);
Next
Print
Next
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是( )。

<上一题 目录 下一题>
热门 试题

单项选择题
某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a()As integer)As Integer Dim max% max=1 For k=2 To 10 If a(k)＞a(max)Then max=k End If Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 ( )。
A．语句max=1应改为max=a(1)
B．语句For k=2 To 10应改为For k=1 To 10
C．If语句中的条件a(k)＞a(max)应改为a(k)＞max
D．语句MaxValue=max应改为MaxValue=a(max)
单项选择题
窗体上有一个文本框，其Name属性为Text1，如图所示，并有如下事件过程： Private Sub Form_Load() Text1.Text= :Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是( )。
相关试题