5行信是是习 4.1顺序结构 4.2分支结构 43循环结构 isualasic程序设针
Visual Basic 程序设计 第4节 算法基础及VB基本语句 4.2 分支结构 4.3 循环结构 4.1 顺序结构
41顺序结构 顺序结构:各语句按照出现的先后次序依次执行 包括∫赋值语句 输入/输出 Print方法 系统提供的交互函数或过程 1.值语句 (1)给变量赋值 如:A=“VB程序设计” 格式:变量名=表达式 Text1.Text≡A t2. Text (2)设置或 如: Dim v As Integer Dim book as String*8 设置属忄 Dim sum As Single ⅴ=26 获取属忄v=v+1 book=“VB程序设计” sum=ⅴ*123.4+56.7 Visualbasic程序设计
Visual Basic 程序设计 1.赋值语句 ⑴ 给变量赋值 格式：变量名=表达式 ⑵ 设置或获取对象的属性 设置属性值：[对象名.]属性=表达式 获取属性值：变量名＝对象名.属性 如: A=“VB程序设计” Text1.Text=A B＝Text2.Text 4.1 顺序结构 顺序结构：各语句按照出现的先后次序依次执行 Print方法 系统提供的交互函数或过程 包括 赋值语句 输入/输出 如: Dim v As Integer Dim book As String*8 Dim sum As Single v=26 v=v+1 book=“VB程序设计” sum=v*123.4+56.7
41顺序结构 顺序结构:各语句按照出现的先后次序依次执行 1.值语句 注意: 例: Dim v As Integer Dim book As string*8 (1)右边表达式的值强制转 Dim sum as double 换成左边变量的精度 Dim bool as boolean Boolean>数值型 ⅴ=26 ⅴ=w+12.3 True为-1; False为0 sum=V*123.4+56.7 Boolean<数值型 V=“126” 非0为Tue;0为 False sum=“123ab” v=lrue (2)若不能实现类型转换, sum=False 出现“类型不匹配”错 Boo1=123Boo1值为true Bool=o Boo值为 False Visualbasic程序设计
Visual Basic 程序设计 • Boolean → 数值型 True为-1；False为0 • Boolean 数值型 非0为True；0为False 1.赋值语句 4.1 顺序结构 顺序结构：各语句按照出现的先后次序依次执行 例: Dim v As Integer Dim book As String*8 Dim sum As Double Dim Bool As Boolean v=26 v=v+12.3 sum=v*123.4+56.7 v=“126” sum=“123ab” v=True sum=False Bool=123 ‘Bool值为true Bool=0 ’Bool值为False 注意： (1) 右边表达式的值强制转 换成左边变量的精度 (2) 若不能实现类型转换， 出现“类型不匹配”错
41顺序结构 顺序结构:各语句按照出现的先后次序依次执行 1.赋值语句 注意: 例: Dim X As sing1e (1)右边表达式的值强制转 Dim Y As single Dim Sum As Single 换成左边变量的精度 X=26 (2)若不能实现类型转换, Sin(x=X+Y 出现“类型不匹配”错 5=Sqr(x)+Y X+Y=126 (3)赋值号左侧只能出现变量 Sum=1 (4)一条赋值语句不能同时给 Sum=Sum+ 多个变量赋值 Visualbasic程序设针
Visual Basic 程序设计 1.赋值语句 4.1 顺序结构 顺序结构：各语句按照出现的先后次序依次执行 注意： (1) 右边表达式的值强制转 换成左边变量的精度 (2) 若不能实现类型转换， 出现“类型不匹配”错 例: Dim X As Single Dim Y As Single Dim Sum As Single X=26 Sin(X)=X+Y 5=Sqr(X)+Y X+Y=126 Sum=1 Sum=Sum+1 (3) 赋值号左侧只能出现变量 (4) 一条赋值语句不能同时给 多个变量赋值
41顺序结构 顺序结构:各语句按照出现的先后次序依次执行 1.值语句 (1)给变量赋值 (2)设置或获取对象的属性 (3)与用户交互函数和过程 InputBox函数 格式: InputBox(提示[标题],默认值]|,Ⅺ],Y) Msgbox函数 格式: Msg Box(提示内容,按钮设置],标题l) isualasic程序设针
Visual Basic 程序设计 4.1 顺序结构 顺序结构：各语句按照出现的先后次序依次执行 • InputBox函数 • Msgbox函数 ⑶ 与用户交互函数和过程 格式：InputBox ( 提示 [,标题] [, 默认值] [, X] [, Y] ) 格式：MsgBox ( 提示内容 [, 按钮设置] [, 标题] ) 1.赋值语句 ⑴ 给变量赋值 ⑵ 设置或获取对象的属性
nputBoxE数一输入框 作用: ·打开一个对话框等待用户输入內容。 单击确定,返回输入值(字符型数据) 格式: 变量名= InputBox(提示[,标题][,默认值][,Ⅺ]L,y]) 例:设置一个输入框: 提示用户输入查询学号。 输入提示 提示: 输入你的学号: 确定 若提示内容中需要换行显示: 取消 在换行处加chr(13)和chr(10) ·各项参数位置必须一一对应颐 Visualbasic程序设计
Visual Basic 程序设计 InputBox函数---输入框 作用： • 打开一个对话框,等待用户输入内容。 • 单击确定，返回输入值（字符型数据） 格式： 变量名 = InputBox ( 提示[,标题][,默认值][,X][,Y]) 例：设置一个输入框： 提示用户输入查询学号。 •提示： • 若提示内容中需要换行显示： 在换行处加chr(13)和chr(10) • 各项参数位置必须一一对应
nputBoXE数一输入 例如: Private Sub Command1 Click Dim name As string米40,s1 As string米40 s1="请输入姓名”+Chr(13)+Chr(10)+"然后单 击确认 name= InputBox(s1,"输入框",,100,100) text text=name End Sub
InputBox函数---输入 例如： Private Sub Command1_Click() Dim name As String * 40, s1 As String * 40 s1 = "请输入姓名" + Chr(13) + Chr(10) + "然后单 击确认" name = InputBox(s1, "输入框", , 100, 100) text1.text=name End Sub
标题栏属性 Msgbox函数一信息框 ()确人提示 1.语法 确定。取消 变量= MsgBox(提示内容[,按钮][,标题 MsgBox提示内容[,按钮],标题l 2 Msg Box函数的常用参数的说明 提示内容:必要。字符表达式,即显示在对话框中的信息 按钮:可选0壁叁衰途式,缺省值为0 指矩耜意第稻钮数臣果地(图g0)换行 缺省按钮等 标题:可选。在对话框标题栏中显示的内容。 省略此项,则将应用程序名放在标题栏中 Visualbasic程序设计
Visual Basic 程序设计 按 钮： 可选。整型表达式，缺省值为 0 指定信息框中按钮数目、类型、图标类型， 缺省按钮等 Msgbox函数--信息框 • 变量 = MsgBox(提示内容[,按钮][,标题]) • MsgBox 提示内容 [, 按钮] [, 标题] 提示内容：必要。字符表达式，即显示在对话框中的信息 2.MsgBox 函数的常用参数的说明 <= 1024 个字符， 如果文字超过一行，可用Chr(13) + Chr(10) 换行 标 题： 可选。在对话框标题栏中显示的内容。 省略此项，则将应用程序名放在标题栏中 1.语法
标题栏属性 Buttons参数的设置 确认提示 确定 取消 1.按扭的类烈和数目的设置 Buttons的和=按钮设置值+图标设置值+缺省按钮值 值按钮的设置 对应按钮名称 0 vbOKOnly-确定 vboK Cancel -确定、取消 2 vbabortretry Ignore-终止、重试、忽略 3 vbYesNoCancel- 是、否、取消 4 vbYesNo 是、否 vbRetry cancel. 重试、取消 Buttons参数值=1或 vboK cancel Visualbasic程序设计
Visual Basic 程序设计 值 按钮的设置 对应按钮名称 0 vbOKOnly---------------确定 1 vbOKCancel-------------确定、取消 2 vbAbortRetryIgnore---终止、重试、忽略 3 vbYesNoCancel---------是、否、取消 4 vbYesNo------------------是、否 5 vbRetryCancel----------重试、取消 Buttons参数的设置 1.按钮的类型和数目的设置 Buttons的和=按钮设置值 + 图标设置值 + 缺省按钮值 Buttons参数值= 1 或 vbOKCancel
标题栏属性 Buttons参数的设置 确认提示 确定」取消 2.图标的样式 Buttons的和=按钮设置值+图标设置值+缺省按钮值 对应值符号常量 出现的图标 16 acRitical 32 bQuestion ? 48 exclamation vbInformation -------- Buttons参数值=1+64或 vboK Cancel+ inFormation Visualbasic程序设计
Visual Basic 程序设计 对应值 符号常量 出现的图标 2.图标的样式 Buttons的和=按钮设置值+图标设置值+缺省按钮值 16 vbCritical -------------------- 32 vbQuestion -------------------- 48 vbExclamation -------------- 64 vbInformation --------------- Buttons参数值= 1+64 或 vbOKCancel+ vbInformation Buttons参数的设置