更多"下面程序执行的结果是______。 Private Sub Form"的相关试题:
[单项选择]下面程序执行的结果是( )。 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（ ） DimiASInteger,j As Integer i=10 Do i=i+j forj=10 toistep-3 i=i+j nextj Loop Whilei＜50 Printi;j End Sub
A. 50 10
B. 50 9
C. 57 10
D. 59 9
[单项选择]下面程序运行后的输出结果是 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( ) 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
[单项选择]单击一次命令结束后，下列程序的执行结果是 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下面程序运行结果是( )。 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
[单项选择]单击一次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click（ ） s=P(1) +P(2) +P(3) +P(4) Print s End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function
A. 15
B. 25
C. 35
D. 45
[单项选择]下面程序运行后的结果是( )。 Private Sub Form_Click（ ） Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A. 6
B. 72
C. 144
D. 432
