(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
二 、填空题
(1) 常用的黑箱测试有等价分类法、 【1】 、因果图法和错误推测法4种。
正确答案: 1.(边值分析法)
(2) 测试的目的是暴露错误，评价程序的可靠性；而 【2】 的目的是发现错误的位置并改正错误。
正确答案: 1.(调试)
(3) 软件维护活动包括以下几类：改正性维护、适应性维护、 【3】 维护和预防性维护。
正确答案: 1.(完善性)
(4) 在面向对象的设计中，用来请求对象执行某一处理或回答某些信息的要求称为 【4】 。
正确答案: 1.(消息)
(5) 关键字ASC和DESC分别表示 【5】 的含义。
正确答案: 1.(升序排列和降序排列)
(6) 下述语句段在运行时的显示结果是 【6】 。
Cls
x=10.34 + 8
Print Len(x)
正确答案: 1.(5)
(7) 窗体上有两个按钮，则执行程序后按键盘Cance1键的输出结果是 【7】 。
Private Sub Command1_Click()
Print "北京";
End Sub
Private Sub Command2_Click()
Print "南京";
End Sub
Private Sub Form_Load()
Command2.Cancel=True
Command1.Cancel=True
End Sub
正确答案: 1.(北京)
(8) 下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。
Dim Arr()
Private Sub Form_Load()
【8】
End Sub
Private Sub Form_Click()
【9】
If Int(x / 3) =x / 3 Then
Print x
End If
Next x
End Sub
正确答案: 1.(Arr = Array(35, 48, 15, 22, 67)) 2.(For Each x In Arr)
(9) 给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN()
Dim x As Integer
x=InputBox("请输入年号")
If (x Mod 4=0 【10】 x Mod 100 <> 0) 【11】 (x Mod 400=0) Then
Print "是闰年"
Else
Print "不是闰年，是普通年份"
End If
End Sub
正确答案: 1.(And) 2.(Or)
(10) 在E盘当前目录文件夹下建立一个名为"Student.txt"的顺序文件，要求用InputBox函数输入5个学生的姓名(StuName) 、年级(StuGrade) 和年龄(StuAge) 。
Private Sub Form_Click()
【12】
For i=1 To 5
StuName=InputBox("请输入姓名")
StuGrade=InputBox("请输入年级号")
StuAge=InputBox("请输入年龄")
【13】
Next i
【14】
End Sub
正确答案: 1.(Open) 2.("E:＼Student.txt" For Output As #1) 3.(Write #1, S)
(11) 在窗体上有一个命令按钮，然后编如下事件过程：
Function SR(x As Double) As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case -1
SR=-1
End Select
End Function
Private Sub Command1_Click()
Dim Msg, SRN
Dim N As Double
N=InputBox("请输入要计算平方根的数")
Msg=N & "的平方根"
Select Case SR(N)
Case 0
Msg=Msg & "是0"
Case -1
Msg=Msg & "是一个虚数"
Case Else
Msg=Msg & "是" & SR(N)
End Select
MsgBox Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。
正确答案: 1.(-1的平方根是一个虚数)
