VB程序设计实验要求及报告8答案详解

上海立信会计学院本科实验报告

班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间：

实验8 数据文件及图形操作

一、 实验目的

1． 掌握顺序文件的特点和使用

2． 掌握顺序文件的打开、关闭和读写操作 3． 掌握在应用程序中使用文件 4． 掌握图形操作

二、实验要求

1． 在C:\\下建立子文件夹“VB实验8”，按照题目要求，在该文件夹下为各题保存相应的

文件，如本实验中的第一题，需保存的文件有：工程文件(81.vbp)、窗体文件(81.frm) 及可执行文件（81.exe），本实验中的第二题，需保存的文件有：工程文件(82.vbp)、窗体文件(82.frm) 及可执行文件（82.exe），其余实验依此类推。

2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。

三、 实验内容：

1. 设计一个应用程序，窗体内所有控件字体为宋体、大小为五号，运行界面如图8-1所示。

若单击“建立文件”按钮，则分别用Print # 和 Write # 语句将三个同学的学号、姓名

和成绩写入（当前目录）文件Score.dat和Score1.dat；若单击“读取文件”按钮，则用line Input 语句按行将两个（当前目录）文件中的数据送往相应的文本框。其中：学号和姓名是字符串类型，成绩是整型：数据如下： \王海涛\

\周文英\\王海涛\

图8-1

Private Sub Command1_Click()

Open \Print #1, \王海涛\Print #1, \周文英\Print #1, \王海涛\ Close #1

Shell \

Open \

Write #1, \王海涛\Write #1, \周文英\Write #1, \王海涛\

Close #1

Shell \

End Sub

Private Sub Command2_Click() Dim inputdata As String

Open \

Do While Not EOF(1)

Line Input #1, inputdata

Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1

Open \

Do While Not EOF(1) Line Input #1, inputdata

Text2.Text = Text2.Text + inputdata + vbCrLf Loop

Close #1

End Sub

Private Sub Form_Load()

Text1.Text = \Text2.Text = \

End Sub

2. 设计一个应用程序，界面如图8-2(1)，窗体内所有控件字体为宋体、大小为五号，点击

“建立文件”按钮，则建立数组num，数组元素为10个小于100的随机整数，将数组数据写入文件（当前目录）Fb.dat，文件内容及格式如图8-2(2)；点击“读取文件”按钮，则从（当前目录）Fb.dat文件中将数据读取出来，显示在列表框中，并计算这些数的合计与平均数，并把计算结果也显示在列表框中。

图8-2 (1) 图8-2 (2) Private Sub Command1_Click() Dim num(9) As Integer

Dim i%, outputstring As String Open \For i = 0 To 9

num(i) = Int(Rnd * 100)

outputstring = \ Write #1, outputstring, num(i) Next i Close #1 End Sub

Private Sub Command2_Click() Dim sum%, ave!

Dim inputstring As String, inputdata As Integer Open \sum = 0

Do While Not EOF(1)

Input #1, inputstring, inputdata List1.AddItem inputstring & inputdata sum = sum + inputdata Loop Close #1

List1.AddItem \合计：\ave = sum / 10

List1.AddItem \平均：\End Sub

Private Sub Form_Load() '

Randomize End Sub

3. 设计一个应用程序，界面如图8-3，窗体内所有控件字体为宋体、大小为五号。

要求：

1） 点击“打开文件”按钮，则弹出一个“打开”通用对话框，用户选择文件后将文件内容显示在文本框中；“C:\\VB实验8”下的“实验83.txt”供调试使用；

2） 点击“保存文件”按钮，则弹出“另存为”通用对话框，用户确定文件保存目录为

“C:\\VB实验8”，文件名为83.dat，保存内容为文本框中显示的所有文字内容； 3） 点击“结束”，则退出程序。

图8-3

Private Sub Command1_Click()

CommonDialog1.Filter = \ext files(*.txt)|*.txt|Data files(*.dat)|*.dat|All files(*.*)|*.*\CommonDialog1.FilterIndex = 1 CommonDialog1.FileName = \

CommonDialog1.Action = 1

Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1)

Line Input #1, inputdata

Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 End Sub

Private Sub Command2_Click()

CommonDialog1.Filter = \ext files(*.txt)|*.txt|Data files(*.dat)|*.dat|All files(*.*)|*.*\CommonDialog1.FilterIndex = 2 CommonDialog1.FileName = \CommonDialog1.Action = 2

Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub

Private Sub Command4_Click() End

End Sub

Private Sub Form_Load() Text1.Text = \

End Sub

4. 编一循环程序，单击窗体后，用Line方法在屏幕上随机产生20条长度、颜色（用QBColor

实现）、宽度（2-4单位）各异的直线，效果图8-4所示。

图8-4

Private Sub Form_Click() Cls

Dim i%, lx1%, lx2%, lx3%, lx4%, c$

本文来源：https://www.bwwdw.com/article/qlrr.html