更多"运行下面的程序后，输出的结果为 Cls Dim t(5, 5)"的相关试题:
[单项选择]运行下面的程序后，输出的结果为 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. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 1 1
B. 1 1 l 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
[单项选择]执行下列程序后，变量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
[单项选择]下列程序运行时输出的结果是
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. 天天向上清华大学天上人间程序设计
[单项选择]以下程序的输出结果是( )。
Dim varl
Dim var2
Dim var3
varl＝"HellO"
var2＝"World!"
var3=varl & " " & var2
varl＝10
var2＝20
NsgBox varl＋var2
A. Hello world!
B. 30
C. 1020
D. Hello world!
[单项选择]下面程序运行后输出结果是( )。
For I=1 to 2
S=1
For j=0 to I-1
S=S+S*I
Next j
Print S
Next I
A. 1
B. 0
C. 2
D. 6
[单项选择]下列程序运行后，输出结果为( )。
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
