第4章VB基本控制结构13.pptVIP

第四章 基本控制结构;基本控制结构 ;（2）选择结构 ;（3）循环结构 ;4.1 顺序结构 ;4.1.1 赋值语句 形式：[LET]变量名＝表达式 或者 [对象.]属性=属性值 作用： 将表达式的值赋值给变量名或属性名。 一般用于给变量赋值或对控件设定属性值。 例： sum!=sum+x Text1.Text ＝ 欢迎使用Visual Basic 6.0 注意： 当表达式值的精度与变量的精度不一致时，强制转换成左边的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为数值类型再赋值，但表达式有非数字字符时，则出错。 例如： n%=“123” n%=“12a3” ;Private Sub Command1_Click() Dim a% Let a = 3.6 四舍五入 Print a End Sub 输出 4;Private Sub Command2_Click() Dim a!, b! a = 123 b = 456 Print a + b End Sub 输出: 579;当逻辑型赋值给数值型时，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语句的含义。;Private Sub Command3_Click() Dim z%, y%, x z = 1 y = 1 x = y = z = 1 理解为x = ((y = z) = 1) Print x End Sub 输出结果：False;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过程不返回值。 MsgBox函数形式： MsgBox(提示, [按钮], [标题]) MsgBox过程形式： MsgBox 提示,[按钮],[标题] 其