更多"下列程序执行后，执行的结果是______ 。 Dim M(2) "的相关试题:
[单项选择]下列程序段执行后，执行的结果是______ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)
A. 12 4
B. 11 3
C. 3 11
D. 10 2
[单项选择]以下程序的输出结果是( )。 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!
[单项选择]以下程序的输出结果是( )。 Dim varl Dim var2 Dim var3 varl="Hello" var2="World!" var3=varl & " " & var2 varl=10 var2=20 MSgBox var l+var2
A. Hello World!
B. 30
C. 1020
D. Hello World!
[单项选择]以下程序的输出结果是( )。 Dim var1 Dim var2 Dim var3 var1 = "Hello" var2 = "World !" var3 = var1&" "&var2 var1 = 10 var2 = 20 MsgBox var1 + var2
A. Hello World! 30
B. 30
C. 102
D. Hello World!
[单项选择]下面程序运行后，输出的结果是 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
[单项选择]下列程序执行后，变量x的值为( )。 Dim a, b, c, d As Single Dim x As Single a=10 b=30 c=400 If b＞a Then d=a:a=b:b=d End If If b＞c Then x=b Else If a＞c Then x=c Else x=a End If
A. 10
B. 30
C. 400
D. 430
[单项选择]下列程序执行后，变量x的值为( )。 Dim a，b，c，d As Single Dim x As Single a=10 b=30 c=400 If b＞a Then d=a：a=b：b=d End If If b＞c Then x=b Else If a＞c Then x=c Else x=a End If
A. 10
B. 30
C. 400
D. 430
[单项选择]下列程序段的执行的结果是 Dim a(10)，b(10) i=3 For j=1 To 5 a(j) =j b(i) =2 * i + j Next j Print b(i)；a(i)
A. 11 3
B. 3 15
C. 3 11
D. 15 3
[单项选择]下列程序执行后的输出结果是______。
A. hello
B. hel
C. hlo
D. hlm void func1 (int ； void func2 (int ； char st[]="hello,friend!"； void func1(int { printf("%c"，s； if(i＜3){ i+=2；func2(； } } void func2 (int { printf("％c"，s； if(i＜3){ i+=2；func1(； } } main() { int i=0；func1(；printf("/n")；}
[单项选择]下列程序执行后，变量S的值为 Dim s As Long,x As Integer s=0 For x＝1 To 10 Step 2 s＝s+x Next x Text1.Text＝s
A. 10
B. 25
C. 50
D. 100
[单项选择]有如下程序段：Dim I As IntegerI=Int (-3.25)执行后Ⅰ的返回值是
A. -3
B. -4
C. 3
D. 3.25
[单项选择]下面程序运行结果是( )。 Private Sub Form_Click（ ） Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub
A. _35_2510
B. 25102510
C. _35_35_
D. 2510_35_
[单项选择]下列程序运行时输出的结果是 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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序段的运行结果是( )。 Subsele（ ） Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End Sub
A. 2
B. 4
C. 5
D. 3
