第四章VB控制结构资料

《第四章VB控制结构资料》由会员分享，可在线阅读，更多相关《第四章VB控制结构资料（62页珍藏版）》请在金锄头文库上搜索。

1、第四章 VB控制结构,第四章 VB控制结构,4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 综合应用 4.6 程序调试,VB控制结构,4.1 顺序结构 P60,一、赋值语句形式 形式：变量名=表达式 作用：将右边表达式的值赋值给左边的变量，一般用于给变量赋值或对控件设定属性值 例：y=3*x2+4*x Text1.Text=“Visual Basic“ 注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号 赋值号左边只能是变量，不能是常量、函数调用、表达式。如x+y=3、5=sqr(s)+x+y,4.1 顺序

2、结构 P61,一、赋值语句两个常用形式 累加 例如sum=sum+x，与循环结构结合使用可起到累加作用 计数 例如n=n+1，与循环结构结合使用可起到计数作用,一、赋值语句赋值号两边数据类型不同时的处理 当表达式为数值型并与变量精度不同时，需强制转换成左边变量的精度。如n%=3.5 , n!=3 当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值。如表达式中数值超出取值范围，或包含非数字字符、空字符串，则出错。如n%=“123“, n%=“50000“, n%=“1a23“或n%=“,一、赋值语句赋值号两边数据类型不同时的处理 当逻辑型值赋值给数值型变量时，True转换为-1，

3、False转换为0；反之当数值赋值给逻辑型变量时，非0转换为True，0转换为False 任何非字符型的值赋值给字符型变量，自动转换为字符型,4.1 顺序结构 P62,二、数据的输入和输出 1.标签和文本框控件 标签：利用标签的Caption属性(可缺省)来输出数据 文本框：利用文本框控件的Text属性(可缺省)获得用户从键盘输入的数据，或将计算结果输出,4.1 顺序结构 P62,二、数据的输入和输出 2.输入对话框InputBox函数 形式：InputBox(提示, 标题, 缺省, x 坐标位置, y坐标位置) 提示：提示信息；标题：对话框标题；缺省：输入区缺省；坐标位置：对话框左上角位置

4、作用：打开一个对话框，等待用户键入文本或选择一个按钮 单击“确定”或按回车键时，函数返回文本框中输入的值，其类型为字符类型,二、数据的输入和输出 P62 2.输入对话框InputBox函数 要在屏幕上显示图示的对话框 jbgz = Val(InputBox(“输入基本工资“, “计算工资“, 300) 注意：各项参数次序必须一一对应，除了“提示”一项不能省略外，其余均可省略，处于中间的默认部分要用逗号占位符跳过,默认值,提示,标题,x,y位置,二、数据的输入和输出 P63 3.消息对话框MsgBox函数和过程 函数形式：变量% = MsgBox(提示,按钮,标题) 过程形式：MsgBox 提示

5、,按钮,标题 按钮：决定信息框按钮的数目和类型以及出现在信息框上的图标类型,二、数据的输入和输出 P63 3.消息对话框MsgBox函数和过程 作用：打开一个信息框，等待用户选择一个按钮,MsgBox函数返回所选按钮的整数值 若不需返回值，则可作为MsgBox过程使用,例4.2 编一帐号和密码检验程序。 要求：(1)帐号不超过6位数字 (2)密码4位字符，输入时在屏幕上以“*”代替(3) 若账号为非数字，显示警告信息。(4)若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析：帐号6位，MaxLength为6，LostFocus事件下利用IsNumer

6、ic函数判断输入合法性，密码PassWordChar为“*”，MsgBox函数设置密码错对话框。,二、数据的输入和输出 P66 4.Print方法 对象.Print定位函数输出表达式列表分隔符 对象：窗体(Form)、图形框(PictureBox)或打印机(Printer) ，省略对象则在窗体上输出 定位函数：包括Spc(n)函数和Tab(n)函数，允许重复使用 表达式列表：要输出的数值或字符串表达式 分隔符：在多个表达式之间，用于表示光标的定位，包括分号和逗号,二、数据的输入和输出 P66 4.Print方法定位函数 Spc(n)函数：输出插入n个空格 Tab(n)函数：从最左第一列开始算起

7、定位第n列 Private Sub Command1_Click() Print “1234567890“ Print Tab(1); “*“; Tab(2); “%“; Spc(2); “$“ End Sub 若当前打印位置已经超过n列，则定位于下一行的第n列,Print 1, -2 Print “We“, “study“ 运行结果,Print各数据分别在各自的标准输出区内输出，数据划分非常明显（读取数据容易） 对于一个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符,4.Print方法分隔符,标准格式： 光标定位在下一个 打印区的开始位置 处，打

8、印区每隔14 列开始,Print 1; -2 Print “We“; “study“ 运行结果,Print各数据紧凑地显示 对于一个数值型数据，前面有一个符号位，数据后留有一个空格作为分隔符 对于字符串数据，输出的各字符串数据间没有空格而连成一片，造成读取数据的困难,4.Print方法分隔符,紧凑格式： 光标定位在上一个 显示的字符后,例4.3 显示图形 Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - i, “); Spc(6); String(i, “) Next i End Sub,注意： String(nu

9、mber, character) 返回指定长度重复字符的字符串。 考虑： 若把Spc(6)换成Tab(6)，效果如何？,二、数据的输入和输出 P67 5.Format格式输出函数 Format(表达式,“格式字符串”) 功能：使数值、日期和字符串按指定格式输出 表达式：要格式化的数值、日期和字符串类型表达式 格式字符串：表示按其指定的格式输出表达式的值 格式字符串有三类：数值格式、日期格式和字符串格式，格式字符串两旁要加双引号 函数的返回值是按规定格式形成的一个字符串,二、数据的输入和输出 P67 5.Format格式输出函数 (1)数值格式化 0：实际数字小于符号位数，数字前后加0 #：实际

10、数字小于符号位数，数字前后不加0 注意：若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示 若小数部分多于格式字符串的位数，按四舍五入显示,1234.567,01234.5670,00000.0000,1234.567,1234.57,000.00,1234.567,1234.567,#.#,1234.567,1234.57,#.#,4.2 选择结构 P69,一、If条件语句 对条件进行判断，根据判断结果选择执行不同的分支 1.IfThen语句(单分支结构) If Then End If 或 If Then 功能：条件执行,表达式,语句块,F,T,一、If条件语句 1.IfT

11、hen语句(单分支结构) 例：已知两个数x和y，比较它们的大小，若x小于y，互换两者的值，使得x大于y If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t,x,y,t,一、If条件语句 2.IfThenElse语句(双分支结构) If Then Else End If 或 If Then Else 功能：分支选择,表达式,语句块1,F,T,语句块2,一、If条件语句 2.IfThenElse语句(双分支结构) 计算分段函数： (1)单分支结构实现： y=sin(x)+sqr (x*x+1) If x=0 Then y=cos(x)x

12、3+3*x (2)双分支结构实现：If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)x3+3*x End If,一、If条件语句 3.IfThenElseIf语句(多分支结构) If Then ElseIf Then Else 语句块 n+1 End If,例4.2 已知字符型变量ch中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。 用多分支结构实现: If UCase(ch) =“A“ And UCase (ch) =“0“ And ch =“9“ Then Print ch + “是数字字符“ Else Print ch + “其他字符

13、“ End If,一、If条件语句,ElseIf不能写成 Else If 不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行 当多分支中有多个表达式同时满足时，则只执行第一个与之匹配的语句块 若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行,一、If条件语句,例4.3 已知百分制成绩mark，显示对应的五级制成绩。哪些正确，哪些错误？,一、If条件语句,一、If条件语句 4.If嵌套语句 If语句的嵌套是指If或Else后面的语句块中又包含If语句。形式如下： If Then If Then End If End If,一、If条件语句 4.If嵌套语句

14、 例4.4 已知x，y，z三个数，使得xyz。用一个IF语句和一个嵌套的IF语句实现 If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If,二、Select Case语句(情况语句) P73 形式： Select Case 变量或表达式 Case 表达式列表1 Case 表达式列表2 Case Else End Select,数值型或字符串表达式,二、Select Case语句(情况语句) P73 ：与同类型的下面四种形式之一： 表达式 例： “A“ 一组枚举表达式(用逗

15、号分隔) 2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is 中的结果与各Case子句中的值比较决定执行哪一组语句块,例4.5 变量ch中存放了一个字符，判断该字符类型。 在例4.2中用多分支结构实现： If UCase(ch) =“A“ And UCase (ch) =“0“ And ch =“9“ Then Print ch + “是数字字符“ Else Print ch + “其他字符“ End If 用Select Case语句实现: Select Case ch Case “a“ To “z“, “A“ To “Z“ Print ch + “是

16、字母字符“ Case “0“ To “9“ Print ch + “是数字字符“ Case Else Print ch + “其他字符“ End Select,例4.6 已知坐标点(x，y)，判断其落在哪个象限。,哪个能实现，哪个不能实现？,方法一 If x 0 And y 0 Then Print “在第一象限“ ElseIf x 0 Then Print “在第二象限“ ElseIf x 0 And y 0 Then Print “在第四象限“ End If,方法二 Select Case x,y Case x 0 And y 0 Print “在第一象限“ Case x 0 Print “在第二象限“ Case x