湖南农业大学：《Visual Basic程序设计》课程教学资源（PPT课件讲稿）第四章 顺序结构程序设计

第四章顺序结构程序设计

第四章 顺序结构程序设计

本章主要内容 4.1赋值语句 4.2注释、暂停与程序结束 4.3数据输入 4.4数据输出 4.5字体和字形 4.6打印机输出

本章主要内容 4.1 赋值语句 4.2 注释、暂停与程序结束 4.3 数据输入 4.4 数据输出 4.5 字体和字形 4.6 打印机输出

4.1赋值语句 ◆格式:目标操作符=源操作符 ◆功能:把源操作符的值赋给变量Dota 其中 源操作符为:变量、表达式、常量及带有属性的对 象 目标操作符为:变量和带有属性的对象 =:赋值号 ◆例:Da=15 Text1. text=Str(data) =X+2

4.1 赋值语句 ◆ 格式：目标操作符＝源操作符 ◆ 功能：把源操作符的值赋给变量Data ◆ 其中： ◆ 源操作符为：变量、表达式、常量及带有属性的对 象 ◆ 目标操作符为：变量和带有属性的对象 ◆ ＝：赋值号 ◆ 例： Data＝15 ◆ Text1.text=Str(Data) ◆ x=x+2

说明: 1、赋值语句兼有计算和赋值双重功能。 2、“=”是赋值号,与数学上的等号意义不同。 3、“目标操作符”和“源操作符”的数据类型通 常要求一致,但 Basic提供的对某些数据类型的自动转 换机制,可强制变量转换为适当的数据类型。见P75 4、VB通常按“一行一句,一句一行”的规则书写, 但允许多个语句放在同一行,用 隔开。 如:a=3:b=4:C=5

说明： 1、赋值语句兼有计算和赋值双重功能。 2、“＝”是赋值号，与数学上的等号意义不同。 3、“目标操作符”和“源操作符”的数据类型通 常要求一致，但Basic提供的对某些数据类型的自动转 换机制，可强制变量转换为适当的数据类型。见P75 4、VB通常按“一行一句，一句一行”的规则书写， 但允许多个语句放在同一行，用“：”隔开。 如： a=3:b=4:c=5

4.2注释、暂停与程序结束 ◆注释语句 格式:“注释內容/Rem注释内容 说明 1、注释语句是非执行语句。 2、任何字符均可放在注释语句中作为注释内容。 示例 This is a test statement Rem计算圆的周长 Q=3b=4c=5ab,C为三角形的边

4.2 注释、暂停与程序结束 ◆注释语句 格式：‘注释内容 / Rem 注释内容 说明： 1、注释语句是非执行语句。 2、任何字符均可放在注释语句中作为注释内容。 示例： ‘ This is a teststatement Rem 计算圆的周长 a=3:b=4:c=5 ‘a,b,c为三角形的边

◆暂停语句 格式:Stop 说明: 1、可放置在过程中的任何地方,相当于在程序代码中 设置断点,类似于执行“运行”菜单中的“中断”命令。 2、执行Sop语句时,系统将自动打开“立即窗口”, 方便程序员调试跟踪程序。 3、程序调试结束后,生成可执行文件之前,应删除代 码中的所有Stop语句

◆暂停语句 格式：Stop 说明： 1、可放置在过程中的任何地方，相当于在程序代码中 设置断点，类似于执行“运行”菜单中的“中断”命令。 2、执行Stop语句时，系统将自动打开“立即窗口” ， 方便程序员调试跟踪程序。 3、程序调试结束后，生成可执行文件之前，应删除代 码中的所有Stop语句

◆结束语句 格式:End 功能:通常用来结束一个程序的执行。 在不同环境下的其他用途 End sub:结束一个SUb过程 End function:结束一个 Function过程 Endf:结束一个语句块 End Type:结束记录类型的定义 End select:结束情况语句

◆结束语句 格式：End 功能：通常用来结束一个程序的执行。 在不同环境下的其他用途： End Sub：结束一个Sub过程 End Function：结束一个Function过程 End If：结束一个If语句块 End Type：结束记录类型的定义 End Select：结束情况语句

4.3数据输入 ◆ inpuTbox函数 格式: inputbox[$]( promptl title][ default L,xpos, ypos]L,helpfile, context1 参数说明 1、 prompt提示字符串,不超过1024个字符。 tie显示对话框标题栏中的字符串表达式 3、 defau显示文本框中的字符串表达式,在没有其 它输入时作为缺省值,若省略efoU∥,则文本框为空。 4、XOs指定对话框的左边与屏幕左边的水平距离 5、ypos指定对话框的上边与屏幕上边的距离

4.3 数据输入 ◆InputBox函数 格式：Inputbox[$](prompt[,title][,default] [,xpos,ypos][,helpfile,context]) 参数说明： 1、prompt 提示字符串，不超过1024个字符。 2、title 显示对话框标题栏中的字符串表达式 3、default 显示文本框中的字符串表达式，在没有其 它输入时作为缺省值，若省略default，则文本框为空。 4、xpos 指定对话框的左边与屏幕左边的水平距离 5、 ypos 指定对话框的上边与屏幕上边的距离

6、 helpfile字符串表达式,识别帮助文件,用该文件为 对话框提供上下文相关的帮助。 7、 context数值表达式,由帮助文件的作者指定给某个 帮助主题的帮助上下文编号。 标题 提示 Tite。 字符串 prompt 确定 取消 default

6、helpfile 字符串表达式，识别帮助文件，用该文件为 对话框提供上下文相关的帮助。 7、context 数值表达式，由帮助文件的作者指定给某个 帮助主题的帮助上下文编号。 标题 提示 字符串

例4-1设计一个程序,由用户输入一个华氏温度F,程序可将 其转换为摄氏温度C。转换公式为C=(9/5)(F-32) Private Sub Command1_Click Dim F, C As Long F=Vol( nputBox(请输入华氏温度""例4-1") C=5/9*(F-32) Text1. Text=F Text2Text=C End sub Private Sub Command2_Click( End End sul b 到VB环境下运行

例4－1 设计一个程序，由用户输入一个华氏温度F，程序可将 其转换为摄氏温度C。转换公式为C＝（9/5)(F-32) PrivateSub Command1_Click() Dim F, C As Long F = Val(InputBox("请输入华氏温度", "例4-1")) C = 5 / 9 * (F - 32) Text1.Text = F Text2.Text = C End Sub PrivateSub Command2_Click() End End Sub 到VB环境下运行