VB教案市公开课获奖课件省名师优质课赛课一等奖课件.ppt

Visual BasicVisual Basic程序设计程序设计1/801 1第第1 1章章 Visual Basic Visual Basic程序设计概述程序设计概述第第2 2章章 VB VB可视化编程基础可视化编程基础第第3 3章章 VB VB语言基础语言基础第第4 4章章 VB VB控制结构控制结构第第5 5章章 数组数组和自定义类型和自定义类型第第6 6章章 过过 程程第第7 7章章 用户界面设计用户界面设计第第8 8章章 数据文件数据文件第第9 9章章 图形操作图形操作第第1010章章 数据库应用基础数据库应用基础目目 录录2/802 2第第4 4章章 VB VB控制结构控制结构4.1 次序结构次序结构4.2 选择结构选择结构4.3 循环结构循环结构4.4 其它辅助控制语句其它辅助控制语句4.5 综合应用综合应用4.6 程序调试程序调试3/803 34.1 次序结构次序结构 VB含含有有结结构构化化程程序序设设计计三三种种结结构构，即即次次序序结结构构、选择结构选择结构、循环结构循环结构，是程序设计基础。，是程序设计基础。次序结构就是各语句按出现先后次序执行。次序结构就是各语句按出现先后次序执行。普普通通程程序序设设计计语语言言中中，次次序序结结构构语语句句主主要要是是赋赋值值语句、输入语句、输入/输出语句等。输出语句等。在在VB中中也也有有赋赋值值语语句句；而而输输入入/输输出出能能够够经经过过文文本本 框框 控控 件件、标标 签签 控控 件件、InputBox函函 数数、MsgBox函数和过程等来实现。函数和过程等来实现。本章目录本章目录4/804 44.1.1 赋值语句赋值语句 形式：形式：变量名表示式变量名表示式计算右边表示式值，然后赋给左边变量。计算右边表示式值，然后赋给左边变量。给给变变量量赋赋值值和和设设定定属属性性是是VB编编程程中中常常见见两两个个任任务。务。比如：比如：n=n+1 计数累加计数累加 Text1.Text 去除文本框内容去除文本框内容 Text1.Text 欢迎使用欢迎使用VB 文本框显示字符串文本框显示字符串 本章目录本章目录5/805 54.1.1 赋值语句赋值语句 注意：注意：当表示式类型与变量类型不一致时当表示式类型与变量类型不一致时,强制转换强制转换成左边精度成左边精度 iA%=10 /3 iA中结果为中结果为3 本章目录本章目录6/806 6赋值语句注意点赋值语句注意点 赋值语句不允许写成赋值语句不允许写成 表示式变量表示式变量，即使赋，即使赋值号与关系运算符等于号都用值号与关系运算符等于号都用=表示，表示，VB系统系统会依据所处位置自动判断符号意义。会依据所处位置自动判断符号意义。赋值号左边变量只能是变量，不能是常量、赋值号左边变量只能是变量，不能是常量、常数符号、表示式。下面均为常数符号、表示式。下面均为错误错误赋值语句：赋值语句：Now()=x+y 左边是表示式左边是表示式(函数函数)5=sqr(s)+x+y 左边是常量左边是常量本章目录本章目录7/807 7InputBox函数函数 打开一个对话框，等候用户输入，返回字符串类型输入值。打开一个对话框，等候用户输入，返回字符串类型输入值。形形式式：InputBox(提提醒醒,标标题题,默默认认值值,x坐坐标标位位置置,y坐坐标标位位置置)在在VB 6.0中，函数返回数据类型是字符类型。中，函数返回数据类型是字符类型。“提醒提醒”：不能省略该项：不能省略该项。字符串表示式，在对话框中作为信。字符串表示式，在对话框中作为信息显示，可为汉字，若要在多行显示，必须在每行行末加回车息显示，可为汉字，若要在多行显示，必须在每行行末加回车Chr(13)和换行和换行Chr(10)控制符。控制符。“标题标题”：字符串表示式，在对话框标题区显示；若省略，则字符串表示式，在对话框标题区显示；若省略，则把应用程序名放入标题栏中。把应用程序名放入标题栏中。“缺省缺省”：字符串表示式，当在输入对话框中无输入时，则该字符串表示式，当在输入对话框中无输入时，则该缺省值作为输入内容。缺省值作为输入内容。“x坐标位置坐标位置”、“y坐标位置坐标位置”：整型表示式，坐标确定对话整型表示式，坐标确定对话框左上角在屏幕上位置，屏幕左上角为坐标原点，单位为框左上角在屏幕上位置，屏幕左上角为坐标原点，单位为Twip。4.1.2 数据输出和输入数据输出和输入本章目录本章目录8/808 8InputBox函数函数 若若要要多多行行提提醒醒，可可在在每每行行行行末末加加回回车车换换行行vbCrLf。例例4.14.1利利用用InputBoxInputBox输输入入基基本本工工资资和和营营业业额额，按按营业额营业额5%5%分成，计算实发工资并显示。分成，计算实发工资并显示。4.1.2 数据输出和输入数据输出和输入本章目录本章目录9/809 9打开一个信息框，等候用户选择一个按按钮。打开一个信息框，等候用户选择一个按按钮。MsgBox函函数数返返回回所所选选按按钮钮值值，MsgBox过过程程不返回值不返回值MsgBox函数形式：函数形式：变量变量%=MsgBox(提醒提醒,按钮按钮,标题标题)MsgBox过程形式：过程形式：MsgBox 提醒提醒,按钮按钮,标题标题 按按钮钮项项是是一一整整型型表表示示式式，决决定定信信息息框框按按钮钮数数目目和类型及出现在信息框上图标形式。和类型及出现在信息框上图标形式。MsgBox函数和函数和MsgBox过程过程 本章目录本章目录10/801010MsgBox按钮设置按钮设置 第第3个按钮为默认个按钮为默认512VBDefaultButton3第第2个按钮为默认个按钮为默认 56VBDefaultButton2第第1个按钮为默认个按钮为默认 0VBDefaultButton1默认默认按钮按钮 信息图标信息图标 64VBInformation警告信息图标警告信息图标 48VBExclamation问询信息图标问询信息图标 32VBQuestion关键信息图标关键信息图标 16VBCritical图标图标类型类型 重试、取消按钮重试、取消按钮 5VBRetryCancel是、否按钮是、否按钮 4VBYesNo是、否、取消按钮是、否、取消按钮 3VBYesNoCancel终止、重试、忽略按钮终止、重试、忽略按钮 2VBAboutRetryIgnore确定、取消按钮确定、取消按钮 1VBOkCancel确定按钮确定按钮 0VBOkOnly按钮按钮数目数目 描描 述述值值内内 部部 常常 数数分组分组 本章目录本章目录11/801111MsgBox所选按钮返回值所选按钮返回值 本章目录本章目录内部常数内部常数返回返回值值被单击按钮vbOk1确定确定vbCancel2取消取消vbAbort3终终止止vbRetry4重重试试vbIgnore5忽略忽略vbYes6是是vbNo7否否 MsgBox作用是打开一个信息框，等候用户选择一个按钮。作用是打开一个信息框，等候用户选择一个按钮。MsgBox函数返回所选按钮整数值意义函数返回所选按钮整数值意义 12/801212例例4.2 编一账号和密码输入检验程序，编一账号和密码输入检验程序，要求要求:帐号不超出帐号不超出6位数字位数字,有错有错,去除原内容再输入去除原内容再输入.密码输入时在屏幕上以密码输入时在屏幕上以“*”代替代替;若密码错，显示若密码错，显示相关信息，选择相关信息，选择“重试重试”按钮，去除原内容再输入，选择按钮，去除原内容再输入，选择“取消取消”按钮，停顿运行。按钮，停顿运行。本章目录本章目录13/801313例例4.2 编一账号和密码输入检验程序，编一账号和密码输入检验程序，分析：分析：(1)要使账号不超出要使账号不超出6位数字，只要在文本框位数字，只要在文本框MaxLength属性设置为属性设置为6；当输入结束，按；当输入结束，按Tab键时，键时，引发引发lostFocus事件，判断账号输入正确性。犯错，显事件，判断账号输入正确性。犯错，显示犯错信息，再输入。示犯错信息，再输入。(2)密码密码4位字符，要使输入密码文本输入框在输入位字符，要使输入密码文本输入框在输入每一个字符时显示每一个字符时显示“*”，只需将该文本框，只需将该文本框PasswordChar属性设置为属性设置为“*”，同时要将文本框置，同时要将文本框置初值空；当输入结束，按初值空；当输入结束，按“确定确定”按钮，引发按钮，引发Click事事件，判断密码输入正确性。犯错时显示件，判断密码输入正确性。犯错时显示“重试重试”和和“取消取消”，按钮值取，按钮值取5或或vbRetryCancel，要显示感叹号，要显示感叹号，取按钮值取按钮值48或或vbExclamation。本章目录本章目录14/801414本章目录本章目录默默认认控控件名件名设置控件名(Name)标题标题(Captio(Caption)n)文文 本本(Text)(Text)边边 框框(BorderSty(BorderStyle)le)其它属性Label1Label1LblNoLblNo账账号号无定无定义义1 1Label2Label2LblPasLblPas密密码码无定无定义义1 1Text1Text1TxtNoTxtNo无定无定义义空白空白1 1MaxLength=6MaxLength=6Text2Text2TxtPasTxtPas无定无定义义空白空白1 1MaxLength=4 MaxLength=4 PasswordCPasswordChar=*har=*CommandCommand1 1CmdOkCmdOk确定确定无定无定义义无定无定义义15/801515Print方法方法作用作用:在对象上输出信息。在对象上输出信息。对象对象.PrintSpc(Spc(n n)|Tab()|Tab(n n)输出列表输出列表;|,;|,对象：窗体、图形框或打印机。对象：窗体、图形框或打印机。缺省为窗体。缺省为窗体。v输出项输出项缺省则打印一空白行缺省则打印一空白行Spc(n n)函数：从当前位置起空函数：从当前位置起空n n个空格个空格Tab(n n)函数：从最左端开始计算第函数：从最左端开始计算第n n列列 输出项之间可用分号或逗号分隔：使用分输出项之间可用分号或逗号分隔：使用分号，其后输出项紧接着前一个输出项输出；号，其后输出项紧接着前一个输出项输出；使用逗号，其后输出项在下一个输出区输出。使用逗号，其后输出项在下一个输出区输出。两个输出区默认相隔两个输出区默认相隔14列列 PrintPrint语句尾无分号或逗号，输出后换行语句尾无分号或逗号，输出后换行16/801616Print方法方法例例4.3 4.3 PrintPrint方法输出图形方法输出图形 Private Sub Form_Click()Print 空一行空一行 For i=1 To 5 显示有规律显示有规律5行行 Print Tab(i);String(6-i,);Spc(6);String(i,)Next iEnd Sub17/801717Print方法方法 注意：注意：(1)Spc函数与函数作用类似，能够相互替换。但函数与函数作用类似，能够相互替换。但Tab函数从对象左端开始记数，而函数从对象左端开始记数，而Spc函数表示两函数表示两个输出项之间间隔。个输出项之间间隔。表示式列表开始打印位置是由对象表示式列表开始打印位置是由对象CurrentX和和CurrentY属性决定，缺省为打印对象左上角属性决定，缺省为打印对象左上角0，0。若若Tab（i）中）中i值大于当前位置值即值大于当前位置值即CurrentX值，值，则重新定位与下一行则重新定位与下一行i列。列。（2）Print方法在方法在Form_Load事件过程中不起作用，事件过程中不起作用，因为窗体因为窗体autoredraw属性默认为属性默认为false，若设为，若设为ture，就有效果。，就有效果。（3）Print方法不但有输出功效，还有计算功效，方法不但有输出功效，还有计算功效，即先计算后输出。即先计算后输出。18/801818Format格式输出函数格式输出函数 形式：形式：Format(表示式表示式,格式字符串格式字符串)惯用数值格式化符及举例惯用数值格式化符及举例 1.23E-010.00E+001234.567用指数表示用指数表示E+$1234.57$#.#1234.567在数字前强加在数字前强加123456.7%#.#%1234.567数值乘以数值乘以100，加百分号，加百分号%1,234.567#,#0.0001234.567千分位千分位，1234.567#.#1234.567位置不足时不填充位置不足时不填充0#01234.567000000.00001234.567用用0填充不足位置填充不足位置0显示结果显示结果格式字符串格式字符串表示式表示式作作 用用符号符号例例4.4 利用利用Format函数显示数值。函数显示数值。19/801919Format格式输出函数格式输出函数 说明：说明：对于符号对于符号0与与#，相同：若要显示数值表示式，相同：若要显示数值表示式整数部分位数多于格式字符串位数，按实际数值显整数部分位数多于格式字符串位数，按实际数值显示，若小数部分位数多于格式字符串位数，按四舍示，若小数部分位数多于格式字符串位数，按四舍五入显示五入显示不一样：不一样：“0”按其要求位数显示，按其要求位数显示，#对于整数前对于整数前0和小数点后和小数点后0不显示不显示 注意：注意：在在print方法中，可用方法中，可用“，”“；”分割，分割，也能够用也能够用&或或+号连接号连接 20/802020Format格式输出函数格式输出函数 形式：形式：Format(表示式表示式,格式字符串格式字符串)惯用数值格式化符及举例惯用数值格式化符及举例 21/8021214.2 选择结构选择结构 计计算算机机要要处处理理问问题题往往往往是是复复杂杂多多变变，仅仅采采取取次次序序结结构构是是不不够够。必必须须利利用用选选择择结结构构等等来来处处理实际应用中各种问题。理实际应用中各种问题。VB中中提提供供了了各各种种形形式式条条件件语语句句来来实实现现选选择择结结构，有构，有If条件语句和条件语句和Select情况语句等。情况语句等。它它们们都都是是对对条条件件进进行行判判断断，依依据据判判断断结结果果，选择执行不一样分支。选择执行不一样分支。本章目录本章目录22/8022224.2.1 If条件语句条件语句 本章目录本章目录1单分支条件结构（If.Then语句）2双分支结构（If.Then.Else语句）3多分支结构（IfThenElseIf语句）4If语句嵌套23/8023234.2.1 If条件语句条件语句 1.IfThen语句语句(单分支结构单分支结构)If Then 语句块语句块（能够是一句或多句语句）（能够是一句或多句语句）End If或或 If Then 表示式：关系表示式、逻辑表示式，算术表示式。表示式：关系表示式、逻辑表示式，算术表示式。表示式值按非零为表示式值按非零为True，零为，零为False进行判断。进行判断。该该语语句句作作用用是是当当表表示示式式值值为为True，执执行行Then后后面面语语句块，不然不做任何操作。句块，不然不做任何操作。本章目录本章目录IF演示演示24/802424单分支结构单分支结构 例：例：已知两个数已知两个数x x和和y y，比较它们大小，使得，比较它们大小，使得x x大大于于y y。If xy Then t=x x=y y=t End If 或或 If xy Then t=x:x=y:y=t 简单简单IfIf形式无形式无End IfEnd If时，只能是一句语句或语句间用时，只能是一句语句或语句间用冒号分隔，而且必须在一行上书写。冒号分隔，而且必须在一行上书写。本章目录本章目录25/802525双分支结构双分支结构2.IfThenElse语句语句If 表示式表示式 Then语句块语句块1Else语句块语句块2End If或或 If 表示式表示式 Then 语句语句1 Else 语句语句2 当当表表示示式式值值为为True时时，执执行行Then后后面面语语句句块块1，不然执行，不然执行Else后面语句块后面语句块2 本章目录本章目录26/802626双分支结构例双分支结构例计算分段函数计算分段函数 单分支单分支 y=cos(x)x3+3*x 结构实现结构实现 If x0 Then y=sin(x)+sqrt(x*x+1)考虑若将上面考虑若将上面(1)一条单分支语句改动一下次序，一条单分支语句改动一下次序，即即 If x0 Then y=sin(x)+sqr(x*x+1)y=cos(x)+X3+3*X 能否实现分段函数计算能否实现分段函数计算?为何为何?(不能不能)本章目录本章目录27/802727双分支结构例双分支结构例计算分段函数计算分段函数 If x0 Then 双分支双分支 y=sin(x)+sqr(x*x+1)Else结构实现结构实现 y=cos(x)x3+3*x End If本章目录本章目录28/802828双分支结构例双分支结构例本章目录本章目录比如：输出比如：输出x,y两个中值较大一个值。两个中值较大一个值。IF XY Then Print XElse Print YEnd If也能够写成以下单行形式：也能够写成以下单行形式：IF XY Then Print X Else Print Y29/802929多分支结构多分支结构 3.IfThenElseIf 语句语句 If 表示式表示式1 Then 语句块语句块1 ElseIf 表示式表示式2 Then 语句块语句块2 Else 语句块语句块 n+1 End If作用：依据不一样表示式值确定执行哪个语句块作用：依据不一样表示式值确定执行哪个语句块 本章目录本章目录30/803030例例4.7 4.7 已知变量已知变量chch中存放了一个字符，判断该字符是中存放了一个字符，判断该字符是字母字符、数字字符还是其它字符。字母字符、数字字符还是其它字符。If UCase(ch)=A And UCase(ch)=0 And ch=90 thenPrint 优异优异 ElseIf x=80 ThenPrint 良好良好 ElseIf x=70 ThenPrint 中等中等 ElseIf x=60 ThenPrint 及格及格 ElsePrint 不及格不及格End If32/803232例：大学录用新生时，依据学生总分情况给与奖励，条件以下：（1）四门总分不低于700分，特等奖。（2）四门总分680分（含680分）700分（不含700分），优异奖。（3）前三门单科不低于145分，第四门不低于280分），尤其奖。（4）奖励按特等奖、优异奖、尤其奖由高到低，不重复计奖（包含单科）。要求：四科成绩（intmark1、intmark2、intmark3、intmark4）依次在四个文本框中输入，总分（intmark0）在标签控件上显示。单击命令按钮Command1后，在对话框中显示获奖情况。分析：获奖条件表示式分别为：（1）intmark0=700（2）intmark0=680 AND intmark0=145 OR intmark2=145 OR intmark3=145 OR intmark4=280设计步骤以下：（1）建立应用程序用户界面按如图4-19建立四个文本框（Text1Text4）接收成绩输入，两个标签控件（Label1Label2），一个命令按钮Command1，设置各控件属性，其中Command1Caption属性值为“查询”。33/803333应用程序运行情况34/803434（2）编写程序代码）编写程序代码依据流程图，编写出依据流程图，编写出Command_click事件代码为：事件代码为：Private Sub Command1_Click()Dim intmark0 As Integer,intmark1 As Integer Dim intmark2 As Integer,intmark3 As Integer,intmark4 As Integer intmark1=CInt(Text1.Text)intmark2=CInt(Text2.Text)intmark3=CInt(Text3.Text)intmark4=CInt(Text4.Text)intmark0=intmark1+intmark2+intmark3+intmark4 Label3.Caption=intmark0 If intmark0=700 Then MsgBox 您取得了特等奖您取得了特等奖,vbOKOnly+vbInformation,获奖通知获奖通知 ElseIf intmark0=680 Then MsgBox 您取得了优异奖您取得了优异奖,vbOKOnly+vbInformation,获奖通知获奖通知 ElseIf intmark1=145 Or intmark2=145 Or intmark3=145 Or intmark4=280 Then MsgBox 您取得了尤其奖您取得了尤其奖,vbOKOnly+vbInformation,获奖通知获奖通知 Else MsgBox 很遗憾，您没有获奖很遗憾，您没有获奖,vbOKOnly+vbInformation,获奖通知获奖通知 End IfEnd Sub35/803535If语句嵌套是指语句嵌套是指If或或Else后面语句块中又包含后面语句块中又包含If语语If 表示式表示式1 Then If 表示式表示式2 Then End If End IfIf xy Then t=x:x=y:y=t If yz Then t=y:y=z:z=t If xyz用一个用一个IF语句和一个嵌套语句和一个嵌套IF语句实现语句实现本章目录本章目录36/803636If语句嵌套注意事语句嵌套注意事项：项：书写锯齿型；书写锯齿型；If 与与End If配对；配对；多个多个If嵌套，嵌套，End If与它最靠近与它最靠近End If配对。配对。If语句嵌套语句嵌套 37/8037374.2.2 Select Case语句语句 Select Case 变量或表示式变量或表示式 Case 表示式列表表示式列表1 1 语句块语句块1 Case 表示式列表表示式列表2 2 语句块语句块2 Case Else 语句块语句块n+1End Select表示式列表表示式列表与与变量或表示式变量或表示式类型必须类型必须相同，是下面相同，是下面4 4种形式之一种形式之一：表示式表示式 例例:A一组用逗号分隔枚举一组用逗号分隔枚举值值 2,4,6,8 表示式表示式1 To 表示式表示式2 60 To 100Is 关系运算符表示式关系运算符表示式 Is 10 表示测试表示式值为表示测试表示式值为2,4,6,8或大于或大于10 该语句是多分支结构另一个表示形式，其作用是依据该语句是多分支结构另一个表示形式，其作用是依据Select Case中结果与各中结果与各Case子句中值子句中值比较决定执行哪一组语句块。假如有多个比较决定执行哪一组语句块。假如有多个Case短语中短语中值与测试值匹配，则执行第一个与之匹配语句块，其流值与测试值匹配，则执行第一个与之匹配语句块，其流程见图程见图1.3.11。39/803939表示式列表2语句块2FT表示式列表1语句块1FT表示式列表n语句块nFT表示式列表1语句块140/804040比如：已知变量比如：已知变量ch中存放了一个字符，判断该字符是字母中存放了一个字符，判断该字符是字母字符、数字字符还是其它字符，并显示。字符、数字字符还是其它字符，并显示。用多分支结构实现用多分支结构实现:If Ucase(ch)=A And Ucase(ch)=0 And ch 0 And y 0 Then MsgBox(在第一象限在第一象限)ElseIf x 0 Then MsgBox(在第二象限在第二象限)ElseIf x 0 And y 0 And y 0 And y 0 MsgBox(“在第一象限在第一象限”)Case x 0 MsgBox(“在第二象限在第二象限”)Case x 0 And y 0 And y y，x，y)该语句与以下语句等价该语句与以下语句等价：If x y Then Tmax=x Else Tmax=y 44/8044444.2.3 条件函数条件函数(2)Choose函数函数 Choose(整数表示式，选项列表整数表示式，选项列表)依据表示式值依据表示式值i,i,返回选项列表中第返回选项列表中第i个选项。假如个选项。假如整数表示式值越出选项范围时，返回整数表示式值越出选项范围时，返回Null。例例 依据依据NopNop值，得到值，得到+、-、中某运算符中某运算符：Op=Choose(Nop，+，-，)例例4.10 4.10 依据当前日期，显示今日是星期几。依据当前日期，显示今日是星期几。t=Choose(Weekday(Now),“星期日星期日”,“星期一星期一”,“星期二星期二”,“星期三星期三”,“星期四星期四”,“星期五星期五”,“星期六星期六”)MsgBox(今天是：今天是：&Now&t)本章目录本章目录Dim nop As Integer,op As CharRandomize()nop=Int(Rnd()*4+1)op=Choose(nop,+,-,)MsgBox(nop=&nop&op=&op)45/8045454.3 循环结构循环结构 计计算算机机最最擅擅长长功功效效之之一一就就是是按按要要求求条条件件，重重复复执执行行一一些些操操作作。比比如如，按按照照人人口口某某增增加加率率，对对人人口口增增加加统统计计；依依据据各各课课程程学学分分、绩绩点点和和学学生生成成绩绩，统统计计每每个个学学生生平平均均绩绩点点等等。这这类类问问题题都都可可经经过过循循环环结结构构来来方方便便地地实实现现。VB中中提提供供了了两两种种类类型型循循环环语语句句：一一个个是是计计数数循循环环语语句句；另另一一个是个是条件型循环语句。条件型循环语句。本章目录本章目录46/8046464.3.1 For循环语句循环语句 For循环语句用于控制循环次数预知循环结构。循环语句用于控制循环次数预知循环结构。For 循环变量循环变量 初值初值 To 终值终值 Step 步长步长语句块语句块Exit For语句块语句块Next 循环变量循环变量循环变量必须为数值型。循环变量必须为数值型。循环次数循环次数 0 初值初值终值终值 =1 时，可省略时，可省略终值终值=0 死循环死循环步长步长本章目录本章目录Dim i%,sum%For i=1 To 100 Step 2 sum=sum+iNext iMsgBox(sum)47/804747For循环语句循环语句 循环流程：循环流程：(1)循循环环变变量量被被赋赋初初值值，它它仅被赋值一次。仅被赋值一次。(2)判判断断循循环环变变量量是是否否在在终终值值内内，假假如如是是，执执行行循循环环体体；假假如如否否，结结束束循循环环，执执行行Next下一语句。下一语句。(3)循循环环变变量量加加步步长长，转转(2)，继续循环，继续循环 本章目录本章目录48/804848例例4.11 计算计算1100奇数和 Dim i%,sum%For i=1 To 100 Step 2 sum=sum+iNext iMsgBox(sum)Dim i As Integer，s As Integers=Oi=1re：If i=100 Then Next S=S+i i=i+2 GoTo re End If注意：当退出循环后，循环变量值保持退出时值不变。注意：当退出循环后，循环变量值保持退出时值不变。例上例中，退出循环后，例上例中，退出循环后，i值为值为101。49/804949程序以下：程序以下：Private Sub Picture1_Click()Dim asc AS Integer,i AS Integer Picture1.Print ASCII码对照表码对照表 For asc=32 TO 126 Picture1.Print Tab(7*i十十2);Chr(asc);=;asc；i=i+1 If i=7 Then i=0：Picture1.Print Next asc End Sub循环体中循环变量可屡次引用，但不宜赋值，因为赋值改变循循环体中循环变量可屡次引用，但不宜赋值，因为赋值改变循环规律。环规律。例例4.12 4.12 将可打印将可打印ASCIIASCII码制成表格输出码制成表格输出使每个字符使每个字符与它编码值对应起来，每行打印与它编码值对应起来，每行打印7 7个字符。个字符。分析：分析：在在ASCII码中，只有码中，只有“”(空格空格)到到“”是能够打印字是能够打印字符，其余为不可打印控制字符。可打印字符编码值为符，其余为不可打印控制字符。可打印字符编码值为32126，可经过，可经过Chr()函数将编码值转换成对应字符。函数将编码值转换成对应字符。50/8050504.3.2 DoLoop循环语句循环语句 Do循环用于控制循环次数未知循环结构。循环用于控制循环次数未知循环结构。形式形式1：Do While|Until 语句块语句块 Exit Do 语句块语句块Loop形式形式1为先判断后执行，有可能一次也不执行；为先判断后执行，有可能一次也不执行；形式形式2为先执行后判断，最少执行一次。为先执行后判断，最少执行一次。(2)关键字关键字While（2用于指明条件为真用于指明条件为真(True)时就执行循环体中语句；时就执行循环体中语句；Until恰好相反。恰好相反。Exit Do：表示当碰到该语句时，退出循环，执行表示当碰到该语句时，退出循环，执行Loop下一句语下一句语句。句。形式形式2：Do 语句块语句块 Exit Do 语句块语句块Loop While|Until 本章目录本章目录51/805151DoLoop流程流程 52/805252循环例题循环例题例例4.13 4.13 我国有我国有1313亿人口，按人口年增加亿人口，按人口年增加0.8%0.8%计算，多少年后我国人口超出计算，多少年后我国人口超出2626亿。亿。解此问题两种方法，可依据公式：解此问题两种方法，可依据公式：直接利用标准函数对数可求得，但求得年数不为直接利用标准函数对数可求得，但求得年数不为整数；也可利用循环求得整数；也可利用循环求得。本章目录本章目录53/805353循环例题循环例题例例 求自然对数求自然对数e近似值，要求其误差小于近似值，要求其误差小于0.00001，近似公式，近似公式为：为：e=1+1/1!+1/2!+1/3!+1/n!十十 该例题包括两个问题：该例题包括两个问题：(1)用循环结构求级数和问题。求级数和项数和精度都是有限，用循环结构求级数和问题。求级数和项数和精度都是有限，不然有可能会造成溢出或死循环，本例依据某项值精度来控制循不然有可能会造成溢出或死循环，本例依据某项值精度来控制循环结束是否。环结束是否。(2)累加与连乘，这在程序设计中非常主要。累加是在原有和累加与连乘，这在程序设计中非常主要。累加是在原有和基础上一次次地加一个数，如基础上一次次地加一个数，如e=e+t。连乘则是在原有积基础上。连乘则是在原有积基础上一次次地乘以一个数，如一次次地乘以一个数，如n=n*i。为了确保程序可靠，普通在循。为了确保程序可靠，普通在循环体外对存放累加和变量清零、存放连乘积变量则置环体外对存放累加和变量清零、存放连乘积变量则置1。本章目录本章目录54/805454本例程序以下，本例程序以下，Private Sub Form_Click()Dim i，n&,t!,e!e=0 存放累加和结果存放累加和结果 i=0 计数器计数器 n=1 存放阶乘值存放阶乘值 t=1 第第n项值项值 Do While t0.00001 e=e+t 累加和累加和 i=i+1 n=n*i 连乘连乘 t=1/n Loop Print 计算了计算了；i；项和是项和是；e End Sub 思索：若把循环体前面置各变量初值语句放在循环体内，程序思索：若把循环体前面置各变量初值语句放在循环体内，程序运行时会产生什么情况运行时会产生什么情况?本章目录本章目录55/8055554.3.3 循环嵌套循环嵌套 在在一一个个循循环环体体内内又又包包含含了了一一个个完完整整循循环环结结构构称称为为 循循 环环 嵌嵌 套套。循循 环环 嵌嵌 套套 对对 For循循 环环 语语 句句 和和DoLoop语句均适用。语句均适用。例例4.14 4.14 打印九九乘法表打印九九乘法表 本章目录本章目录56/805656分析：分析：打印九九乘法表，只要利用循环变量作为乘打印九九乘法表，只要利用循环变量作为乘数和被乘数就可方便地处理，程序以下：数和被乘数就可方便地处理，程序以下：Private Sub Picture1_Click()Dim se As String Picture1.Print Tab(35)；九九乘法表九九乘法表 Picture1.Print Tab(35);-For I=1 To 9 For j=1 To 9 se=i&j&=&i*j Picture1.Print Tab(J-1)*9+1)；se；Next j Picture1.Print Next i End Sub 例例4.14思索：若要分别打印成呈下、上三角九九乘法表思索：若要分别打印成呈下、上三角九九乘法表 结结果，程序作怎样改动果，程序作怎样改动?57/805757对于循环嵌套，要注意以下事项：对于循环嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；外循环必须完全包含内循环，不能交叉；（3）若循环体内有）若循环体内有IF语句，或语句，或IF语句中有循环语句，也不能交叉；语句中有循环语句，也不能交叉；（4）goto语句能够循环体内转向循环体外，但不能从循环体外语句能够循环体内转向循环体外，但不能从循环体外转向循环体内转向循环体内 以下程序段都是错误：以下程序段都是错误：内、外循环交叉内、外循环交叉 内、外循环变量同名内、外循环变量同名 For ii=1 To 10 For ii=1 To 10 For JJ=1 To 20 For ii=1 To 10 Next ii Next ii Next JJ Next ii 而下面程序段是正确：而下面程序段是正确：两个并列循环结构两个并列循环结构 嵌套循环结构嵌套循环结构 For ii=1 To 10 For ii=1 To 10 For JJ=1 To 20 Next ii For ii=1 To 10 Next jj Next ii Next ii58/8058584.4 其它辅助控制语句其它辅助控制语句 4.4.1 Go To 语句语句 无条件地转移到标号或行号指定那行语句。无条件地转移到标号或行号指定那行语句。Go To 标号标号|行号行号注注意意：标标号号是是字字符符序序列列，首首字字符符必必须须为为字字母母，标标号号后后应有冒号；行号是一个数字序列；应有冒号；行号是一个数字序列；例例4.15 4.15 判断输入数是否为素数判断输入数是否为素数素素数数就就是是除除1 1和和本本身身以以外外，不不能能被被其其它它任任何何整整数数整整除除数数。依依据据此此定定义义，判判别别某某数数m m是是否否为为素素数数最最简简单单方方法法就就是是依依次次用用i=2i=2m m-1-1去去除除，只只要要有有一一个个数数能能整整除除m m，m m就就不不是是素素数；不然数；不然m m是素数。是素数。要求一定范围内素数，只要将要求一定范围内素数，只要将m作为外循环体