第3章 VB 控制结构.ppt

第3章 VB控制结构 3.1 顺 序 结 构 一、赋值语句 形式：变量名＝表达式 作用： 将表达式的值赋值给变量名。 一般用于给变量赋值或对控件设定属性值。 例： sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0 “ 当表达式的精度与变量的精度不一致时 （1）当表达式的精度与变量的精度不一致时，如 iA% = 7 / 2 iA中的结果为4（四舍五入） （2）当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值，但当表达式有非数字字符或空串时，则出错。 （3）当逻辑型赋值给数值型时，True转换为－1，False转换为0。反之当数值型赋值给逻辑型时，非0转换为True，0转换为False。 （4）任何非字符类型赋值给字符类型，自动转换为字符类型。 注意： （1）虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。 （2）赋值号左边只能是变量，不能是常量、常数符号或表达式。 （3）不能在一句赋值语句中，同时给多个变量赋值。 a=b=c=1 二、与用户交互函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中：提示： 提示信息；标题： 对话框标题；缺省：输入区缺省值 函数返回字符类型。 例要在屏幕上显示图示的对话框： 2. MsgBox函数和MsgBox过程 函数形式：变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式：MsgBox 提示[,按钮][,标题] 按钮值如下： 函数返回所选按钮整数值： 例 编一密码检验程序。 要求： 密码输入时在屏幕上以 “*”代替，四个字符； 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析： 帐号6位，MaxLength为6 密码PassWordChar为“*”，MsgBox函数设置密码错对话框。 3.2 选 择 结 构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 计算分段函数： 例3.3 实现计算器函数区中Abs功能 Private Sub Command10_Click( ) Dim x As Single x = Val(Text1.Text) If x 0 Then Text2.Text = x Else Text2.Text = -x 单行结构条件语句 End Sub 或 If x 0 Then Text2.Text =- x 3. If…Then…ElseIf语句(多分支结构) 形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 5. Select Case语句(情况语句) 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print 第; j; 次循环i=; i Next i Print 退出循环后i=; i End Sub 3.5 常用算法（一）