第四章vb计算机.pptVIP

第四章 基本的控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 综合应用 4.6 程序调试 4.7 常见错误 4.1 顺序结构 4.1.1 赋值语句 形式：[LET]变量名＝表达式 或者 [对象.]属性=属性值 作用： 将表达式的值赋值给变量名或属性名。 一般用于给变量赋值或对控件设定属性值。 例： sum!=sum+x Text1.Text ＝ 欢迎使用Visual Basic 6.0 注意： 当表达式值的精度与变量的精度不一致时，强制转换成左边的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为数值类型再赋值，但表达式有非数字字符时，则出错。 例如： n%=“123” n%=“12a3” 当逻辑型赋值给数值型时，True转换为-1， False转换为0；反之当数值型赋值给逻辑型时，非0转换为True，0转换为False。 任何非字符类型赋值给字符类型，自动转换为字符类型。 虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。如语句x=y=z=1 赋值号左边只能是变量，不能是常量、常数符号或表达式。如：x+y=3, sin(x)=x+z 理解n=n+1与s=s+x语句的含义。 4.1.2 数据的输入与输出 1.标签和文本框控件 标签可以输出信息，文本框即可输入也可输出信息。 2. 输入对话框InputBox函数 InputBox[$](Prompt, [Tiltle], [Default], [Xpos], [Ypos]) 其中： 1) Prompt: 字符串，长度不超过1024个字符，用来提示用户输入。文本可自动换行。如想强制插入回车换行则用： Chr$(13)+Chr$(10)或常数vbCrLf。 2) Title：字符串，对话框标题，显示在对话框顶部的标题区。 3) Default: 字符串，用来显示输入缓冲区的默认信息。 4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如果省略，则对话框显示在屏幕中心线向下约1/3处。 使用InputBox函数时的注意事项： 1）Default表示输入的初始默认值，如果直接按下回车键或单击“确定”按钮，函数的返回值（函数值）为该默认值。 2）变量名=InputBox(参数表） 函数值默认为字符类型。输入数值时，函数值可以利用 Val函数转换为数值后，再参加运算。如果变量已被正确地定义了类型时，则不必进行类型转换。 3）输入数据后，按回车键或单击“确定”按钮表示确认，并返回在文本框中输入的数据；如果单击“取消”按钮（或按Esc 键）时，则取消当前的输入，此时该函数返回一个空字符串。 4）需要输入多个值，则必须多次执行或调用InputBox函数。 例4.1利用InputBox输入基本工资和营业额，按营业额的5%提成，计算实发工资并显示。 Private Sub Form_Click() Dim sfgz！, jbgz！, y As Single jbgz = Val(InputBox(输入基本工资, 计算工资, 300)) y = Val(InputBox(输入本月营业额)) sfgz = jbgz + y * 0.05 Label1 = 本月营业额为： y 基本工资为： _ jbgz vbCrLf Label1 = Label1 本月实发工资为： sfgz End Sub MsgBox按钮设置 MsgBox所选按钮返回值 例4.2编一帐号和密码检验程序。要求： 帐号不超过6位数字，有错，清除原内容再输入。 密码输入时在屏幕上以 “*”代替； 若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。 分析： 帐号6位，MaxLength为6，LostFocus判断数字IsNumeric函数; 密码PassWordChar为“*”，MsgBox函数设置密码错对话框。 4. Print方法 5. Format格式输出函数 4.2 选择结构 4.2.1 If条件语句 1. If…Then语句(单分支结构) If 表达式