中国地质大学（武汉）远程与继续教育学院
coun = coun+1 Write #1, t1 End If Next t1
（4） Close #1 End Sub
六、程序设计题
1．编程，在图片框中画一个以两点为对角的矩形（图片框中以像素为刻度单位，两点坐标用InputBox函数输入）。
2．编写程序，输入若干个学生的姓名、出生年月、两门统考课程（外语、计算机），存入磁盘文件d:\\student.dat（可以用记事本打开，观察运行结果的正确）。
3．编写程序，将磁盘文件d:\\student.dat中若干个学生的姓名、出生年月、两门统考课程（外语、计算机）显示在列表框中，并且能实现以下功能：直接输入在文本框中的文本可以追加；单击列表框某项，则该项可删除；文本框中的文本修改后可修改列表框中对应选项；首次运行时文件可以为空，退出系统前应保存文件。界面设计如图4-3所示。
图4-3 程序设计题9的界面设计
中国地质大学（武汉）远程与继续教育学院
参考答案
一、判断题
1．× 2．√ 3．× 4．× 5．√
6．√ 7．× 8．× 9．√ 10．× 11．×
二、选择题
1．C 2．B 3．B 4．C 5．B 6．C 7．B 8．C 9．D 10．B
11．B
三、填空题
1．工程、部件
2．工具 3．LoadPicture
4．Picture1.Picture=LodePicture(\
5．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比 6．EOF 7．Line Input
四、程序阅读题
程序1. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。 程序2.
窗体：36 25 16 9 4 1 文件：1 4 9 16 25 36 程序3. 窗体上显示内容：20
文件中内容：4 6 8 10 12 程序4. 1
2 2 3 3 3 4 4 4 4 5 5 5 5 5
程序5. 1
1 2 1 2 3
五、程序填空题
1．（1）Call pic （2）False （4）LoadPicture(\ 2．（1）Dim n As Integer （2）\ 3．（1）For Output As #2 （2）0
（3）n = n + 1
（5）LoadPicture(fn)
（3）Output （4）End （3）\
中国地质大学（武汉）远程与继续教育学院
4．（1）Open \
（2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun
六、程序设计题
程序1．界面设计略，过程设计如下：
Private Sub Form_Load() Picture1.ScaleMode = 3 End Sub
Private Sub Command1_Click()
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(\ x2 = InputBox(\ Picture1.Line (x1, y1)-(x2, y2), , B End Sub
程序2．建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:\\student.dat。过程设计如下：
Private Sub Command1_Click()
Dim b As Date, m As Byte, e As Byte Open \
b = Text2.Text: m = Text3.Text: e = Text4.Text Write #1, Text1.Text, b, m, e
Text1.Text = \ Close #1 End Sub
程序3．界面设计如图10-11所示，过程设计如下：
Private Sub Form_Load() Dim ss As String
Open \ Close #1
Open \将文件中所有记录在列表框中显示 While Not EOF(1)
Line Input #1, ss: List1.AddItem ss Wend
Close #1 '在选中表项之前“删除”、“修改”按钮不可用 Command2.Enabled = False: Command3.Enabled = False End Sub
Private Sub List1_Click() '选中表项后可“删除”或“修改”，不可“追加”。 Command1.Enabled = False: Command2.Enabled = True Command3.Enabled = True: Text1.Text = List1.Text
'如文件不存在则先建立该文件
中国地质大学（武汉）远程与继续教育学院
End Sub
Private Sub Command1_Click() '追加记录
If Trim(Text1.Text) <> \ Text1.Text = \End Sub
Private Sub Command2_Click() '修改记录 List1.AddItem Text1.Text, List1.ListIndex List1.RemoveItem List1.ListIndex
Command1.Enabled = True: Command2.Enabled = False
Command3.Enabled = False: Text1.Text = \ '修改后，不可“删除”、“修改” End Sub
Private Sub Command3_Click() '删除记录
List1.RemoveItem List1.ListIndex '删除后，不可“删除”、“修改” Command1.Enabled = True: Command2.Enabled = False Command3.Enabled = False: Text1.Text = \End Sub
Private Sub Command4_Click() '保存文件，将列表框中所有表项输出到文件 Dim i As Integer
Open \
For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next i Close #1 End Sub
Private Sub Command5_Click() '退出之前先保存文件 Call Command4_Click: End End Sub