第四章 vb基本的控制结构.ppt

第四章 基本的控制结构（8学时） 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 常用算法（综合应用） 4.6 常见错误 （顺序、条件、循环） 4.1 顺序结构 一. 赋值语句 形式: 变量名＝表达式 作用: 计算右边表达式的值，然后赋值给左边的变量 一般用于给变量赋值或对控件设定属性值. 例: n = n + 1 计数累加 Text1.Text ＝ 清除文本框的内容 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 赋值语句注意点 （1）当表达式的类型与变量的类型不一致时,强制转换成左边的精度； n% = 10/3 n%=“123” n%=“s123” n%=“” n% =true s$=123 （2）赋值语句不允许写成 表达式＝变量，虽然赋值号与关系运算符等于号都用=表示，VB系统会根据所处的位置自动判断符号的意义。 a=b和b=a赋值语句结果不同，但判断语句结果相同 （3）赋值号左边的变量只能是变量，不能是常量、常数符号、表达式。下面均为错误的赋值语句： Now()=x+y 5=sqr(s)+x+y x+y=3 4.1.2 数据输入和输出  相应的语句如下: Dim strName As String * 40 strName = InputBox(请输入你的姓名 + vbCrLf + 然后单击确定, 输入框) 也可以使用如下语句： Dim strName As String * 40， strS1 As String * 40 strS1 = 请输入你的姓名+Chr(13)+Chr(10)+然后单击确定 strName= InputBox(strS1,输入框,, 100,100) 当键盘输入“王晓明” 后，变量strName获得键盘输入的值. MsgBox函数和MsgBox过程 例4.2 编一帐号和密码检验程序。 要求: ① 帐号不超过6位数字,有错（非数字）,清除原内容再输入. ② 密码输入时在屏幕上以 “*”代替; 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析: 帐号6位,MaxLength为6 , LostFocus判断数字IsNumeric函数 密码PassWordChar为“*”,MsgBox函数设置密码错对话框. 4.1.2 数据输出和输入 Format格式输出函数 4.2 选择结构 4.2.1 If条件语句 单分支结构 例：窗体中有两个图片框，名称分别为P1、P2，其中的图片分别是一个航天飞机和一朵云彩，还有一个计时器，名称为Timer1，一个命令按钮，名称为C1，标题为发射。并给出了两个事件过程，但并不完整，要求： 1）设置计时器的属性，使其在初始状态下不计时； 2）设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。 3）在运行时单击发射按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图所示。 双分支结构 双分支结构例 多分支结构 多分支结构例 If 语句的嵌套 If 语句的嵌套 例题1：a,b,c是三角形的三个边，判断三角形的类型（直角、锐角、钝角）。 例题2：求一元二次方程的根，用条件语句嵌套的方法。 4.2.2 Select Case语句 用Select Case语句实现: Select Case strC Case a To z，A To Z Print strC + 是字母字符 Case 0 To 9 Print strC + 是数字字符 Case Else Print strC + 其他字符 End Select Select Case语句例 例题1：输入学生的成绩，判断成绩等级（不及格、及格、中等、良好、优秀） 例题2：随机产生一个[1-7]之间的正整数，判断是星期几。 例题3：某客运出租车的收费标准根据乘坐公里数的不同而定，规定如下，编程实现计费问题。 (1)距离在3公里以内（含3公里），基本起步价7元；(2)距离大于3公里，则超出的部分每公里加收1元； (3)如果离开市区(超过10公里)，则在按规则(2)计费的总额上加收10元出城费。 Select Case语句例 4.2.3 条件函数 4.2.3 条件函数 2）Choose函数 Choose(整数表达式，选项列表) 根据表达式的值i,返回选项列表中第i个选项。如果整数