动力与电气工程
相似问题和答案
第1题：
（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
【解析】选项A）中，形式参数为数组，但数组不能作为值传递方式；选项B）中，Sub过程不能有返回值；选项C）中的参数和函数名相同是不允许的；选项D）中对子过程的定义是正确的。
第2题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(i)
If i＞4 Then i=i*2
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完callf(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。
第3题：
（ 31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：
Dim Flag As Boolean
Private Sub Command1_Click( )
Dim intNum As Integer
intNum=InputBox(" 请输入 :")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序 ， 首先单击窗体 ， 然后单击命令按钮 ， 在输入对话框中输入 5 ， 则程序的输出结果为 （ ） 。
A ） 0
B ） 5
C ） 15
D ）无任何输出
（ 31 ）【答案】 B ）
【解析】由于窗体 MouseUp 事件将 Flag 置为 True ，因此 Print f(intNum) 能够执行。 Function 过程的形参为 5 ，可以得到该过程的返回值为 5 ，因此程序的输出结果是 5 。
第4题：
有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B． 1 1
C．2 2
D．1 2
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。
第5题：
下面各被调用函数首部书写正确的是( )
A．void sub(float x；float y)；
B．void sub(float x，y)
C．void sub(float x，float y)
D．void sub(float x，float y)；
第6题：
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
【解析】本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
第7题：
A、Public Sub Sum(x ; y)
B、Public Sub Sum(ByVal x, ByVal y)
C、Public Sub Sum(x As Integer,y As Integer)
D、Public Sub Sum(x%, y%)
第8题：
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。
A．0
B．5
C．15
D．无任何输出
解析：单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并在窗体上输出f(5)，函数f的作用是，如果自变量x10，则直接返回 x，否则返回x＋10。故本题应输出5。
第9题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
A．10
B．30
C．40
D．50
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。
第10题：
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是
A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
解析：本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给 F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。