第4章 B控制结构c.ppt

第4章 VB控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 综合应用 4.6 程序调试 4.1 顺序结构 4.1.1 赋值语句 4.1.1 赋值语句 赋值语句注意点 （3）不能在一条赋值语句中，同时给多个变量赋值。 　例如：要对x，y，z三个变量值赋初值1，如下书写语法上没错，但结果不正确： Dim x%, y%, z% x = y = z = 1 　　执行该语句前x，y，z的变量值默认是0，Visual Basic在编译时，将右边两个“=”作为关系运算符处理，先进行y=z比较，结果为True(-1)；接着True=1比较结果False(0)；最后将False赋值给x，因此最后三个变量中的值仍为0。正确书写应分别使用三个赋值语句完成。 2.赋值语句的两个常用形式： ①累加。 例如： sum=sum+x s=s+x ②计数。 例如：n=n+1 x=x+1 Public x Private Sub Form_Click() x = x + 1 Print x=; x End Sub Private Sub Form_Load() x = 0 End Sub Public x, sum Private Sub Form_Click() x = x + 1 sum = sum + x Print x, sum End Sub Private Sub Form_Load() x = 0 sum = 0 End Sub 3.赋值号两边数据类型不同时的处理 赋值符号“=”两边的数据类型一般要求应一致。如果不一致，则 ①当表达式为数值型并与变量精度不同时，需强制转换成等号左边变量的精度 n%=3.5 ②当表达式是数字字符串，左边变量是数值类型，自动转换成数值类型再赋值。如果表达式有非数字字符或空串，则出错。n%=“1a23” ③当赋给数值型变量时，逻辑的True转换为-1，False转换为0； ④任何非字符型的值赋值给字符型变量，自动转换成字符型。 4.1.2 数据输出和输入 4.1.2 数据输出和输入 例：计算圆周长和面积。 2.输入对话框InputBox函数 格式：InputBox(提示[，标题][，默认][，x坐标位置][，y坐标位置]) 功能：InputBox函数产生一个对话框，作为输入数据的界面，等待用户输入内容，当用户单击“确定”按钮或按回车键，函数返回输入的值，其值的类型为字符串（String）。 使用方式：变量=InputBox（提示[，按钮][，标题] ][，x坐标位置][，y坐标位置] ） 例：计算圆周长和面积。 Private Sub Command1_Click() Dim r!, l!, s! r = InputBox(请输入圆的半径： + Chr(13) + _ 然后单击确定, 输入框, , 1000, 1000) l = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = r： Text2.Text = l： Text3.Text = s End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1 = ： Text2 = ： Text3 = End Sub 说明： （1）“提示”：必选项。字符串表达式，在对话框中作为提示信息显示，可为汉字。若要多行显示，必须在每行行末加回车符Chr(13)和换行符Chr(10)符或VB符号常数vbCrLf。 （2）“标题”：可选项。字符串表达式，在对话框的标题区显示；若省略，默认为应用程序名。 （3）“默认”：可选项。字符串表达式，当输入对话框中无输入时，则该默认值作为输入的内容。 Private Sub Command1_Click() i = InputBox(窗体上的提文字如：请输入基本工资, 标题栏上的文字如：计算工资, 2200) End Sub 说明： （4）“x坐标位置、y坐标位置”：可选项。整型表达式，确定对话框左上角相对于屏幕左上角的x、y坐标，单位为twip。该项如果省略，对话框在水平方向居中，垂直方向约为屏幕的上三分之一处显示。X和Y应成对出现，否则无效。 【注意】 　　　各项参数次序必须一一对应，除了“提示”一项不能省略外，其余各项均可省略，处于中间的默认部分要用逗号占位符跳过。 　　　 Dim st