更多"运行下面的程序后，输出的结果为 Cls Dim t(5,5)as "的相关试题:
[单项选择]运行下面的程序后，输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i,i) =1: Next For i = 1 To 5 For j = 1 To 5 Print t(i, j), Next Print Next
A. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
B. 1 1 1 1 1
C. 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1
D. 1 1 1 1 1
[单项选择]运行下面的程序后，输出的结果为( )。
Cls
Dim t(5，5) as Integer
For i=1 To 5：t(i，i)=1：Next
For i=1 To 5
For j=1 To 5
Print t(i，j)，
Next j
Print
Next I
[单项选择]执行下列程序后，变量a的值为 ( ) Dim i As Integer Dim a As Integer a=0 For i＝l To 100 Step 2 a=a+l Next i
A. 1
B. 10
C. 50
D. 100
[单项选择]执行下列程序后，变量a的值为( )。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i
A. 1
B. 10
C. 50
D. 100
[单项选择]下面程序运行后，输出结果为( )。
Dim a（ ）
a＝Array(1,3,5,7,9)
S＝0
For i＝1 To 4
S＝S*10+a(i)
Next i
Print s
A. 1357
B. 3579
C. 7531
D. 9753
[单项选择]下面程序运行后，输出结果为( )。 Dim a（ ） a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s
A. 1357
B. 3579
C. 7531
D. 9753
[单项选择]下面程序运行后，输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For j=2 To 3 Print art(k,j)； Next k Print Next j
A. 2 5 3 6
B. 5 8 6 9
C. 4 7 5 8
D. 5 9 6 8
[单项选择]下列程序运行时输出的结果是 Private Sub Form_Click（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
