保证施工质量的重要措施是正确选用以下机械设备中的()．

假定有以下两个过程： 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_Activate0 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)不允许重名

假定有下拉两个过程：

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)不允许重名

假定有下列两个过程： 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)不允许重名

假定有下列两个过程： 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)不允许重名

（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For j=2 To n If number(j)<p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出 A.-56 B.0 C.103 D.190

（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25

有下列Sub过程：

Sub Sun(x As Single,y As Single)

t=x

x=t/y

y=t Mody

End Sub

在窗体上的命令按钮Command1中，编写下列事件过程，执行该事件过程调用Sun过程，结果是()。

Private Sub Conunandl Cliek()

Dim a As Single

Dim b As Single

a=5

b=4

Sun a,b

Print a;b

End Sub

A．1.25 1

B．5 4

C．4 5

D．1 1.25

A ）

Private Sub P1_MouseMove （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Print X,Y

End Sub

B ）

Private Sub P1_MouseDown （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Picture.Print X,Y

End Sub

C ）

Private Sub P1_MouseMove （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

E n d S u b

D ）

Private Sub Form_MouseMove （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

End Sub

A ）

Private Sub P1_MouseMove （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Print X,Y

End Sub

B ）

Private Sub P1_MouseDown （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Picture.Print X,Y

End Sub

C ）

Private Sub P1_MouseMove （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

E n d S u b

D ）

Private Sub Form_MouseMove （Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

End Sub

对窗体编写如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______ 。

A．AAAAA BBBBB

B．BBBBB

C．AAAAA

D．BBBBB AAAAA