第四章 VB程序的控制结构
第4章 VB基本控制结构
（二）用文本框（TextBox控件）输入数据
格式：
字符串型变量名 = 对象名.Text
或者：数值型变量名 = Val（对象名.Text） 例：x=text1.text
八 数据的输出
在程序设计中，对输入的数据进行加工处理后， 往往需要将中计算或处理结果通知用户，这就是 数据的输出 。 在VB中，可以使用下面的4种方法之一进行数据 输出：Print方法、消息框（MsgBox函数）、文 本框（TextBox控件）、标签（Label控件） 。
（三）用文本框（TextBox控件）输出
格式：文本框名称.Text = 表达式 说明：
（1）注意在输出时进行数据类型之间的转换。
（2）作为输出的文本框一般将Locked属性设置为True， 用户不得改变输出框中的内容。
【作业】 编程实现单击窗体后，显示输出以下 格式的字符。
4.2 选择结构
（2）<表达式>可以是数值或字符串。对于数值先计算 后输出，字符串原样输出；省略表达式输出一空行。
（3）当表达式列表有多个时，表达式之间必须用空格、 分号或逗号隔开。分号和空格表示光标定位在上一 个显示字符之后（紧凑格式）；逗号表示光标定位 在下一个打印区的开始位置（标准格式）。
（4）可以用me代表当前窗体。
1.
3 If 语句的嵌套
在一个If 语句中，又包含另一些If 语句称为If 语句的嵌套。 语法格式： If 条件1 then 语句块1 Elseif 条件2 then 语句块2 …… [else 语句块n+1] End if 说明：执行过程是先判断条件表达式1，若其为真，则执 行语句块1，结束整个If 语句，否则判断条件表达式2，若 其为真，则执行语句块2，结束整个If 语句，依此类推， 当判断条件表达式n不满足时，若最后有else语句则执行 else语句，否则结束if语句的执行。
VB程序设计第四章 基本的控制结构
4.2 选择结构
选择结构作用
– 对条件进行判断，根据判断结果，选择
执行不同的分支。
If 条件语句 Select case语句 条件函数
4.2.1 If 条件语句
If 条件语句有多种形式
– 单分支
– 双分支
– 多分支
1 单分支结构
If …Then 语句
（1） If < 表达式 > Then < 语句块> End If （2）If < 表达式 > Then < 语句>
例题：
编程实现账号和密码的输入程序，要求： （1）账号不超过6位数字，密码为4位字符， 假设为“Gong” （2）密码输入时，不显示输入的字符，用 “*”代替。 （3）输入不正确，显示有关信息。单击“重 试”，则清除原来输入的内容，等待重新 输入；单击“取消”，终止程序运行。
分析 账号
– 账号不超过6位数字，则将文本框的
第四章
基本的控制结构
Summary
1. 顺序结构（Sequence） 2. 选择结构（Selection） 3. 循环结构（Repetition） 4. 其它辅助控制语句 5. 常用算法（一）
4.1 顺序结构
顺序结构
– 按照各语句出现的先后顺序执行
– 包括： 赋值语句 输入 / 输出语句
按钮值
描述 “确定” “确定”、“取消” “终止”、“重试”, “忽略” “是”、“否”、“取 消” “是”、“否” “重试”、“取消”
按钮 数目
0 1 2 3 4 5
按钮 类型
vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbApplicationMode vbSystemMode
vb课件第四章-基本控制结构
Private Sub Form_Click（） Dim s&，x% s=0 x=1 s = s + x ^2 x=x+2 s = s + x ^2 x=x+2 s = s + x ^2 …… x = x +2 'x的值累加到99 s = s + x ^2 Print “1～100之间所有奇数的平方 和="；s End Sub
的行李费。
根据题意计算公式如下：
weight×0.2 Pay＝
weight≤50
（weight－50）×0.5＋50×0.2 weight＞50
程序代码如下： ' "计算"按钮代码 Private Sub Command1_Click（） Dim sinWeight as single Dim sinPay as single sinWeight = Text1.Text If sinWeight > 50 Then sinPay =（sinWeight - 50）* 0.5 + 50 * 0.2 Else sinPay = sinWeight * 0.2 End If Text2.Text = pay End Sub
二、程序的书写规则：
1、将单行语句分成多行:
用续行符（一个空格后面跟一个下划线） 将长语句分成多行。
2、将多个语句合并到同一行上
通常，一行之中有一个 Visual Basic 语句， 而且不用语句终结符。但是也可以将两个或多 个语句放在同一行，只是要用冒号 (:) 将它们 分开。 Text1.Text = "Hello" : Text1.BackColor = 255
第4章VB程序控制结构
计算机
② 处 理
输出信息
③ 输 出
1. 赋值语句
用于将指定的值赋给变量或对象属性. n=n+1 将变量n的值加1后的结果再赋给变
量n Text1.fontsize=text1.fontsize+5 变量或对象属性类型应与表达式类型相容
(x%=11/4 y%=“123.45”). 相容时,将表达式的结果转换为变量的类型,
……
Else
……
End If
多分支结构应用
【例3】给定一个百分制成绩的分数，编程实现显示 对应的五级制成绩。
<60
E
60~69
D
70~79
C
80~89
B
90~100
A
思考：
若用户输入了0~100以外的数值，应如何修改上述程序？
IF应用
【例4】判断某年是否为闰年
满足以下条件之一的年份即为闰年： ①能被400整除 ②能被4整除，但不能被100整除
例1 布尔与整型的关系
Dim b As Boolean, n As Integer b=1 Print b b=0 Print b n=b Print n b=3 Print b n=b Print n
例2.求梯形面积
Val函数功能---将数字字符串转换为数值
例3 重点算法：设计算法交换两个变量a和b的值
例5: 变量strC中存放了一个字符，判断该字符类型。
用Select Case语句实现: Dim strC as string*1 如何获得strC？
Select Case strC Case "a" To "z"，"A" To "Z" Print strC + "是字母字符" Case "0" To "9" Print strC + "是数字字符" Case Else Print strC + "其他字符"
第04章VB控制结构
陈章良
E-MAIL：CHENZHL_YT@
第四章 VB控制结构
4.0 程序结构
4.1 顺序结构
4.2 选择结构
4.3 循环结构 4.4 其他辅助控制语句 4.5 综合应用 4.6 程序调试
4.0 程序结构
一个VB程序由两部分组成：
Viasual ，是由众多的对象构成了程序的可视 界面。 Basic，是响应各种事件的程序代码，也是程 序设计的重点和难点。
(1)对象：窗体、图形框或打印机。缺省为窗体。 (2)Spc(n)：从当前位置起空n个空格 (3)Tab(n)：从最左端开始计算的第n列 (4)分号：定位在上一个被显示的字符之后 (5)逗号：定位在下一个打印区开始处(每区14列) 例4.3 Print方法输出图mat格式输出函数 Format函数用于制定字符串或数字的输出 格式。
逻辑数据转换 为整形数据时 ，True为-1， False为0
1.5
其他类型数据转换 为逻辑数据时， 非0转换为True， 0转换为False
2.5
4.1.1 赋值语句
（4）任何非字符类型赋值给字符类型， 自动转换为字符类型。
例：strBh$=6012 【注意】
赋值号左边只能是变量，不能是常量 、常数符号或表达式。
3）If … Then … ElseIf语句(多分支结构)
4）If 语句的嵌套
4.2.1 If条件语句
1. If…Then语句(单分支结构) 形式：If <表达式> Then
语句块（一条或多条语句）
End If
或
If <表达式> Then <语句>
IF演示
VB程序设计 第四章 基本的控制结构
第四章基本的控制结构主要内容●顺序结构●输入函数（过程）InputBOX●输出函数（过程）MsgBox●选择结构（If、Select Case、Iif、Shoose、Switch）●循环结构（For … Next、Do … Loop、While … Wend）●其他辅助控制语句(Goto 、Exit、End、With)●常用算法（累加连乘特殊数类穷举法递推法最大和最小值）4.1 顺序结构一. 赋值语句形式: [LET]变量名＝表达式作用: 将表达式的值赋值给变量名。
一般用于给变量赋值或对控件设定属性值.[例] sRate!=0.1Text1.Text ＝ "欢迎使用Visual Basic 6.0”说明：（1）当表达式结果为数值类型而与变量的精度不同时,强制转换成左边变量的精度。
如：iA% = 10/3 iA中的结果为3，而表达式为3.33333n%=11/2 结果n的值为6（四舍五入）, 而表达式为5.5 （2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型，再赋值。
但如有非数字字符或空串，则出错。
如：X% = "9/2"（出错）（3）当逻辑型赋值给数值变量时，False 转成0，True转成-1后再赋给数值变量。
（4）当数值型表达式赋给逻辑型变量时，非0数值转成True,0值转成False 后再赋给逻辑变量（5）任何非字符类型表达式赋给字符变量一律转成字符类型赋给字符变量 [例] s$=True 结果s的值为 Truestr$=1.23E+3 结果string的值为”1230”。
s$=5>11 结果s的值为 False注意：●虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的置自动判断是何种意义的符号。
●赋值语句的左边只能是变量，不能是表达式，符号常量。
●不能在同一个语句中同时给各个变量赋值。
●正确理解类似 sum=sum+k 赋值语句的含义。
第4章 VB的基本控制结构
（2）设置界面对象属性，如表3-4所示。
（3）程序代码设计如下： Private Sub Command1_Click() Dim Grade As Single, PassCount As Integer, total As Integer Dim i As Integer, Sum As Single Sum = 0 PassCount = 0 Average = 0 total = 0 For i = 1 To 100 ' 当输入学生成绩个数大于100时停止循环 Grade = Val(InputBox("请输入学生的VB成绩:")) If Grade < 0 Then ' 输入负数时退出循环 Exit For Else If Grade >= 60 Then PassCount = PassCount + 1 '计算及格学生人数 total = total + 1 '计算总人数 Sum = Sum + Grade '计算总分 End If Next i If total <> 0 Then Average = Sum/total '防止用户未输入值时溢出 Text1.Text = Str(total) Text2.Text = Str(PassCount) Text3.Text = Str(Average) End Sub
Select Case 结构
Select Case 测试表达 式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select
说明： •例6：输入二级考试成绩，要求显 测试表达式的值应是数字或字符型 示对应三级制的评定。 • 测试项的取值必须与测试表达式
VB第四章 基本的控制结构
赋值号左边只能是变量名，不能是函数或表达式
如下面形式是错误的： cos(x)=y 5=y
X+3=y 不能在同一个赋值语句中给多个变量赋值 : y=1: z=1
2)数据类型的转换问题
2、使用文本框控件
★3、使用InputBox( )函数
Case 表达式1
<语句块1> Case 表达式2
<语句块2>
……. Case 表达式n <语句块n> [Case Else <语句块N+1> End Select
例：窗体上有一个按钮cmdRank和两个文本框txtInput、txtOutput，在文 本框txtInput中输入成绩，回车后，在txtOutput中显示级别。 Private Sub txtInput_keypress() dim intMark As Integer if keyascii=13 then Case Is>=70 txtOutput.text=“中等”
分析以下代码的作用 Dim Strname As String * 40 Dim Strs1 As String * 40 Strs1 = "请输入你的姓名" + Chr(13) + Chr(10) + "然 后单击确定" Strname = InputBox(Strs1, "输入框", , 100, 100) Print Strname
Private Sub cmd1_Click ( ) Dim int1 As Integer, int2 As Integer
int1 = CInt(Text1.Text)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第四章VB程序的控制结构4.1算法概论1．算法的概念算法：指用计算机解决某一问题的方法和步骤。
数值算法：用于解决一般数学解析方法难以解决的问题，如：求超越方程的根、求定积分、解微分方程等。
非数值算法：用于对非数值信息进行查找、排序等。
2．算法的特征（1）确定性：指算法的每个步骤都应确切无误，没有歧义。
（2）可行性：指算法的每个步骤必须是计算机能够有效执行、可以实现的，并可得到确定的结果。
（3）有穷性：指一个算法应该在有限的时间和步骤内可以执行完毕的。
（4）输入性：指一个算法可以有0或多个输入数据。
（5）输出性：指一个算法必须有一个或多个输出结果。
3．算法的评价主要评价指标是：算法是否正确、运行的效率、占用系统资源的多少。
4．算法的描述一般常用流程框图来描述算法。
5.基本算法结构“结构化程序设计方法”规定算法有三种基本结构：顺序结构、选择结构和循环结构6．算法示例（1）欧几里德算法——求两个自然数的最大公约数（2）顺序查找算法——在N个字符串集合中，查找有无特定的字符串存在4.2顺序结构1.赋值语句赋值语句是任何程序设计中最基本的语句，赋值语句都时顺序执行的。
赋值语句的形式为：变量名= 表达式它的作用是计算右边表达式的值，然后赋给左边的变量，表达式的类型应该与变量名的类型一致。
2. 使用说明（1）当表达式为数值型而与变量精度不同时，强制转换成左边变量的精度；（2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值，但当表达式中有非数字字符或空串，则出错。
（3）任何非字符类型赋值给字符类型，自动转换为字符类型；（4）当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，非0转换为True，0转换为False；（5）赋值号左边的变量只能是变量，不能是常量、常数符号、表达式，否则报错；（6）不能在一句赋值语句中，同时给各变量赋值；（7）在条件表达式中出现的= 是等号，系统会根据= 号的位置，自动判断是否为赋值号；（8）注意N=N+1 是累加中常见的赋值语句，表示将N变量中的值加1后再赋值给N。
54.3选择结构（或称分支结构)1.1. IF条件语句（1）If……Then语句（单分支结构F）语句形式：1）If<表达式> Then语句块End If2）If <表达式> Then <语句>说明：表达式一般为关系表达式、逻辑表达式，也可以为算术表达式，非0为True，0为False；语句块可以是一句或多句，若用2）表示，则只能是一句语句，若多句，语句间需用冒号分隔，而且必须在一行上书写。
例：已知两个数x和y，比较它们的大小，使得x大于y：方法一：if x<y thent=xx=yy=tend if方法二：if x<y then t=x : x=y : y=t注意：将两个变量中的数进行交换时，必须借助于第三个变量才能实现。
(2）If……Then……Else语句（双分支结构）语句形式：1）If <表达式> Then<语句块1>Else<语句块2>End If2）If <表达式> Then <语句1> Else <语句2>(3)If……Then……ElseIf语句（多分支结构）语句形式：If <表达式1> Then<语句块1>ElseIf <表达式2> Then<语句块2>……[ Else语句块n+1 ]End If注意：1）不管有几个分支，程序执行了一个分支后，其余分支不再执行；2）ElseIf不能写成Else If3）当多分支中有多个表达式同时满足，则只执行第一个与之匹配的语句块例：已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。
（4）If语句的嵌套If语句的嵌套是指if 或else后面的语句块中又包含If语句。
语句形式：If <表达式1> ThenIf <表达式11> Then……End If……End If注意：1）对于嵌套结构，为了增强程序的可读性，应该采用缩进形式书写；2）If语句形式若不在一行上书写，必须与End If配对，多个if嵌套，End If与它最接近的E md If配对。
例：已知x、y、z三个数，比较它们的大小并排序，使得x>y>z.2.Select Case语句（情况语句）是多分支语句的又一种形式，语句形式：Select Case 变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2……[Case Else语句块n+1]End Select说明：1）变量或表达式可以是数值型或字符串表达式2）表达式列表I可以是表达式、一组用逗号分隔的枚举值、表达式1 to 表达式2、Is关系运算符表达式；如：case 1 to 10 、case "a","w","e","t" 、case 2,4,6,8,is>103）并不是所有的多分支结构都可以用情况语句代替的。
例：已知输入某课程的百分制成绩mark，要求显示对应五级制的评定，评定条件如下：3.条件函数（1）if函数函数形式：Iif（表达式，当条件为True时的值，当条件为False时的值例：求X、Y中大的数，并放入变量Tmax中：Tmax=Iif（X>Y, X, Y）（2）Choose函数函数形式：Choose（整数表达式，选项列表）如果整数表达式的值是1，则选择列表中的第1项，依次类推；如果小于1或大于列表项数时，则返回NULL。
例：根据nub为1 -4的值，换算成不同的运算符：OP= Choose（nub,“＋”，“－”，“×”，“÷”）4.3 循环结构循环是在指定的条件下多次重复执行一组语句。
VB中提供了两种类型的循环语句：计数循环语句和条件型循环语句1. For循环语句（知道循环次数的计数型循环）语句形式：For 循环变量= 初值To 终值[ Step 步长]语句块[Exit For]语句块Next 循环变量说明：1）循环变量必须为数值型2）步长一般为正，初值小于终值；若为负，初值大于终值；缺省步长为1；3）语句块可以是一句或多句语句，称为循环体；4）Exit For 表示当遇到该语句时，退出循环体；执行Next的下一句；循环次数=int（（终值- 初值）/步长+1）5）退出循环后，循环变量的值保持退出时的值；6）在循环体内对循环变量可多次引用，但不要对其赋值，否则影响结果。
例1：计算1 ～N的奇、偶数之和。
（N为自然数）例2：打印ASCII码表2. Do……Loop循环（不知道循环次数的条件型循环）是用于控制循环次数未知的循环结构，语法形式有两种：形式1：Do While ……LoopDo [ While | Until 条件]语句块[ Exit Do ]语句块Loop形式2：Do ……Loop WhileDo语句块[ Exit Do ]语句块Loop [ While | Until 条件]说明：1）形式1为先判断后执行，有可能一次也不执行；2）形式2为先执行后判断，至少执行一次；3）关键字While 用于指明条件为真时就执行循环体中的语句，Until刚好相反；4）当省略了While|Until 条件字句，即循环结构仅由Do……Loop关键字构成时，表示无条件循环，这时循环体内应该有Exit Do语句，否则为死循环；5）Exit Do 语句表示当遇到该语句时，退出循环，执行Loop的下一语句。
例：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。
计算公式26=13（1+0.008）n图中的例子是按可变增长率和预计总人口数设计的。
3.循环的嵌套指在循环体内又包含了一个完整的循环结构。
循环嵌套对For 循环和Do……Loop循环均适用。
4.4其它辅助控制语句1．Go To 语句语句形式：Go To标号| 行号说明：（1）Go To语句只能转移到同一过程的标号或行号处；标号是一个字符系列，首字符必须为字母，与大小写无关，任何转移到的标号后面必须有冒号：；行号是一个数字序列；（2）以前BASIC中常用此语句，可读性差；现在要求尽量少用或不用，改用选择结构或循环结构来代替。
2．Exit语句用于退出某控制结构的执行，VB的Exit语句有多种形式，如：Exit For（退出For循环）Exit Do（退出Do）循环）Exit Sub（退出子过程）Exit Function（退出函数）3．End 语句独立的End语句用于结束一个程序的执行，可以放在任何事件过程中，形式为：EndVB 的End语句还有多种形式，用于结束一个过程或块，如：End If End With End Type End Select End Sub EndFunction4．With语句它的作用是可以对某个对象执行一系列的语句，而不用重复指出对象的名称。
但不能用一个With语句设置多个不同的对象。
属性前面需要带点号“·”。
语句形式如下：With 对象名语句块End With例：With for m1. Height=3000. Width=4000. BackColor=RGB(255,0,0)End With4.5程序调试1．VB的调试工具（1）设置自动语法检查打开工具菜单→单击选项命令→选择编辑器页面→将自动语法检测勾上。
（2）利用VB调试工具栏利用该工具栏可以运行程序、中断运行、在程序中设置间断点、监视变量、单步调试、过程跟踪等操作。
2．VB的三种模式（1）设计模式在设计模式下可以进行程序的界面设计、属性设置、代码编写等，标题栏上显示“设计”，在此模式下不能运行程序，也不能使用调试工具。
（2）运行模式执行“运行”菜单中的“启动”命令或单击工具栏上的启动按钮或按F5键，即由设计模式进入运行模式，标题栏显示“运行”，在此阶段可以查看程序代码，但不能修改。
若要修改，必须单击工具栏上的“结束”按钮，回到设计模式，也可以选择“中断”按钮，进入中断模式。
（3）中断模式当程序运行时单击了“中断”按钮，或当程序出现运行错误时，都可以进入中断模式，在此模式下，运行的程序被挂起，可以查看代码、修改代码、检查数据。
修改结束，单击“继续”按钮可以继续程序的运行，也可以单击“结束”按钮停止程序的执行。
3. 常见错误（1）编辑时错误当用户在代码窗口编辑代码时，VB会对程序进行语法检查，当发现语句没有输完、关键字输错等情况时，系统会弹出对话框，提示出错，并在错误处加亮显示，以便用户修改。