《高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 ppt 作者 张露2 第4章》由会员分享，可在线阅读，更多相关《高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 ppt 作者 张露2 第4章（16页珍藏版）》请在金锄头文库上搜索。
1、第4章 顺序程序设计,人民邮电出版社,21世纪高等学校计算机基础教育系列教材,顺序结构程序设计,结构化程序设计 程序设计中，不仅要保证程序的正确性，还要保证程序的易读和可维护性，要使程序可维护，就必须做到程序有良好的结构。结构化程序设计方法是一种书写可维护程序的重要方法。在对程序结构和功能的描述中，有多种工具，这里只介绍简单的关于程序流程图的知识： 程序流程图是用若干规定的几何图形来表示程序的结构和功能的一种标识图，在程序流程图中，主要使用的流程图符号见表,常用的流程图符号,输入语句 Visual Basic中，用户在输入的时候，需要用到一个输入函数，这个函数是InputBox(),其语法如下
2、： InputBox$(提示,标题 ,默认值 ,x坐标 , y坐标 ,帮助文件, 上下文) 各参数的具体解释见表,例如：s=InputBox(“请输入一个数字”,“数据判别系统”,0) 运行时出现如图4.1所示的窗口,图4.1 InputBox运行界面,数据输出 直接输出到窗体 使用Print方法在窗体中直接输出字符串或数值表达式的值，如图所示。,建立程序界面,输出时要用到Print方法，这个方法是一些对象所特有的，在使用中，要注意它的使用范围，Print方法的使用的语法如下： Object. Print outputlist Object是要输出的文本的位置，例如Form（窗体）、Debug
3、（调试），PictureBox（图片框）等。在不写Object时，系统默认将输出内容输出到窗体上。 Outputlist是可选的。是要打印的表达式或表达式的列表。如果省略，则打印一个空白行。就是换行。 其中可以使用前文讲述的spc（n）|tab（n）函数。,设计步骤如下。 (1) 建立应用程序用户界面。 (2) 设置对象属性 (3) 设计代码。 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Print Print “2 * 3 + 4 =“; 2 * 3 + 4 使用“;”分割符 Print Print “欢迎学习“ Print
4、, “Visual“ 使用“,”分割符 Print , , “Baisc“ 使用两个“,”分割符 Print Print “ 欢迎学习“, 在行末使用“,”分割符 Print “Visual“; “ Baisc“ End Sub,在上例中使用Tab函数与Spc函数，如图所示。 只需改写命令按钮的Click事件代码： Private Sub Command1_Click() Print Print Tab(5); “2 * 3 + 4 =“; 2 * 3 + 4 Print Print Tab(6); “欢迎学习“; Tab(17); “Visual Baisc“ Print Print Tab
5、(7); “欢迎学习“; Spc(3); “Visual“; Spc(2); “Baisc“ End Sub,Tab函数与Spc函数,3. 使用位置属性 下面程序按指定尺寸、颜色和外观，把文本输出到窗体的中间，如图所示。,使用CurrentX和CurrentY,(2) 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer FontName = “隶书“ 输出文本的字体 FontSize = 60 输出字体的大小 ForeColor = QBColor(
6、15) 输出文本的前景色，即字体的颜色 BackColor = QBColor(8) 输出文本的背景色，即窗体的颜色 a = “你好” 输出文本的内容 textW = TextWidth(a) / 2 文本的宽度TextWidth(a) textH = TextHeight(a) Command1.Height / 2 CurrentX = ScaleWidth / 2 textW 设置输出的水平位置 CurrentY = ScaleHeight / 2 textH 设置输出的垂直位置 Print a 输出文本 End Sub,输出文本到图片框 使用Print方法在图片框中输出字符串或数值表达
7、式的值。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性 (3) 设计代码。 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Picture1.Print Picture1.Print Tab(2); “2 * 3 + 4 =“; 2 * 3 + 4 Picture1.Print Picture1.Print Tab(3); “欢迎学习“; Tab(17); “Visual Baisc“ Picture1.Print Picture1.Print Tab(4); “欢迎学习“; Spc(3); “Visual“
8、; Spc(2); “Baisc“ End Sub,在图片框中使用位置函数。 设计步骤如下。 (1) 建立应用程序用户界面与对象属性,在图片框中使用位置函数,(2) 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer Picture1.FontName = “隶书“ Picture1.FontSize = 40 Picture1.ForeColor = QBColor(15) Picture1.BackColor = QBColor(8) a = “
9、你好“ textW = Picture1.TextWidth(a) / 2 文本的宽度TextWidth(a) textH = Picture1.TextHeight(a) / 2 Picture1.CurrentX=Picture1.Width/2textW 窗体的宽度属性ScaleWidth Picture1.CurrentY=Picture1.Height/2textH 设置垂直位置为从顶部往下50twips Picture1.Print a End Sub,另一个输出语句是一个对话框，用来输出简单的一些提示或文本。其语法是： MsgBox 输出的内容, 按钮及格式 ,标题 ,帮助文件,
10、 上下文 各参数的含义如下： 提示是必需的。字符串表达式，作为显示在对话框中的消息。提示的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果提示的内容超过一行，则可以在每一行之间用回车符 (Chr(13)、换行符 (Chr(10) 或是回车与换行符的组合 (Chr(13) & Chr(10) 将各行分隔开来。 按钮及格式是可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则按钮和格式的缺省值为 0,使用时，可以通过输入Vb然后从弹出的提示文本列表中选择需要的常量。 标题可选的。在对话框标题栏中显示的字符串表达式。如
11、果省略标题，则将应用程序名放在标题栏中。 帮助文件可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了帮助文件，则也必须提供上下文。 上下文可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了上下文，则也必须提供帮助文件。,例如： MsgBox “Visual Basic“ & Chr(10) & Chr(13) & “程序设计教程“, VbOKOnly +VbInformation, “输出举例“,MsgBox的结果,注释 注释语句 注释语句用来在程序中包含注释，语法格式为: 在要注释的内容前面加一个 来注释，例如： 如果注释是从某一
12、行的开始就注释的，可以使用关键字 rem 来注释 On Error Resume Next 设置错误捕获，发生错误时忽略错误，执行下一条语句 Data1.Recordset.Delete Data1.Recordset.MoveNext 当记录全部被删除后，该语句发生错误 Rem If Data1.Recordset.EOF Then Data1.Recordset.MoveLast 计算机在遇到这类代码时，就不执行这些代码。 注释的作用 注释可以作为一行单独存在，也可以作为一行的一部分； 多行注释的时候，要求每行都要有； 注释要清晰、简练，具有可读性； 注释可以用来对程序进行注释，也可以用来对程序进行调试。,Visual Basic中应用程序的结构,
