题目内容

下列程序段的执行结果为______。 Dim A(5) For I=1 To 5 A=I*I Next I Print A(I-1)

A. 5
B. 25
C. 0
D. 16

查看答案
更多问题

在窗体上面1个名称为Command1的命令按钮,然后编写下列事件过程: Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5\10 Next j,i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub 程序运行后,单击命令按钮,输出结果是______。

A. 15
B. 13
C. 11
D. 9

请阅读程序: Option Base 1 Private Sub Form_Click() Dim art(4,4)As Integer For i=1 To 4 For j=1 To 4 arr(i,j)=(i-1)*2+j Next Next For i=3 To 4 For j=3 To 4 Print arr(j,i); Next j Print Next End Sub 程序运行后,单击窗体,则输出结果是______。

A. 5 7 6 8
B. 6 8 7 9
C. 7 9 8 10
D. 8 10 8 11

命令按钮Command1的单击事件过程的代码下列: Private Sub Command1_Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j,i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序,单击命令按钮,输出结果是______。

A. 20
B. 7
C. 16
D. 17

下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是______。 Privae Sub Command1_Click() Dim count(25) As Integer,ch As String ch=UCase(InputBox("请输入字母字符串")) For k=1 To Len(ch) 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

答案查题题库