![]() |
|
(31) 有如下函数过程:
Function HFC(ByVal x As Integer, ByVal y As Integer) As Integer
Do While y <> 0
sic=x / y
x=y
y=sic
Loop
HFC=x
End Function
以下是该函数的调用过程,该程序的运行结果是
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=HFC(a, B.
Print x
End Sub
A.0
B.6
C.2
D.80
正确答案: B
(32) 有如下事件过程:
Sub ABD(x%, y%, z%)
z%=x% + y%
End Sub
Private Sub Command1_Click()
a%=30: b%=40
Call ABD(a%, b%, c%)
Print c%
End Sub
运行上面的程序,单击命令按钮,输出结果为
A.70
B.70.0
C.7.0E+1
D.显示错误信息
正确答案: A
(33) 如下事件过程:
Function Feed(x)
If x < 10 Then
Feed=x
Else
Feed=10 + x
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox( "", , 0) )
pay=Feed(x)
Print pay
End Sub
运行时在输入框内输入变量x的值为15,输出结果为
A.0
B.15
C.25
D.30
正确答案: C
(34) 在窗体上画一个命令按钮,然后编写如下事件过程:
Sub BTC(oldCopy() As Integer, newCopy() As Integer)
Dim i As Integer
For i=LBound(oldCopy() ) To UBound(oldCopy() )
newCopy(i) =oldCopy(i)
Next i
End Sub
Private Sub Command1_Click()
Dim m(10) As Integer, n(10) As Integer
For i=1 To 10
m(i) =i i
Next i
Call BTC(m, n)
Print n(5)
End Sub
程序运行后,单击命令按钮输出结果为
A.0
B.2
C.10
D.25
正确答案: D
(35) 在窗体上画一个命令按钮,然后写出如下事件过程:
Private Sub Command1_Click()
s=1
Do
s=(s + 1) ^ (s + 2)
Number=Number + 1
Loop Until s >=6
Print Number, s
End Sub
程序运行后,输出的结果是
A.23
B.318
C.18
D.1020
正确答案: C