VB程序设计阶段性作业41(2)

中国地质大学（武汉）远程与继续教育学院

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序设计阶段性作业41(2)在线全文阅读。