第3章 节 程序流程控制 计算机等级考试之VB程序设计课件.ppt

3.1 顺序结构 3.2 分支结构 3.3 循环结构; 如果在一个语句序列中，每一个语句都是按出现的先后顺序执行，即要执行第i个语句，必须先执行第i-1个语句，则这种语句序列的结构称为顺序结构。; 1.赋值语句的作用 一般形式： varname = expression 或[objname.] attribute = expression 其中varname为变量名，用户定义标识符。 “ = ”号 称为赋值号。 expression 为表达式。objname是对象名。 attribute 为属性名。 作用: 首先计算赋值号右边表达式的值，然后将该值赋给赋值号左边的标识符代表的变量或控件属性，作为变量或控件属性的当前值。该值一直保存到下一次再对它赋值为止。; 例如： Total = 100 k = k + 1 St$ = “Good morning .” ext1.Text = St$ “teacher!” Text2.Text = Str(Total); 例3-1 ; 3. 赋值相容 赋值语句中的变量名或控件的属性名，都代表一个存储单元。当执行赋值语句时，如果这个存储单元的结构和大小能够正确地表示赋值号右边表达式的值，则称该赋值语句赋值相容。 ; （1）数值型与字符串型 如果字符串中的字符为数值形式，则可将该字符串赋给数值变量。也可将数值赋给字符串变量。但如果把非数值形式的字符串赋给数值变量，则会出现“类型不匹配”的错误。;赋值相容测试。将命令按钮和文本框放置在窗体中。; （2）整型与实型 一般地，把一个整数赋给一个实型变量，将不会出什么错。但当把一个长整数赋给一个单精度变量，就可能会受示数精度的影响。 例如：Dim x As Single, y As Long y = 2147483647 x = y Print x 输出结果： 2.147484E+09 把一个实数赋给一个整变量，则只能获取它的整数部分。; 在VB应用程序中，若把需处理的原始数据或其它数据输入到计算机的存储器中，则可以使用InputBox函数和MsgBox 函数。 ; 一般格式：InputBox(prompt[,title][,default] [,xpos][,ypos]) 功能：系统在屏幕上显示一个输入对话框，并在输入对话框中显示两个命令按钮，一个是“确定“按钮，另一个是“取消”按钮。此时，系统等待用户输入数据并按回车键或“确定”按钮，也可以按“取消”按钮。若用户输入数据并按回车键或“确定”按钮后，系统就把该数据看作字符串作为函数返回值；否则，函数的返回值为空串。 ; 设计一程序，由用户输入立方体的长、宽和高，计算并输出立方体的表面积和体积。;Private Sub Command1_Click() Dim x!, y!, z!, s!, v! x = InputBox(请输入长度(cm)：, 输入数据, 10, 2000, 3000) y = InputBox(请输入宽度(cm)：, 输入数据, 10, 2000, 3000) z = InputBox(“请输入高度(cm)：, 输入数据, 10, 2000, 3000) s = (x * y + y * z + x * z) * 2 v = x * y * z: Text1 = x cm“: Text2 = y cm Text3 = z cm“: Text4 = s cm2“: Text5 = v cm3 End Sub Private Sub Command2_Click() End End Sub; 注意： (1) 为了能够正确地把字符串转换成数值型数据，通常应该对被赋值变量作出类型说明，如在例3-3中有： Dim x! x = InputBox(请输入长度(cm)：, 输入数据, 10, 2000, 3000) 或者使用Val函数作类型转换： x = Val(Inp