visual basic基础入门自学3

第3章控制语句与程序调试 学习目标 掌握If条件语句和SelectCase选择语句掌握For Next和Do Loop循环语句掌握两重循环 了解多重循环了解Exit End和Goto语句掌握程序的简单调试方法 第3章控制语句与程序调试 教学内容 3 1选择结构与相关语句3 2循环语句3 3其它语句3 4程序调试 3 1选择结构 选择结构 当设定条件成立时执行某些语句 条件不成立时则跳过这些语句或执行其它的语句 选择结构中要使用选择语句 有两路分支和多路分支两种情况 对应的选择语句有If语句 两路出口 和SelectCase语句 多路出口 返回目录 3 1选择结构 If条件语句 1 IfThen其中 是一个条件表达式或逻辑表达式例如 IfData 90ThenPrint 优秀 例3 1 输入一个数 如果是3的倍数则通过消息框输出 PrivateSubForm Click DimDataAsIntegerData InputBox 请输入一个值 IfDataMod3 0ThenMsgBoxDataEndSub 返回目录 Data是3的倍数 3 1选择结构 If条件语句 2 IfThenElse例如 DimDataAsIntegerData InputBox 请输入成绩 IfData 90ThenPrint 优秀 ElsePrint 合格 Print 计算完毕 上例的If语句可以改写为 IfData 90ThenPrint 合格 ElsePrint 优秀 返回目录 3 1选择结构 If条件语句 3 块状If语句 返回目录 A InputBox A值 B InputBox B值 PrintA BIfA BThenT A A B B TEndIfPrintA B 3 1选择结构 If条件语句 4 If语句嵌套If语句嵌套使用可形成多分支的条件语句结构IfThenElseIfThenElseEndIf 返回目录 说明 ElseIf之间不要加空格 Else和位于其上方的最近的If配对 3 1选择结构 If条件语句 例3 3 Weight InputBox 输入西瓜重量 计算西瓜款 IfWeight 4ThenPrice 1ElseIfWeight 7ThenPrice 1 3ElsePrice 1 1EndIfMoney Price WeightMsgBox 西瓜重 Weight 公斤 单价 Price 元 应收瓜款 Money 元 计算西瓜款 返回目录 4公斤以下 1 00元 公斤4至7公斤 1 3元 公斤超过7公斤 1 1元 公斤IfWeight 4AndPrice7ThenPrice 1 1 3 1选择结构 If条件语句 例3 4 Char InputBox 输入一个字符 测试字符值 IfChar 0 AndChar A AndChar a AndChar z ThenMsgBox 输入的字符是小写字母 ElseMsgBox 输入的字符是其它符号 EndIf 返回目录 判断输入的是大写字母 小写字母 数字还是其它符号 3 1选择结构 If条件语句 例3 5 PrivateSubCommand1 Click 单击 正确无误 按钮IfLen TxtCode Text 8ThenLblWarn Caption 考核证号必须输入 长度为8位 TxtCode SetFocusElseIfLen TxtName Text 0ThenLblWarn Caption 考生姓名必须输入 TxtName SetFocusElseIfLen TxtSeat Text 0ThenLblWarn Caption 座位号必须输入 TxtSeat SetFocusElseLblWarn Caption Debug PrintTxtCode TextDebug PrintTxtName TextDebug PrintTxtSeat TextEndIfEndSub 返回目录 3 1选择结构 SelectCase选择语句 语法格式 SelectCaseCaseCase CaseElse EndSelect功能 根据测试表达式的值 决定程序的流向 返回目录 值的类型是数值型 字符串型 日期型等 一旦与某个Case后的值相等 则执行这个Case中的 完成后执行EndSelect后的语句 如果所有的Case后的都不与项匹配 则执行CaseElse后的 3 1选择结构 SelectCase选择语句 例3 6 学生成绩分等Data InputBox 请输入一个成绩 成绩分等 SelectCaseInt Data 10 Case10MsgBox 满分 成绩分等 Case9MsgBox 优秀 成绩分等 Case8MsgBox 良好 成绩分等 Case7MsgBox 一般 成绩分等 Case6MsgBox 合格 成绩分等 CaseElseMsgBox 不合格 成绩分等 EndSelect 返回目录 3 1选择结构 SelectCase选择语句 例3 7 测试输入的字符Char InputBox 请输入一个字符 测试 SelectCaseCharCase 0 To 9 MsgBox 字符是数字 测试 Case a To z MsgBox 字符是小写字母 测试 Case A To Z MsgBox 字符是大写字母 测试 CaseElseMsgBox 字符是其它符号 测试 EndSelect关于SelectCase语句的一些说明见教材 返回目录 3 2循环语句 程序的另一种结构是循环结构循环结构作用是重复执行一段程序循环是有条件的 次数是有限的VB的循环语句 For Next DoWhile LoopForEach Next While Wend应用最多的 For Next与DoWhile Loop 返回目录 3 2循环语句 For Next循环 For Next循环一般应用于循环次数已知的场合For 初值To终值 Step步长 语句块 循环体 Next 循环变量 工作原理 返回目录 Step缺省为1 3 2循环语句 For Next循环 例3 8 求1 3 5 7 99PrivateSubForm Click DimSumAsInteger IAsIntegerSum 0 保存累加和 先清零ForI 1To99Step2Sum Sum INextIMsgBox 1 3 5 99 Sum 求和 EndSub 返回目录 本例的特点是数据项之间相差2 即Step的值为2 思考 例中当输出对话框出现时 I的值是多少 如果省略Step2 程序的结果如何 For语句能不能改写成ForI 99To1Step 2 3 2循环语句 For Next循环 例3 9 求平均成绩ConstN 40 学生人数PrivateSubForm Click DimSumAsInteger IAsIntegerDimDataAsInteger AverageAsSingleSum 0 存放累加值的变量清零ForI 1ToN 循环40次 步长值为1省略Data InputBox 输入第 I 位同学的成绩 求平均分 Sum Sum DataNextIAverage Sum NMsgBox 全班 N 名学生的平均分为 Average 求平均分 EndSub 返回目录 本例的循环变量I控制人数 3 2循环语句 For Next循环 例3 11 求斐波那契级数的前20项PrivateSubForm Click DimA B I TAsIntegerA 1 B 1 生成级数第一 二项PrintA B ForI 3To20T A B 产生级数新的一项A B 让B成为下一组的AB T 原来A B的值成为下一组的BPrintB IfIMod6 0ThenPrintNextIEndSub 返回目录 斐波那契级数 第一 二项为1第三项开始 每一项的值是前两项值之和 每6个数一行 3 2循环语句 Do Loop循环 1 当型循环 返回目录 先判断后执行 先执行后判断 特点 条件表达式成立执行循环体内容 3 2循环语句 Do Loop循环 例3 12 计算平均分PrivateSubForm Click DimDataAsInteger SumAsInteger NAsIntegerDimAverageAsSingleSum 0 N 0Data InputBox 输入第 N 1 个同学的成绩 求平均分 DoWhileData 1 1表示结束输入Sum Sum DataN N 1Data InputBox 输入第 N 1 个同学的成绩 求平均分 LoopAverage Sum NMsgBoxN 位同学的平均分为 Average 求平均分 EndSub 返回目录 3 2循环语句 Do Loop循环 例3 13 Sum 1 2 3 N求Sum不超过10000的最大整数值和数据项数NPrivateSubForm Click DimSum NAsIntegerN 0 开始时项数为0Sum 0 保存累加值的变量Sum清零DoWhileSum 10000N N 1Sum Sum NLoopSum Sum NN N 1Print Sum Sum N NEndSub 返回目录 当Sum的值超出10000时循环才终止 因此Sum值要减去多加的一个N 而在循环过程中 N也被多加了一个1 需要减去 3 2循环语句 Do Loop循环 2 直到型循环 返回目录 特点 条件表达式不成立执行循环体内容 3 2循环语句 Do Loop循环 例3 14 计算平均分 要求同例3 12 PrivateSubForm Click DimDataAsInteger SumAsInteger NAsIntegerSum 0 N 0Data InputBox 输入成绩 计算总分 DoUntilData 1Sum Sum DataN N 1Data InputBox 输入数据 计算总分 LoopPrint 全班平均分为 Sum NEndSub 返回目录 DoWhileData 1Sum Sum DataN N 1Data InputBox 输入数据 计算总分 Loop 3 2循环语句 两重循环 两重循环 在一个循环的循环体中还包含另一个循环 例3 15 在窗体上显示一个几何图形PrivateSubForm Click DimI JAsInteger I J为循环变量ForI 1To8 I控制行数 8行 PrintTab 10 I 定每行 的起始位ForJ 1ToI J控制每行输出I个 Print NextJPrint 换行NextIEndSub 返回目录 注意 两重循环不能形成交叉 3 2循环语句 两重循环 例3 16 输出乘法口诀表PrivateSubForm Click DimIAsInteger JAsInteger MAsIntegerForI 1To9ForJ 1ToIM I JPrintJNextJPrint 打印换行NextIEndSub 返回目录 3 2循环语句 两重循环 例3 17 计算PrivateSubForm Click DimIAsInteger JAsIntegerDimFAsLong 阶乘值用长整型保存DimeAsDoubleForI 0To10F 1 每个阶乘值先置1以便累乘ForJ 1ToIF F JNextJe e 1 FNextIPrint e eEndSub 返回目录 本循环计算F I 3 2循环语句 多重循环 多重循环 循环次数在两重以上的循环结构 例3 19 计算将1角钱兑换成零钱有多少种方案PrivateSubForm Click DimI J K SAsIntegerS 0 统计兑换1角钱的方案数ForI 0To10 1分钱个数ForJ 0To10Step2 2分钱个数ForK 0To10Step5 5分钱个数IfI J K 10ThenS S 1NextKNextJNextIMsgBox 1角钱兑换成零钱的方案有 S 种 兑换零钱 EndSub 返回目录 1角钱以下的硬币有1分 2分和5分种1角钱全换成1分需10个1角钱全换成2分需5个1角钱全换成5分需2个 3 3其他语句 Exit与End 1 Exit语句ExitDo 跳出Do Loop循环ExitFor 跳出For Next循环 例3 20 判断一个正整数是否为素数 质数 DimNasintegerN InputBox 请输入一个正整数 验证素数 ForI 2ToN 1IfNModI 0ThenExitForEndIfNextIIfI NThenMsgBoxN 是素数 验证素数 ElseMsgBoxN 不是素数 验证素数 EndIf 返回目录 素数 一个正整数N除了能被1和自身所整除外 不能被其它任何数所整除 3 3其他语句 Exit与End 2 End语句End 终止程序的运行EndSub 终止一个过程 EndFunction 终止函数过程EndIf 终止条件语句EndType 终止类型声明EndSelect 终止情况语句EndProperty 终止属性过程EndWith 终止With语句 返回目录 例如 PrivateSubCommand1 Click EndEndSub 3 3其他语句 Goto 功能 无条件转向格式 Gotolabel称为语句标号 数字或标识符 例3 22 求若干个同学的成绩总分PrivateSubForm Click DimData SumAsIntegerSum 0loop1 Data InputBox 输入成绩 IfData 1ThenGoToloop2ElseSum Su