请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
（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 Single,b As Single) A=a+b Print a,b B=a+b Print a,b”相关的问题
第1题
设有下列通用过程：
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
第2题
设有下列通用过程： 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
第3题
设有以下窗体单击事件过程：
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
打开窗体运行后，单击窗体消息框的输出内容应为【 】。
第4题
设有一个命令按钮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
第5题
设有如下过程： 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
第6题
设有命令按钮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
请填空。
第7题
设有以下函数过程
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)
第8题
第9题
设有如下通用过程： 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
第10题
设有如下通用过程： 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
