更多"下面程序的执行结果是()。 Private Sub Command1_"的相关试题:
[单项选择]下面程序执行的结果是( )。
Private Sub Form_Click( )
AS="123":B$="456"
C=Val(A$)+Val(B$)
Print C/100
End Sub
A. 123
B. 3
C. 5
D. 579
[单项选择]下面程序执行时,输出的结果是( )。
Private Sub Form_Click( )
Dim i As Integer,j As Integer
i=10
Do
i=i+j
For j=10 To i Step-3
i=i+j
Next j
Loop While i<50
Print i;j
End Sub
A. 50 10
B. 50 9
C. 57 10
D. 57 9
[单项选择]下面程序执行的结果是______。
Private Sub Form_ Click( )
A$=“123”:B$=“456”
C=Val(A$)+Val(B$)
Print C/100
End Sub
A. 123
B. 3
C. 5
D. 579
[单项选择]执行下面的程序,输出的结果是 ______ 。 Private Sub Command1_Click( ) ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub
A. 1
B. 2
C. 8
D. 0
[单项选择]下面程序运行后的输出结果是
Private Sub Command1_Click( )
For j=1 To 10
If j Mod 3<>0 Then a=a+j/3
Next
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]单击命令按钮时,下列程序的执行结果是
Private Sub Commandl_Click( )
Dim a As Integer,b As Integer,c As Integer
a=3:b=4:c=5
Print SecProc(c,b,
[单项选择]下面程序运行结果是( )。 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 Commandl_Click( ) a=1.5 b=1.5 Callfun(a,b) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub
A. 2.25 1.5
B. 1.5 2.25
C. 2.25 3.75
D. 0.75 1.5
[单项选择]单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click( )
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x<6 Then
Call BT(x)
End If
x=x*2
Print x;
End Sub
A) 15 B) 16
C) 17 D) 18