VB第三部分.pptVIP

第3章 程序流程控制;第3章 程序流程控制;3.1 VB程序设计中的常用语句;顺序结构流程图;赋值语句 （1）赋值作用：把一个表达式的值赋给一个变量或控件的一个属性。;（3）赋值相容 VB对某些数据类型提供了自动转换机制，强制变量转换为适当的数据类型。;3.1.2、; 要求如下： (1)提示信息为：请输入年龄 (2)标题为：年龄数据输入 (3)默认值为：20 (4)x坐标：2500 (5)y坐标：3500;【例3-1】输入长方体长、宽、高，计算并输出其体积。 Private Sub Command1_Click() Dim a As Single 长 Dim b As Single 宽 Dim c As Single 高 Dim v As Double 体积 a = InputBox(长方体的长：) b = InputBox(长方体的宽：) c = InputBox(长方体的高：) v = a * b * c Print 体积为：, v End Sub ;2.Msgbox函数 格式： msgbox(提示字符串[，按钮设置值][，标题字符串] ) 作用：用于接收用户简单的选择信息。 Msgbox函数在对话框中显示消息，等待用户单击按钮，并且返回一个整型值，告诉程序用户单击了哪个按钮。;Msgbox函数练习 要求如下： (1)提示信息为：函数练习 (2)有两个按钮：确定和取消 (3)显示图标为：! (4)第一个按钮为默认值 (5)标题为：提示信息 (6)如果用户按下确定屏显：你好 如果用户按下取消屏显：再见;【例3-2】 输入一个正数，并由用户决定是否求其平方根。 Private Sub Command1_Click() Dim a As String Dim fh as Integer a = Val(InputBox(请输入一个正数)) fh = MsgBox(对 + a + 求平方根吗？, vbYesNo + vbQuestion + vbDefaultButton1) If fh = vbYes Then Print Sqr(a) End If End Sub;3. MsgBox消息框语句 如果不需要返回值，MsgBox可写成语句形式，格式如下： MsgBox 提示字符串 [，按钮设置值][，标题字符串] 该语句用于简单的信息，例如： MsgBox 数据输入错误，请重新输入！, , 错误提示 ;格式: [对象．] Print [输出项列表];Print应用举例: Form1.Print 沈阳农业大学 Picture1.Print 沈阳农业大学 Print 沈阳农业大学 Printer.print “沈阳农业大学”;【例3-3】输入长方体的长、宽、高，求其体积。请对比三个Print语句的输出效果（输出结果略）。 Private Sub Command1_Click() Dim a!, b!, c!, v# a = InputBox(长方体的长：) b = InputBox(长方体的宽：) c = InputBox(长方体的高：) v = a * b * c Print 长:, a, 宽:, b, 高:, c, 的长方体的体积为：, v Print 长:; a, 宽:; b, 高:; c, 的长方体的体积为：; v Print 长:; a; 宽:; b; 高:; c; 的长方体的体积为：; v End Sub;Print 配合格式函数Format，按指定的格式输出数据。 函数格式为：Format（表达式[，格式字符串]）;【例3-4】用窗体事件过程试验数据的格式化输出。; 注释语句的前缀是一个单撇号或rem;格式:If 条件 then 语句序列 [else 语句序列] 要求:在一行内书写完毕，（255个字符限度);【例3-6】 : 输入一个数，若其大于等于0，则输出其算术平方根，若输入的数据小于零，则显示数据输入有误的信息。 Private Sub Command1_Click() Dim a! a = Val(InputBox(输入一个数)) If a = 0 Then Print a 的平方根是： Sqr(a) Else Print 数据输入有误！ End Sub ;3.2.2、块结构条件语句;块结构流程图;块结构输写注意: X=1 If x0 then Print “沈阳” Print “农大”