关 键 词：

龚沛曾 VB net 程序设计 教程

资源描述：

-龚沛曾-VB.net程序设计教程（第3版）,龚沛曾,VB,net,程序设计,教程

内容简介：

VisualBasic NET程序设计同济大学龚沛曾 2 第四章基本的控制结构 4 1顺序结构4 2选择结构和选择控件4 3循环结构和相关控件4 4综合应用 常用算法4 5自主学习 程序调试 本章目录 3 VB NET是完全面向对象的程序设计语言在事件过程的实现上具有结构化程序设计的三种控制结构 即顺序结构 选择结构 循环结构 是程序设计的基础 本章目录 1 顺序结构各语句按出现的先后次序执行 用传统流程图表示为 引言 4 2 选择结构 传统流程图 根据条件决定执行的语句 5 3 循环结构 I 当型循环结构 II 直到型循环结构 根据条件重复执行语句 称为循环体 6 4 1顺序结构 本章目录 4 1 1引例例4 1华氏温度与摄氏温度之间转换 要求 已知华氏温度 转换成摄氏温度 同样 已知摄氏温度 转换成华氏温度 换显示保留两位小数 华氏温度与摄氏温度之间转换的公式是 程序运行不管输入摄氏温度C多少 显示结果华氏温度始终是32度 原因 计算机始终按照人安排的顺序依次执行语句 Dimf c f 9 5 c 32c Val TextBox1 Text TextBox2 Text Format f 0 00 c Val TextBox1 Text f 9 5 c 32 7 一般程序设计语言中顺序结构的常用简单语句 赋值语句和输入 输出语句等 在VB NET中赋值 复合赋值语句输入 输出通过 文本框控件 标签控件 InputBox函数 MsgBox函数Write方法 8 4 1 2赋值语句 例如 x 0 1 x为单精度变量 获得值0 1TextBox1 Text 清除文本框的内容TextBox1 Text 欢迎使用VB NET 本章目录 形式 变量名 表达式对象名 属性名 表达式 作用 计算表达式的值 再将此值赋给变量或对象属性 9 赋值语句注意点 符号有两个意义赋值号 关系运算符等号形式相同 系统会根据所处的位置判断符号意义 赋值号左边只能是变量 不能是常量 常数符号 表达式 下面均为错误的赋值语句 Now x y 左边是表达式 函数 5 sqrt s x y 左边是常量x y z 左边是表达式 本章目录 Ifx 3Theny x 10 复合赋值语句 复合赋值运算符 实现过程 首先计算右边表达式的值 然后与左边的变量进行相应的运算 最后赋值给变量 本章目录 例如 a b 4等价于a a b 4 形式 变量名复合赋值运算符表达式复合赋值运算符 作用 简化程序代码 提高程序编译的效果 11 常用复合赋值语句 累加sum x等价于sum sum x计数n 1等价于n n 1显示多行信息利用 来实现 本章目录 如下语句 TextBox1显示结果 TextBox1 Text VB NET vbCrLfTextBox1 Text TextBox1 Text 程序设计教程 TextBox1 Text VB NET vbCrLfTextBox1 Text 程序设计教程 12 形式 变量 InputBox 提示 标题 默认值 4 1 3数据输出和输入 本章目录 注意 提示项不能省略 若要多行提示 可在每行行末加回车换行vbCrLf 例4 2利用InputBox输入基本工资和营业额 按营业额的5 提成 计算实发工资并显示 作用 打开一个对话框 等待用户输入 返回字符串类型的输入值 1 InputBox函数 13 作用 打开信息框 等待用户选择一个按钮 MsgBox函数返回所选按钮的整型值 变量 MsgBox 提示 按钮 标题 MsgBox函数无返回值 独立的语句 MsgBox提示 按钮 标题 2 MsgBox函数 本章目录 按钮 决定信息框按钮的数目 名称等 返回结果 返回所按的按钮值此两项均为整型表达式或枚举值 枚举名分别为MsgBoxStyle MsgBoxResult MsgBox按钮设置 枚举名MsgBoxStyle MsgBox所选按钮返回值 枚举名MsgBoxResult 15 例4 3模拟ATM机输入账号和密码验证要求 账号6位数字 密码4位字符在账号输入按Tab键进行账号合法性检验击 检验密码 按钮对密码进行验证 本章目录 分析 数字字符函数 IsNiumeric字符长度属性 TextLength按Tab键合法性检验 LostFocus事件 16 3 Write WriteLine方法 形式 Debug WriteLine 表达式 Debug Write 表达式 本章目录 例将例4 1输出改为如下语句 Debug WriteLine 本月营业额为 x 基本工资为 jbgz Debug Write 本月实发工资为 sfgz 选择 调试 窗口 输出 显示 输出 窗口 作用 在调试程序时 输出 窗口输出变量信息 Write输出后不换行 17 顺序结构要点 掌握计算机按照语句出现的先后顺序执行掌握赋值语句 复合赋值语句 尤其 掌握InputBox输入数据掌握MsgBox对话框显示信息和按钮的作用了解输出Write WriteLine 完成实验二 顺序结构1 2 3 4 5 6题 18 4 2选择结构和选择控件 计算机要处理的问题往往是复杂多变的 仅采用顺序结构是不够的 必须利用选择结构等来解决实际应用中的各种问题 VB中选择结构 If语句Select情况语句 本章目录 例1 1移动到窗体边界判断If Label1 Top Me Height ThenLabel1 Top 0 单分支If语句双分支If Then Else语句多分支If Then ElseIf语句 19 4 2 1If条件语句 1 If Then语句 单分支结构 IfThen语句块EndIf或IfThen表达式 算术 关系 逻辑表达式 语句块 可以是一条或多条语句表达式值 按非零为True 零为False进行判断 本章目录 作用 当表达式值为True 执行Then后面的语句块否则不做任何操作 20 例 已知两个数x和y 比较它们的大小 使得x大于y Ifx yThent xx yy tEndIf或Ifx yThent x x y y t 本章目录 注意 简单If形式无EndIf时 只能是一句语句或语句间用冒号分隔 而且必须在一行上书写 x yy x能否实现两数交换 x yt xy t能否实现两数交换 21 双分支结构 2 If Then Else语句If表达式Then语句块1Else语句块2EndIf或If表达式Then语句1Else语句2 本章目录 作用 当表达式的值为True时 执行Then后面的语句块1 否则执行Else后面的语句块2 22 双分支结构例 计算分段函数 Ifx0Then双分支y sin x sqrt x x 1 Else结构实现y cos x x 3 3 xEndIf 本章目录 单分支y cos x x 3 3 x结构实现Ifx0Theny sin x sqrt x x 1 思考如下单分支结构能实现 Ifx0Theny sin x sqrt x x 1 y cos x x 3 3 x 23 多分支结构 3 If Then ElseIf语句形式 If表达式1Then语句块1ElseIf表达式2Then语句块2 Else语句块n 1 EndIf 作用 根据不同的表达式值确定执行哪个语句块 本章目录 说明 不管有几个分支 依次判断 当某条件满足 执行相应的语句 其余分支不再执行 若条件都不满足 且有Else子句 则执行该语句块 否则什么也不执行 ElseIf不能写成ElseIf 24 例4 6已知变量ch中存放了一个字符 判断该字符是字母字符 数字字符还是其他字符 多分支结构例 本章目录 IfUCase ch A AndUCase ch 0 Andch 9 Then 数字字符MsgBox ch 是数字字符 Else 除上述字符以外的字符MsgBox ch 是其他字符 EndIf 25 4 2 2SelectCase语句 SelectCase变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2 CaseElse语句块n 1 EndSelect 表达式列表与变量或表达式的类型必须相同 是下面4种形式之一 表达式例 A 用逗号分隔的枚举值2 4 6 8表达式1To表达式260To100Is关系运算符表达式Is 60 本章目录 26 SelectCase语句例 例4 8将例4 6改用SelectCase语句实现 本章目录 SelectCasechCase a To z A To Z MsgBox ch 是字母字符 Case 0 To 9 MsgBox ch 是数字字符 CaseElseMsgBox ch 是其他字符 EndSelect SelectCase语句比If Then ElseIf语句直观 程序可读性强 但不是所有的多分支结构均可用SelectCase语句代替If Then ElseIf语句 27 SelectCase语句例 例4 9已知坐标点 x y 判断其落在哪个象限 代码一Ifx 0Andy 0ThenMsgBox 在第一象限 ElseIfx0ThenMsgBox 在第二象限 ElseIfx0Andy 0ThenMsgBox 在第四象限 EndIf 代码二SelectCasex yCasex 0Andy 0MsgBox 在第一象限 Casex0MsgBox 在第二象限 Casex0Andy 0MsgBox 在第四象限 EndSelect 代码二错误 1 SelectCase后不能出现多个变量 2 Case后不能出现变量及有关运算符 本章目录 小结 1 SelectCase语句虽然简洁 但使用有限制2 虽然If语句条件复杂时书写不直观 但是万能的 28 If语句的嵌套是指If或Else后面的语句块中又包含If语If表达式1ThenIf表达式2Then EndIf EndIf If语句的嵌套 例4 10已知x y z三个数 使得x y z用一个IF语句和一个嵌套的IF语句实现 本章目录 Ifx yThent x x y y tIfy zThent y y z z tIfx yThent x x y y tEndIfEndIf X y X与y交换 y z X y y与z交换 X与y交换 T T T F F F x y z x Y z最小 F 29 4 2 3条件函数 1 IIf函数IIf 表达式 表达式为真时的值 表达式为假时的值 IIf函数是If Then Else结构的简洁表示 本章目录 例如 将x y中大的数 放入Tmax变量中 Tmax IIf x y x y 该语句与如下语句等价 Ifx yThenTmax xElseTmax y 30 4 2 3条件函数 2 Choose函数Choose 整数表达式 选项列表 根据表达式的值i 返回选项列表中第i个选项 如果整数表达式的值越出选项范围时 返回Null例根据Nop的值 得到 中的某运算符 Op Choose Nop 本章目录 DimnopAsInteger opAsCharRandomize nop Int Rnd 4 1 op Choose nop MsgBox nop nop op op 例4 11根据当前日期 显示今日是星期几 t Choose Weekday Now 星期日 星期一 星期二 星期三 星期四 星期五 星期六 MsgBox 今天是 Now t 31 4 2 4选择控件与分组控件 1 单选按钮 单选按钮以组的形式出现 允许选择一项 例单选题测试 1 主要属性Text属性按钮上显示的文本Checked属性表示单选按钮的状态 True 被选定False 未被选定 本章目录 32 2 主要事件Click单击后使Checked属性为TrueCheckedChanged当某个单选按钮的状态被发生变化 该事件随之被触发 本章目录 33 一组选项 允许用户选择其中一个或多个例多选题测试 1 主要属性和事件与单选有相同的属性和事件 增加了 CheckState属性表示复选框状态Unchecked未选定Checked被选定Indeterminate部分选定 2 复选框 本章目录 34 3 分组 需要在同一个窗体中建立几组相互独立的单选或复选按钮 具有容器功能 先建立分组控件 然后将各控件放置其中 本章目录 特性 移动 复制 删除框架 对控件进行Enabled Visible属性设置 均作用于组内控件 主要属性 Text分组的标题 无则封闭框线 事件 一般不需要编写事件过程 35 例4 12通过单选按钮和分组控件设置文本框的Font属性 带来问题 分组上的六个单选按钮 编写6个事件过程 解决的方法 共享事件处理过程 36 例4 13对上例进行改变 再增加字型复选框 用一个事件过程实现 实现思想 对每个按钮要进行状态判断难点对字型设置 何为共享事件处理过程 即多个控件共享事件处理过程 形式 对象 事件 参数 Handles对象 事件 对象2 事件 Regular0Bold1Italic2Underline4Strikeout8 37 例4 14通过单选按钮和复选框选修课程 关键处理思路 只要有一个选择按钮触发 则 逐一检查选择按钮的状态 并更新文本框内容 38 选择结构和控件要点 掌握关系表达式 逻辑表达式的正确书写掌握If语句多种分支形式的正确书写与使用掌握SelectCase语句的正确书写与使用掌握单选按钮 复选框和分组控件的使用 完成实验三 选择结构必做 1 2 3 5 6 78 9 10 11题 39 4 3循环结构 引例 求 的近似值祖冲之用了15年算出 值到小数点后面7位 第一台计算机计算到2000多位1999年东京大学2061 5843亿 本章目录 例4 15验证祖冲之有效位7位的计算求 4 1 1 3 1 5 1 7 1 9 关键找规律写通项 计算机最擅长的功能之一 按规定的条件 重复执行某些操作 从而实现将一个复杂问题转换为简单问题的迭代过程 可以说离开循环结构计算机寸步难行 掌握好循环的结构的正确使用很重要VB中提供了主要的两类循环语句 Do语句 一般未知循环次数 for语句 一般已知循环次数 41 4 3 1Do Loop循环语句 形式1 Do While Until 条件表达式语句块Loop 形式2 Do语句块Loop While Until 条件表达式 本章目录 形式1为先判断后执行 有可能一次也不执行 形式2为先执行后判断 至少执行一次 42 Do Loop流程 本章目录 43 数学公式直接求得问题 1 求得的年数不为整数2 得不到实际人数利用循环求得循环通项 x x 1 008上述两个问题解决了 例4 18我国有13亿人口 按人口年增长0 8 计算 多少年后我国人口超过26亿 解此问题两种方法 本章目录 x 13n 0DoWhilex 26x x 1 008n n 1Loop DoWhile Loop例 44 例4 19用辗转相除法求两自然数的最大公约数 求最大公约数的算法思想 例m 14 n 6的最大公约数Ifm0 m nn rr mmodnLoopMsgBox 最大公约数 n 1 对于两数m n 使得m n 2 m除以n得余数r 3 若r 0 则 m n n r 再重复执行 2 否则n为最大公约数 结束 本章目录 辗转相减法思想 始终大数减小数直到两数相等m m nm nn n mn mm n为公约数m nDoWhilemnmnIfm nThen146m m n86Else26n n m24EndIf22Loop Do LoopWhile例 猜数游戏计算机随机产生一个0 100之间的整数 用户通过输入的方式来猜测此数 根据比较的结果屏幕上会给出 大了 或 小了 的提示 根据提示重新猜测 直到猜对提示 恭喜你 猜对了 分析 猜数程序实现不难 关键用户要提高猜中数的策略 思想为二分法查找 在100个数的范围内平均猜中次数为 n log2100 result Int Rnd 100 1 Doguess Val InputBox 输入猜测的数 Ifguess resultThenLabel1 Text guess toobig vbCrLfElseIfguessresult 46 分析 猜数实质就是二分法查找 思路是对一组有序的数据 设置查找区间的下界low 上界high 每次猜数取其中间项 mid low high 2 计算机每次猜的数应该取mid值 若Key mid 则后半部作为继续查找的区域 low mid 1 若Key mid 则前半部作为继续查找的区域 high mid 1 Key mid猜对 47 4 3 2For循环语句 形式 For循环变量 初值To终值 Step步长 语句块 循环体Next循环变量 本章目录 循环次数 循环变量必须为数值型 48 sum 0Fori 1To100Step2sum sum iNextiMsgBox sum sum 0i 1DoWhile i 100 sum sum ii i 2LoopMsgBox sum 4 16计算1 100的奇数和分别用For Do Loop语句实现循环 理解For语句执行过程 49 For循环变量 初值To终值 Step步长 语句块 循环体Next循环变量 循环流程 1 循环变量被赋初值 它仅被赋值一次 2 判断循环变量是否在终值内 如果否 结束循环 执行Next的下一语句 3 如果是 执行循环体 循环变量加步长 转 2 本章目录 50 例4 17将可打印的ASCII码制成表格输出 实现思路 1 确定循环的初值 终值 2 字符和码值关系 3 控制每项占用位数 空格数 4 控制每行输出个数 Space 8 Len asci asci 32 127 Chr asci i i 1IfiMod7 0Then换行 51 4 21判断输入的数是否为素数定义 素数就是除1和本身以外 没有其他因子 即不能被其他任何整数整除的数 算法 m依次用i 2 m 1去除 只要有一个数能整除m m就不是素数 否则m是素数 本章目录 m Val TextBox1 Text Fori 2Tom 1If mModi 0ThenExitForNextiIfm iThenLabel2 Text m 是素数 vbCrLf 是因子强制退出循环 循环是怎样退出的 52 思考 要求一定范围内 如100 200的素数 程序如何修改 本章目录 注意 Exit语句不符合一个入口一个出口设计的规定改进 增加逻辑型变量Tag 用以判断是否被整除过 Dimi mAsInteger TagAsBooleanm Val TextBox1 Text Tag TrueFori 2Tom 1If mModi 0ThenTag FalseNextiIfTagThenLabel2 Text m 是素数 vbCrLf 假定是素数 只要有一个能整除 就不是素数 循环正常结束 根据Tag判断m是否是素数 53 Dimi mAsInteger TagAsBooleanForm 100To200m Val TextBox1 Text Tag TrueFori 2Tom 1If mModi 0ThenTag FalseNextiIfTagThenLabel2 Text m 是素数 vbCrLfNextm 思考 Tag附初值位置改变 例4 22100 200的素数实现思想 求一个素数的过程成为外循环的循环体 要搞清楚 嵌套循环的内外循环体如何正确表达 哪些语句是外循环循环体 哪些是内循环循环体 循环的嵌套 在一个循环体内又包含了一个完整的循环结构 55 例4 20打印九九乘法表 本章目录 思考 打印上三角或下三角程序如何改动 分析 被乘数i为外循环控制变量 乘数j为内循环控制变量格式控制使得对齐显示 56 1 Continue语句形式 ContinueFor ContinueDo2 Exit语句VB中有多种形式的Exit语句 用于退出某种控制结构的执行 Exit的形式如下 ExitFor ExitDo 本章目录 用于循环结构 相当于循环的断路 主要用于循环结构 相当于本次循环的短路 4 3 3其他控制语句 57 Fori 20To1Step 1IfiMod6 0ThenContinueForLabel1 Text i Next Fori 20To1Step 1IfiMod6 0ThenExitForLabel1 Text i Next 运行结果 2019 运行结果 20191716151413111098754321 58 3 End语句 1 独立的End语句作用 结束一个程序的运行 2 与其他控制结构关键字配套的End语句作用 结束一个控制语句或过程或块 相当于语句括号 例如C语言中的 End语句的多种形式如下 EndIf EndSelect EndStructureEndWith EndFunction EndSub 本章目录 59 4 3 4滚动条 进度条和定时器 1 滚动条 ScrollBar 作用 数据输入工具 也可显示数据 滚动条有水平 H 和垂直 V 两种 本章目录 主要属性Value 缺省为0 Minimum 缺省为0 Maximum 缺省为100 SmallChange改变值 缺省为1 LargeChange改变值 缺省为10 60 主要事件 Scroll当拖动滑块时触发ValueChanged同上 还可改变Value属性时触发 本章目录 注意 任意一个颜色改变均为影响合成的颜色 因此用共享事件来简化编程 例4 24设计一个调色板应用程序 设计思想 三个滚动代表三种基本颜色的输入工具使用颜色函数Color FromArgb Red Green Blue 61 2 进度条 ProgressBar 作用 指示事务处理的进度主要属性 Maximum Minimum Value实现关键 确定Maximum值 如下载文件该值为文件的字节数 变化的Value值 使得进度条变化 如文件下载过程中 该值为当前已下载的字节数 例4 25设计带有进度条的倒计时程序 注意 为显示进度条变化 一般结合定时器实现 62 3 定时器 Timer 定时器以一定的时间间隔产生Tick事件属性Enabled为False时定时器不产生Tick事件Interval触发Tick事件的时间间隔 单位ms事件定时器控件只有一个Tick事件产生Tick事件条件 Enabled TrueInterval 0例4 26用一个定时器控制蝴蝶在窗体内的飞舞 本章目录 思考 如果飞的过程有三个状态又如何编程 63 掌握For循环语句的正确书写与使用掌握Do循环语句的正确书写与使用掌握滚动条 进度条和定时器的使用利用循环 解决实际问题的能力 完成实验四 循环结构必做 1 2 3 4 5 6 7 8 10 11题 循环结构要点 64 4 4综合应用 常用算法 近似公式 本章目录 代码说明 简化 已知 i 1 要求i 只要 i 1 i就可 这样就简化成只要通过一重循环求累加 就可 4 4 1计算部分级数和 例4 27求自然对数e的近似值 其误差小于0 00001 分析 本例涉及到程序设计中两个重要运算 连乘累加 n 1 ee 1 i 1Don n i 连乘 求阶乘ee ee 1 n 累加和i i 1LoopWhile 1 n 0 00001 为什么用ee而不用e 类似应用问题 计算Sin x 函数的近似值 x为弧度 公式为 当10 5时结束 同时内部函数Sin x 加以验证 65 分析 ti表示第i项 其中t1 x 则递推计算式为 ti 2 1 ti x x i 1 i 2 i 1 3 5 7 i 1t x 某项MySin xs 1 正负号交替变化DoWhile t 0 00001 t t x x i 1 i 2 MySin MySin s ti i 2s sLoop 初始化 计算通项 累加为下一项作准备 66 4 4 2枚举法 穷举法 本章目录 枚举法解题的基本思路 确定枚举对象 枚举范围和判定条件 枚举可能的解 验证是否是问题的解 传统的数学解题方法通常有列方程 寻找简便算法 如鸡兔同笼问题等 枚举法 利用计算机的高速度和机器性 将可能出现的各种情况一一罗列测试 得出那些满足问题的约束条件的各种可能情况 即实际问题的解 67 枚举法举例 本章目录 例交通事故中肇事车辆撞人后逃逸 警方在现场找到3位目击证人询问肇事车辆5位车牌号码 甲 只看清最左两位为27 乙 只看清最后位是3 丙 牌号是67的倍数 i3 0 9 i2 0 9 Fori3 0To9Fori2 0To9num 27003 i3 100 i2 10IfnumMod67 0ThenMsgBox 车牌号为 num EndIfNextNext 要点 需要枚举的数字有几位 枚举的几位数字间的关系 num 27003 i3 100 i2 10 27XX3 验证是否是问题的解 IfnumMod67 0 68 例4 28百元买百鸡 假定小鸡每只5角 公鸡每只2元 母鸡每只3元 编程求解购鸡方案 分析 设母鸡 公鸡 小鸡各为x y z 方程为 x y z 1003x 2y 0 5z 100三个未知数 两个方程 此题求若干个整数解 本章目录 两种方法解 3个未知数三重循环利用3个未知数间关系 优化为两重循环 其他典型问题例 求水仙花数 某数所有因子 素数等 69 4 4 3递推法 又称为迭代法 例4 29小猴有桃若干 第一天吃掉一半多一个 第二天吃剩下桃子的一半多一个 以后每天都吃尚存桃子的一半多一个 到第7天只剩一个 问小猴原有桃多少 本章目录 思想 把一个复杂的计算过程转化为简单过程的多次重复 方法 是已知 或假设 一个初 旧 值 通过公式递推出新值 并由新值代替旧值 不断重复 分析 用后一天的桃子数推出前一天的桃子数 设第n天的桃子为xn 是前一天的桃子的二分之一减去1 已知第x7天为1则第x6天为4 x 1 第7天的桃子Fori 6To1Step 1x x 1 2 输出xNexti 70 迭代法求高次方程的近似根 用迭代法求迭代公式为 输出x1 x1 初值 F T x1 x0 x0 x1x1 根据迭代公式求得 例 x1 aDox0 x1x1 2 3 x0 a 3 x0 x0 LoopWhile Math Abs x1 x0 0 0000