更多"下列程序的输出结果为______ Sub Prin( ) D"的相关试题:
[填空题]下列程序的输出结果是______。
Sub Prin( )
Dim B As String
A=1
B=A & Space(4)& A
Print A
Print Trim(B)
End Sub
[填空题]下列程序的输出结果为______。
Sub Prin( )
Dim B As String
A=1
B=A & Space(4)& A
Print A
Print Trim(B)
End Sub
[填空题]下列程序的输出结果为______。
Sub OnGousbGotoDemo( )
Dim Number,MyString
Number=2
On Number GoTo Line1, Line2
Exit Sub
Line 1:
MyString="In Line 1"
Print MyString
Line2:
MyString="In Line2"
Prnt MyString
End Sub
[填空题]下列程序的输出结果为______
Sub Prin( )
Dim B As String
A=1
B=A & Space(4)& A
Print A
Print Trim(B)
End Sub
[填空题]下列程序的输出结果是______。
Sub Prin( )
Dim B As String
A=1
B=A & Space(4)& A
Print A
Print Trim(B)
End Sub
[单项选择]下列程序运行时输出的结果是( )。
Private Sub Form_Click( )
Dim a( )
a=Array(“天天向上”,“清华大学”,“天长地久”,“程序设计”)
for I=Lbound(a,1) to Ubound(a,1)
if ieft(a(I),1)="天”then print a(I);
next I
End Sub
A. 天天向上
B. 天天向上天长地久
C. 出错信息
D. 天天向上清华大学天长地久程序设计
[填空题]下列程序输出的结果为 【12】 。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click( ) Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[填空题]下列程序输出的结果为 【13】 。
Private Sub Command1 Click
Dim a As Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VC"
22:
Print"VC"
End Sub
[填空题]下列程序执行时,从键盘上依次输入123和234,则程序的输出结果是 【10】 。
Dim a,b As Integer
a=InputBox("请输入第一个整数")
b=InputBox("请输入第二整数")
Print a+b
[单项选择]下列程序的运行结果是 Private Sub Form_Click( ) Dim k As Integer n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k>n Print m End Sub
A. 1
B. 12
C. 11
D. 32
[填空题]下列程序的输出结果是 【16】
Private Sub Command1_Click( )
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a( )
a (i) =20
Next i
[填空题]下列程序的输出结果是 【15】 。
Private Sub Commandl Click( )
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i ln a( )
a(i)=20
Next i
Print a(2)
End Sub