1、上机实验的内容及要求编写动画程序。运行界面如图所示。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。算法设计思想与算法实现步骤1 界面设计相关属性设置如下：Command1:Caption为“开始”。Command2: Caption为“停止”， Enabled为 False。HScroll1:Max 为 1000， LargeChange 为 200 ， SmallChange 为20。Label1 Label2: Caption分别为“快”和“慢”。Timer1:Enabled 为 False。Image:Stretch 为T
2、rue， Picture中通过剪贴板粘贴一幅图象。2 程序代码设计3 运行/调试程序4 保存工程程序核心代码，程序调试过程中出现的问题及解决方法Private Sub Command1_Click（） = True = FalseEnd SubPrivate Sub Command2_Click（）Private Sub HScroll1_Change（） = Private Sub Timer1_Timer（） + 1） 程序运行的结果 4、实验总结程序运行结果分析及思考题讨论 试验中主要是滚动条和计时器的连动没有弄明白，其次是图片没有打开。 对思考题，我认为还是要把image的move属性
3、学好，再结合计时器的使用，问题应该可以迎刃而解，不过这个过程中仍然少不了及格控件的连动。实验总结心得体会 本实验中，我对滚动条的认识还不是很深，在以后的过程中要还好好运用滚动条，多加强对它的认识和了解。通过本次上机实验，基本上熟悉了vb的编程环境，熟悉了及格基本控件的使用方法，对控件的一些连动有了一定的认识。了解了一些基本控件的基本属性。在今后的学习和实验过程中要加强对它们的应用和了解。第 1 组实验二 单选按钮、复选按钮、组合框1掌握标签、文本框、命令按钮的常用属性、事件和方法。2掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。3巩固对滚动条的编程方法。在文本
4、框中输出一段文字，设置文字的字体、字型、字号和颜色，程序运行界面如图所示。3运行/调试程序4保存工程Private Sub Combo1_Click（） If = 0 Then = 0 If = 1 Then = vbRed If = 2 Then = vbYellow If = 3 Then = vbGreenPrivate Sub Form_Load（） （黑色）红色黄色绿色 = 0 = 8 = 20 = 第一章 vb概述 & vbCrLf & 第二章 程序设计基础第三章 窗体及常用控件第四章 结构化程序设计第五章 数 组第六章 过程 End SubPrivate Sub Option1_
5、Click（）Private Sub Option2_Click（） 程序运行的结果 我对字号使用滚动条来变换还不熟悉，还有我觉得字体的选择是不可以通过复选按钮来实现，因为一个字不可能同时出现两种字体，可能我们对各种字体的英文不是很熟悉，我们选择字体的时候是中文的很好选，但是绝对可以实现。随着对后面知识的学习，这些一定可以实现。 通过本次实验，对文本框有了一定的认识，对字体，字号，字的颜色的设置有了大大概的了解和认识，通过font，fontsize，fontcolor等属性都有了了解。希望在以后的学习中，能学得更好 2008年 3 月 16 日实验三 程序的单和双分支结构1. 熟练掌握单分支程
6、序设计的原理和实现方法。2熟练掌握双分支程序设计的原理和实现方法。3掌握输入框函数即InputBox（）的使用方法。1、 用输入框输入一个数，如果是大于100则在窗体上显示该数据。2、 判断数的奇偶性。 1. 界面设计 2. 程序代码设计 3. 运行/调试程序 4保存工程 x = Val（InputBox（请任意输入一个整数:） If x 100 Then x y = Val（Text1） If y Mod 2 = 0 Then = y &是偶数 Else是奇数 End If 虽然实验的界面和实验要求的界面不同，但运行的结果是一样的。Text和inputbox的返回都是字符型的，不过在前面加上
7、VAL就可以变成数值型了。 通过这次实验，我学会了inputbox函数的使用， inputbox这个函数，有时候使得界面很好看，操作起来也很方便，以后可以多用这个函数实现输入 2008 年 3 月 16 日实验四 程序的多分支结构滕艳琼 李梅熟练掌握多分支程序设计的原理和实现方法。编写程序，计算个人所得税金额。 说明：根据个人所得税法规定，个人工资、薪金所得，以每月收入额减除费用1600元后的余额，为应纳所得额。超额累进税率见下表。级数全月应纳税所得额税税率1不超过500元的5%2超过500元至2000元的部分10%3超过2000元至5000元的部分15%4超过5000元至20000元的部分2
8、0%5超过20000元至40000元的部分25%6超过40000元至60000元的部分30%7超过60000元至80000元的部分35%8超过80000元至100000元的部分40%9超过100000元的部分45% 2. 程序代码设计 Private Sub Command1_Click（） s = Val（Text1） - 1600 If （s - 100000） 0 Then t = 29625 + （s - 100000） * ElseIf （s - 80000） t = 21625 + （s - 80000） * ElseIf （s - 60000） t = 14625 + （s -
9、60000） * ElseIf （s - 40000） t = 8625 + （s - 40000） * ElseIf （s - 20000） t = 3625 + （s - 20000） * ElseIf （s - 5000） t = 625 + （s - 5000） * ElseIf （s - 2000） t = 175 + （s - 2000） * ElseIf （s - 500） t = 25 + （s - 500） * ElseIf s t = s * t = 0 Text2 = t 程序运行结果与要求的一样，对于思考题，if的单分支结构一共要写9个！ 通过本次试验，对程序的多分支结
10、构有了很好的认识！同时实验的同时可以把上次试验的内容好好的复习一下，实现if的行和块的转换！行if和块if是两种不同的运行的方法，在实际运用中我们应根据情况选择更方便的方法。我觉得这个程序还有改进的地方，就是可以加上一个“退出”按钮。 2008 年 3 月 23 日实验五 程序的循环结构（累加、连乘）1. 巩固奇数和偶数的判断算法程序。2熟练掌握循环结构程序设计的原理和实现方法。1、编写程序，计算100以内偶数的累加和。2、 计算任意正整数n的阶乘。1、界面设计2、程序代码设计3、运行/调试程序4、保存工程 s = 0 For i = 2 To 100 Step 2 s = s + i Nex
11、t i Text1 = s t = 1 n = Val（Text2） For j = 1 To n t = t * j Next j Text3 = t程序运行的结果和实验要求大概一致。 当少了s=0这一句时，运行的结果和实验中的一样，那是因为vb系统赋予s的初值就是0.当阶乘的输入整数是大于12时，系统还是可以运行，并且结果也是正确的。如在text2中输入15时，text3中显示 这个数。还是可以运行的！ 通过本次实验的进行，对程序的循环结构有了一定的认识，并且对实验过程中的对累加和累乘程序代码有课初步的印象。对累加和累乘中的一个s=0和t=1的赋值必须不可以忘记，要不然程序运行的结果会大出
12、所料。故对实验的态度又是一个考验！还有在剪切的时候居然剪成了全屏，看来不能粗心大意。实验六 程序的循环结构（素数的判断）1. 巩固分支程序设计的原理和实现方法。2巩固双重循环结构程序设计的原理和实现方法。3. 巩固累加的算法。4. 熟练掌握素数的判断方法。 1界面设计2程序代码设计第一步：写出查找素数的代码 第二步：确定素数的范围是在1000以内并且是素数中最大的20个 可以用一个do.loop循环结构来控制素数的个数 第三步：用累加的程序将这20个素数加起来 Dim m%, n%, i%, t%, k%, x% Text1 = For x = 1000 To 1 Step -1 k = In
13、t（Sqr（x） For m = 2 To k If x Mod m = 0 Then Exit For Next m If m k Then x: s = s + 1 If s = 20 Then Exit For Next x For i = 0 To - 1 t = Val（i） n = n + t Text1 = n 程序运行的结果和试验要求一样。对于找出1000以内的最小的20个素数只需要把for循环的1000 to 1 step -1语句换成 1 to 1000 就可以找到1000内的20个最小素数。 本次实验对素数的查找方法有了一个很好的认识和了解，加强了对for循环的运用。同时
14、对if条件语句的运用有了一个很好的复习！ 2008年 3 月30 日实验七 一维数组的操作1. 掌握一维数组的定义和引用方法。2. 掌握排序算法等相关算法。3. 巩固用列表框输出数据的方法 编写程序，随机产生10个30，90之间的素数，并按从小到大的顺序排序后，输出到列表框中 1. 界面设计 Randomize Do While s k Then x n = For i = 0 To n - 2 For j = 0 To n - 2 - i If Val（j） Val（j + 1） Then m = （j） （j） = （j + 1） （j + 1） = m End If Next j, i
15、Loop 程序运行的结果和实验要求的一样。对于将数组显示在文本框里，我认为和在列表框里差不多。只不过用“&”并运用vbcrlf就可实现文本框的多行显示，当然还可设置滚动条。 通过本次实验，我初步掌握了一维数组的操作，也对前面的内容进行了很好的复习！ 2008 年 3 月 30 日实验八 二维数组的操作1掌握二维数组的定义和引用方法。2掌握矩阵的输出和操作方法。3. 掌握主对角线和副对角线上元素的位置特征。1、单击“开始”按钮，随机产生一个55矩阵（每个元素为两位数的正整数），并显示在图片框Picture1中；2、选择“主对角线之和”单选按钮，则将矩阵主对角线（左上元至右下元）元素之和显示在文本
16、框Text1中；3、 选择“副对角线之和”单选按钮。则将矩阵副对角线（右上元至左下元）元素之和显示在文本框Text1中。 Dim a（5, 5） As Integer s = 0 For i = 1 To 5 For j = 1 To 5 x = Int（Rnd * 90） + 10 a（i, j） = x x; If i = j Then s = s + a（i, j） If i + j = 6 Then t = t + a（i, j） If = True Then Text1 = t程序运行的结果和实验的要求基本一样。对于只求周边的几个数的在和，只需在最后的计算和的时候把代码改成如下就可以了 For i = 1 to 5 For j = 1 to 5 If i=1 or i= 5 or j= 1 or j= 5 then s = s + a（i,j）next jnext i 通过这次实验，我对以前的只是有了一个很好的复习，对循环的结构有了更进一步的认识，同时也掌握了新的知识，使我受益匪浅。 2008年 4 月 6 日实验九 Sub子过程
