选修教材(VB模块)第七节--程序设计教案之二(2课时).doc

程序设计教案之 二一、教学目的1 学会使用Let语句给变量提供数据。2 学会使用InputBox函数输入数据。3 学会使用Print方法输出数据。4 初步学会通过设计程序解决问题的方法。二、知识准备1 常量、变量、表达式及标准函数的知识。2 Let语句。3 数据输入函数InputBox。4 数据输出方法Print。5 调试程序。 设计的程序可能会出现错误。尤其对于初学者来说，出错的机会更多。因此，应养成上机前设计好界面，编制好代码，并在纸面上仔细检查（称为“静态检查”）无误后才上机操作的习惯。 程序的错误通常分为三类：编译错误、运行错误、逻辑错误。 编译错误：编译错误是由于不正确构造代码而产生的。如输错了关键字、遗漏了某些必需的标点符号、括号不匹配等，Visual Basic 在编译程序时会检测到这些错误。编译错误还包括语法错误。例如，可以在一个程序行中定义多个变量，各个变量之间用逗号分隔，如果用分号分隔，这样的错误就属于语法错误。图6-6为便于发现这样的语法错误，可以选定“自动语法检测(K)”选项，方法如下：选择“工具(T)”菜单中的“选项(O)”命令，出现“选项”对话框，单击其中的“编辑器”标签，然后选定该标签中的“自动语法检测(K)”选项。 选定“自动语法检测(K)”选项后，只要在“代码”窗口中存在一个语法错误，Visual Basic 就会立即显示出如图6-6所示的错误消息，同时将错误代码行以红色显示。图6-7 运行错误：运行错误是指程序在运行期间发生的错误，例如有这样一个语句：c=a / b，如果变量 b的值为零，除法就是无效操作。尽管这个语句本身的语法是正确的，但在程序运行过程中就会发生错误，出现如图6-7所示的对话框。第一行显示运行错误代号，第二行显示出错信息说明，在窗口的下方给出了如何处理错误的按钮。 逻辑错误：当程序未按预期算法执行时就会产生逻辑错误。如果程序的代码是正确的，没有语法错误，运行时也未执行无效操作，但还是得不到正确的结果。如把c=a/b输成c=ab，这样的错误就是逻辑错误。通常情况下，逻辑错误不会产生错误提示信息，较难排除，只有通过仔细阅读分析、测试程序和分析产生的结果才能检验出来。调试程序、排除错误的能力，需要不断从上机教学中去锻锻炼才能形成。三、内容及步骤1运行下列程序，观察运行结果，分析有关语句及函数的功能。 Private Sub Form_Click() Print 123 + 627 Print Visual + Basic Print Sqr(144) Print 64 + Abs(-5) Print Int(3.14), Int(3.64 + 0.5), Int(-3.14) Print Log(100) / Log(10), Exp(2) Print Sgn(169), Sgn(0), Sgn(-10) Print Sin(30 * 3.14159 / 180), Cos(30 * 3.14159 / 180) End Sub Private Sub Form_Click() Dim a As Single Dim b As Single Dim c As Single Dim d As Single a = 2: b = 10: c = 4.8 + 0.2 d = (a + 2) (b / c) Print a, b, c, d Print a, b, c, d d = d / a * b c = -(d / b + a) Print a, b, c, d End Sub Private Sub Form_Click() Dim x As Integer Dim y As Integer x = 6: y = -7 Print x, y x = x + 1: y = y + 3 Print x; y End Sub Private Sub Form_Click() Print Computer; Print Program Print Print Visual, Print Basic End Sub Private Sub Form_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 6: b = -4 Print a=; a, b=; b c = a: a = b: b = c Print a=; a, b=; b End Sub 如图6-8所示，已知小正方形的边长为15.6cm，大正方形的边长为65.8cm，请设计一个界面如图6-9所示的程序，计算阴影部分的面积。图6-8 图6-9要求：写出完成本程序界面需要设置的对象名和属性，并编写有关控件的事件过程。缺省的对象名设置的对象名属性设置值 已知球的半径为r，设计程序计算球的全面积s和体积v。计算公式为s=4r2，。要求： 球的半径使用InputBox函数输入，计算结果使用Print方法输出。 代码放在窗体的Click事件过程中。四、思考题 在Visual B