更多"下列程序运行时，单击窗体，执行结果为 【12】 。
说明：在窗体上"的相关试题:
[单项选择]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。
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 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 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 Test (x As Integer)
x=x*2+1
If x ＜ 6 Then
Call Test(x)
End If
x-x*2+1
Print x;
End Sub
Private Sub Command1_ Click （ ）
Test 2
End Sub
A. 23 47
B. 5 11
C. 10 22
D. 23 29
[单项选择]执行下列程序后，鼠标单击窗体，输出结果为
Private Sub Form_Click（ ）
Print "Click"；
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)
Print "Up"
End Sub
A. DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownCliek
[单项选择]执行下列程序后，鼠标单击窗体，输出结果为（ ）。
Private Sub Form_Click（ ）
Print“Click”；
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift_
As Integer，X As Single，Y As Single)
Print “Donw”
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift_
As Integer，X As Single，Y As Single)
Print“Up”
End Sub
A. DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownClick
