End Sub
B)Private Sub Form_MouseDown(Button AsInteger, Shift As Integer, X As Single, Y AsSingle) PopupMenu Bt End Sub
C)Private SubForm_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) PopupMenuBt,0 End Sub
D)Private Sub Form_MouseDown(Button As Integer, Shift AsInteger, _ X As Single, Y As Single)
If(Button=vbLeftButton)Or (Button=vbRightButton)Then PopupMenu Bt End Sub 正确答案: A
(33)在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：
Private SubCommand1_Click() Cont.FileName=\
Cont.Flags=vbOFNFileMustExist Cont.Filter=\ Cont.FilterIndex=3
Cont.DialogTitle=\ Co nt.Action=1
If Cont.FileName=\ MsgBox \ Else
Open Cont.FileName For Input As #1 Do While Not EOF(1) Input #1, b$ Print b$ Loop End If EndSub
以下各选项，对上述事件过程描述错误的是
A)该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件 B)选择后单击\打开\按钮，所选择的文件名即作为对话框的FileName属性值 C)Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D)过程中的\用来建立Open对话框，它与Cont.ShowOpen等价 正确答案: C
(34)已知使用Show方法的格式为：［窗体名称］.Show ［模式］，如果要使窗体是\模态型\窗体，则\模式\值为
A)True B)0 C)1
D)False 正确答案: C
(35)下面叙述不正确的是
A)对顺序文件中的数据操作只能按一定的顺序操作 B)顺序文件结构简单
C)能同时对顺序文件进行读写操作
D)顺序文件中只能知道第一个记录的位置 正确答案: C 二 、填空题
(1)当线性表采用顺序存储结构实现存储时，其主要特点是【1】 。 正确答案: 1.(逻辑结构中相邻的结点在存储结构中仍相邻) (2)软件工程的出现是由于 【2】 。 正确答案: 1.(软件危机的出现)
(3)单元测试又称模块测试，一般采用 【3】 测试。 正确答案: 1.(白盒法)
(4)数据库恢复是将数据库从 【4】 状态恢复到某一已知的正确状态。 正确答案: 1.(错误)
(5)数据的基本单位是 【5】。 正确答案: 1.(数据元素)
(6)下列语句的输出结果是 【6】 。
Print Format$(6658.6,\ 正确答案: 1.(006,658.60)
(7)如果在D盘当前文件夹下已经存在名为PIC.dat的顺序文件，那么执行语句Open \＼PIC.dat\Append As #1之后将 【7】 。
正确答案: 1.(在文件尾添加新内容)
(8)在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 PrivateSub Command1_Click() num=Val(Text1.Text) If 【8】 Then Print num Else
Text1.Text=\ 【9】 End If EndSub
正确答案: 1.(num Mod 6 = 2 And num Mod 5 = 3)2.(Text1.SetFocus)
(9)下面的程序的作用是利用随机函数产生10个100~300(不包含300)之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。 Sub TOF() Randomize
Dim s As Double
Dim a(10)As Integer For i=0To 9 【10】 Next
For i=0 To 9 If 【11】Then Print a(i) s=s + a(i) 【12】 Next i Print
Print \ End Sub
正确答案: 1.(a(i)= Int(Rnd *200 + 100))2.(a(i)Mod 7 = 0)3.(End If)
(10)下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下： f(x,y)=
程序不完整，请填空，将程序的补充完整。 Option Explicit Dim x As Single Dim y AsSingle Dim z As Single
Private Sub Command1_Click() x=Val(InputBox(\ y=Val(InputBox(\ End Sub
Private SubCommand2_Click() If 【13】 Then z=x ^ 2 + y ^ 2 ElseIf 【14】Then z=x ^ 2 - 2 * y ^ 2 【15】
z=y ^ 2 - 3 * x ^2 End If
Form1.Print \当x，y的值为：\ Form1.Print \的值为：\ End Sub
正确答案: 1.(x > 0 And y > 0)2.(x < 0 And y >0)3.(Else)