VB程序设计实验要求及报告8答案详解
更新时间:2023-03-09 07:41:01 阅读量: 综合文库 文档下载
上海立信会计学院本科实验报告
班级: 学号: 姓名: 指导教师: 系部: 专业: 实验时间:
实验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$
正在阅读:
VB程序设计实验要求及报告8答案详解03-09
10kV环网柜技术规范书05-01
网络工程投标书模板04-21
幼儿园教师队伍建设总结01-12
人人通、云教学使用说明07-27
(完整word版)行测高频成语500例04-10
工程施工投标书范本112121207-29
事业单位会计专业考试试题及答案详解(14-15整理版)03-25
河北经贸大学《财政学》模拟试卷(一)05-11
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 程序设计
- 详解
- 答案
- 要求
- 实验
- 报告