《大学vb教学课件：第4章程序设计的3种基本结构》由会员分享，可在线阅读，更多相关《大学vb教学课件：第4章程序设计的3种基本结构（88页珍藏版）》请在金锄头文库上搜索。
1、第4章 程序设计的3种基本结构,VB采用事件驱动方法，但仍需要结构化程序设计方法，用控制结构控制程序执行的流程。 程序流程有三种最基本的结构：顺序结构、选择结构、循环结构。,引言,4.1 算法及算法的表示,算法 -是解决问题而采取的方法和步骤的描述.,4.2 顺序结构程序,在VB中，采用OOP，程序的执行是事件驱动的，但就某个过程而言，过程本身代码的执行仍采用顺序结构，即按照语句代码出现的先后次序执行,一、几个常用语句 1、赋值语句Let,格式: Let| = 表达式 功能: 将表达式的值赋给变量或对象属性 例： s = 0 Label1.BackColor = RGB(255,0,0),Le
2、t表示赋值可以省略,注意事项,“=”赋值号与数学中的等号意义不同。 例如： 语句X=X+1表示将变量X的值加1后的结果值再赋给变量X,而不是表示两边的值相等. 2) 赋值号左边必须是变量或对象属性. 例: X = 1 MyStr = “Good Morning” Command1.Caption=“确定” X+1=X (错误),3)变量名或对象属性名的类型应与表达式的类型相容.,例如： Dim A As Integer, B As Single, C As Double, S As String A = 100 S = “123.45“ A = S A=123 S = A S=“123” B
3、= 12345.67 A = B A=12346 四舍五入后取整 C = 123456.789 B = C B=123456.8 单精度有效数字为7位 S = “abc” A = S,4)变量未赋值时，数值型变量的值为0，字符串变量的值为空串“”。,例4-1交换两个变量的值。 设变量A中存放3，变量B中存放4，交换两个变量的值，使变量A中存放4，变量B中存放3。,2、注释语句 注释语句是非执行语句，仅仅对相应位置上的代码起到注释作用 格式1：Rem 注释内容 格式2：注释内容 格式1中的关键字Rem和注释内容之间必须用空格隔开 格式2的注释语句在使用时较格式1更加灵活，可以不用加语句间的分隔符
4、，直接出现在某行语句后面进行注释,例: R=12.3 : Rem R 表示圆的半径 S=3.14*R2 S表示圆的面积,3、暂停语句 Stop 格式：Stop Stop常用于程序调试，用它来设置断点，当Stop语句执行时，会中断程序运行，并自动打开立即窗口，方便用户对程序代码进行检查和调试,4、卸载对象语句 Unload 格式：Unload Unload Form1 卸载窗体Form1 Unload Me 卸载当前窗体,5、结束语句 End 格式：End End语句不调用Unload、QueryUnload或任何其它Visual Basic代码，只是生硬地终止代码执行。 6、响铃语句 Beep
5、 格式：Beep,不管多么复杂的问题，一般在解决时，都可分为三个步骤：输入数据、数据处理、输出结果 1、使用文本框输入数据 利用文本框接收用户通过键盘输入的内容，而用户输入的内容是保存在文本框的Text文本属性中，要获取Text文本属性的值即用户输入的内容，可通过赋值语句实现：A = Text1.Text,二、数据输入,例题4-1,例4-1输入长方体的长、宽和高，然后计算其体积和表面积。运行界面如图所示。,Text1,Text2,Text3,Text4,Text5,“计算”命令按钮Command1的Click事件的代码： Private Sub Command1_Click() Dim L A
6、s Single, W As Single, H As Single L = Val(Text1.Text) W = Val(Text2.Text) H = Val(Text3.Text) Text4.Text = L * W * H Text5.Text = (L * W + L * H + W * H) * 2 End Sub “关闭”命令按钮Command2的Click事件代码： Private Sub Command2_Click() Unload Me End Sub,2、焦点与Tab键顺序,TabIndex属性：Tab键顺序 TabStop属性：焦点是否能停留在该控件上,TabIn
7、dex:0,TabIndex:1,TabIndex:2,TabStop:False,TabStop:False,3、输入框函数（Inputbox）,格式:InputBox(,),说明: ：字符串表达式。在对话框内显示提示信息，提示用户输入的数据的范围、作用等。如果要显示多行信息，则可在各行行末用回车符Chr(13)、换行符Chr(10)、回车换行符的组合Chr(13)&Chr(10)或系统常量vbCrLf来换行。 ：字符串表达式，可选项。运行时该参数显示在对话框的标题栏中。如果省略，则在标题栏中显示当前的应用程序名。 ：字符串表达式，可选项。显示在对话框上的文本框中，在没有其他输入时作为缺省值
8、。如果省略，则文本框为空。,例 4-2,例4-2 输入圆的半径，计算其周长和面积。运行界面如图所示。,Private Sub Command1_Click() Dim R As Single, L As Single, S As Single R = Val(InputBox(“圆的半径“, “请输入“, 0) L = 3.1416 * 2 * R S = 3.1416 * R * R Text1.Text = L Text2.Text = S End Sub,三、数据输出,在程序设计中对输入的数据进行加工后，往往需要将数据输出。在VB中，可以使用: 文本框(Text)控件 标签(Label)
9、控件 消息框(MsgBox)函数或语句 Print方法,1、文本框 2、标签,3、消息框函数（Msgbox）,在windows中，如果操作有误，通常会在屏幕上显示一个对话框，提示用户进行选择，然后系统根据选择确定其后的操作。例如： VB提供的MsgBox函数可以实现此功能，它可以向用户传送信息，并可以接收用户在对话框上的选择，以此作为程序继续执行的依据。,格式:MsgBox(,),功能：在对话框中显示消息，等待用户单击按钮，并返回一个 整数告诉用户单击了哪个按钮。,说明: ：字符串表达式，用于指定显示在对话框中的信息，可以使用回车符Chr(13)、换行符Chr(10)或是回车与换行符的组合Ch
10、r(13)&Chr(10)进行换行。 ：数值型数据，是可选项，用来指定对话框中出现的按钮和图标的种类及数量，该参数的值由三类数值相加产生，这三类数值分别表示按钮的类型、显示图标的种类及默认按钮的位置 ：字符串表达式，是可选项，它显示在对话框的标题栏中，如果省略，则在标题栏中显示应用程序名。,格式:MsgBox(,),“按钮类型”的设置值及含义,MsgBox函数的返回值,若不需要返回值,则可以使用MsgBox语句, 其格式为: MsgBox ,例:,Private Sub Command1_Click( ) a= MsgBox(“提示信息”) End Sub,Private Sub Comman
11、d1_Click( ) a= MsgBox(“提示信息” & Chr(13) & “换行显示”) End Sub,Private Sub Command1_Click( ) a= MsgBox(“提示信息” , ,“标题”) End Sub,Private Sub Command1_Click( ) a= MsgBox(“提示信息” ,1,“标题”) End Sub,显示“确定”、“取消”按钮,Private Sub Command1_Click( ) a= MsgBox(“提示信息” ,1+16,“标题”) End Sub,Private Sub Command1_Click( ) a= M
12、sgBox(“提示信息” ,2+32+0,“标题”) End Sub,若不需要返回值,则可以使用MsgBox语句直接输出, 其格式为: MsgBox , 例：Dim a, a1, a2 a=“中华人民” a1=“共和国” a2= a & a1 Msgbox “a2=” & a2, , “输出数据”,例4-3 对例4-1的“关闭”按钮作如下改进：单击该按钮时弹出一消息框，询问是否真的要关闭，单击“是”则关闭，单击“否”则不关闭。,Private Sub Command1_Click() If MsgBox(“真的要关闭吗？“, vbYesNo + vbQuestion, “确认“) = vbYe
13、s Then Unload Me End If End Sub,4、使用Print方法输出数据,调用格式：对象名.Print 输出项列表; | ,对象除了可以是窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上 输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行 例： Form1.Print 1, 2, 3 Print 1, 2, 3 Picture1.Print 1, 2, 3,;(分号)和,(逗号)分
14、隔符：用于分隔前后两个输出项，并决定分隔符后的下一个输出项的输出位置 分号(;)表示下一个输出项将以紧凑格式，紧跟着上一个输出项输出，中间没有空格 逗号(,)表示采用标准格式，下一个输出项将在下一个打印区(每隔14列开始一个打印区，每列的宽度是所有字符的平均宽度)的起始位置输出 Print 1, 2, 3 Print “We”；“study”；“VB”,标准格式 紧缩格式,Print 1, 2, 3 Print “We“, “study“, “VB5.0“ 运行结果 1 2 3 We study VB,标准格式,Print各数据分别存储在各自的标准输出区内，数据之间留有一定的空格字符，数据划分
15、非常明显（读取数据容易） 对于一个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符,Print 1； 2； 3 Print “We“； “study“； “VB5.0“ 运行结果 1 -2 3 WestudyVB,紧凑格式,Print各数据紧凑地显示，节省空间 对于一个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符 对于字符串数据，输出的各字符串数据间没有空格而连成一片，造成读取数据的困难,定位输出函数： Spc(n)：可选的。在显示或打印列表中的下一个输出项前插入n个空格，从而实现对输出进行定位 Tab(n)：可选的。用来将输出定位在绝对n列号上，使用无参数的Tab()表示将输出定位在下一个打印区的起始位置,例 题 用Print方法和定位函数输出数据 Spc(n)：下一个输出项前插入n个空格 Tab(n)：输出定位在绝对n列号上,Private Sub Form_Click() Print Tab(8); “A“ Print Tab(6); “B“; Spc(2); “B“ Print Spc(3); “C“; Spc(2); “C“; Spc(2); “C“ Print Tab(2); “D“; Spc(2); “D“; Spc(2); “D“; Spc
