更多"下列程序运行时输出的结果是( )。 Private Sub For"的相关试题:
[单项选择]下列程序运行时输出的结果是( )。 Private Sub Form_Click( ) Dima a=Array("天天向上","清华大学","天上人间","程序设计") forI=Lbound(a,1) to Ubound(a,1) ifleft(a(i),1)="天"then print a(i); nextI End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行时输出的结果是 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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click( ) Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A. 36
B. 25
C. 1
D. 出错信息
[单项选择]下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click( )
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub
A. 1 3 5 7 9
B. 9 7 5 3 1
C. 1 2 3 4 5 6 7 8 9 10
D. 10 9 8 7 6 5 4 3 2 1
[单项选择]下面的程序运行时,若输入395,则输出结果是
Private Sub Command1_Click( )
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10, x/100, (x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]
下面程序运行时,若输入395,则输出结果是()
Private sub command1_Click( )
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x\100,(x Mod 100)\10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]
下面程序运行时,若输入395,则输出结果是()
Private Sub Comand1_Click( )
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]下面程序运行时,若输入395,则输出结果是( )。
Private Sub Cmd1_Click( )
Dim a%
a=InputBox("请输入一个3位整数")
Print a Mod 10,a/100,(a Mod 100)/10
End Sub
A. 5 9 3
B. 3 5 9
C. 5 3 9
D. 3 9 5
[单项选择]以下程序运行时,输入3和4后输出的结果是______。
Private Sub Command1_Click( )
a=InputBox(“请输入a的值”)
b=InputBox(“请输入b的值”)
Print a+b
End Sub
A. 3+4
B. 7
C. 34
D. 12
[单项选择]下列程序运行时,两次单击窗体后,显示的结果是( )。 Private Sub Form_Click( ) Dim b As Integer Static c As Integer b=b+2 c=c+2 Print "b=";b;"c=";c End Sub
A. b=2 c=2 b=2 c=2
B. b=2 c=2 b=4 c=4
C. b=2 c=2 b=2 c=4
D. b=2 c=2 b=4 c=2