更多"下列程序运行后，在窗体上打印的结果是 【14】 。 Private "的相关试题:
[填空题]下列程序运行后，在窗体上打印的结果是 【14】 。
Private Sub test(a， b，c)
a = a + 1： b = b + 2：C = C + 3
End Sub
Private Sub Command1 Click（ ）
x = 1：v = 2：z = 3
Call test(x，y + 3， (z))
Print "Main:"；x；y；z
End Sub
[填空题]下列程序运行后，在窗体上打印的结果是______。
Private Sub test(a， b， c)
a = a + 1: b = b + 2: c = c + 3
End Sub
Private Sub Command1_Click( )
x = 1: y = 2: z = 3
Call test(x， y + 3， (z))
Print "Main:"; x; y; z
End Sub
[填空题]下列程序运行后，在窗体上打印的结果是______。
Private Sub test(a，b，C)
a=a+1 : b=b+2 : c=c+3
End Sub
Private Sub Command1_Click( )
x=1 : y=2 : z=3
Call test(x，y+3，(z))
Print "Main:" : x；y；z
End Sub
[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（ ）
Dim b%(1 To 4)，i%，t#
For i=1 To 4
b(i) =i
Next
t=Tof(b（ ） )
Print"t="；t，
End Sub
Function Tof(a（ ） As Integer)
Dim t#,i%
t=1
For i=2 To UBound(
[单项选择]下面程序段，运行后的结果是
Private Sub Command1_Click（ ）
Dim b%(1 To 4) ,i%, t#
For i = 1 To 4
b(i) =i
Next
t =Tof(b（ ） )
Print "t ="; t,
End Sub
Function Tof(a（ ） As Integer)
Dim t#, i%
t=1
For i =2 To UBound(
[单项选择]下面程序段，运行后的结果是 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(
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]单击按钮时，以下程序运行后的输出结果是
Private Sub Commandl_Click( )
Dim X As Integer，y As Integer，z As Integer
x=1：y=2： Z=3
Call God(x，x，z)
Print x；x；z
Call God(x，y，y)
Print X；y；y
End Sub
Private Sub God(x As Integer，y As Integer，z As Integer)
x=3 * Z + 1
y=2 * Z
z=x + y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[单项选择]执行下面的程序，单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click（ ） Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next I Print Str3End Sub
A. EeFF
B. eEfF
C. EEFF
D. eeFF
[单项选择]单击按钮时，以下程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click（ ） Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub
A. 6 6 12 `
B. 9 5 10 6101051010
C. 9 6 12
D. 9 10 10 910155410
[单项选择]单击按钮时，以下程序运行后的输出结果是
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer，z As Integer
x=1:y=2:z=3
Call God(x，x，z)
Print x；x；z
Call God(x，y，y)
Print x；y；y
End Sub
Private Sub God(x As Integer，y As Integer，z As Integer)
X=3*z+1
Y=2*Z
z=x+y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[单项选择]单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub
A. 6 6 12 6 6 10
B. 9 5 10 5 10 10
C. 9 6 12 9 10 15
D. 9 5 10 5 4 10
[填空题]以下程序运行后的输出结果是 【11】 。
Private Sub Form _ Click（ ）
i=10 ：j=0
Do
j=j+1
i=i-1
Loop while i＞2
Print j；
End Sub
