程序设计基础实验报告

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

2、开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。算法设计思想与算法实现步骤1 界面设计相关属性设置如下：Command1:Caption为“开始”。Command2: Caption为“停止”,Enabled为FalseoHScroll1:Max为1000,LargeChange为200,SmallChange为20。Label1 Label2: Caption分别为“快”和“慢”。Timer1:Enabled为FalseoImage:Stretch为True,Picture中通过剪贴板粘贴一幅图象。2.程序代码设计3 运行/调试程序4

3、 保存工程程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click()= True= False= TrueEnd SubPrivate Sub Command2_Click()= True= False= FalseEnd SubPrivate Sub HScroll1_Change()End SubPrivate Sub Timer1_Timer()+ 1)End Sub程序运行的结果4、实验总结程序运行结果分析及思考题讨论试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。对思考题，我认为还是要把image的move属性学好，再结合

4、计时器的使用，问题应该可以迎刃而解，不过这个过程中仍然少不了及格控件的连动。实验总结心得体会本实验中，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多加强对它的认识 和了解。停止通过本次上机实验，基本上熟悉了vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些连动有了一定的认识。了解了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用和了解。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008年3月9日学生姓名吴沉学号38实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验二 单选按钮、复选按钮、组合框项

5、目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1掌握标签、文本框、命令按钮的常用属性、事件和方法。2.掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。3巩固对滚动条的编程方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS982000/2003/XP;编程工具：Visual Basic3、实验内容上机实验的内容及要求在文本框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。算法设计思想与算法实现步骤1 界面设计2 程序代码设计3运行/调试程序4保存工程程序核心代码，程序调试过程中出现的问题及解决方法Pr

6、ivate Sub Combo1_Click()If= 0 Then= 0If= 1 Then= vbRedIf= 2 Then= vbYellowIf= 3 Then= vbGreenEnd SubPrivate Sub Form_Load（）（黑色）（红色）（黄色）（绿色）= 0= 20= 第一章vb概述 & vbCrLf & 第二章 程序设计基础 & vbCrLf & 第三章 窗体及常 用控件 &vbCrLf & 第四章 结构化程序设计 & vbCrLf & 第五章 数 组 & vbCrLf & 第六 章 过程End Sub Private Sub HScroll1_Change（）En

7、d SubPrivate Sub Option1_Click（）End SubPrivate Sub Optio n2_Click()End Sub程序运行的结果4、实验总结程序运行结果分析及思考题讨论我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以通过复选按钮来实现，因为一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。实验总结心得体会通过本次实验，对文本框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识,通过font,fontsize,fontcolo

8、r等属性都有了了解。希望在以后的学习中，能学得更好西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215） 日学生姓名吴沉学号38实验成绩实验时间：2008年3月16II II课程名称程序设计基础课程代码8426460实验项目名称实验三程序的单和双分支结构项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.熟练掌握单分支程序设计的原理和实现方法。2熟练掌握双分支程序设计的原理和实现方法。3掌握输入框函数即InputBox()的使用方法。2、 实验设备、仪器及材料PC机；操作系统：WINDOWS982000/2003/XP;编程工具：Visual Ba

9、sic3、 实验内容上机实验的内容及要求1、 用输入框输入一个数，如果是大于100则在窗体上显示该数据。2、判断数的奇偶性。算法设计思想与算法实现步骤1.界面设计2.程序代码设计3.运行/调试程序4.保存工程程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()x = Val(InputBox(请任意输入一个整数:)If x 100 The n xEnd SubPrivate Sub Comma nd2_Click()y = Val(Textl)If y Mod 2 = 0 The n=y & 是偶数Else=y & 是奇数End IfEnd

10、 Sub程序运行的结果4、实验总结程序运行结果分析及思考题讨论虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text和inputbox的返回都是字符型的，不过在前面加上VAL就可以变成数值型了。实验总结心得体会通过这次实验，我学会了inputbox函数的使用，inputbox这个函数，有时候使得界面很好看，操作起来也很方便，以后可以多用这个函数实现输入西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215） 日学生姓名吴沉学号38实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验四 程序的多分支结构项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作

11、表现实验报告1、实验目的熟练掌握多分支程序设计的原理和实现方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003XP;编程工具：Visual Basic3、实验内容上机实验的内容及要求编写程序，计算个人所得税金额。说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除费用1600元后的余额，为应纳所得额。超额累进税率见下表。级数全月应纳税所得额税税率1不超过500元的5%2超过500元至2000元的部分10%3超过2000元至5000元的部分15%4超过5000元至20000元的部分20%5超过20000元至40000元的部分25%6超过40000元至

12、60000元的部分30%7超过60000元至80000元的部分35%8超过80000元至100000元的部分40%9超过100000元的部分45%实验时间:2008年3月16算法设计思想与算法实现步骤1.界面设计2.程序代码设计3运行/调试程序4.保存工程程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click()s = Val(Text1) -1600If (s - 100000) 0 The nt = 29625 + (s - 100000) *Elself (s - 80000) 0 Thent = 21625 + (s - 80000) *

13、Elself (s - 60000) 0 The nt = 14625 + (s - 60000) *Elself (s - 40000) 0 The nt = 8625 + (s - 40000) *Elself (s - 20000) 0 Thent = 3625 + (s - 20000) *Elself (s - 5000) 0 The nt = 625 + (s - 5000) *Elself (s - 2000) 0 The nt = 175 + (s - 2000) *Elself (s - 500) 0 The nt = 25 + (s - 500) *Elself s 0 T

14、he nElset = 0End IfText2 = tEnd Sub程序运行的结果4、实验总结程序运行结果分析及思考题讨论程序运行结果与要求的一样，对于思考题，if的单分支结构一共要写9个！实验总结心得体会通过本次试验，对程序的多分支结构有了很好的认识！同时实验的同时可以把上次试验的内容好好的复习一下，实现if的行和块的转换！行if和块if是两种不同的运行的方法，在实际运用中我们应根据情况选择更方便的方法。我觉得这个程序还有改进的地方，就是可以加上一个“退出”按钮。西华大学实验报告（理工类）学生姓名吴沉学号38实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验五 程序的循环结

15、构(累加、连乘)项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.巩固奇数和偶数的判断算法程序。2熟练掌握循环结构程序设计的原理和实现方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP;编程工具：Visual Basic3、实验内容上机实验的内容及要求1、 编写程序，计算100以内偶数的累加和。2、 计算任意正整数n的阶乘。算法设计思想与算法实现步骤1、界面设计2、 程序代码设计3、 运行/调试程序4、 保存工程开课学院及实验室：汽车学院机房（5D-215）实验时间:2008年3月23程序核心代码，程序调试过程中出现的问题

16、及解决方法Private Sub Comma nd1_Click()s = 0For i = 2 To 100 Step 2s = s + iNext iTextl = sEnd SubPrivate Sub Comma nd2_Click()t = 1n = Val(Text2)Forj = 1 To nt = t * jNext jText3 = tEnd Sub程序运行的结果和实验要求大概一致。程序运行的结果4、实验总结程序运行结果分析及思考题讨论当少了s=0这一句时，运行的结果和实验中的一样，那是因为vb系统赋予s的初值就是0当阶乘的输入整数是大于12时，系统还是可以运行，并且结果也是

17、正确的。如在text2中输入15时，text3中显示 这个数。还是可以运行的！实验总结心得体会通过本次实验的进行，对程序的循环结构有了一定的认识，并且对实验过程中的对累加和累乘程序 代码有课初步的印象。对累加和累乘中的一个s=0和t=1的赋值必须不可以忘记，要不然程序运行的结果 会大出所料。故对实验的态度又是一个考验！还有在剪切的时候居然剪成了全屏，看来不能粗心大意。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008年3月23日学生姓名吴沉学号38实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验六 程序的循环结构（素数的判断）项目代码指

18、导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.巩固分支程序设计的原理和实现方法。2巩固双重循环结构程序设计的原理和实现方法。3.巩固累加的算法。4.熟练掌握素数的判断方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS982000/2003XP;编程工具：Visual Basic3、实验内容上机实验的内容及要求1界面设计2程序代码设计3运行/调试程序4.保存工程算法设计思想与算法实现步骤第一步：写出查找素数的代码第二步：确定素数的范围是在1000以内并且是素数中最大的20个 可以用一个doloop循环结构来控制素数的个数第三步：用累加的程序将这20个素数加起来

19、程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click()Dim m%, n%, i%, t%, k%, x%Text1 = For x = 1000 To 1 Step -1k = Int(Sqr(x)For m = 2 To kIf x Mod m = 0 ThenExit ForEnd If Next mIf m k Then x: s = s + 1If s = 20 Then Exit ForNext xFor i = 0 To - 1t = Val(i)n = n + tNext iText1 = n程序运行的结果4、实验总结程序运行结

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

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

22、 1n =For i = 0 To n - 2For j = 0 To n - 2 - iIf Val(j) Val(j + 1) Thenm = (j)(j) = (j + 1)(j + 1) = mEnd IfNext j, iEnd IfLoopEnd Sub程序运行的结果4、实验总结程序运行结果分析及思考题讨论程序运行的结果和实验要求的一样。对于将数组显示在文本框里，我认为和在列表框里差不多。只不 过用“&”并运用vbcrlf就可实现文本框的多行显示，当然还可设置滚动条。实验总结心得体会通过本次实验，我初步掌握了一维数组的操作，也对前面的内容进行了很好的复习!西华大学实验报告（理工类）

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

24、Picture1中；2、 选择“主对角线之和”单选按钮，则将矩阵主对角线（左上元至右下元）元素之和显示在文本框Text1中；3、 选择“副对角线之和”单选按钮。则将矩阵副对角线（右上元至左下元）元素之和显示在文本框Text1中。算法设计思想与算法实现步骤1界面设计2程序代码设计3运行/调试程序4.保存工程程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click()Dim a(5, 5) As Integer s = 0 t = 0For i = 1 To 5For j = 1 To 5 Randomizex = Int(Rnd * 90) + 10

25、a(i, j) = xx;If i = j Thens = s + a(i, j) End IfIf i + j = 6 Thent = t + a(i, j)End IfNext jNext iIf = True ThenText1 = sEnd IfIf = True ThenText1 = tEnd IfEnd SubPrivate Sub Option1_Click()Text1 = sEnd SubPrivate Sub Optio n2_Click()Textl = tEnd Sub程序运行的结果甘Forl选择r主対箱泼席訓对甬敎_ _ 257! 开始1结果wwaiimiiBiri

26、raiiianiaiimiiiBinBiiiRTIIr 4、实验总结程序运行结果分析及思考题讨论程序运行的结果和实验的要求基本一样。对于只求周边的几个数的在和，只需在最后的计算和的时候把代码改成如下就可以了For i = 1 to 5For j = 1 to 5If i=1 or i= 5 or j= 1 or j= 5 the ns = s + a（i,j）next jnext i实验总结心得体会通过这次实验，我对以前的只是有了一个很好的复习，对循环的结构有了更进一步的认识，同时也掌握了新的知识，使我受益匪浅。第_L组02 6&2C71旳1E397662戈96T35496T354茂41977

27、241654197724165O O 2 2 T T 9 9 T T-y-yLI？二西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215） 日学生姓名吴沉学号38实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验九Sub子过程项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.掌握Sub子过程的定义和调用方法。2掌握调用过程时参数传递的两种方式（传值与传址）。3掌握变量、函数和过程的作用域。4、掌握在数组中找最大（小）值的算法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003XP;编程工具：Visua

28、l Basic3、实验内容上机实验的内容及要求编写一个sub过程，其接收一个一维数组，同时返回此数组中的最大数、最小数和平均值。算法设计思想与算法实现步骤1界面设计2程序代码设计3运行/调试程序4.保存工程实验时间:2008年4月6程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Comma nd1_Click（）Ran domizeFor i = 1 To 10a(i) = Int(Rnd * 90) + 10 a(i)Next iEnd SubPrivate Sub js(mms() As Integer, max As Integer, min As Integer

29、, sqr As Double) max = 0min = mms(1)sqr = 0For i = 1 To 10If mms(i) max Thenmax = mms(i)End IfIf mms(i) = 6 And x = 106 And x Mod 2 = 0) ThenMsgBox 输入的数必须是6-106之间的偶数，请重新输入！, vbOKOnly + vbCritical GoToL1Elseno = 1For i = 3 To x - 1If ss(i) = 1 Thenno = no + 1ReDim Preserve a(no) a(no) = iEnd IfNext i

30、For i = 1 To noFor j = i To noIf x = a(i) + a(j) Thena(i) & + & a(j) & = & x End IfNext jNext iEnd IfL1:End SubPrivate Function ss(ByVal n As Integer) As IntegerDim i As IntegerFor i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i n Thenss = 0Elsess = 1End IfEnd Function程序运行的结果4、实验总结程序运行结果分析及思考题讨

31、论程序运行的结果和实验的要求一样。但是过程的实现不是很简单的事，比较复杂，并且思路要很清晰， 要不然就容易出错！对于是否可以用sub子过程实现和本实验相同的效果，我想是可以实现的。因为这个实验中用function函数只调了一个数n,因而用sub子过程是绝对可以实现的！实验总结心得体会我觉得function函数过程是比较难的，但也很重要。这次实验使我对function函数的使用有了一个最基本的了解！希望将来可以多用这些东西来验证一些定理和猜想！充分发挥计算机的智能西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008年4月13日学生姓名吴沉学号38实验成绩课程

32、名称程序设计基础课程代码8426460实验项目名称实验一 文件项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1.掌握文件以及文件缓冲的概念。2掌握顺序文件的打开、关闭以及读写操作。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP;编程工具：Visual Basic3、实验内容上机实验的内容及要求1、单击“产生10个数”按钮，产生10个随机数2、 单击“写入文件”按钮，将产生的10个数保存到顺序文件3、 单击“读出”按钮，从顺序文件中读出10个数据算法设计思想与算法实现步骤1界面设计2程序代码设计3运行/调试程序4.保存工程程序

33、核心代码，程序调试过程中出现的问题及解决方法Dim a(10) As In tegerPrivate Sub Comma nd1_Click()Text1 =Ran domizeFor i = 1 To 10a(i) = Int(Rnd * 100)Text1 = Text1 & & a(i)Next iEnd SubPrivate Sub Comma nd2_Click()Ope n + For Output As #1Print #1, Text1Close #1End SubPrivate Sub Comma nd3_Click()Text2 =Ope n + For Input As

34、#2Fori = 1 To 10In put #2, a(i)Text2 = Text2 & & a(i)Next iClose #2End Sub程序运行的结果4、实验总结程序运行结果分析及思考题讨论尽管文本框中的数据不同，但运行的结果和实验要求的一样。对于看文件中的数据，我认为只要会使用文件的读写操作就可以了，还是一样的要用open和close语句。实验总结心得体会通过这次实验，对顺序文件的一般操作有了很好的认识！也对文件的操作有了一定的步骤，下次遇到 同样的题应该会做咯。西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008年4月13日学生姓名吴沉学号

35、38实验成绩课程名称程序设计基础课程代码8426460实验项目名称实验十二综合实验项目代码指导教师滕艳琼李梅项目学分实验课考勤实验工作表现实验报告1、实验目的1、 了解ASCn码的概念和意义。2、 掌握循环语句的使用。3、 熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。4、 掌握常用控件的创建方法以及如何用控件建立用户界面。5、 掌握mid函数的用法。6、 掌握各种类型文件的打开、关闭以及读写操作。7、 熟悉文本框各属性的意义。2、实验设备、仪器及材料PC机；操作系统：WIND0WS98/2000/2003XP;编程工具：Visual Basic3、实验内容上机实验的内容及要求建立一个窗体如图所示，程序功能要求如下:2、单击“加密”按钮，对原文内容进行加密，并显示在文本框Test2中。(加密算法：用Mid函数取出要加密的字符串中的一个字符，求出它的ASCH码，把这个ASCH码加1,再Mod255，然后用