![]() |
|
(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的平方根是一个虚数)