vb实验教案_vb实验教案

2020-02-28 教案模板下载本文

vb实验教案由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb实验教案”。

实验一 VB集成开发环境和简单程序设计

一、本次课主要内容

1．练习Visual Basic6.0的安装与重新安装。2．启动和退出Visual Basic 6.0。3．认识VB6.0的工作界面。

4．编写显示“欢迎使用Visual Basic6.0”的窗体程序。

P 1 5．按照Visual Basic编写程序的基本步骤建立一个用于“商品销售计划”的窗体程序。

二、教学目的与要求 1．熟悉VB6.0的安装；

2．学习怎样启动和退出Visual Basic；

3．熟悉Visual Basic的工作环境，为以后的程序设计作好准备； 4．理解Visual Basic中对象和类的概念。5．学习用属性窗口设置对象属性的方法。

6．初步学习在代码编辑器中输入程序代码的基本操作。7．基本掌握用Visual Basic编写程序的基本步骤。8．了解Visual Basic联机帮助的使用方法。

三、教学重点难点 VB语言程序的上机步骤

四、教学方法和手段实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验2。

实验一 VB集成开发环境和简单程序设计

1． Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，如何操作？

2．如何使各窗口显示或不显示？ 3．如何对工具箱添加选项卡？

4．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？

5．在窗体上画一个命令按钮，然后通过属性窗口设置下列属性： Caption：这是命令按钮 Font：宋体粗体三号 Visible：False Style：1-Graphical6、参考实验教材“实验一”和“实验二”的实验过程编写程序。

P 2

教学后记：

实验二顺序结构程序设计

一、本次课主要内容

1.实验Visual Basic中三种除法运算符（/、、Mod）的区别。2．掌握表达式的书写，并能阅读出表达式的运行结果。3．设计一个简单的计数器。

二、教学目的与要求

1．掌握Visual Basic数据类型的基本概念。2．掌握变量，常量的定义规则。

3．掌握Visual Basic各种运算符的功能及表达式的构成和求值方法。4．掌握Visual Basic的基本语句。

三、教学重点难点

VB的各种运算符的功能及表达式的构成四、教学方法和手段实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验3。

P 3

实验二顺序结构程序设计

1．实验Visual Basic中三种除法运算符（/、、Mod）的区别。按以下步骤执行：

P 4（1）在窗体上画5个标签、5个文本框和一个命令按钮。5个标签的标题分别为：“被除数”、“除数”、“浮点除（/）”、“整数除（）”和“余数除（Mod）”，把5个文本框清为空白，把命令按钮的标题设置为“执行除法运算”，如图6所示。

图6

除法运算符实验（界面设计）

（2）编写命令按钮的事件过程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或单击工具栏上的“启动”按钮运行程序，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结

果。例如，在第一、第二个文本框中分别输入124和3，然后单击命令按钮，结果如图7所示。

P 5

图7

除法运算符试验（运行情况）

2．先用手工计算下列表达式的值，然后在立即窗口中试验这些表达式的输出结果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工计算，再上机验证。

教学后记：

P 6

实验三选择结构程序设计

一、本次课主要内容

1．编程求解一元二次方程的根。

2．按要求编写程序实现税务部门征收所得税的纳税金额。

二、教学目的与要求

1.掌握逻辑表达式的正确书写形式。2.掌握单分支与多分支语句的使用。3.熟悉“选择”结构程序设计。

三、教学重点难点

逻辑表达式的正确书写形式

四、教学方法和手段实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验4。

P 7

实验三选择结构程序设计

1．求解一元二次方程的根。

2．税务部门征收所得税，规定如下：（1）收入在800元以内，免征；

（2）收入在800~1000元以内，超过200元的部分纳税5%；（3）收入在1000~2000元以内，超过1000元的部分，纳税8%；（4）当收入达到2000元或超过时，纳税10%；编程实现上述操作。（1）编写程序代码：

（2）程序运行

程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。例如输入1560，运行情况如图30所示。

P 8

图30 纳税运行情况

3．输入x、y、z三个数，按从大到小的次序显示。要求：对输入数据应有测试手段，可以通过IsNumeric函数对文本框中的数进行测试。若输入的数有非数字字符，显示“不能转换成数值”，提示再输入。当输入的三个数全部都是数字字符后再转换成数值型，然后进行大小比较。

4．某市公用电话收费标准如下：市话通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7:00-19:00之间通话者，按上述收费标准全价收费；在其他时间通话者一律接收费标准的半价收费。试计算某人在T时间通话S分钟，应缴多少电话费。

5．设在窗体上已经建立一个文本框Text1，两个命令按钮Commmand1和Command2，说明执行以下语句后，各控件将显示什么内容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的输出是什么？

（1）If(2 * 2 = 5)= 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教学后记：

实验四循环结构程序设计

P 10

一、本次课主要内容 1．计算阶乘。

2．编程实现勾股定理中三个数的关系是a2＋b2 = c2。3．编程求完全数。

二、教学目的与要求

1.熟悉分支转移结构程序设计，灵活使用有关语句。2.熟悉循环结构程序设计，灵活使用各种循环语句。3.能够正确阅读嵌套循环，及正确使用嵌套循环。

三、教学重点难点

循环结构程序设计及相关语句的用法

四、教学方法和手段实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验5。

实验四循环结构程序设计

P 11 1.计算阶乘

2．勾股定理中三个数的关系是a2＋b2 = c2。编写程序，输出30以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

（1）编写程序

（2）程序运行后，单击窗体，将输出30以内满足关系的整数a，b，c的组合，同时显示相应的a*a，b*b，c*c，结果如图36所示。

图36

程序执行结果

3．如果一个数的因子（不包括本身）之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一个完全数。试编写一个程序，从键盘上输出正整数N和M，输出N和M之间的所有完全数。

程序如下：

程序运行后，单击窗体，在两个输入对话框中分别输入N 和M的值，即可输出N和M之间的“完全数”。假定输入的N和M的值分别为2和1000，则结果如图37所示。

P 12

程序执行结果

4．编程计算由下列公式确定的s值，其中n是用户输入的正整数，注意选用合适的变量类型。

（1）s = 12 + 22 + 32 + „ + n2（2）s = 11×22×33×„×nn（3）s = 1 + 1×2 + 1×2×3 + „ + 1×2×3×„×n 5．用While„Wend语句计算2n，请尝试用不同形式的Do„Loop语句和For„Next语句重写该程序。

教学后记：

实验五 VB的常用控件

一、本次课主要内容

1．设置文本框Text1中内容的字体、字型和颜色。

2．如果单击“添加”按钮，就将在文本框和组合框中输入或选择的内容插入空格后连接成一个字符串添加到List1中；如果单击“去除”按钮，就将List1中选中的项删除；如果单击“清空”按钮，就将List1中所有的项目全部删除。

3．将定时器计时开始后度过的总秒数换算为时、分、秒(取2位小数)显示。4．将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图片框的AutoSize属性，决定图片框是否自动改变大小以显示全部图形；将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图像框的Stretcch属性，决定图形是否自动缩放以适应图像框大小。

二、教学目的与要求

1.掌握单选按钮、复选框和框架的使用方法。2.掌握列表框控件和组合框控件的使用方法。3.掌握时钟控件的使用方法。

4.掌握图片框控件和图像框控件的使用方法。

三、教学重点难点常用控件的使用方法

四、教学方法和手段实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验6。

P 13

P 14

实验五 VB的常用控件

1．设计界面（程序一到四）2．设置属性 3．编写程序代码 4.调试运行第一题：

运行结果：

第二题：

运行结果：

P 15

第四题：

运行结果：

5.利用时钟控件和图像控件编写一个自动红绿灯模拟程序。要求在晚上21:00到早晨7:00全亮，其余时间红、黄、绿灯自动切换。

教学后记：

实验六数组

一、本次课主要内容

1.定义一个固定大小的一维数组，并为数组元素赋值，最后将数组元素输出到窗体上。

P 16 2.请编写程序，完成将一个6×8的矩阵分别按行和列的顺序放到一维数组中。3.随机产生10个数，按升序（降序）排列输出

二、教学目的与要求 1.掌握数组的基本概念。2.掌握数组的声明、应用。3.掌握控件数组。

4.掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。

三、教学重点难点

利用数组解决与数组相关的常用算法

四、教学方法和手段实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验7。

实验六数组

第一题：

P 17

Dim a(0 To 9)As Integer '定义一个大小为10的整形数组 '数组赋值命令按钮事件过程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“请输入数组元素” & i + 1 & “/” & “10”, “数组赋值”))Next i End Sub '显示数组元素命令按钮事件过程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二题： Option Base 1 Dim a%(6, 8), b%(), c%()'定义一个二维数组(6x8)和两个动态数组 '将二维数组按行存储到一维数组b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “” '将按行存放后的一维数组b的元素显示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), “@@@@”)Next i End Sub '将二维数组按列存储到一维数组c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = “” '将按列存放后的一维数组c的元素显示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), “@@@@”)Next i End Sub '窗体载入事件过程 Private Sub Form_Load()Text1.Text = “”: Text2.Text = “”: Text3.Text = “” '二维数组初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox “输入的三条边不能构成一个三角形！” Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二题：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三题：

Private Function prime(x)As Boolean If x

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教学后记：

P 24

P 25

实验八等级考试专题及考查

一、本次课主要内容

进行一次等级考试的模拟测试。

二、教学目的与要求

1.熟悉等级考试中程序题的答题过程。