VB第四章顺序分支与循环结构.ppt

第四章 基本的控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环） 4.1 顺序结构 一. 赋值语句 P96 形式: [LET]变量名＝表达式 作用: 将表达式的值赋值给变量名. 一般用于给变量赋值或对控件设定属性值. 例: sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 当表达式的类型与变量的类型不一致时,强制转换成左边的精度 iA% = 10 / 3 iA中的结果为3 注意： 错误的赋值语句 二. 与用户交互函数和过程 1.InputBox函数 P80 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中:提示 提示信息，标题 对话框标题，缺省输入区缺省值 函数返回字符类型. 2. MsgBox函数和MsgBox过程P81 函数形式:变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式: MsgBox 提示[,按钮][,标题] 按钮值如下: 函数返回所选按钮整数值: 例4.1 编一帐号和密码检验程序。 要求: 帐号不超过6位数字,有错,清除原内容再输入. 密码输入时在屏幕上以 “*”代替; 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析: 帐号6位,MaxLength为6 , LostFocus判断数字IsNumeric函数 密码PassWordChar为“*”,MsgBox函数设置密码错对话框. 4.2 选择结构 1. If…Then语句(单分支结构)P100 If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 2. If…Then…Else语句(双分支结构)P101 If 表达式 Then 语句块1 Else 语句块2 End If 也可以写为一行，格式为： If 表达式 Then 语句1 Else 语句2 4. If…Then…ElseIf语句(多分支结构)P106 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 5. Select Case语句(情况语句)P107 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 实际应用举例 1.累加、连乘 * 注意多行提示信息的显示方法: 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获得键盘输入的值. 常见错误 数据合法性检查中引起程序的死循环 Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then msgbox “请输入正整数 Text1 = Text1.SetFocus End If End Sub Private Sub Text2_LostFocus() If Not IsNumeric(Text2) Then msgbox “请输入正整数 T