VB顺序结构.ppt

《VB顺序结构.ppt》由会员分享，可在线阅读，更多相关《VB顺序结构.ppt（33页珍藏版）》请在三一文库上搜索。

1、1,第3章 顺序结构,本章内容： 数据输入 数据输出 标签 文本框 命令按钮 程序举例,2,3.1 数据输入,VB程序的执行则采用事件驱动机制，由用户或者系统触发某个事件去执行相应的事件过程。 尽管事件处理过程之间并无特定的执行顺序，但是每个事件过程的内部却依然包含着顺序、选择和循环三种基本控制结构。 顺序结构是结构化程序设计中最基本的控制结构之一，其语句按照书写的顺序依次逐条执行。,3,3.2.2 输入框函数InputBox InputBox函数显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。其语法格式为： 变量 = InputBox(信息内容,对话框标题,默认内容 ) 说明

2、： 1) 信息内容指定在对话框中出现的文本。在信息内容中使用硬回车符（CHR(13)）可以使文本换行。对话框的高度和宽度随着信息内容而增加，最多可有1024个字符。 2) 对话框标题指定对话框的标题。,4,3.2.2 输入框函数InputBox 变量 = InputBox(信息内容,对话框标题,默认内容 ) 说明： 3) 默认内容可以指定输入框的文本框中显示的默认文本。如果用户单击“确定”按钮，文本框中的文本（字符串）将返回到变量中，若用户单击“取消”按钮，返回的将是一个零长度的字符串。 注意：如果省略了某些可选项，必须加入相应的逗号分隔符。 4) InputBox函数返回包含文本框内容的字符

3、串（String类型）。,5,举例：,Dim name As String, score As Integer name = InputBox(“请输入学生的姓名”, “姓名输入”) 省略了默认值 score = Val(InputBox(“请输入学生的成绩“, , 80) 省略了标题,6,3.1 数据输入文本框控件,用户可以在文本框控件中 输入数据，然后在程序中通 过赋值语句把它赋给某个变量。 一般形式： 变量=文本框对象.text 举例：Dim name As String, score As Integer name = Text1.text 输入学生的姓名 score = Val(Te

4、xt2.text) 输入学生的成绩,返回,7,3.2 数据输出标签控件,一般形式：标签对象.caption=表达式 Label1.caption = name 输出学生的姓名 Label2.caption = Str(score) 输出学生的成绩。,3.2 数据输出文本框控件,一般形式：文本框对象.text=表达式 Text1.text = name 输出学生的姓名 Text2.text = Str(score) 输出学生的成绩 文本框控件既可以用于输入数据，也可以用于输出数据，这取决于控件对象是作为赋值运算符的左操作数还是右操作数。,8,3.2 数据输出 MsgBox函数,调用MsgBox函

5、数时，系统将弹出一个消息对话框，该对话框能够显示一些提示性的信息.并接收用户做出的选择。 MsgBox函数的格式：MsgBox(Prompt,Buttons,Title, helpfile, context) 变量 = MsgBox(信息内容,对话框类型,对话框标题 ) 信息内容指定在对话框中出现的文本，在信息内容中使用硬回车符（CHR(13)）可以使文本换行。对话框的高度和宽度随着信息内容的增加而增加，最多可有1024个字符。,9,（1）参数Prompt是必选项，它是一个字符串，可以作为输出的数据。 （2）参数Buttons和参数Title均为可选项，前者是一个整型表达式，确定了消息对话框的

6、类型；后者作为对话框的标题。 （3）MsgBox函数返回一个整数，该整数代表用户在对话框中选中的按钮。如果在函数调用时只给出第一个参数（Prompt）的值，就不必使用赋值语句；如果明确给出了其它参数的值，则必须用赋值语句把函数的返回值予以保存。,10,对话框类型指定对话框中出现的按钮和图标，一般有三个参数。其取值和含义见表3-3、表3-4、表3-5。 表3-3 参数1出现按钮,11,表3-4 参数2图标类型,12,表3-5 参数3默认按钮 值 常量 说明 0 vbDefaultButton1 指定默认按钮为第一按钮 256 vbDefaultButton2 指定默认按钮为第二按钮 512 vb

7、DefaultButton3 指定默认按钮为第三按钮 上述三种参数值可以相加以达到所需要的样式。 3) 对话框标题指定对话框的标题。下述代码将显示如图3-8所示的对话框： msg = MsgBox(“请确认输入的数据是否正确！“, 3 + 48 + 0, “数据检查“) 图3-8 信息对话框,13,4) Msgbox( )返回的值指明了在对话框中选择哪一个按钮，见表3-6。 表3-6 函数的返回值 返回值 常量 按钮 1 vbOK 确定按钮 2 vbCancel 取消按钮 3 vbAbort 终止按钮 4 vbRetry 重试按钮 5 vbIgnore 忽略按钮 6 vbYes 是 7 vbN

8、o 否 5) 代码中的值可以是数值，也可以是数值常量。 6) 如果省略了某些可选项，必须加入相应的逗号分隔符。,14,7) 若不需要返回值，则可以使用MsgBox的命令形式： MsgBox 信息内容,对话框类型,对话框标题 在程序运行的过程中，有时需要显示一些简单的信息如警告或错误等，此时可以利用“信息对话框”来显示这些内容。当用户接收到信息后，可以单击按钮来关闭对话框，并返回单击的按钮值。,15,举例：,Dim name As String, score As Integer name = “宋开莉“ score = 80 MsgBox (“学生姓名：“ & name & vbCr & “学

9、生成绩：“ & score),16,3.2 数据输出 Print方法,Print的功能是在对象上输出信息，其中对象可以是窗体、图片框、立即窗口和打印机。 Print方法的格式： 对象.Print 表达式列表;|,17,说明:,1）调用Print方法时如果未给出对象名，则默认对象是窗体。 2）表达式列表是可选项，如果省略则输出一个空行。Print输出信息之后通常将会自动换行，如果语句末尾有分号（;）或者逗号（,），则表示不换行。 3）表达式列表中可以有多个表达式，表达式之间用空格、分号或者逗号分隔，其中空格和分号的效果相同。如果是数值表达式，就输出它的值；如果是字符串，则原样输出。 4）如果用分

10、号（;）分隔表达式，按照紧凑格式输出数据；如果用逗号（,）分隔表达式，按照标准格式输出数据，此时当前数据项在下一个输出区中显示。,18,举例：,Dim name As String, score As Integer name = “宋开莉“ score = 80 Print “学生姓名：“; 不换行 Print name Print “学生成绩：“; score,19,相关函数：,1Spc函数 Spc函数的功能是在当前输出位置插入指定数量的空格， 其格式是：Spc(n) 2Tab函数 Tab函数的功能是将当前输出位置定位至指定的地方， 其格式是：Tab(n) Dim name As Stri

11、ng, score As Integer name = “宋开莉“ score = 80 Print “学生姓名：“; Print Spc(5); name Print “学生成绩：“; Tab(15); score,20,相关函数：,3.Format函数 Format函数一般用于Print方法中，可以使得数值、字符串或者日期按指定的格式输出。 Format函数的格式： Format(表达式,格式字符串) Print Format(3.14159, “00.000“) 输出结果为03.142 Print Format(3.14159, “#.#E+#“) 输出结果为31.416E-1,返回,2

12、1,3.3 标签,标签（Label）控件能够显示一些用户无法直接更改的文本信息，它通常作为一种辅助性的控件，用来标注那些自身不具备Caption属性的控件。在工具箱中表示为：,标签的常用属性,22,说明：,（1）程序第一个标签控件的默认对象名是Label1，依次类推。 （2）Caption是标签控件最重要的属性之一，其属性值是一个字符串，即显示的文本，最多允许有1024个字符。,返回,23,3.4 文本框,文本框（TextBox）控件是一种常用的标准控件，兼备数据输入和输出的功能，还提供了插入、选择以及复制等文本编辑手段。在工具箱中表示为：,文本框的常用属性,24,说明：,（1）程序第一个文本

13、框控件的默认对象名是Text1，依次类推。 （2）Text是文本框控件最重要的属性之一，其属性值是一个字符串，即显示的文本。只允许输入单行文本时，最多可以有2048个字符；如果允许输入多行文本，则最多可以有32K个字符。,25,文本框的常用事件 ：,26,（1）当用户在文本框中输入新内容，或者程序运行时修改了Text属性值，都会自动触发Change事件。 （2）只有对象的Enabled和Visible的属性值是True时，它才有获得焦点的能力。在程序运行时，用户可以通过鼠标单击或者按Tab键切换，使某个控件获得焦点。 （3）当用户按下并且释放键盘上的一个键，将会触发焦点所在控件的KeyPres

14、s事件。该事件返回所输入字符的Unicode码，在程序中加以判断，就会识别出用户刚才按下了哪个键。,27,例3.1：在文本框中输入密码，然后单击窗体，在标签中显示该密码。,完成步骤： 新建一个工程，在窗体上分别创建2个标签、1个文本框和1个命令按钮。在属性窗口中对窗体和控件的属性进行设置。 文本框的PasswordChar属性值设置为“*”，表示输入的字符都显示为“*”；标签Label2的BorderStyle属性值设置为1，表示该标签有边框。,28,Private Sub Command1_Click() End End Sub Private Sub Text1_Change() Labe

15、l2.Caption = “您输入的密码是：“ + Text1.Text End Sub,代码及实现结果：,返回,29,3.5 命令按钮,命令按钮（CommandButton）控件通常用来接受用户的操作命令，一般通过单击命令按钮来触发事件过程，执行指定的操作，从而实现特定的功能。在工具箱中表示为：,命令按钮的常用属性,30,（1）程序第一个命令按钮控件的默认对象名是Command1，依次类推。 （2）设置Caption属性时，在标题的某个字母前插入一个连接符（&），即可为命令按钮设置快捷键。 （3）当某个命令按钮的Default属性值为True时，按下Enter键就相当于用鼠标单击了该按钮；当

16、某个命令按钮的Cancel属性值为True时，按下Esc键就相当于用鼠标单击了该按钮。,返回,31,（4）当某个命令按钮的Enabled属性值是False时，它就会失效并呈灰色，此时既不能接受用户的操作命令，也不能响应事件。当某个命令按钮的Visible属性值是False时，它在程序运行时将不会显示在窗体中。 （5）当Style属性值是1时，表示在命令按钮上可以显示图形。此时即可在Picture属性中选择图片文件，程序运行时该命令按钮就会成为图形按钮。,32,3.6 程序举例例3.2：输入3位学生的成 绩，求其平均值。,新建一个工程，在窗体上分别创建1个标签、1个文本框和2个命令按钮，并设置属

17、性值。 代码： Private Sub Command1_Click() Dim num1 As Integer, num2 As Integer, num3 As Integer, aver As Single num1 = Val(InputBox(“请输入第1位学生的成绩“) num2 = Val(InputBox(“请输入第2位学生的成绩“) num3 = Val(InputBox(“请输入第3位学生的成绩“) aver = (num1 + num2 + num3) / 3 Text1.Text = aver End Sub Private Sub Command2_Click() E

18、nd End Sub,33,例3.4 ：,1、交换两个整型变量的值。 2、在窗体上分别创建3个标签、2个文本框和3个命令按钮，并设置属性值。,Private Sub Command1_Click() Dim a%, b%, t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t = a a = b b = t Label3.Caption = “交换后“ Text1.Text = a Text2.Text = b End Sub Private Sub Command2_Click() Label3.Caption = “交换前“ Text1.Text = “ Text2.Text = “ End Sub Private Sub Command3_Click() End End Sub,返回,