更多"以下程序运行时,输入3和4后输出的结果是______。 Privat"的相关试题:
[单项选择]以下程序运行时,输入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 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. 天天向上清华大学天上人间程序设计
[单项选择]下面的程序运行时,若输入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
[单项选择]下列程序运行时输出的结果是( )。 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
[单项选择]下列程序运行时输出的结果是( )。 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 Click_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Visual Basic Program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时,执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时,执行此过程
C. 用鼠标右键单击名称为“MouseDown”的控件时,执行此过程
D. 用鼠标左键或右键单击名称为“Click”的控件时,执行此过程
[单项选择]下列程序运行时,两次单击窗体后,显示的结果是( )。
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. b=2 c=2
C. b=2 c=2
D. b=2 c=2