更多"执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PR"的相关试题:
[单项选择]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK（ ） DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB
A. ABCE
B. ABCD
C. ABDB
D. ABFB
[单项选择]执行下面的程序，单击窗体后在窗体上显示的结果是 ______。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 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 Form_Click（ ）
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)＜a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
Private SubForm_Click（ ）
Dim a As Integer，b As Integer
a=10 ：b=20
Call ff(a，B)
Print a，b
End Sub
Private Sub ff(x As Integer，y As Integer)
x=x+y
y=x+y
End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[填空题]当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是 【13】 。
Private Sub Form_Click（ ）
Dim x As Integer，y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=fun1(x，y)
MsgBox Str(Z)
End Sub
Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer
Do
r=a Mod b
a = b
b = r
Loop Until r=0
funl=a
End Function
[单项选择]执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。
Private Sub Cotomand1_Click（ ）
Ch$="Welcome Home!"
a=Len(ch$)
For i= 1 To a
b$ = Mid(ch$， i 1)
If b$ = "m" Then m = m + 1
Next 1
Print m
End Sub
A. 2
B. 3
C. 1
D. 0
[填空题]当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。
Private Sub Form_Click( )
Dim X As Inte9er, y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=funl(x，y)
MsgBox Str(z)
End Sub
Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer
Do
r=a Mod b
a=b
h=r
Loop Until r=0
funl=a
End Function
[单项选择]执行下面这段程序后，单击命令按钮，窗体中输出结果是 ______。 Private Sub Command1_Click（ ） a=1 : b=4 : c = 9 : d = 5 If a ＜ b Then If c＜d Then x=True Else If a＜c Then x=False Else x=True End If End If End If Print Val(x) End Sub
A. True
B. False
C. 0
D. 1
[单项选择]下面程序运行后，单击命令按钮，输出的结果是
Private Sub Command1_Click( )
Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
For i = 1 To 4
a(i) =i
Next
For i = 2 To 6
b(i) =i
Next
str 1 = YAG (
[单项选择]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，a) End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End Sub
A. abcdef
B. afbecd
C. fedcba
D. defabc
[单项选择]单击命令按钮时，下列程序的执行结果是
Private Sub Commandl_Click（ ）
Dim a As Integer，b As Integer，c As Integer
a=3:b=4:c=5
Print SecProc(c，b，a)
End Sub
Function FirProc(x As Integer，y As Integer，z As Integer)
FirProc=2*x+y+3*z
End Function
Function SecProc(x As Integer，y As Integer，z As Integer)
SecProc=FirProc(z，x，y) +x
End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击命令按钮时，下列程序的执行结果是
Private Sub Book( x As Integer)
x=x*2+1
If x＜6 Then
Call Book(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command2_Click( )
Book 2
End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
