VB基本语句(8学时)

《VB基本语句(8学时)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5.1分支结构5.3程序示例5.2循环结构信电工程学院VisualBasic程序设计第五章基本的控制结构5.4二级考试部分试题先对条件测试，根据测试的结果选择执行不同的分支1.If条件语句2.SelectCase结构VisualBasic程序设计§5.1选择结构3.条件函数例：Ifscore>=60ThenPrint"祝贺你考试通过！"EndIfPrint“继续努力！”等价于：IfScore>=60ThenPrint“祝贺你考试通过！”Print“继续努力!!!”1.If…Then结构格式:(1)If条件The

2、n(A组语句)EndIf……(2)If条件Then语句执行规则：若条件成立,执行A组语句;条件不成立,跳过A组语句.§5.1.1If条件语句条件A组语句TF使用前提：条件成立时,A组语句中只一条执行语句例：Ifscore>=60ThenPrintscorePrint"祝贺你考试通过！"EndIfPrint“继续努力！”练习.1.If…Then结构例1：输入两个数，分别放在x和y变量中，比较它们大小，然后将大数放在x中，小数放在y中。x

3、y=xx=yEndIfPrintx,y……t=xx=yy=tFxyT思考：3个数的排序如何实现？①②③两个变量的值互换：§5.1.1If条件语句例：Ifscore>=60ThenPrint“祝贺你考试通过！”ElsePrint“考试未通过.”EndIfPrint"继续努力！"2.If…Then…Else结构格式：If条件ThenA组语句ElseB组语句ENDIf执行规则:条件成立,执行A组语句,条件不成立,执行B组语句例2：计算分段函数：(可用双分支和两个单分支分别实现）Y=√x2+1(x≠0)x3+3x(x=

4、0)条件A组语句TFB组语句§5.1.1If条件语句F两边之和大于第三边？2.If…Then…Else结构例3:已知△三边的长，设计求△面积的程序(P64)。输入a,b,c求S△结束输出s求半周长LT提示数据错开始§5.1.1If条件语句例4：(思考)输入二级考试成绩，要求显示对应三级制的评定。评定条件为：优：Mark≥90等级：通过：60≤Mark＜90未通过：<60成绩>=90?输入成绩开始输出“通过”T输出“优”T成绩>=60?F输出“未通过”F§5.1.1If条件语句.3.If…Then…ElseIf结

5、构Mark=Text1.TextIfMark>=90ThenPrint"优"ElseIfMark>=60ThenPrint“通过"ElsePrint“未通过"EndIf若条件1与条件2换位，结果会怎样？格式：If条件1Then（A组语句）ElseIf条件2Then（B组语句）ElseIf条件3Then（C组语句）……Else（n组语句）EndIf§5.1.1If条件语句.格式：If条件1ThenA组语句ElseIf条件2ThenB组语句ElseIf条件3ThenC组语句……Elsen组语句EndIf3.If…T

6、hen…ElseIf结构注意：多分支语句中，有多个分支同时满足，只执行第一个与之匹配的语句块。注意ElseIf的写法§5.1.1If条件语句.例5编写一个按月收入额计算个人收入调节税的程序计算方法如下（P77例5-8）0Pay≤1000或离退休(Pay-1000)*0.051000＜Pay≤2000Z＝(Pay-2000)*0.15+502000＜Pay≤3000(Pay-3000)*0.25+2003000＜Pay≤4000(Pay-4000)*0.35+450Pay≤4000分析：选择语句结构每个条件的表示

7、及先后顺序3.If…Then…ElseIf结构§5.1.1If条件语句.4.If语句的嵌套§5.1.1If条件语句If语句的嵌套是指if或else后面的语句块中又包含If语句。语句形式：If<表达式1> ThenIf<表达式11> Then……EndIf……EndIf注意：(1)对于嵌套结构，为了增强程序的可读性，应该采用缩进形式书写；(2)If语句形式若不在一行上书写，必须与EndIf配对多个If嵌套，EndIf与它最接近的If配对。SelectCase测试表达式Case测试项1A组语句Case测试项2B组语

8、句……CaseElsen组语句EndSelect说明：测试表达式的值应是数字或字符型测试项的取值必须与测试表达式的值类型相同，常用形式为：具体取值，用逗号隔开如：1，5，9连续的范围：界1TO界2如：12To20满足某个条件：Is运算符如：Is>10三种形式可以组合使用§5.1.2SelectCase语句SelectCase结构例5：输入二级考试成绩，要求显示对应三级制的评定。Mark