VisualBasic60程序设计黄学平主编Ⅲ-02structure幻灯片.pptVIP

PPT研究院 POWERPOINT ACADEMY * * * * * * 第3章 程序设计基础 3.1 顺序结构 3.2 选择结构 3.3 循环结构 3.4 其它辅助控制语句 一. 赋值语句 形式: [LET]变量名＝表达式 作用: 将表达式的值赋值给变量名. 一般用于给变量赋值或对控件设定属性值. 例: sRate!=0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 当表达式的类型与变量的类型不一致时,强制转换成左边的精度 iA% = 10 / 3 iA中的结果为3 注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。 二. 与用户交互函数和过程 1. InputBox函数 InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 其中:提示 提示信息,标题 对话框标题,缺省输入区缺省值 函数返回字符类型. 例要在屏幕上显示如下的对话框: Dim strName As String * 40， strS1 As String * 40 相应的语句如下: strName= InputBox( “请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以： strS1 = “请输入你的姓名” + Chr(13) + Chr(10) + “然后单击确定” strName= InputBox(strS1， “输入框”， ， 100，100) 当键盘输入“王晓明” 后,变量strName获得键盘输入的值. 2. MsgBox函数和MsgBox过程 函数形式:变量[%] = MsgBox(提示[,按钮][，标题]) 过程形式: MsgBox 提示[,按钮][,标题] 按钮值如下: 函数返回所选按钮整数值: 例圆半径用inputbox输入，计算结果用msgbox输出。 r=val(inputbox(“输入圆半径：”) s=3.14159*r*r msgbox “圆的面积=”+str(s) 三.选择结构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 例:已知两个数x和y，比较它们的大小， 使得x大于y. If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t 重要的是学会两个数的交换，若上述语句次序变一下，结果如何？ 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 计算分段函数 单分支结构实现: y=cos(x)－x^3+3*x If x0 Then y=sin(x)+sqr(x*x+1) 双分支结构实现: If x0 Then y=sin(x)+sqrt(x*x+1) Else y=cos(x)－x^3+3*x End If 3. If…Then…ElseIf语句(多分支结构) 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2