21世纪高等学校计算机基础教育系列教材 第4章顺序程序设计
第4章 顺序程序设计 •人民邮电出版社 21世纪高等学校计算机基础教育系列教材
顺序结构程序设计 结构化程序设计 程序设计中,不仅要保证程序的正 确性,还要保证程序的易读和可维 图形符号 名称 护性,要使程序可维护,就必须做 起始和结束框 到程序有良好的结构。结构化程序 设计方法是一种书写可维护程序的 输入输出框 重要方法。在对程序结构和功能的 条件判断框 描述中,有多种工具,这里只介绍 简单的关于程序流程图的知识: 处理框 程序流程图是用若干规定的几何图 流程线 形来表示程序的结构和功能的一种 标识图,在程序流程图中,主要使 用的流程图符号见表 常用的流程图符号
顺序结构程序设计 图形符号 名 称 起始和结束框 输入输出框 条件判断框 处理框 流程线 结构化程序设计 程序设计中，不仅要保证程序的正 确性，还要保证程序的易读和可维 护性，要使程序可维护，就必须做 到程序有良好的结构。结构化程序 设计方法是一种书写可维护程序的 重要方法。在对程序结构和功能的 描述中，有多种工具，这里只介绍 简单的关于程序流程图的知识： 程序流程图是用若干规定的几何图 形来表示程序的结构和功能的一种 标识图，在程序流程图中，主要使 用的流程图符号见表 常用的流程图符号
输入语句 Visual basic中,用户在输入的时候,需要用到一个输入函数,这个函数是 InputBox(O,其语法如下: Input Box$](提示[标题][默认值][x坐标][,y坐标][帮助文件,上下文] 各参数的具体解释见表 参数 描 必需的。作为对话框消息出现的字符串表达式。提示的最大长度大约是1024个字符,由所用字 符的宽度决定。如果提示包含多个行,则可在各行之间用回车符(Chr(13)、换行符 (Chr(10))或回车换行符的组合(Chr(13)&chr(10)来分隔。 标题 可选的。显示对话框标题栏中的字符串表达式。如果省略标题,则把应用程序名放入标题栏中 默认值 可选的。显示文本框中的字符串表达式,在没有其它输入时作为缺省值。如果省略默认值,则文 本框为空 X坐标 可选的。数值表达式,成对出现,指定对话框的左边与屏幕左边的水平距离。如果省略X坐标, 则对话框会在水平方向居中 可选的。数值表达式,成对出现,指定对话框的上边与屏幕上边的距离。如果省略Y坐标,则对 Y坐标 话框被放置在屏幕垂直方向距下边大约三分之一的位置 帮助文件 可选的。字符串表达式,识别帮助文件,用该文件为对话框提供上下文相关的帮助。如果已提供 帮助文件,则也必须提供上下文。 上下文 可选的。数值表达式,由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供上 下文,则也必须要提供帮助文件
输入语句 Visual Basic中，用户在输入的时候，需要用到一个输入函数，这个函数是InputBox(),其语法如下： InputBox[$](提示[,标题] [,默认值] [,x坐标] [, y坐标] [,帮助文件, 上下文]) 各参数的具体解释见表 参数 描 述 提示 必需的。作为对话框消息出现的字符串表达式。提示 的最大长度大约是 1024 个字符，由所用字 符的宽度决定。如果 提示 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。 标题 可选的。显示对话框标题栏中的字符串表达式。如果省略标题，则把应用程序名放入标题栏中。 默认值 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略默认值，则文 本框为空。 X坐标 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 X坐标， 则对话框会在水平方向居中。 Y坐标 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 Y坐标，则对 话框被放置在屏幕垂直方向距下边大约三分之一的位置。 帮助文件 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 帮助文件，则也必须提供上下文。 上下文 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供上 下文，则也必须要提供帮助文件
例如:s=- Input Box(“请输入一个数字”,“数据判别系 统”,0) 运行时出现如图4.1所示的窗口 数据判别系统 请输入一个数字 确定 取消 图41 Input Box运行界面
例如：s=InputBox(“请输入一个数字”,“数据判别系 统”,0) 运行时出现如图4.1所示的窗口 图4.1 InputBox运行界面
输出时要用到 Print方法,这个方法是一些对象所特有的,在使用 中,要注意它的使用范围, Print方法的使用的语法如下 Object. Print loutputlist] Object是要输出的文本的位置,例如Form(窗体)、 Debug(调 试), Picture Box(图片框)等。在不写 Object时,系统默认将输 出内容输出到窗体上。 Outputlist是可选的。是要打印的表达式或表达式的列表。如果省 略,则打印一个空白行。就是换行。 其中可以使用前文讲述的spc(n)tab(n)函数 数据输出 Form1 口区 直接输出到窗体 2米3+4=10 使用 Print方法在窗体中直接输出字符串欢学 Visual 或数值表达式的值,如图所示。 Baisc 欢迎学习 Visual Baisc 欢迎个 建立程序界面
数据输出 直接输出到窗体 使用Print方法在窗体中直接输出字符串 或数值表达式的值，如图所示。 建立程序界面 输出时要用到Print方法，这个方法是一些对象所特有的，在使用 中，要注意它的使用范围，Print方法的使用的语法如下： Object. Print [outputlist] Object是要输出的文本的位置，例如Form（窗体）、Debug（调 试），PictureBox（图片框）等。在不写Object时，系统默认将输 出内容输出到窗体上。 Outputlist是可选的。是要打印的表达式或表达式的列表。如果省 略，则打印一个空白行。就是换行。 其中可以使用前文讲述的spc（n）|tab（n）函数
设计步骤如下 (1)建立应用程序用户界面。 2)设置对象属性 (3)设计代码。 编写命令按钮 Command 1的 Click事件代码: Private Sub Command1 Click Print Print"2*3+4=":2*3+4 使用“;分割符 Print Print"欢迎学习 Print. Visual" 使用“,”分割符 Print. baisc 使用两个“;分割符 Print Print"欢迎学习" 在行末使用“;分割符 Print visual. baisc End Sub
设计步骤如下。 (1) 建立应用程序用户界面。 (2) 设置对象属性 (3) 设计代码。 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Print Print "2 * 3 + 4 ="; 2 * 3 + 4 ' 使用“ ;”分割符 Print Print "欢迎学习" Print , "Visual" ' 使用“,”分割符 Print , , "Baisc" ' 使用两个“,”分割符 Print Print " 欢迎学习", ' 在行末使用“,”分割符 Print "Visual"; " Baisc" End Sub
在上例中使用Tab函数与Spc函数,如图所示。 只需改写命令按钮的Clck事件代码: Private Sub Command1 Click Print Form1 □区 2*3+4=10 Print tab(5);"2*3+4=";2*3+4 欢迎学习 visual baisc Print 欢迎学习 visua1 Baisc Print Tab(6);"欢迎学习";Tab(17);"Ⅴ isual Ba 欢迎小 Print Print Tab(7);"欢迎学习";Spc(3)" Visual":Tab函数与Spc函数 Spc(2); 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(7); "欢迎学习"; Spc(3); "Visual"; Spc(2); "Baisc" End Sub Tab函数与Spc函数
3使用位置属性 下面程序按指定尺寸、颜色和外观,把文本输出到窗体的中间,如图所 Form1 □白区 你好 使用 Currentx和 Currenty
3. 使用位置属性 下面程序按指定尺寸、颜色和外观，把文本输出到窗体的中间，如图所 示。 使用CurrentX和CurrentY
2)编写命令按钮的Cick事件代码 Private Sub Commandl click Dim a As string, text W as Integer, text As Integer FontName="隶书 输出文本的字体 FontSize=60 输出字体的大小 Fore Color=QBColor(15) 输出文本的前景色,即字体的颜色 Back color=QBColor(8) 输出文本的背景色,即窗体的颜色 a=“你好” 输出文本的内容 text w= Text Width(a)/2 文本的宽度 Text width(a) text= TextHeight(a)-Command 1 Height /2 CurrentX= Scale Width /2-textW 设置输出的水平位置 CurrentY= ScaleHeight /2-textH 设置输出的垂直位置 Print a 输出文本 End sub
(2) 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer FontName = "隶书" ' 输出文本的字体 FontSize = 60 ' 输出字体的大小 ForeColor = QBColor(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方法在图片框中输出字符串或数值表达式的值。 设计步骤如下 (1)建立应用程序用户界面 (2)设置对象属性 (3)设计代码 编写命令按钮 Command 1的 Click事件代码: Private Sub Command1 Click Picture1. Print Picture l Print Tab(2); 2*3+42*3+4 Picture Print Picture. Print tab(3);"欢迎学习";Tab(17);" Visual baisc" Picture l Print Picture 1. Print tab(4),"欢迎学习";Spc(3);" Visual",Spc(2);" Baisc" End sub
输出文本到图片框 使用Print方法在图片框中输出字符串或数值表达式的值。 设计步骤如下： (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"; Spc(2); "Baisc" End Sub