程序设计基础实验报告

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

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

3、alse。Image:Stretch 为 True， Picture 中通过剪贴板粘贴一幅图象。2程序代码设计3运行 /调试程序.4保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click()Command2.Enabled = TrueCommand1.Enabled = FalseTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command1.Enabled = TrueCommand2.Enabled = FalseTimer1.Enabled = FalseE

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

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

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

7、ate Sub Combo1_Click()If Combo1.ListIndex = 0 Then Text1.ForeColor = 0If Combo1.ListIndex = 1 Then Text1.ForeColor = vbRedIf Combo1.ListIndex = 2 Then Text1.ForeColor = vbYellowIf Combo1.ListIndex = 3 Then Text1.ForeColor = vbGreenEnd SubPrivate Sub Form_Load()Combo1.AddItem (黑色 )Combo1.AddItem (红色

8、)Combo1.AddItem (黄色 )Combo1.AddItem (绿色 )Combo1.ListIndex = 0HScroll1.Min = 8HScroll1.Max = 20Text1.Text = 第一章vb概述 & vbCrLf & 第二章程序设计基础 & vbCrLf & 第三章窗体及常用控件 & vbCrLf & 第四章结构化程序设计 & vbCrLf & 第五章 数组 & vbCrLf & 第六章过程 End SubPrivate Sub HScroll1_Change()Text1.FontSize = HScroll1.ValueEnd Sub.Private Su

9、b Option1_Click()Text1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Text1.FontName = Option2.CaptionEnd Sub3.4程序运行的结果4、实验总结4.1 程序运行结果分析及思考题讨论我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以通过复选按钮来实现，因为一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。4.2 实验总结心得体会通过本次实验，对文本

10、框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识，通过 font ， fontsize ，fontcolor 等属性都有了了解。希望在以后的学习中，能学得更好第1组西华大学实验报告（理工类）开课学院及实验室：汽车学院机房（5D-215）实验时间：2008年 3月 16日.学 生 姓 名吴沉学 号312007081201108实 验 成 绩课 程 名 称程序设计基础课 程 代 码8426460实验项目名称实验三 程序的单和双分支结构项 目 代 码指 导 教 师滕艳琼 李梅项 目 学 分实验课考勤实验工作表现实验报告1、实验目的1. 熟练掌握单分支程序设计的原理和实现方法。2熟

11、练掌握双分支程序设计的原理和实现方法。3掌握输入框函数即InputBox() 的使用方法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具： Visual Basic 6.03、实验内容3.1 上机实验的内容及要求1、用输入框输入一个数，如果是大于100 则在窗体上显示该数据。2、判断数的奇偶性。3.2 算法设计思想与算法实现步骤1. 界面设计2. 程序代码设计3. 运行 /调试程序4保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click()x = Val(InputBox(请任意输

12、入一个整数 :)If x 100 Then Picture1.Print xEnd SubPrivate Sub Command2_Click().Text2.Text = y = Val(Text1)If y Mod 2 = 0 ThenText2.Text = y & 是偶数 ElseText2.Text = y & 是奇数 End IfEnd Sub3.4程序运行的结果4、实验总结4.1 程序运行结果分析及思考题讨论虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text 和 inputbox 的返回都是字符型的，不过在前面加上VAL 就可以变成数值型了。4.2 实验总结心得体

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

14、OWS98/2000/2003/XP；编程工具： Visual Basic 6.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 元

15、的部分35%8超过 80000元至100000 元的部分40%9超过 100000 元的部分45%.3.2 算法设计思想与算法实现步骤1 界面设计2. 程序代码设计3运行 /调试程序4保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click()s = Val(Text1) - 1600If (s - 100000) 0 Thent = 29625 + (s - 100000) * 0.45ElseIf (s - 80000) 0 Thent = 21625 + (s - 80000) * 0.4ElseIf (s - 60000) 0

16、 Thent = 14625 + (s - 60000) * 0.35ElseIf (s - 40000) 0 Thent = 8625 + (s - 40000) * 0.3ElseIf (s - 20000) 0 Thent = 3625 + (s - 20000) * 0.25ElseIf (s - 5000) 0 Thent = 625 + (s - 5000) * 0.2ElseIf (s - 2000) 0 Thent = 175 + (s - 2000) * 0.15.ElseIf (s - 500) 0 Thent = 25 + (s - 500) * 0.1ElseIf s

17、0 Thent = s * 0.05Elset = 0End IfText2 = tEnd Sub3.4程序运行的结果4、实验总结4.1 程序运行结果分析及思考题讨论程序运行结果与要求的一样，对于思考题，if的单分支结构一共要写9 个！4.2 实验总结心得体会通过本次试验，对程序的多分支结构有了很好的认识！同时实验的同时可以把上次试验的内容好好的复习一下，实现 if 的行和块的转换！行 if 和块 if 是两种不同的运行的方法，在实际运用中我们应根据情况选择更方便的方法。我觉得这个程序还有改进的地方，就是可以加上一个“退出”按钮。第1组.西华大学实验报告（理工类）开课学院及实验室： 汽车学院机

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

19、以内偶数的累加和。2、 计算任意正整数n 的阶乘。3.2 算法设计思想与算法实现步骤1、界面设计2、程序代码设计3、运行 /调试程序4、保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click()s = 0.For i = 2 To 100 Step 2s = s + iNext iText1 = sEnd SubPrivate Sub Command2_Click()t = 1n = Val(Text2)For j = 1 To nt = t * jNext jText3 = tEnd Sub程序运行的结果和实验要求大概一致。3.4

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

21、切的时候居然剪成了全屏，看来不能粗心大意。第1组西华大学实验报告（理工类）开课学院及实验室： 汽车学院机房（ 5D-215）实验时间：2008年 3 月 23日学 生 姓 名吴沉学 号312007081201108实 验成 绩课 程 名 称程序设计基础课 程代 码8426460实验项目名称实验六程序的循环结构（素数的判断）项 目代 码指 导 教 师滕艳琼 李梅项 目学 分实验课考勤实验工作表现实验报告1、实验目的1. 巩固分支程序设计的原理和实现方法。2巩固双重循环结构程序设计的原理和实现方法。3. 巩固累加的算法。4. 熟练掌握素数的判断方法。2、实验设备、仪器及材料PC机；操作系统：WIN

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

23、For x = 1000 To 1 Step -1k = Int(Sqr(x)For m = 2 To kIf x Mod m = 0 ThenExit ForEnd IfNext mIf m k Then List1.AddItem x: s = s + 1If s = 20 Then Exit ForNext xFor i = 0 To List1.ListCount - 1t = Val(List1.List(i)n = n + tNext iText1 = n3.4程序运行的结果.4、实验总结4.1程序运行结果分析及思考题讨论程序运行的结果和试验要求一样。对于找出 1000 以内的最小

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

25、项 目 学 分实验课考勤实验工作表现实验报告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 Com

26、mand1_Click()List1.ClearRandomizeDo While s k ThenList1.AddItem xs = s + 1n = List1.ListCountFor i = 0 To n - 2For j = 0 To n - 2 - iIf Val(List1.List(j) Val(List1.List(j + 1) Thenm = List1.List(j).List1.List(j) = List1.List(j + 1)List1.List(j + 1) = mEnd IfNext j, iEnd IfLoopEnd Sub3.4程序运行的结果4、实验总结

27、4.1 程序运行结果分析及思考题讨论程序运行的结果和实验要求的一样。对于将数组显示在文本框里，我认为和在列表框里差不多。只不过用“ &”并运用vbcrlf 就可实现文本框的多行显示，当然还可设置滚动条。4.2 实验总结心得体会通过本次实验，我初步掌握了一维数组的操作，也对前面的内容进行了很好的复习！.第1组西华大学实验报告（理工类）开课学院及实验室： 汽车学院机房（ 5D-215）实验时间：2008年 3 月 30日学 生 姓 名吴沉学 号312007081201108实 验成 绩课 程 名 称程序设计基础课 程代 码8426460实验项目名称实验八二维数组的操作项 目代 码指 导 教 师滕艳

28、琼 李梅项 目学 分实验课考勤实验工作表现实验报告1、实验目的1掌握二维数组的定义和引用方法。2掌握矩阵的输出和操作方法。3. 掌握主对角线和副对角线上元素的位置特征。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具： Visual Basic 6.03、实验内容3.1 上机实验的内容及要求1、单击“开始” 按钮，随机产生一个55 矩阵（每个元素为两位数的正整数），并显示在图片框Picture1中；2、选择“主对角线之和” 单选按钮， 则将矩阵主对角线 （左上元至右下元）元素之和显示在文本框Text1中；3、 选择“副对角线之和”单选按钮。则将矩

29、阵副对角线（右上元至左下元）元素之和显示在文本框 Text1 中。3.2 算法设计思想与算法实现步骤1界面设计2程序代码设计3运行 / 调试程序4保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click()Dim a(5, 5) As Integer.s = 0t = 0For i = 1 To 5For j = 1 To 5Randomizex = Int(Rnd * 90) + 10a(i, j) = xPicture1.Print x;If i = j Thens = s + a(i, j)End IfIf i + j = 6

30、Thent = t + a(i, j)End IfNext jPicture1.PrintNext iIf Option1.Value = True ThenText1 = sEnd IfIf Option2.Value = True ThenText1 = tEnd IfEnd SubPrivate Sub Option1_Click()Text1 = sEnd SubPrivate Sub Option2_Click().Text1 = tEnd Sub3.4程序运行的结果4、实验总结4.1 程序运行结果分析及思考题讨论程序运行的结果和实验的要求基本一样。对于只求周边的几个数的在和，只需在

31、最后的计算和的时候把代码改成如下就可以了For i = 1 to 5For j = 1 to 5If i=1 or i= 5 or j= 1 or j= 5 thens = s + a(i,j)next jnext i4.2 实验总结心得体会通过这次实验，我对以前的只是有了一个很好的复习，对循环的结构有了更进一步的认识，同时也掌握了新的知识，使我受益匪浅。第1组西华大学实验报告（理工类）开课学院及实验室： 汽车学院机房（5D-215）实验时间：2008年 4 月 6日学 生 姓 名吴沉学 号312007081201108实 验成 绩课 程 名 称程序设计基础课 程代 码8426460.实验项目

32、名称实验九Sub 子过程项 目 代 码指 导 教 师滕艳琼李梅项 目 学 分实验课考勤实验工作表现实验报告1、实验目的1. 掌握 Sub 子过程的定义和调用方法。2掌握调用过程时参数传递的两种方式（传值与传址）。3掌握变量、函数和过程的作用域。4、掌握在数组中找最大（小）值的算法。2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具： Visual Basic 6.03、实验内容3.1 上机实验的内容及要求编写一个sub 过程，其接收一个一维数组，同时返回此数组中的最大数、最小数和平均值。3.2 算法设计思想与算法实现步骤1界面设计2程序代码设计3运

33、行 / 调试程序4保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法 Private Sub Command1_Click() RandomizeFor i = 1 To 10a(i) = Int(Rnd * 90) + 10.List1.AddItem a(i)Next iEnd SubPrivate Sub js(mms() As Integer, max As Integer, min As Integer, sqr As Double)max = 0min = mms(1)sqr = 0For i = 1 To 10If mms(i) max Thenmax = mms(

34、i)End IfIf mms(i) = 6 And x = 106 And x Mod 2 = 0) ThenMsgBox 输入的数必须是 6-106 之间的偶数，请重新输入！, vbOKOnly + vbCritical GoTo L1Elseno = 1Picture1.ClsFor i = 3 To x - 1.If ss(i) = 1 Thenno = no + 1ReDim Preserve a(no)a(no) = iEnd IfNext iFor i = 1 To noFor j = i To noIf x = a(i) + a(j) ThenPicture1.Print a(i

35、) & + & a(j) & = & xEnd 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 = 0Else ss = 1End IfEnd Function.3.4程序运行的结果4、实验总结4.1 程序运行结果分析及思考题讨论程序运行的结果和实验的要求一样。但是过程的实现不是很简单的事，比较复杂，并且思路要很清晰，要不

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

37、码8426460实验项目名称实验十一文件项 目代 码指 导 教 师滕艳琼 李梅项 目学 分实验课考勤实验工作表现实验报告1、实验目的1. 掌握文件以及文件缓冲的概念。2掌握顺序文件的打开、关闭以及读写操作。.2、实验设备、仪器及材料PC机；操作系统：WINDOWS98/2000/2003/XP；编程工具： Visual Basic 6.03、实验内容3.1 上机实验的内容及要求1、单击“产生10 个数”按钮，产生10 个随机数2、单击“写入文件”按钮，将产生的10 个数保存到顺序文件stud.txt3、单击“读出”按钮，从顺序文件stud.txt 中读出 10 个数据3.2 算法设计思想与算法实现步骤1界面设计2程序代码设计3运行 / 调试程序4保存工程3.3 程序核心代码，程序调试过程中出现的问题及解决方法 Dim a(10) As IntegerPrivate Sub Command1_Click()Text1 = RandomizeFor i = 1 To 10a(i) = Int(Rnd * 100)Text1 = Text1 & & a(i)Next iEnd