假定有以下两个过程:Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert=xx=yy=t

第1题

假定有以下两个过程：Sub SI （By Val x As Integer，By Val y As Integer) Dim t As Integer t=x x

假定有以下两个过程： Sub SI (By Val x As Integer，By Val y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer，y As Integer) Dim t As Integer t=x x=y y=t End Sub 则以下说法中正确的是______。

A．用过程S1可以实现交换两个变量的值的操作，S2不能实现

B．用过程S2可以实现交换两个变量的值的操作，S1不能实现

C．用过程S1和S2都可以实现交换两个变量的值的操作

D．用过程S1和S2都不能实现交换两个变量的俏的操作

点击查看答案

第2题

（33）假定有以下函数过程： Function Fun（S As String)As String Dim s1 As String For i=1 To L

（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

点击查看答案

第3题

假定有以下函数过程：Function Fun（S AsString)AsStringDim s1 As StringFor i=1 To Len（S)s1 = U

假定有以下函数过程： 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

点击查看答案

第4题

假定有下拉两个过程：Private Sub PPP（a As Single,b As Single)a=a+bPrint a,bb=a+bPrint a,bEnd

假定有下拉两个过程：

Private Sub PPP(a As Single,b As Single)

a=a+b

Print a,b

b=a+b

Print a,b

End Sub

Private Sub Form_Activate()

x=18

Call PPP((x),(x))

Print x

End Sub

则下列说法中不正确的是()。

A．形参是a和b，两个实参(x)和(x)允许重名

B．形参是a和b，实参(x)表示传值调用

C．形参是a和b，实参(x)表示是非传址调用

D．形参是a和b，两个实参(x)和(x)不允许重名

点击查看答案

第5题

假定有以下函数过程： FunctionFun（SAsString) AsString DimslAsString Fori＝1ToLen（S) s

假定有以下函数过程： Function Fun(S As String) As String Dim sl As String For i＝1 To Len(S) s1＝UCase (Mid(S，i，1))+s1 Next i Fun＝s1 End Function则Str2=Fun("abcdefg”)的输出结果为()。

A．abcdefg

B．ABCDEFG

C．gfedcba

D．GFEDCBA

点击查看答案

第6题

（27）有下列两个过程： Sub S1（ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y

（27）有下列两个过程： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer,y As Integer) Dim t As Integer t=x x=y y=t End Sub 则下列叙述中正确的是 A.用过程S1可以实现交换两个变量的值的操作，S2不能实现B.用过程S2可以实现交换两个变量的值的操作，S1不能实现 C.用过程S1和S2可以实现交换两个变量的值的操作 D.用过程S1和S2不能实现交换两个变量的值的操作

点击查看答案

第7题

假定有下表所列的菜单结构：（表格)要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一

假定有下表所列的菜单结构： (表格) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是______。

A．Private Sub bigicon_Click() bigicon.Checked=False End Sub

B．Private Sub bigicon_Click0 ME.appear.bigicon.Checked=True End Sub

C．Private Sub bigicon_Click() bigicon.Checked=True End Sub

D．Private Sub bigicon_Click0 appear.bigicon.Checked=True End Sub

点击查看答案

第8题

假定有如下事件过程：Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Sing

假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是

A．该过程的功能是弹出一个菜单

B．PopForm是在菜单编辑器中定义的弹出式菜单的名称

C．参数X、Y指明鼠标的当前位置

D．BuRon=2表示按下的是鼠标左键

点击查看答案

第9题

假定有如下事件过程：Private Sub Form_MouseDown（Button As Integer，Shift As Integer，_x As_Sin

假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_x As_Single，-y AsSingle) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是

A．该过程的功能是弹出一个菜单

B．popForm是在菜单编辑器中定义的弹出式菜单的名称

C．参数x、y指明鼠标的当前位置

D．Button=2表示按下的是鼠标左键

点击查看答案

第10题

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Publi

c x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S2() y=10 Form1．Show End Sub Model2的代码如下： Sub Main() S1 End Sub其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是

A．Form1→Model1→Model2

B．Model1→Model2→Form1

C．Model2→Model1→Form1

D．Model2→Form1→Model1

点击查看答案

假定有以下两个过程：Sub S1（ByVal x As Integer, ByVal y As Integer)Dim t As Integert＝xx＝yy＝t