第四篇程序设计基础

1、第四章 程序设计基础教学目的及要求： 使学生掌握顺序结构、分支结构、循环结构的语法规则和具体应用，程序调试的步骤和 方法。重点与难点：1、熟练掌握表达式、赋值语句及逻辑表达式等的书写约定2、掌握InputBox和MsgBox函数的用法3、掌握单分支和多分支条件语句4、熟练掌握 For 语句和 While 语句的使用5、难点是多重循环的程序设计主要外语词汇：context 、prompt 、msgbox、inputbox授课内容：1、三种基本结构：顺序结构、选择结构、循环结构2、流程图：（1）传统的流程图（2）N-S 流程图第一节 顺序结构程序设计 特点：按书写时的顺序依次执行。一、VB中的语句

2、及书写约定：1、自动语法检测 格式化处理 续行符：下划线，一条语句写在多行上。下划线与其前面的字符之间至少要有一个空格。 复合语句行：冒号，多条语句写在一行上。、赋值语句：1、 可以给一个变量或某一个对象的属性赋值。 格式 1： 格式 2：2、3、4、变量名 = 表达式 对象名 . 属性名 = 属性值 若省略对象名，则默认是当前窗体。 从右向左赋值。方向性：2、最终的结果是最后一次的赋值。3、数据类型要匹配，注意相容现象：（1）逻辑型 - 数值型： True - -1 ，False - 0 数值型 - 逻辑型：非 0 - True ，0 - False（2）实型 - 整型：四舍五入原则，不是去

3、尾原则 整型 - 实型：扩展小数位数 4、不管表达式是什么数据类型，都可以赋给一个 Variant 变量。 5、系统提供的默认初始值： （1）数值型： （4）逻辑型： （6）可变型：FalseEmpty2）货币型： 0（5）日期型：（ 7）对象型：（3）字符型：空字符串0:00:00Nothing6、不能连续赋值： 例： Dim a As Integer,b As Integer,c As Integer a=b=c=1 错误 正确a=1: b=1:c=17、交换两个变量中的数据： 例： a=b:b=a错误t=a:a=b:b=t正确， t 是中间变量注意：VB中的数字和只包含数字的字符串可以方

4、便地互换类型，例:（1）隐式转换：Private Sub Command1_Click（ ） Dim x As Integer,y As String y = “100.23” ： x = y Print x隐式转换End Sub(2)显式转换字符型 - 数值型：Private Sub Command1_Click( )Dim x As IntegerText1.Text = “100.23 ”利用 Val 函数：x = Val(Text1.Text)Print x显式转换End Sub(3)显式转换数值型 - 字符型：Private Sub Command1_Click( )Dim x As

5、 Integerx = 100.23利用 Str 函数：Text1.Text = Str(x)Print Text1.Text显式转换End Sub 三、注释、暂停、结束语句:1 、注释语句:非执行语句( 1 )格式 1 : Rem 注释语句( 2)格式 2:注释语句( 常用 )( 3 )块注释:视图 - 工具栏 - 编辑 - 设置注释块、解除注释块2、暂停语句:格式: Stop暂停程序的运行 ，但不关闭所有已打开的文件，相当于在程序代码中设置断点，主要用于调 试程序。3、结束语句:格式: End 停止程序的运行 ，关闭所有已打开的文件。还可以用来结束一些模块的操作。例: Private Su

6、b Command2_Click( )EndEnd Sub四、输入函数 InputBox ： 在一对话框中显示提示，等待用户输入内容，并返回包含文本框内容的字符串。1、格式：InputBox (prompt , title , default , xpos, ypos , helpfile, context )(1) prompt :对话框的消息提示文字。( 2) title ：对话框的标题，标题省略取默认值“工程 1 ”。(3) default :文本框的默认输入信息。2、InputBox 函数的返回值是字符型的。3、每运行一次 InputBox 函数只能给一个变量赋值。 总结:输入数据的方

7、法:1、2、在程序代码中直接指定: 优点:代码简单 缺点:缺少灵活性 利用 TextBox 文本框输入数据: 优点:可以输入任意值 缺点:要添加多个文本框，界面复杂 利用 InputBox 函数输入数据: 优点:界面简单，可以输入任意值 缺点:代码复杂，参数较多五、消息函数和语句 MsgBox: 在一对话框中显示消息，等待用户单击按钮，并返回包含文本框内容的字符串。3、1、MsgBox函数：（ 1 ）格式： MsgBox （prompt , buttons , title , helpfile, context ） prompt:对话框的消息提示文字。组合值，每组只能取一个数字，数字间用“ +

8、”连接。b）c）d）e） buttons : a）进行相加（只有唯一的分解方式） 。 使用VB常数。（表4-1 ） 方式a）和方式C）可以结合起来使用。 把“ +”换成“ Or”例：3 + 32 + 035 vbYesNoCancel + vbQuestion + vbDefaultButton1 vbYesNoCanCel + 32 + vbDefaultButton1 title :对话框的标题，标题省略取默认值“工程 1”。（2）MsgBox函数的返回值是整型的：1-7 （表4-2）例: Private Sub Form_Load（ ）Dim a As IntegerShowa=MsgB

9、ox（ 请你选择 :,3+32+0,Buttons 参数组合举例 ） If a=6 ThenUnload Form1Form2.ShowEnd IfIf a=7 ThenUnload Form1Form3.ShowEnd IfIf a=2 ThenEndEnd IfEnd Sub2、MsgBox语句： 仅仅用于显示一些简单的信息而不需要返回值。格式： MsgBox prompt , buttons , title , helpfile, Context 参数含义：同上 不用写小括号，没有返回值，可以单独作为一个语句来使用。六、数据输出：Print 方法的缺省输出：从窗体的第 1 行第 1 列开

10、始输出。1、Tab 函数： 格式： Tab（n） ，参数 n 是绝对列数值 。Tab函数与表达式之间用分号分隔。如果当前行的打印位置大于n,则Tab将打印位置移动到下一行的第n列上。 如果 n 小于 1，则 Tab 将打印位置移动到该行的第 1 列。如果n大于输出行的宽度，则Tab函数用以下公式计算下一个打印位置：n Mod行宽。（1）（2）（3）（4）2、Spc函数：格式：Spc（n），参数n是相对列数值。（1）Spc函数与表达式之间用分号分隔。（2）如果 n 小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白之后。（3）如果n大于输出行的宽度，则Spc函数用以下公式计算下一个打印位

11、置：当前打印位置 +（ n Mod 行宽）。3、Space 函数：Print 后面不跟表达式，只输出一行空行。用 Tab、Spc或Space函数调整。格式： Space（n） ，输出 n 个空格 注：Spc函数与Space函数作用相同，但Space函数可以使用字符串运算符&和+。 总结： 输出行的控制：输出列的控制：七、输出到打印机：表达式 1、直接输出： 格式： Printer.Print 只能打印文本信息，不能打印图形图像信息。1。（1）Page属性：用来设置页码，默认缺省值为（2）New Page方法：强制打印机跳到下一页打印。（3）EndDoc方法：用来结束文件的打印。2、窗体输出：

12、格式：窗体JPrintForm 既将信息输出到窗体，又将信息输出到打印机。 预览作用（1）窗体.AutoRedraw=True（2）可以打印窗体上的文本、任何可见的控件及图形信息。附：方法与函数的区别： （1）方法可以单独作为语句使用，函数不可以。（ 2 ）方法没有返回值，函数有返回值。（3）方法的格式： 对象. 方法 参数列表 函数的调用格式：函数名（ 参数列表）(4) 方法是隶属于某一个对象的，函数存在于 VB自带的函数库。双分支结构语句组 1 语句组 1 Else第二节 选择结构程序设计特点：根据指定的条件进行判断，根据判断的结果在两条分支或多条分支路径中选取其中的 一条执行。语句组 2

13、语句组中的多个语句之间用冒号分隔。二、块 If 语句：多行形式， 格式 3： If 条件 Then 语句组 1End If双分支结构格式 4 ：If 条件 Then 语句组 1Else一、行 If 语句：单行形式， 格式 1： If 条件 Then 格式 2： If 条件 Then语句组 2End If1、2、3、4、Else 必须单独一行。IfEnd If必须成对出现。行If语句中不需要End If 。 最好采用缩进形式。如果语句组 1、语句组 2中含有多条语句时，最好使用块 If 语句。三、If 语句的嵌套：多分支结构四、ElseIf 语句：多分支结构格式： If 条件 1 Then语句组

14、 1ElseIf 条件 2 Then语句组 2ElseIf 条件语句组n ThenElse语句组n+1End If1、 VB首先测试条件1,如果它为False, VB就测试条件2,依次类推，直到找到一个为 True 的条件。此时，VB就会执行相应的语句组，然后执行 End If后面的语句。2、不能交叉嵌套,只能完全嵌套。3、可以使用任意数量的 ElseIf 语句。4、只有一个 End If 与 If 相对应。例题 4-5 ： 方法If cj = 0 And cj = 60 And cj = 75 And cj = 90 And cj = 90 And cj = 75 ThenPrint 良好E

15、lseIf cj = 60 ThenPrint 及格ElsePrint 不及格 End IfEnd IfEnd If方法三：If cj = 90 And cj = 75 ThenPrint 良好ElseIf cjPrint = 60 Then及格ElsePrint 不及格End If方法四：Select Case cjCase 90 To 100Print“优秀”Case 75 To 89Print“良好”Case 60 To 74Print“及格”Case ElsePrint“不及格”End Select五、多条件选择语句 Select Case格式： Select Case 测试表达式Ca

16、se表达式 1语句组 1Case表达式 2语句组 2Case表达式 n语句组 n Case Else：多分支结构语句组 n+1 End Select复合语句Case表达式Case表达式Case表达式1：语句组2：语句组n语句组：语句组 n+1 改进： Select Case 测试表达式 Case ElseEnd Select1、测试表达式只能是 数值型或字符型 。2、测试表达式只计算一次，然后 VB将表达式的值与结构中的每个 Case的值进行比较，如果 相等，就执行与该Case相关联的语句组。3、如果不止一个Case与测试表达式相匹配，则只对第一个匹配的Case执行与之相关联的语 句组。4、表

17、达式 n 的可能形式：(1)表达式 1, 表达式 2, 表达式 3 无大小顺序。( 2)表达式 1 To 表达式 2 包括表达式 1 和表达式 2 在内。( 3) Is 只能是简单的条件，不能用逻辑运算符将两个或多个条件组合在一起。 以上三种形式可以混合使用。六、条件判断函数 IIf ：双分支结构 格式： IIf( 条件，表达式 1，表达式 2)1、当条件为真时， 函数返回值是表达式 1 的值；当条件为假时， 函数返回值是表达式 2的值。Print IIf(cj=60, “通过” , “不通过” ) 函数可以嵌套使用。Print IIf(a0,-1,IIf(a=0,0,1)例：2、IIf例：总

18、结：1、行 If 语句：双分支结构2、块 If 语句：双分支结构3、If 语句的嵌套：多分支结构4、ElseIf 语句：多分支结构5、多条件选择语句 Select Case ：多分支结构6、条件判断函数 IIf ：双分支结构第三节 循环结构程序设计1、特点：根据给定条件是否满足决定是否继续执行循环体中的操作。 注：避免出现“死循环” 。当程序运行了“死循环”的结构，必须按 Ctrl+Break 中断。2、三种循环结构：(1) ForNext(2) WhileWend(3) Do-Loop3、循环方式：( 1)计数法( 2)标志法一、For循环结构：格式：For循环变量二初值To终值Step 步

19、长循环体Next 循环变量1、缺省步长时，默认是 1。步长可以为正值或为负值。先判断条件，后执行循环体。注：若循环体执行n次，则条件将被判断n+1次。Exit For语句的作用：提前退出循环体，结束循环结构。空循环的作用：延时。For循环一般用在已知循环次数的情况。多重循环：不能交叉嵌套，只能完全嵌套。各层次的循环变量名不能相同。多重循环可以共用一个 Next语句，但此时循环变量名不能省略，并且先内循环变量，后 外循环变量。例：For i=1 To 102、3、4、5、6、7、For j=1 To 15For k=1 To 20循环体Next kNext jNext i二、当型循环 While

20、Wenc结构: 格式：While 条件循环体Wend1、先判断条件，后执行循环体。注：若循环体执行n次，则条件将被判断n+1次。2、 循环体内一定要有改变条件的语句，否则就会导致“死循环”。3、多重循环：不能交叉嵌套，只能完全嵌套。例题4-11 :求两个数的最大公约数。（1）该程序算法：（2）Private Sub Text1_KeyPress（ KeyAscii As Integer）If KeyAscii=13 The n Text2.SetFocusEnd Sub注：CommandButton的Default属性默认是False，该属性设置为True时，说明该按钮是缺 省按钮，按回车键就

21、相当于单击了该按钮。两者不能相互冲突。先判断后执行三、Do Loop循环结构：先执行后判断当 型 循 环Do While 条件循环体Loop与WhileWend结构相同Do循环体Loop While 条件直Do Un till条件Do到循环体循环体型LoopLoo p Un till条件循环1、既可以是当型循环，也可以是直到型循环。2、 While与Un till后面的“条件”总是相反的。3、既可以先判断后执行：若循环体执行n次，则条件将被判断n+1次。也可以先执行后判断：若循环体执行n次，则条件将被判断n次。4、Exit Do语句的作用：提前退出循环体，结束循环结构。 总结：提前退出循环体的

22、方法：(1) For Next :用 Exit For 语句(2) While Wend(3) Do - Loop:用 Exit Do 语句Page 79： i=1Do While i2000 ThenExit DoEnd Ifi=i+2Loop例题4-10 :方法一：用For循环结构For i=1 To 9X & i & = & j*i；For j=1 To iPrint Tab(j*8);j & Next jPrintNext i方法二：用 WhileWenc循环结构 i=1While i=9j=1X & i & = & j*i；While j=iPrint Tab(j*8)；j & j=j+1WencPrinti=i+1Wenc方法三：用D