题目内容
（请给出正确答案）
假定有如下事件过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single)
If Button=2 Then
PopupMenu popForm.
End If
End Sub
则以下描述中错误的是
A．该过程的功能是弹出一个菜单
B．popForm是在菜单编辑器中定义的弹出式菜单的名称
C．参数x、y指明鼠标的当前位置
D．Button=2表示按下的是鼠标左键
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“假定有如下事件过程: Private Sub Form_MouseDown（Button As Integer,Shift As Integer,x As Sin”相关的问题
假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As Str
A．abcdefg
B．ABCDEFG
C．gfedcba
D．GFEDCBA
假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______。
A．5 4
B．1 1
C．1.25 4
D．1.25 1
假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub程序运行后，单击命令按钮，输出结果为______ 。
A．5 4
B．1 1
C．1.25 4
D．1.25 1
假定有如下的Sub过程： Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=2 S a,b print a,b End Sub 程序运行后，单击命令按钮，输出结果是()。
A．5 2
B．1 1
C．1.25 4
D．2.5 1
（33）假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体
上的输出结果为（）。
A）ABCDEFG
B）abcdefg
C）GFEDCBA
D）gfedcba
假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String，Str2 As String Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
A．abederg
B．ABCDEFG
C．gfedcba
D．GFEDCBA
假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)) +s1 Next i Fun =s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Strl = InputBox(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为，
A．abcdefg
B．ABCDEFG
C．gfedcba
D．GFEDCBA
假定有如下的窗体事件过程:
Private Sub Form_Click()
a$="MicrosoftVisual Basic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBox a$,34,b$,c$,5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是
A．Microsoft Visual
B．Microsoft
C．Basic
D．5
假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为______。
A．81 4
B．56 3
C．28 1
D．243 5
假定有如下的窗体事件过程： Private Sub Command1_Click() a$="Microsoft Visual Basic" b$=Riqht(a$, 5) c$=Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。
A．Microsoft Visual
B．Microsoft
C．Basic
D．5
假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。
A．81 4
B．56 3
C．28 1
D．243 5
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
