题目内容
（请给出正确答案）
（26）设有下列过程： Private Sub ppp(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）和（y）允许重名 B.形参是a和b,实参（x）表示传值调用 C.形参是a和b,实参（x）表示是非传址调用 D.形参是a和b,两个实参（x）和（y）不允许重名
如果结果不匹配，请 联系老师 获取答案
更多“（26）设有下列过程： Private Sub ppp（As…”相关的问题
设有下列通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String，strL As Integer
tStr=""
strL=Len(xStr)
i=strL／2
DO While i＜=StrL
tStr=tStr＆Mid(xStr，i+1，1)
i=i+1
Loop
Fun=tStr＆tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：
Private Sub Commandl Click（）
Dim S1 As String
S1="ABCDEF"
Text1．Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是（）。
A.ABCDEF
B.abedef
C.defdef
D.defabc
设有下列通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr="" strL=Len(xStr) i=strL／2 DO While i＜=StrL tStr=tStr＆Mid(xStr，i+1，1) i=i+1 Loop Fun=tStr＆tStr End Function 在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程： Private Sub Commandl Click（） Dim S1 As String S1="ABCDEF" Text1．Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是（）。
A.ABCDEF
B.abedef
C.defdef
D.defabc
设有以下窗体单击事件过程：
Private Sub Form_Click()
a＝1
For i＝1 To 3
Select Case i
Case 1,3
a＝a＋1
Case 2,4
a＝a＋2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体消息框的输出内容应为【 】。
设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：
Private Sub Command1_Click()
Static x as integer
X=f(x+5)
Cls
Print x
End Sub
Private function f(x as integer)as integer
F=x+x
End function
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是
A)10
B)30
C)60
D)70
设有如下过程： Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为（）。
A. A A
B. A B
C. A C
D. A D
设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【 】a
If arrItem Mod 7=0 Then Print arrItem;
If arritem＞90 Then Exit For
Next
End Sub
请填空。
设有以下函数过程
Private Function Fun(a()As Integer，b As String)As Integer
Ehd Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程凋用语句是
A．x(0)=Fun(x，“ch”)
B．n=Fun(n，ch)
C．Call Fun x，“ch”
D．n=Fun(x(5)，ch)
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程； Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。
A．10 5
B．20 5
C．20 40
D．10 40
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。
A．10 5
B．20 5
C．20 40
D．10 40
