单项选择题

有下面的程序段，其功能是按如图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所示的规律继续输出数据，则接在上述程序段后面的程序段应该是

<上一题目录下一题>

热门试题

单项选择题

窗体上有List1、List2两个列表框，List1中有若干列表项(如图6所示)，并有下面的程序： Private Sub Command1_Click() For k=List1 ListCount-1 To 0 Step-1 If List1.Selected(k) Then List2 AddItem List1.List(k) List1.RemoveItem k End If Next k End Sub 程序运行时，依图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是

单项选择题

下面的程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 Private Sub Command1_Click() Dim count(25) As Integer, ch As String ch=Uease(InputBox( 请输入字母字符串 )) For k=1 To Len(eh) n=Asc(Mid(ch, k, 1))-Asc( A ) If n＞0 Then Count(n)=Count(n)+1 End If Next k m=Count(0) For k=1 To 25 If m＜count(k) Then m=count(k) End If Next k Print m End Sub

A．0
B．1
C．2
D．3

相关试题