If Command3.Caption = \修改\ Then [3] =List1.Text Text1.SetFocus
Command1.Enabled = False Command2.Enabled = False
Command3.Caption = [4] Else
List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = [5] Command3.Caption = \修改\ End If End Sub
2. 假设在C盘根目录中存在一个名为“学生.MDB”的Access数据库，其中包含一张名
为“学生基本情况”的数据表，表中存放了学生的基本信息，如图2所示。
现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图3所示，基本逻辑是：分别在Text1、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Command1)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Text1上，等待用户修改或重新输入。当点击退出按钮(Command2)时关闭本窗体。
图2
图3
21
程序如下，请补充完整。
Private Sub Form_Load()
[1] \学生.mdb;Persist Security
Info=False\
End Sub
Private Sub Command1_Click() Dim strSQL As String
[ 2] [3] = ADOcn Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn
strSQL = \学生基本情况 Where 学号= '\ ADOrs.Open [4] If Not ADOrs.EOF Then
MsgBox \学号已经存在，请重新输入!\信息提示\ Text1.SetFocus Else
strSQL = \学生基本情况(学号,姓名,籍贯) \
strSQL = strSQL + \ [5] Execute strSQL MsgBox \添加成功!\信息提示\ End If End Sub
Private Sub Command2_Click() Unload Me End Sub
五、编写程序题
1．编写一程序。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择驱动器的盘符，则在目录列表框中显示该该驱动器下的目录；点击目录列表框中的某一目录，在文件列表框File1中显示该目录下的图片文件（*.jpg）；选择File1中所列的图片文件，则相应的图片显示在图片框Picture1中。程序运行结果如图4所示。
22
图4
2．编制一计算某个学生奖学金等级的应用程序，程序运行界面如图5所示。
要求：只考虑一等奖，以三门功课成绩m1，m2，m3为评奖依据。奖学金一等奖评定标准如下：⑴ 平均分大于95者；⑵ 有两门是100分，且第三门功课不低于80分者。
图5 奖学金评定程序运行界面
期末综合练习二答案
一、单项选择题
1.B 2.D 3.C 4.D 5.D 6.B 7.B 8.C 9.C 10.D 11.B 12.D 13.C 14.C 15.D 16．C 17.C 18．B 19.D 20．D 21.B 22．A 23.B 24.B 25.D 26.D 27.C 28.A 29.B 30.A 二、填空题
1．选择结构 循环结构
23
2．Name Index 3．F1
4. 右 上 5．中断 执行 6．2 7．1
8．123456 9．500
10. 逻辑错误
11．本地数据库 远程数据库 12．数据库引擎
13．ActiveConnection 14. 标准 Public
15．整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）16．UDP
17．Dim B(0 To 3,-2 To 3) As String 18．0
三、阅读程序题 1.
x=5 y=5 x=5 y=10 x=5 y=15 2． 3.
n= 5 x= 6 y= 3 4． 5.
9 6 6． 11
24
3 42 6
12
14 17 7.
8 4 4 8 8．
20 10 10 10
四、完善程序题 1．
[1] AddItem [2] RemoveItem [3] Text1.Text [4] \修改确认\[5] \ 2．
[1] ADOcn.Open
[2] Dim ADOrs As New Recordset [3] ADOrs.ActiveConnection [4] strSQL [5] ADOcn.
五、编写程序题 1.参考答案
Private Sub Form_Load() Drive1.Drive = \
File1.Pattern = \End Sub
Private Sub Drive1_change() Dir1.Path = Drive1.Drive Text1.Text = Drive1.Drive End Sub
Private Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = Dir1.Path End Sub
Private Sub File1_click()
Picture1.Picture = LoadPicture(File1.Path + \ FileName = File1.Path + \ Text1.Text = FileName
25
End Sub
2.参考答案：
Private Sub Command1_Click()
Dim b1 As Boolean, b2 As Boolean, b3 As Boolean, b4 As Boolean Dim m1%, m2%, m3%
m1 = Text1: m2 = Text2: m3 = Text3 b1 = (m1 + m2 + m3) / 3 >= 95
b2 = m1 = 100 And m2 = 100 And m3 >= 80 b3 = m3 = 100 And m2 = 100 And m1 >= 80 b4 = m1 = 100 And m3 = 100 And m2 >= 80 If b1 Or b2 Or b3 Or b4 Then Label4 = \一等奖\Else
Label4 = \无一等奖\End If End Sub
26