Visual Basic程序设计 教学课件 作者 解凯 陈如琪 第四章 Visual Basic控制结构.pptVIP

第四章 Visual Basic控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环） 4.1 顺序结构 顺序结构： 该结构中，各语句按出现的先后次序执行。 顺序结构中的语句主要有: 赋值语句 输入/输出语句 VB中的输入/输出语句可以通过 文本框控件 Print方法 用户交互的函数和过程 来完成输入、输出功能 一、赋值语句 形式: 变量名＝表达式 作用: 先计算右边的表达式的值，然后将值赋给左 边的变量。一般用于给变量赋值或对控件设 定属性值. 例: sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” intx=5+6*10 计数器 count%=0 count=count+1 赋值语句 3 当逻辑型值赋给数值型时，T转换为 –1，F转换为0。反之，当数值型赋给逻辑型时，非0转换为T，0转换为F。 4 任何非字符类型赋值给字符类型，自动转换为字符类型。 注意 虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。例如：赋值语句a=b和b=a是不同的两条语句，而在关系表达式中a=b和b=a是等价的。 赋值号左边只能是变量或属性，不能是常量、常数符号或表达式。 如：sin(x)=x+y; 0=sin(x); x*y=8 不能在一句赋值语句中同时给多个变量赋值。 如 dim x, y, z x=y=z=1 (结果为0) 常用的赋值语句：sum=sum+x 二.数据的输入 1. 对话框输入 ：InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置] [，y坐标位置]) 其中: 提示 提示信息, 不能省略，字符串表达式, 标题 对话框标题,字符串表达式 缺省字符串表达式，输入区缺省值 x, y 整型表达式，左上角的位置，Twip 注意：各项参数必须一一对应，可省略部分要用逗号分开。 例如在(100,100)位置显示输入框, 其中默认值省略 userName = InputBox（“请输入你的姓名” , “输入姓名” , , 100 , 100） 当输入姓名“王伟”并单击“确定”按钮，则将输入框中的输入值送到变量userName中。若按“取消”按钮，则返回一个0长度的字符串。 例4-1 输入摄氏温度c，请转换为华氏温度f输出。 分析：摄氏温度转换成华氏温度的公式为： F=9/5*c+32 编写事件过程程序如下： Private Sub Form_Click() Dim c?!, f?! c=val(InputBox?(“ 请输摄氏入温度”, “计算华氏温度”)) f=9/5*c+32 print “摄氏温度c=”;c, “华氏温度f=”;f End Sub 例 某商场营业员的总工资由两部分组成：基本工资 和营业额提成。基本工资一般为300元；营业额提成 是营业额的5%。要求输入基本工资、本月的营业 额，显示实发工资。 Private Sub Form_Click() Dim jbgz!, sfgz!, x As Single jbgz = Val(InputBox(输入基本工资, 工资计算, 300)) x = Val(InputBox(输本月入营业额)) sfgz = jbgz + x * 0.05 Print 本月实发工资=; sfgz End Sub 2．用文本框输入 文本框控件可以用作数据的输入，在运行时接受用户输入的数据。 例如，将文本框text1中输入的字符串赋给字符串变量Mystr，代码如下： Dim Mystr as String Mystr=Text1.Text 由于文本框的Text属性为字符串类型，因此要想将输入到文本框的内容作为数值输入，要进行类型转换。 例4-2输入二元一次方程的系数，求二元一次方程的解。 分析：二元一次方程的求解公式为： 在窗体上通过文本框输入方程的系数，单击“求解”按钮后，方程的解显示在标签中。 Private Sub