1、程序结构概述程序结构概述v结构化程序由三种基本控制结构组成,结构化程序由三种基本控制结构组成,即即顺序结构、顺序结构、分支结构和循环结构分支结构和循环结构。这三种基本结构可以组成所这三种基本结构可以组成所有的各种复杂程序。有的各种复杂程序。v顺序结构是一种简单的程序结构,即按顺序结构是一种简单的程序结构,即按程序段中语句程序段中语句出现的先后顺序依次执行的结构出现的先后顺序依次执行的结构。ABN先执行先执行A A操作,其操作,其次执行次执行B B操作,操作,最后执行,最后执行N N操作,操作,它们都是顺序执它们都是顺序执行的关系。行的关系。6.1 注释语句注释语句 为了提高程序的可读性,在程序
2、的必要位置加上注为了提高程序的可读性,在程序的必要位置加上注释是有用的。注释语句就起此作用,以方便自己或他释是有用的。注释语句就起此作用,以方便自己或他人理解语句的含义。人理解语句的含义。注意注释语句是非执行语句。注意注释语句是非执行语句。注释语句有两种定义注释语句有两种定义格式:格式:Rem Rem 注释内容注释内容 注释内容注释内容 功能:用来对程序中的语句进行注释说明。功能:用来对程序中的语句进行注释说明。6.1 注释语句注释语句说明:说明:1.1.注释语句可单独占一行,也可以放在语句的后面注释语句可单独占一行,也可以放在语句的后面;2.2.若在语句行后面使用若在语句行后面使用RemRe
3、m关键字,则必须使用冒号关键字,则必须使用冒号“:”与语句隔开与语句隔开;3.3.若在语句行后面使用若在语句行后面使用“”“”,则不必使用冒号则不必使用冒号;4.4.单引号应是半角英文的直撇号。单引号应是半角英文的直撇号。6.1 注释语句注释语句例如:例如:Private Sub Command1_Click()Private Sub Command1_Click()Text2.Text=Text1.Text Text2.Text=Text1.Text Rem Rem将文本框将文本框1 1里面的内容赋给文本框里面的内容赋给文本框2 2End SubEnd Sub将文本框将文本框1 1里面的内容
4、赋给文本框里面的内容赋给文本框2 26.2 数据的输入数据的输入 所谓输入是指在执行程序时需要从外界获取的必要信所谓输入是指在执行程序时需要从外界获取的必要信息。息。输入可以有多个,也可以没有。输入可以有多个,也可以没有。VBVB中可以有多种基本输入方式,包括中可以有多种基本输入方式,包括赋值语句赋值语句、文本文本框的输入框的输入和和InputBoxInputBox函数函数等。等。6.2.16.2.1利用赋值语句输入数据利用赋值语句输入数据 VBVB编程语言中用编程语言中用“”作为赋值运算符,简称赋值号。作为赋值运算符,简称赋值号。赋值语句的语句格式为:赋值语句的语句格式为:Let Let 变
5、量名常量变量名常量|变量变量|表达式表达式|对象的属性对象的属性6.2.1 利用赋值语句输入数据利用赋值语句输入数据说明:说明:1.在上述格式中,在上述格式中,赋值语句的功能赋值语句的功能是将赋值号右边的表达是将赋值号右边的表达式的值赋给赋值号左边的变量;式的值赋给赋值号左边的变量;2.其中赋值号其中赋值号左边左边的变量可以是用户自定义的变量,也可的变量可以是用户自定义的变量,也可以是对象的属性;以是对象的属性;3.赋值号赋值号右边右边的表达式可以是常量、表达式、文本框等控的表达式可以是常量、表达式、文本框等控件中获取的值,也可以是由件中获取的值,也可以是由InputBox函数提供的值。函数提
6、供的值。6.2.1利用赋值语句输入数据利用赋值语句输入数据注意:注意:1.1.赋值号两边的数据类型必须保持一致性或兼容;赋值号两边的数据类型必须保持一致性或兼容;2.2.赋值语句先计算右边表达式的值,再将结果赋给左边赋值语句先计算右边表达式的值,再将结果赋给左边的变量;的变量;3.3.赋值号与数学中赋值号与数学中“等号等号“在概念上有所区别。数学中在概念上有所区别。数学中等号为判断左右两值是否相等。等号为判断左右两值是否相等。例如:例如:Let XLet XX X1 1 变量变量X X加上加上1 1以后赋给左边的变量以后赋给左边的变量X X6.2.1利用赋值语句输入数据利用赋值语句输入数据v例
7、例6-1求半径为求半径为3的圆周长的圆周长 Private Sub Command1_Click()Private Sub Command1_Click()Const p=3.1415 Const p=3.1415 Dim r As Single,L As Single Dim r As Single,L As Single r=3 r=3 L=2 L=2*p p*r r Text1.Text=L Text1.Text=LEnd SubEnd Sub6.2.2使用文本框输入数据使用文本框输入数据 文本框控件具备文本框控件具备TextText的属性,程序可以通过获取文的属性,程序可以通过获取文本
8、框本框TextText属性值来得到相关的信息,也可以将信息以属性值来得到相关的信息,也可以将信息以文本框文本框TextText属性向外显示。故在很多程序中利用文本属性向外显示。故在很多程序中利用文本框完成信息的输入与输出。框完成信息的输入与输出。6.2.2使用文本框输入数据使用文本框输入数据例例6-26-2单击按钮时,将单击按钮时,将Text1Text1内的内容复制到内的内容复制到Text2Text2中。中。Private Sub Command1_Click()Private Sub Command1_Click()Text2.Text=Text1.Text Text2.Text=Text1
9、.TextEnd SubEnd Sub运运行效果行效果6.2.3 InputBox函数函数InputBoxInputBox函数的作用:函数的作用:生成一对话框来显示提示,等待用户在文本框里输生成一对话框来显示提示,等待用户在文本框里输入内容或按下按钮,并输入文本框中内容。函数的返入内容或按下按钮,并输入文本框中内容。函数的返回值的类型为回值的类型为 StringString类型。类型。InputBoxInputBox函数的语法格式:函数的语法格式:X=InputBox(X=InputBox(提示信息提示信息,标题标题,缺省值缺省值,X,X坐标坐标,Y,Y坐标坐标,帮助文件帮助文件,上下文上下文
10、)标题标题提示信息提示信息缺省值缺省值6.2.3 InputBox函数函数参数参数用法用法提示信息提示信息提示信息参数是必须的。若包含多行,提示信息参数是必须的。若包含多行,可在各行之间用可在各行之间用chrchr(1313)(回车符)、)(回车符)、chrchr(1010)(换行符)或)(换行符)或chrchr(1313)&chr(10)chr(10)来分隔来分隔标题标题对话框的标题,是可选的对话框的标题,是可选的缺省值缺省值文本框里的缺省值,是可选的文本框里的缺省值,是可选的X X坐标坐标,Y,Y坐标坐标X X坐标,坐标,y y坐标决定输入框的位置坐标决定输入框的位置6.2.3 Input
11、Box函数函数参数参数用法用法帮助文件帮助文件帮助文件是可选项,识别帮助文件,用帮助文件是可选项,识别帮助文件,用该文件为对话框提供上下文相关的帮助。该文件为对话框提供上下文相关的帮助。如果已提供帮助文件,则必须提供上下如果已提供帮助文件,则必须提供上下文。文。上下文上下文上下文为可选项,数值表达式,由帮助上下文为可选项,数值表达式,由帮助文件的作者指定给某个帮助主题的帮助文件的作者指定给某个帮助主题的帮助上下文编号。上下文编号。返回值返回值返回值返回值x x将是用户在文本框里输入的数将是用户在文本框里输入的数据,据,x x是一个字符串类型的值。如果用是一个字符串类型的值。如果用户按了户按了C
12、ancelCancel钮,则钮,则x x将为空字符串。将为空字符串。6.2.3 InputBox函数函数例如:例如:X XInputBox InputBox(“请输入任意字符串请输入任意字符串”,“,“输入输入”)生成的对话框为生成的对话框为:标题标题提示信息提示信息6.2.3 InputBox函数函数v例例6-36-3单击按钮时,弹出对话框,并将用户输入的单击按钮时,弹出对话框,并将用户输入的信息显示在文本框里。信息显示在文本框里。Private Sub Command1_Click()Private Sub Command1_Click()Dim i As String Dim i As
13、String 定义字符串变量定义字符串变量i i i=InputBox(i=InputBox(请输入任意字符串请输入任意字符串,输入输入)Text1.Text=i Text1.Text=i 通过文本框显示通过文本框显示i i的值的值 End SubEnd Sub6.3 数据的输出数据的输出 程序设计的最终目的是给用户一个答案,将计算的结程序设计的最终目的是给用户一个答案,将计算的结果应显示在用户界面上以供用户观看。因此对于一个完果应显示在用户界面上以供用户观看。因此对于一个完整的程序,数据的输出是不可缺少的。整的程序,数据的输出是不可缺少的。在在VBVB程序设计中,数据的输出可以有多种方式:程
14、序设计中,数据的输出可以有多种方式:PrintPrint方法输出方法输出、MsgBoxMsgBox函数函数等。等。6.3.1 Print方法方法 PrintPrint方法是很多方法是很多VBVB对象所具备的方法,包括窗体、对象所具备的方法,包括窗体、图片框或打印机等。使用图片框或打印机等。使用PrintPrint方法可以在上述对象上方法可以在上述对象上显示字符串和表达式的值。显示字符串和表达式的值。语法格式如下:语法格式如下:对象名对象名.print.print常量常量|变量变量|表达式表达式,|;,|;说明:说明:1.1.对象名可以是对象名可以是FormForm、PictureBoxPict
15、ureBox或或PrinterPrinter。如。如果省略对象名,则在窗体上输出。果省略对象名,则在窗体上输出。2.2.表达式可以是数值表达式或字符串表达式。当输表达式可以是数值表达式或字符串表达式。当输出多个表达式时,表达式之间可以用出多个表达式时,表达式之间可以用“,”、“;”或或“”“”隔开。隔开。6.3.1 Print方法方法3.3.若要使后面执行若要使后面执行PrintPrint时还在本行输出,可以在末时还在本行输出,可以在末尾加尾加“;”或或“,”。4.4.单独一个单独一个“Print”Print”效果即为换行。效果即为换行。6.3.1 Print方法方法(1)Tab(1)Tab函
16、数函数 语法格式:语法格式:TabTab(n n)功能:功能:可选的可选的 n n 参数是在显示或打印列表中的下一个表达参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数,则式之前移动的列数。若省略此参数,则 Tab Tab 将插入点将插入点移动到下一个打印区的起点。当移动到下一个打印区的起点。当 Print Print 方法与方法与 Tab Tab 函数一起使用时,打印的外观将会被分割为均匀、定宽函数一起使用时,打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。字符的平均宽度。6.3
17、.1 Print方法方法(2)Spc(2)Spc函数或函数或Space$Space$函数函数 语法格式:语法格式:Spc(n)Spc(n)或或Space(n)Space(n)功能:跳过功能:跳过n n个空格后再输出下一个输出项。个空格后再输出下一个输出项。6.3.2 MsgBox函数函数 MsgBox MsgBox称为消息对话框,用于创建一个消息框,等称为消息对话框,用于创建一个消息框,等待用户选择一个按钮,并通过返回值将用户的选择作待用户选择一个按钮,并通过返回值将用户的选择作为程序继续执行的依据。信息框中通常显示一些提示为程序继续执行的依据。信息框中通常显示一些提示信息、出错信息或者警告信
18、息等。信息、出错信息或者警告信息等。6.3.2 MsgBox函数函数MsgBoxMsgBox函数的语法格式如下:函数的语法格式如下:ActionActionMsgBoxMsgBox(提示信息,显示类型,标题)(提示信息,显示类型,标题)说明:说明:(1 1)提示信息显示在提示框内;)提示信息显示在提示框内;(2 2)显示类型为对话框所显示的效果;)显示类型为对话框所显示的效果;(3 3)ActionAction获取用户所选择按钮对应的返回值。获取用户所选择按钮对应的返回值。64 MsgBox函数函数数值数值符号常量符号常量意义意义0 0vbokonlyvbokonly只显示只显示okok按钮按
19、钮1 1vbokcancelvbokcancel显示显示okok、cancelcancel按钮按钮2 2vbAbortRetryIgnovbAbortRetryIgnorere显示显示AbortAbort、RetryRetry、IgnoreIgnore按钮按钮3 3vbyesnocancelvbyesnocancel显示显示yesyes、nono、cancelcancel按按钮钮4 4vbYesNovbYesNo显示显示YesYes、NoNo按钮按钮5 5vbRetryCancelvbRetryCancel显示显示RetryRetry、CancelCancel按钮按钮6.3.2 MsgBox函
20、数函数数数值值符号常量符号常量意义意义1616vbCriticalvbCriticalStop SignStop Sign对极其重要的问题提醒用户对极其重要的问题提醒用户 3232vbQuestionvbQuestionQuestion MarkQuestion Mark增亮显示没有危险的问增亮显示没有危险的问题题 4848vbExclamativbExclamationonExclamation mark Exclamation mark 强调警告用户必须强调警告用户必须知道的事情知道的事情 6464vbInformativbInformationonInformation mark Inf
21、ormation mark 可以使乏味的信息可以使乏味的信息变的有趣变的有趣 数值数值符号常量符号常量意义意义0 0vbDefaultButton1vbDefaultButton1第一个按钮缺省第一个按钮缺省256256vbDefaultbutton2vbDefaultbutton2第二个按钮缺省第二个按钮缺省512512vbDefaultbutton3vbDefaultbutton3第三个按钮缺省第三个按钮缺省6.3.2 MsgBox函数函数注意:注意:(1)(1)设置设置MsgBoxMsgBox函数中的函数中的typetype函数类型时,既可以将函数类型时,既可以将所需的符号常量类型用所需
22、的符号常量类型用“”连接起来,又可以直接连接起来,又可以直接将符号常量对应的数值加起来作为设置。将符号常量对应的数值加起来作为设置。6.3.2 MsgBox函数函数MsgBox MsgBox 欢迎光临!欢迎光临!,vbOKOnly+vbInformation,vbOKOnly+vbInformation,欢迎欢迎 MsgBox MsgBox 欢迎光临!欢迎光临!,64,64,欢迎欢迎 0 064646.3.2 MsgBox函数函数MsgBox MsgBox“网络连网络连接出接出现问题现问题,是否重,是否重试试?,274,274,警告警告 2 21616256256 vbAbortRetryIg
23、nore+vbCritical+vbDefaultbutton2vbAbortRetryIgnore+vbCritical+vbDefaultbutton26.3.2 MsgBox函数函数(2 2)若返回值不需要做进一步的判断则可以省略)若返回值不需要做进一步的判断则可以省略“ActionAction”,同时使用,同时使用MsgBoxMsgBox函数的时候不用圆括号。函数的时候不用圆括号。例如:例如:x=MsgBox(x=MsgBox(是否退出?是否退出?,vbOKCancel,vbOKCancel,提示提示)在弹出的对话框中若选择在弹出的对话框中若选择“确定确定”按钮,则按钮,则x x1 1,否,否则则x x等于等于2 2。6.3.2 MsgBox函数函数6.3.2 MsgBox函数函数返回返回值值符号常量符号常量用户选择的按钮用户选择的按钮1 1VbOkVbOk“确定确定”按钮按钮2 2VbCancelVbCancel“取消取消”按钮按钮 3 3VbAbortVbAbort“终止终止”按钮按钮 4 4VbRetryVbRetry“重试重试”按钮按钮5 5 VbIgnoreVbIgnore“忽略忽略”按钮按钮6 6VbYesVbYes“是是”按钮按钮8 8VbNoVbNo“否否”按钮按钮