程序设计基础实验报告

1、4.保存工程西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间： 2008 年3 月9 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验一图像框、滚动条、计时器项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1 .掌握标签、命令按钮的常用属性、事件和方法。2 .掌握运用图片框和图像框加载图像的方法。3 .掌握计时器和滚动条的编程方法。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具：Visual Basic 6.03、实验内容

2、3.1上机实验的内容及要求“开始”按钮变为不编写动画程序。运行界面如图所示。单击“开始”按钮，图像从左到右不断运动,可用，同时“停止”变为可用；用滚动条来控制运动的速度。3.2算法设计思想与算法实现步骤1. 界面设计相关属性设置如下:Command1:Caption 为“开始”。Command2: Caption 为“停止”,Enabled 为 False。HScroll1:Max 为 1000,LargeChange 为 200 , SmallChange 为 20。Label1 Label2: Caption 分别为“快”和“慢”。Timer1:Enabled 为 False。lmage:

3、Stretch为True, Picture中通过剪贴板粘贴一幅图象。2. 程序代码设计3. 运行/调试程序3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()Comma nd2.E nabled = TrueComma nd1.E nabled = FalseTimer1.E nabled = TrueEnd SubPrivate Sub Comma nd2_Click()Comma nd1.E nabled = TrueComma nd2.E nabled = FalseTimer1.E nabled = FalseEnd SubP

4、rivate Sub HScroll1_Cha nge()Timer1.I nterval = HScrolH.ValueEnd SubP rivate Sub Timer1_Timer()lmage1.Move (lmage1.Left + 1)End Sub3.4程序运行的结果ipSl-FoSI停止PSl Fori停止4、实验总结4.1程序运行结果分析及思考题讨论试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。对思考题，我认为还是要把image的move属性学好，再结合计时器的使用，问题应该可以迎刃而解，不过这个过程中仍然少不了及格控件的连动。4.2实验总结心得体会本实验中

5、，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多加强对它的认识和了解。通过本次上机实验，基本上熟悉了vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些连动有了一定的认识。了解了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用和了解。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间： 2008 年3 月9 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验二单选按钮、复选按钮、组合框项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.

6、 掌握标签、文本框、命令按钮的常用属性、事件和方法。2掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。3.巩固对滚动条的编程方法。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具： Visual Basic 6.03、实验内容3.1上机实验的内容及要求科，FotbI口旦凶宇型-隶书斜体在文本框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。3.2算法设计思想与算法实现步骤2. 程序代码设计3 .运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private

7、 Sub Combo1_Click()If Combo1.Listl ndex = 0 The n Text1.ForeColor = 0If Combo1.List In dex = 1 The n Text1.ForeColor = vbRedIf Combo1.ListI ndex = 2 The n Text1.ForeColor = vbYellowIf Combo1.List In dex = 3 The n Text1.ForeColor = vbGreenEnd SubP rivate Sub Form_Load()Combo1.Addltem ("黑色")

8、Combo1.AddItem ("红色")Combo1.AddItem ("黄色")Combo1.AddItem ("绿色")Combo1.List In dex = 0HScrolH.Min = 8HScrolH.Max = 20Text1.Text =" 第一章vb 概述"& vbCrLf & " 第二章 程序设计基础"& vbCrLf & "第三章 窗体及常用控件"& vbCrLf & "第四章 结构化程序设计&

9、quot;& vbCrLf & " 第五章 数组"& vbCrLf & "第六章 过程"End SubPrivate Sub HScroll1_Cha nge()Text1.Fo ntSize = HScroll1.ValueEnd SubPrivate Sub Op tio n1_Click()TextI.Fo ntName = Op tio nl.Ca ptionEnd SubPrivate Sub Op tio n2_Click()Text1.Fo ntName = Op tio n2.Ca ptionEnd Sub

10、3.4程序运行的结果字型< II. HU焉3njfx4、实验总结4.1程序运行结果分析及思考题讨论我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以通过复选按钮来实现，因为一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。4.2实验总结心得体会通过本次实验，对文本框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识, 通过font, fontsize, fontcolor等属性都有了了解。希望在以后的学习中，能学得更好西华大学实验报告（理工类）开课学院及

11、实验室：汽车学院机房（5D-215）实验时间： 2008年3 月16 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验三程序的单和双分支结构项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.熟练掌握单分支程序设计的原理和实现方法。2 .熟练掌握双分支程序设计的原理和实现方法。3 .掌握输入框函数即InputBox()的使用方法。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具： Visual Basic 6.03、实验内容3.1上机实验的内容及要求1、用

12、输入框输入一个数，如果是大于100则在窗体上显示该数据。2、 判断数的奇偶性。3.2算法设计思想与算法实现步骤1.界面设计2.程序代码设计3. 运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()x = Val(I npu tBox("请任意输入一个整数：")If x > 100 The n P icture1. Print xEnd SubPrivate Sub Comma nd2_Click()Text2.Text =""y = Val(Textl)If y

13、 Mod 2 = 0 The nText2.Text = y & "是偶数"ElseText2.Text = y & "是奇数"End IfEnd Sub3.4程序运行的结果酝回区Mill礙舔琏 1TTn"TTllF厂 输入姜判断的数:判斯结果:rWri11 I- - II-nil f J4、实验总结4.1程序运行结果分析及思考题讨论虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text和inputbox的返回都是字符型的,不过在前面加上 VAL就可以变成数值型了。4.2实验总结心得体会通过这次实验，我学会了 inp

14、utbox函数的使用，inputbox 这个函数，有时候使得界面很好看，操作 起来也很方便，以后可以多用这个函数实现输入西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008 年3 月16 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验四 程序的多分支结构项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的熟练掌握多分支程序设计的原理和实现方法。2、实验设备、仪器及材料PC机；操作系统：WIND0WS98/2000/2003/XP 编程工具： Visual Basic 6

15、.03、实验内容3.1上机实验的内容及要求1600元后的余额，为编写程序，计算个人所得税金额。说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除费用 应纳所得额。超额累进税率见下表。级数全月应纳税所得额税税率1不超过500元的5%2超过500元至2000元的部分10%3超过2000元至5000元的部分15%4超过5000元至20000元的部分20%5超过20000元至40000元的部分25%6超过40000元至60000元的部分30%7超过60000元至80000元的部分35%8超过80000元至100000元的部分40%9超过100000元的部分45%3.2算法设计思想与算法实

16、现步骤应納税航：|5352. 程序代码设计3 运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()s = Val(Text1) -1600If (s - 100000) > 0 Thent = 29625 + (s - 100000) * 0.45Elself (s - 80000) > 0 Thent = 21625 + (s - 80000) * 0.4Elself (s - 60000) > 0 Thent = 14625 + (s - 60000) * 0.35Elself (s

17、- 40000) > 0 Thent = 8625 + (s - 40000) * 0.3Elself (s - 20000) > 0 Thent = 3625 + (s - 20000) * 0.25Elself (s - 5000) > 0 Thent = 625 + (s - 5000) * 0.2Elself (s - 2000) > 0 Thent = 175 + (s - 2000) * 0.15Elself (s - 500) > 0 Thent = 25 + (s - 500) * 0.1Elself s > 0 The nt = s * 0

18、.05ElseEnd IfText2 = tEnd Sub3.4程序运行的结果当月收入;6000535fwi iiirvii iimiiBn-iBiiirriiBii口回区4、实验总结4.1程序运行结果分析及思考题讨论程序运行结果与要求的一样，对于思考题,if的单分支结构一共要写 9个!4.2实验总结心得体会通过本次试验，对程序的多分支结构有了很好的认识！同时实验的同时可以把上次试验的内容好好的复习一下，实现if的行和块的转换！行if和块if是两种不同的运行的方法，在实际运用中我们应根据情况选择更方便的方法。我觉得这个程序还有改进的地方，就是可以加上一个“退出”按钮。西华大学实验报告（理工类）

19、开课学院及实验室：汽车学院机房（5D-215）实验时间：2008 年3月23 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验五程序的循环结构（累加、连乘）项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.巩固奇数和偶数的判断算法程序。2熟练掌握循环结构程序设计的原理和实现方法。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具：Visual Basic 6.03、实验内容3.1上机实验的内容及要求1、编写程序，计算 100以内偶数的累加和。2、计算任意正

20、整数n的阶乘。3.2算法设计思想与算法实现步骤1、界面设计Formi-连乘1203.32、3、4、程序代码设计运行/调试程序保存工程程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()For i = 2 To 100 Ste p 2Next iTextl = sEnd SubPrivate Sub Comma nd2_Click()n = Val(Tex t2)Forj = 1 To nNext jText3 = tEnd Sub 程序运行的结果和实验要求大概一致。3.4程序运行的结果転 For>l回冈25E0连乘120以內 的偶数和

21、4、实验总结4.1程序运行结果分析及思考题讨论当少了 s=0这一句时，运行的结果和实验中的一样，那是因为vb系统赋予s的初值就是0.当阶乘text2 中输入 15 时，text3的输入整数是大于 12时，系统还是可以运行，并且结果也是正确的。如在中显示1307674368000这个数。还是可以运行的!4.2实验总结心得体会通过本次实验的进行，对程序的循环结构有了一定的认识，并且对实验过程中的对累加和累乘程序代码有课初步的印象。对累加和累乘中的一个 s=0和t=1的赋值必须不可以忘记，要不然程序运行的结果会大出所料。故对实验的态度又是一个考验！还有在剪切的时候居然剪成了全屏，看来不能粗心大意。西

22、华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008 年3月23 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验六 程序的循环结构（素数的判断）项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1. 巩固分支程序设计的原理和实现方法。2巩固双重循环结构程序设计的原理和实现方法。3. 巩固累加的算法。4. 熟练掌握素数的判断方法。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具：Visual Basic 6.03、实验内容

23、3.1上机实验的内容及要求1 界面设计2程序代码设计3 .运行/调试程序4 保存工程3.2算法设计思想与算法实现步骤第一步：写出查找素数的代码第二步：确定素数的范围是在1000以内并且是素数中最大的20个可以用一个do.loop循环结构来控制素数的个数第三步：用累加的程序将这20个素数加起来3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()Dim m%, n %, i%, t%, k%, x%List1.ClearText1 =""For x = 1000 To 1 Ste p -1k = In t(Sqr(x)

24、For m = 2 To kIf x Mod m = 0 The nExit ForEnd IfNext mIf m > k The n Listl.AddItem x: s = s + 1If s = 20 The n Exit ForNext xFor i = 0 To List1 丄 istCou nt - 1t = Val(List1 List(i)Next iText1 = n3.4程序运行的结果転 FofbI素数匕asT96397797196795394?941刊929919911907 se?累加和i1S5804、实验总结4.1程序运行结果分析及思考题讨论程序运行的结果和试

25、验要求一样。对于找出1000以内的最小的20个素数只需要把for循环的1000to 1 step -1语句换成1 to 1000就可以找到1000内的20个最小素数。4.2实验总结心得体会本次实验对素数的查找方法有了一个很好的认识和了解，加强了对for循环的运用。同时对 if条件语句的运用有了一个很好的复习!西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008 年3 月30 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验七一维数组的操作项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实

26、验报告1、实验目的1.掌握一维数组的定义和引用方法。2. 掌握排序算法等相关算法。3. 巩固用列表框输出数据的方法2、实验设备、仪器及材料PC机；操作系统： WINDOWS98/2000/2003/XP 编程工具： Visual Basic 6.03、实验内容3.1上机实验的内容及要求编写程序，随机产生10个30, 90之间的素数，并按从小到大的顺序排序后，输出到列表框中3.2算法设计思想与算法实现步骤1.界面设计2 程序代码设计3 .运行/调试程序4 保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()Listl.Clear

27、Ran domizeDo While s < 10x = In t(R nd * 60) + 30k = Sqr(x)For t = 2 To kIf x Mod k = 0 The n Exit ForNext tIf t > k ThenList1.Addltem xn = List1.ListCou ntFor i = 0 To n - 2Forj = 0 To n - 2 - iIf Val(List1 丄 ist(j) > Val(List1 丄 ist(j + 1) Thenm = List1.List(j)Listl.List(j) = List1.List(j

28、 + 1)List1.List(j + 1) = mEnd IfNext j, iEnd IfLoopEnd Sub3.4程序运行的结果FofkI匸可区素数列表：32333S40GG尸 rvi 95!开始！旺L. 一.j|07ee4、实验总结4.1程序运行结果分析及思考题讨论过用程序运行的结果和实验要求的一样。对于将数组显示在文本框里，我认为和在列表框里差不多。只不“ &”并运用vbcrif就可实现文本框的多行显示，当然还可设置滚动条。4.2实验总结心得体会通过本次实验，我初步掌握了一维数组的操作，也对前面的内容进行了很好的复习!西华大学实验报告（理工类）开课学院及实验室：汽车学院机房

29、（5D-215）实验时间：2008 年3 月30 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验八二维数组的操作项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.掌握二维数组的定义和引用方法。2掌握矩阵的输出和操作方法。3.掌握主对角线和副对角线上元素的位置特征。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具：Visual Basic 6.03、实验内容3.1上机实验的内容及要求1、单击“开始”按钮，随机产生一个5X 5矩阵（每个元素为两位数的正整数

30、）,并显示在图片框Picture1中;2、选择“主对角线之和”单选按钮,则将矩阵主对角线（左上元至右下元）元素之和显示在文本框 Text13、选择“副对角线之和”单选按钮。中;则将矩阵副对角线（右上元至左下元）元素之和显示在文本框Text1中。3.2算法设计思想与算法实现步骤1 界面设计2 程序代码设计3 运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()Dim a(5, 5) As In tegerFori = 1 To 5Forj = 1 To 5Ran domize x = In t(R nd *

31、90) + 10 a(i, j) = xP icture1. Print x;If i = j The ns = s + a(i, j)End IfIf i + j = 6 Thent = t + a(i, j)End IfNext jP icture1. PrintNext iIf Op tio n1.Value = True ThenText1 = sEnd IfIf Op tio n2.Value = True ThenText1 = tEnd IfEnd SubPrivate Sub Op tio n1_Click()Text1 = sEnd SubPrivate Sub Op tio

32、 n2_Click()Textl = tEnd Sub3.4程序运行的结果FofkI回冈O 5 T 9 T95 52302e&2071TS1639T662选择r主対垢渡结果I m “ 0 rH nriii ii H J4、实验总结4.1程序运行结果分析及思考题讨论程序运行的结果和实验的要求基本一样。对于只求周边的几个数的在和，只需在最后的计算和的时候把代码改成如下就可以了For i = 1 to 5For j = 1 to 5If i=1 or i= 5 or j= 1 or j= 5 the nnext jnext i4.2实验总结心得体会同时也掌通过这次实验，我对以前的只是有了一个

33、很好的复习，对循环的结构有了更进一步的认识, 握了新的知识，使我受益匪浅。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间： 2008学生姓名吴沉学号312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验九 Sub子过程项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.掌握Sub子过程的定义和调用方法。2.掌握调用过程时参数传递的两种方式（传值与传址）3.掌握变量、函数和过程的作用域。4、掌握在数组中找最大（小）值的算法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000

34、/2003/XP 编程工具：Visual Basic 6.03、实验内容3.1上机实验的内容及要求编写一个sub过程，其接收一个一维数组，同时返回此数组中的最大数、最小数和平均值。3.2算法设计思想与算法实现步骤 IX1界面设计* FornniT3 品 ez363TT911呈犬值:量小值；平均值：T91150. 05714产出 Hll !计算r_2 程序代码设计3 .运行/调试程序4 .保存工程3.3程序核心代码,程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()Ran domizeFor i = 1 To 10a(i) = In t(R nd * 9

35、0) + 10Listl.AddItem a(i)Next iEnd SubP rivate Sub js(mms() As In teger, max As In teger, min As In teger, sqr As Double)max = 0min = mms(1)sqr = 0For i = 1 To 10If mms(i) > max The nmax = mms(i)End IfIf mms(i) < min The nmin = mms(i)End Ifsqr = sqr + mms(i)Next isqr = sqr / 10End SubPrivate S

36、ub Comma nd2_Click()Call js(a, x, y, z)Textl = xText2 = yText3 = zEnd Sub3.4程序运行的结果0 FofkI口回区76 IS82ez273190376413星大值；星小值：平均值:901357 1计算4、实验总结ubound函数计算个数，对4.1程序运行结果分析及思考题讨论程序运行的结果和想象中的一样，达到了实验的效果。其中运用了一个求平均数起了很好的作用！对于保留两位小数，可以运用prin t0.01*i nt(100*(x+0.005)来实现!4.2实验总结心得体会我觉得Sub子过程是一个比较难的过程，本次实验对sub

37、子过程只是有了一个初步的了解，在今后的学习过程中还要多加运用!西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间： 2008 年4月6 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验十Fun ction函数过程项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.掌握Function子过程定义和调用方法。2掌握调用过程时参数传递的两种方式（传值与传址）3掌握变量、函数和过程的作用域。4.巩固素数的判断的算法。2、实验设备、仪器及材料PC机；操作系统： WIND0WS98/20

38、00/2003/XP 编程工具： Visual Basic 6.03、实验内容3.1上机实验的内容及要求验证歌德巴赫猜想：任何一个不小于 6的偶数m都可表示为两素数之和。请编写程序，在小于等于106的范围内验证歌德巴赫猜想成立。要求:(1)编写函数判断一个数是否是素数，如果是则返回1,否则返回0。6,则(2)在文本框中输入一个 6106之间的偶数，在图片框中输出所有符合条件的组合。如：输入输出为:1+5=6 3+3=63.2算法设计思想与算法实现步骤1.界面设计2.程序代码设计3 .运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Com

39、ma nd2_Click()Dim a() As In tegerReDim a(1)a(1) = 1x = Val(Text2)If Not (x >= 6 And x <= 106 And x Mod 2 = 0) The nMsgBox"输入的数必须是6-106之间的偶数，请重新输入！"，vbOKOnly+ vbCriticalGoTo L1Elseno = 1P icture1.ClsFor i = 3 To x - 1If ss(i) = 1 Thenno = no + 1ReDim P reserve a(no) a(no) = iEnd IfNex

40、t iFor i = 1 To noFor j = i To noIf x = a(i) + a(j) The nP icture1. Print a(i) & "+" & a(j) & "=" & xEnd IfNext jNext iEnd IfL1:End SubPrivate Function ss(ByVal n As In teger) As In tegerDim i As In tegerFor i = 2 To n - 1If n Mod i = 0 The n Exit ForNext iIf i &l

41、t; n The nss = 0Elsess = 1End IfEnd Function3.4程序运行的结果転 For>1回冈验证哥待巴商猜想话搐入一牛之间的偶数4SH47=4e5+4S=4eT+41=4B11+37=4617+31=40丹+曲=48程序运行的结果和实验的要求一样。要不然就容易出错！对于是否可以用4、实验总结4.1程序运行结果分析及思考题讨论 但是过程的实现不是很简单的事，比较复杂，并且思路要很清晰,sub子过程实现和本实验相同的效果，我想是可以实现的。因为这个实验中用function函数只调了一个数 n因而用sub子过程是绝对可以实现的!4.2实验总结心得体会我觉得fu

42、nction函数过程是比较难的，但也很重要。这次实验使我对fun ctio n函数的使用有了一个最基本的了解！希望将来可以多用这些东西来验证一些定理和猜想！充分发挥计算机的智能西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008年4月13 日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验十文件项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.掌握文件以及文件缓冲的概念。2掌握顺序文件的打开、关闭以及读写操作。2、实验设备、仪器及材料PC机；操作系统：WIND0WS9

43、8/2000/2003/XP 编程工具：Visual Basic 6.03、实验内容3.1上机实验的内容及要求顺序文件的写（理立）毎读操作ST a IE 93 酸恥 IS T7 04 fia1、单击2、单击3、单击产生w个数写入文件“产生10个数”按钮，产生“写入文件”按钮，将产生的“读出”按钮，从顺序文件10个随机数读出10个数保存到顺序文件stud.txtstud.txt中读出10个数据3.2算法设计思想与算法实现步骤1 .界面设计2 .程序代码设计3 .运行/调试程序4 .保存工程3.3程序核心代码，程序调试过程中出现的问题及解决方法Dim a(10) As In tegerPrivat

44、e Sub Comma nd1_Click()Text1 =""Ran domizeFor i = 1 To 10a(i) = In t(R nd * 100)Text1 = Text1 & " " & a(i)Next iEnd SubPrivate Sub Comma nd2_Click()Open App.P ath + "stud.txt" For Out put As #1Print #1, Text1Close #1End SubPrivate Sub Comma nd3_Click()Text2 =&qu

45、ot;"Open App.P ath + "stud.txt" For Input As #2For i = 1 To 10Input #2, a(i)Text2 = Text2 & " " & a(i)Next iClose #2End Sub3.4程序运行的结果FofkI顾序文件的写（建立）和读操作70 9 6S 4S 44 54 56 12 4419 70 9 65 46 44 54 56 12 44iiHBiii nail la-iLl产生10牛数写入文件读事,11, I “Il II' L*J4、实验总结4.1

46、程序运行结果分析及思考题讨论尽管文本框中的数据不同，但运行的结果和实验要求的一样。对于看文件中的数据，我认为只要会使用文件的读写操作就可以了，还是一样的要用open 禾n close 语句。4.2实验总结心得体会通过这次实验，对顺序文件的一般操作有了很好的认识！也对文件的操作有了一定的步骤，下次遇到同样的题应该会做咯。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间： 2008 年4月13日学生姓名吴沉312007081201108实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验十二综合实验项目代码指导教师滕艳琼李梅实验课考勤实验工作表现实验报告项目学分1、实验目的1、了解ASC n码的概念和意义。2、掌握循环语句的使用。3、4、5、掌握mid函数的用法。6、掌握各种类型文件的打开、关闭以及读写操作。7、熟悉文本框各属性的意义。2、实验设备、仪器及材料熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。掌握常用控件的创建方法以及如何用控件建立用户界面。PC机；操作系统： WIND0WS98/2000/2003/XP 编程工具： Visual Basic 6