《Visual Basic语言程序设计教程（第二版）》课件第6章 顺序结构

程序结构概述结构化程序由三种基本控制结构组成，即顺序结构、分支结构和循环结构。这三种基本结构可以组成所有的各种复杂程序。顺序结构是一种简单的程序结构，即按程序段中语句出现的先后顺序依次执行的结构。ABN…先执行A操作，其次执行B操作，……，最后执行N操作，它们都是顺序执行的关系。6.1注释语句

为了提高程序的可读性，在程序的必要位置加上注释是有用的。注释语句就起此作用，以方便自己或他人理解语句的含义。注意注释语句是非执行语句。注释语句有两种定义格式：

Rem注释内容’注释内容功能：用来对程序中的语句进行注释说明。6.1注释语句说明：注释语句可单独占一行，也可以放在语句的后面;若在语句行后面使用Rem关键字，则必须使用冒号“：”与语句隔开;若在语句行后面使用“’”,则不必使用冒号;单引号应是半角英文的直撇号。6.1注释语句例如：PrivateSubCommand1_Click()Text2.Text=Text1.Text

Rem将文本框1里面的内容赋给文本框2EndSub’将文本框1里面的内容赋给文本框26.2数据的输入所谓输入是指在执行程序时需要从外界获取的必要信息。输入可以有多个，也可以没有。

VB中可以有多种基本输入方式，包括赋值语句、文本框的输入和InputBox函数等。

6.2.1利用赋值语句输入数据

VB编程语言中用“＝”作为赋值运算符，简称赋值号。赋值语句的语句格式为：

[Let]变量名＝常量|变量|表达式|对象的属性6.2.1利用赋值语句输入数据说明：在上述格式中，赋值语句的功能是将赋值号右边的表达式的值赋给赋值号左边的变量；其中赋值号左边的变量可以是用户自定义的变量，也可以是对象的属性；赋值号右边的表达式可以是常量、表达式、文本框等控件中获取的值，也可以是由InputBox函数提供的值。6.2.1利用赋值语句输入数据注意：赋值号两边的数据类型必须保持一致性或兼容；赋值语句先计算右边表达式的值，再将结果赋给左边的变量；赋值号与数学中“等号“在概念上有所区别。数学中等号为判断左右两值是否相等。例如：

LetX＝X＋1’变量X加上1以后赋给左边的变量X6.2.1利用赋值语句输入数据例6-1．求半径为3的圆周长

PrivateSubCommand1_Click()Constp=3.1415DimrAsSingle,LAsSingler=3L=2*p*rText1.Text=LEndSub6.2.2使用文本框输入数据文本框控件具备Text的属性，程序可以通过获取文本框Text属性值来得到相关的信息，也可以将信息以文本框Text属性向外显示。故在很多程序中利用文本框完成信息的输入与输出。6.2.2使用文本框输入数据例6-2．单击按钮时，将Text1内的内容复制到Text2中。

PrivateSubCommand1_Click()Text2.Text=Text1.TextEndSub运行效果6.2.3InputBox函数InputBox函数的作用：生成一对话框来显示提示，等待用户在文本框里输入内容或按下按钮，并输入文本框中内容。函数的返回值的类型为

String类型。InputBox函数的语法格式：X=InputBox(提示信息,[标题[,缺省值][,X坐标,Y坐标][,帮助文件,上下文]])标题提示信息缺省值6.2.3InputBox函数参数用法提示信息提示信息参数是必须的。若包含多行，可在各行之间用chr（13）（回车符）、chr（10）（换行符）或chr（13）&chr(10)来分隔标题对话框的标题，是可选的缺省值文本框里的缺省值，是可选的X坐标,Y坐标X坐标，y坐标决定输入框的位置6.2.3InputBox函数参数用法帮助文件帮助文件是可选项，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供帮助文件，则必须提供上下文。上下文上下文为可选项，数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。返回值返回值x将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则x将为空字符串。6.2.3InputBox函数例如：

X＝InputBox（“请输入任意字符串”,“输入”）生成的对话框为:标题提示信息6.2.3InputBox函数例6-3．单击按钮时，弹出对话框，并将用户输入的信息显示在文本框里。

PrivateSubCommand1_Click()DimiAsString’定义字符串变量ii=InputBox("请输入任意字符串","输入")Text1.Text=i’通过文本框显示i的值

EndSub6.3数据的输出

程序设计的最终目的是给用户一个答案，将计算的结果应显示在用户界面上以供用户观看。因此对于一个完整的程序，数据的输出是不可缺少的。在VB程序设计中，数据的输出可以有多种方式：Print方法输出、MsgBox函数等。6.3.1Print方法

Print方法是很多VB对象所具备的方法，包括窗体、图片框或打印机等。使用Print方法可以在上述对象上显示字符串和表达式的值。语法格式如下：

[对象名.]print[{常量|变量|表达式[{,|;}]]……

说明：对象名可以是Form、PictureBox或Printer。如果省略对象名，则在窗体上输出。表达式可以是数值表达式或字符串表达式。当输出多个表达式时，表达式之间可以用“，”、“；”或“”隔开。6.3.1Print方法若要使后面执行Print时还在本行输出，可以在末尾加“；”或“，”。单独一个“Print”效果即为换行。6.3.1Print方法(1)Tab函数语法格式：Tab（n）功能：可选的n参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则Tab将插入点移动到下一个打印区的起点。当Print方法与Tab函数一起使用时，打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。6.3.1Print方法(2)Spc函数或Space[$]函数

语法格式：Spc(n)或Space(n)

功能：跳过n个空格后再输出下一个输出项。6.3.2MsgBox函数MsgBox称为消息对话框，用于创建一个消息框，等待用户选择一个按钮，并通过返回值将用户的选择作为程序继续执行的依据。信息框中通常显示一些提示信息、出错信息或者警告信息等。6.3.2MsgBox函数MsgBox函数的语法格式如下：

[Action＝]MsgBox（提示信息，显示类型，标题）说明：（1）提示信息显示在提示框内；（2）显示类型为对话框所显示的效果；（3）Action获取用户所选择按钮对应的返回值。6．4MsgBox函数数值符号常量意义0vbokonly只显示ok按钮1vbokcancel显示ok、cancel按钮2vbAbortRetryIgnore显示Abort、Retry、Ignore按钮3vbyesnocancel显示yes、no、cancel按钮4vbYesNo显示Yes、No按钮5vbRetryCancel显示Retry、Cancel按钮6.3.2MsgBox函数数值符号常量意义16vbCriticalStopSign对极其重要的问题提醒用户

32vbQuestionQuestionMark增亮显示没有危险的问题48vbExclamationExclamationmark强调警告用户必须知道的事情64vbInformationInformationmark可以使乏味的信息变的有趣数值符号常量意义0vbDefaultButton1第一个按钮缺省256vbDefaultbutton2第二个按钮缺省512vbDefaultbutton3第三个按钮缺省6.3.2MsgBox函数注意：

(1)设置MsgBox函数中的type函数类型时，既可以将所需的符号常量类型用“＋”连接起来，又可以直接将符号常量对应的数值加起来作为设置。6.3.2MsgBox函数MsgBox"欢迎光临！",vbOKOnly+vbInformation,"欢迎"

MsgBox"欢迎光临！",64,"欢迎"

0646.3.2MsgBox函数MsgBox“网络连接出现问题，是否重试？",274,"警告"

2＋16＋256

vbAbortRetryIgnore+vbCritical+vbDefaultbutton26.3.2MsgBox函数（2）若返回值不需要做进一步的判断则可以省略“Action＝”，同时使用MsgBox函数的时候不用圆括号。例如：

x=MsgBox("是否退出？",