《VB顺序结构》PPT课件.ppt

《《VB顺序结构》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《VB顺序结构》PPT课件.ppt（33页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第3章 顺序结构本章内容：数据输入 数据输出 标签 文本框 命令按钮 程序举例13.1 数据输入lVBVB程程序序的的执行行则采采用用事事件件驱动机机制制，由由用用户或或者系者系统触触发某个事件去某个事件去执行相行相应的事件的事件过程。程。l尽尽管管事事件件处理理过程程之之间并并无无特特定定的的执行行顺序序，但但是是每每个个事事件件过程程的的内内部部却却依依然然包包含含着着顺序序、选择和循和循环三种基本控制三种基本控制结构构。l顺序序结构构是是结构构化化程程序序设计中中最最基基本本的的控控制制结构之一，其构之一，其语句按照句按照书写的写的顺序依次逐条序依次逐条执行。行。23.2.2 3.2.2

2、 输入框函数输入框函数InputBoxInputBox InputBox函数显示一个能接受用户输入的对话框，函数显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。其语法格式为：并返回用户在对话框中输入的信息。其语法格式为：变量变量=InputBox(信息内容信息内容,对话框标题对话框标题,默默认内容认内容)说明：说明：1)信息内容指定在对话框中出现的文本。在信息内容指定在对话框中出现的文本。在信息内容中使用硬回车符（信息内容中使用硬回车符（CHR(13)）可以使）可以使文本换行。对话框的高度和宽度随着信息内容文本换行。对话框的高度和宽度随着信息内容而增加，最多可有而增加，最多可有

3、1024个字符。个字符。2)对话框标题指定对话框的标题。对话框标题指定对话框的标题。33.2.2 3.2.2 输入框函数输入框函数InputBoxInputBox变量变量=InputBox(信息内容信息内容,对话框标题对话框标题,默默认内容认内容)说明：说明：3)默认内容可以指定输入框的文本框中显示默认内容可以指定输入框的文本框中显示的默认文本。如果用户单击的默认文本。如果用户单击“确定确定”按钮，文本框按钮，文本框中的文本（字符串）将返回到变量中，若用户单击中的文本（字符串）将返回到变量中，若用户单击“取消取消”按钮，返回的将是一个零长度的字符串。按钮，返回的将是一个零长度的字符串。注意：如

4、果省略了某些可选项，必须加入相应的注意：如果省略了某些可选项，必须加入相应的逗号分隔符。逗号分隔符。4)InputBox函数返回包含文本框内容的字符串函数返回包含文本框内容的字符串（String类型）。类型）。4举例：DimnameAsString,scoreAsIntegername=InputBox(“请输入学生的姓名”,“姓名输入”)省略了默认值score=Val(InputBox(请输入学生的成绩,80)省略了标题5 3.1 数据输入文本框控件 l用户可以在文本框控件中输入数据，然后在程序中通过赋值语句把它赋给某个变量。l一般形式：变量=文本框对象.textl举例：Dim name A

5、s String,score As Integer name=Text1.text 输入学生的姓名 score=Val(Text2.text)输入学生的成绩返回返回返回返回63.2 数据输出标签控件l一般形式：标签对象.caption=表达式 Label1.caption=name 输出学生的姓名Label2.caption=Str(score)输出学生的成绩。3.2 数据输出文本框控件l一般形式：文本框对象.text=表达式 Text1.text=name 输出学生的姓名 Text2.text=Str(score)输出学生的成绩l文本框控件既可以用于输入数据，也可以用于输出数据，这取决于控件

6、对象是作为赋值运算符的左操作数还是右操作数。73.2 数据输出 MsgBox函数调用调用MsgBox函数时，系统将弹出一个消息对函数时，系统将弹出一个消息对话框，该对话框能够显示一些提示性的信息话框，该对话框能够显示一些提示性的信息.并并接收用户做出的选择。接收用户做出的选择。MsgBox函数的格式：函数的格式：MsgBox(Prompt,Buttons,Title,helpfile,context)变量变量=MsgBox(信息内容信息内容,对话框类对话框类型型,对话框标题对话框标题)信息内容指定在对话框中出现的文本，信息内容指定在对话框中出现的文本，在信息内容中使用硬回车符（在信息内容中使用

7、硬回车符（CHR(13)）可）可以使文本换行。对话框的高度和宽度随着信以使文本换行。对话框的高度和宽度随着信息内容的增加而增加，最多可有息内容的增加而增加，最多可有1024个字符。个字符。8（1）参数Prompt是必选项，它是一个字符串，可以作为输出的数据。（2）参数Buttons和参数Title均为可选项，前者是一个整型表达式，确定了消息对话框的类型；后者作为对话框的标题。（3）MsgBox函数返回一个整数，该整数代表用户在对话框中选中的按钮。如果在函数调用时只给出第一个参数（Prompt）的值，就不必使用赋值语句；如果明确给出了其它参数的值，则必须用赋值语句把函数的返回值予以保存。9对话框

8、类型指定对话框中出现的按钮和图标，一般有三个对话框类型指定对话框中出现的按钮和图标，一般有三个参数。其取值和含义见表参数。其取值和含义见表3-3、表、表3-4、表、表3-5。表表3-3 参数参数1出现按钮出现按钮值值常量常量说明说明0vbOKOnly确定按钮确定按钮1vbOKCancel确定和取消按钮确定和取消按钮2vbAbortRetryIgnore终止、重试和忽略按钮终止、重试和忽略按钮3vbYesNoCancel是、否和取消按钮是、否和取消按钮4vbYesNo是和否按钮是和否按钮5vbRetryCancel重试和取消按钮重试和取消按钮10表表3-4 参数参数2图标类型图标类型值值常量常量

9、说明说明16vbCritical停止图标停止图标32vbQuestion问号（？）图标问号（？）图标48vbExclamation感叹号（！）图标感叹号（！）图标64vbInformation信息图标信息图标11表表3-5 参数参数3默认按钮默认按钮值 常量说明0 vbDefaultButton1指定默认按钮为第一按钮256 vbDefaultButton2指定默认按钮为第二按钮512 vbDefaultButton3指定默认按钮为第三按钮上述三种参数值可以相加以达到所需要的样式。上述三种参数值可以相加以达到所需要的样式。3)对话框标题指定对话框的标题。下述代码将显示如图对话框标题指定对话框的

10、标题。下述代码将显示如图3-8所所示的对话框：示的对话框：lmsg=MsgBox(请确认输入的数据是否正确！,3+48+0,数据检查)图图3-8 信息对话框信息对话框12 4)Msgbox()返回的值指明了在对话框中选择哪一个按钮，返回的值指明了在对话框中选择哪一个按钮，见表见表3-6。表表3-6 函数的返回值函数的返回值 返回值返回值常量常量按钮按钮 1vbOK确定按钮确定按钮 2vbCancel取消按钮取消按钮 3vbAbort终止按钮终止按钮 4vbRetry重试按钮重试按钮 5vbIgnore忽略按钮忽略按钮 6vbYes是是 7vbNo否否 5)代码中的值可以是数值，也可以是数值常量

11、。代码中的值可以是数值，也可以是数值常量。6)如果省略了某些可选项，必须加入相应的逗号分隔符。如果省略了某些可选项，必须加入相应的逗号分隔符。13 7)若不需要返回值，则可以使用若不需要返回值，则可以使用MsgBox的的命令形式：命令形式：MsgBox 信息内容信息内容,对话框类型对话框类型,对话框标题对话框标题在程序运行的过程中，有时需要显示一些简在程序运行的过程中，有时需要显示一些简单的信息如警告或错误等，此时可以利用单的信息如警告或错误等，此时可以利用“信息对话框信息对话框”来显示这些内容。当用户接收来显示这些内容。当用户接收到信息后，可以单击按钮来关闭对话框，并到信息后，可以单击按钮来

12、关闭对话框，并返回单击的按钮值。返回单击的按钮值。14举例：Dim name As String,score As Integername=宋开莉score=80MsgBox(学生姓名：&name&vbCr&学生成绩：&score)153.2 数据输出 Print方法lPrint的功能是在对象上输出信息，其中对象可以是窗体、图片框、立即窗口和打印机。lPrint方法的格式：对象.Print 表达式列表;|,16说明:1）调用Print方法时如果未给出对象名，则默认对象是窗体。2）表达式列表是可选项，如果省略则输出一个空行。Print输出信息之后通常将会自动换行，如果语句末尾有分号（;）或者逗号

13、（,），则表示不换行。3）表达式列表中可以有多个表达式，表达式之间用空格、分号或者逗号分隔，其中空格和分号的效果相同。如果是数值表达式，就输出它的值；如果是字符串，则原样输出。4）如果用分号（;）分隔表达式，按照紧凑格式输出数据；如果用逗号（,）分隔表达式，按照标准格式输出数据，此时当前数据项在下一个输出区中显示。17举例：Dim name As String,score As Integer name=宋开莉 score=80 Print 学生姓名：;不换行 Print name Print 学生成绩：;score 18相关函数：1Spc函数 Spc函数的功能是在当前输出位置插入指定数量的空

14、格，其格式是：Spc(n)2Tab函数 Tab函数的功能是将当前输出位置定位至指定的地方，其格式是：Tab(n)Dim name As String,score As Integer name=宋开莉 score=80 Print 学生姓名：;Print Spc(5);name Print 学生成绩：;Tab(15);score 19相关函数：函数lFormat函数一般用于Print方法中，可以使得数值、字符串或者日期按指定的格式输出。lFormat函数的格式：Format(表达式,格式字符串)Print Format(3.14159,00.000)输出结果为Print Format(3.14

15、159,#.#E+#)输出结果为返回返回返回返回203.3 标签标签（标签（LabelLabel）控件能够显示一些用户无法）控件能够显示一些用户无法直接更改的文本信息，它通常作为一种辅助性直接更改的文本信息，它通常作为一种辅助性的控件，用来标注那些自身不具备的控件，用来标注那些自身不具备CaptionCaption属性属性的控件。在工具箱中表示为：的控件。在工具箱中表示为：标签标签的常用属性的常用属性 属性作用Name设置标签的对象名Caption设置标签所显示的文本信息Alignment设置标签上文本的对齐方式 BackStyle确定标签的背景是否透明，默认值是1，表示不透明BorderSt

16、yle设置标签的边框类型，默认值是0，表示无边框AutoSize确定是否根据标签上文本的长度自动调整标签自身的尺寸，默认值是FalseWordWrap确定是否根据标签上文本的长度自动换行，默认值是False21说明：（1）程序第一个标签控件的默认对象名是Label1，依次类推。（2）Caption是标签控件最重要的属性之一，其属性值是一个字符串，即显示的文本，最多允许有1024个字符。返回返回返回返回223.4 文本框文本框（文本框（TextBox）控件是一种常用的）控件是一种常用的标准控件，兼备数据输入和输出的功能，标准控件，兼备数据输入和输出的功能，还提供了插入、选择以及复制等文本编辑还提

17、供了插入、选择以及复制等文本编辑手段。手段。在工具箱中表示为：在工具箱中表示为：文本框的常用属性属性作用Name设置文本框的对象名Text设置文本框所显示的文本信息MaxLength设置文本框所显示的文本信息的最大长度，默认值是0，表示长度不受限制MultiLine确定文本框能否输入多行文本，默认值是False，表示只允许输入单行文本ScrollBars确定文本框能否有滚动条PasswordChar设置密码符号，默认值是空串SelText确定当前所选的文本SelStart确定所选文本的开始位置,若未选中文本,则为插入点的位置SelLength确定所选文本的长度23说明：（1）程序第一个文本框控

18、件的默认对象名是Text1，依次类推。（2）Text是文本框控件最重要的属性之一，其属性值是一个字符串，即显示的文本。只允许输入单行文本时，最多可以有2048个字符；如果允许输入多行文本，则最多可以有32K个字符。24文本框的常用事件：事件来源Change文本框的Text属性值发生改变GotFocus文本框获得焦点LostFocus文本框失去焦点KeyPress用户按下并且释放键盘上的一个键25（1）当用户在文本框中输入新内容，或者程序运行时修改了Text属性值，都会自动触发Change事件。（2）只有对象的Enabled和Visible的属性值是True时，它才有获得焦点的能力。在程序运行时

19、，用户可以通过鼠标单击或者按Tab键切换，使某个控件获得焦点。（3）当用户按下并且释放键盘上的一个键，将会触发焦点所在控件的KeyPress事件。该事件返回所输入字符的Unicode码，在程序中加以判断，就会识别出用户刚才按下了哪个键。26例：在文本框中输入密码，然后单击窗体，在标签中显示该密码。完成步骤：l新建一个工程，在窗体上分别创建2个标签、1个文本框和1个命令按钮。在属性窗口中对窗体和控件的属性进行设置。l文本框的PasswordChar属性值设置为“*”，表示输入的字符都显示为“*”；标签Label2的BorderStyle属性值设置为1，表示该标签有边框。27Private Sub

20、 Command1_Click()EndEnd Sub Private Sub Text1_Change()Label2.Caption=您输入的密码是：End Sub代码及实现结果：代码及实现结果：返回返回返回返回283.5 命令按钮命令按钮（命令按钮（CommandButton）控件通常用）控件通常用来接受用户的操作命令，一般通过单击命令按来接受用户的操作命令，一般通过单击命令按钮来触发事件过程，执行指定的操作，从而实钮来触发事件过程，执行指定的操作，从而实现特定的功能。在工具箱中表示为：现特定的功能。在工具箱中表示为：命令按钮的常用属性属性作用Name设置命令按钮的对象名Caption设

21、置命令按钮的标题Default确定命令按钮是否为Enter键的默认按钮Cancel确定命令按钮是否为Esc键的默认按钮Enabled确定命令按钮是否有效，默认值是True，表示有效Visible确定命令按钮是否可见，默认值是True，表示可见Style设置命令按钮的外观，默认值是0，表示只能显示文字Picture设置命令按钮上显示的图片文件29（1）程序第一个命令按钮控件的默认对象名是Command1，依次类推。（2）设置Caption属性时，在标题的某个字母前插入一个连接符（&），即可为命令按钮设置快捷键。（3）当某个命令按钮的Default属性值为True时，按下Enter键就相当于用鼠标

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

23、并设置属性值。l代码：Private Sub Command1_Click()Dim num1 As Integer,num2 As Integer,num3 As Integer,aver As Singlenum1=Val(InputBox(请输入第1位学生的成绩)num2=Val(InputBox(请输入第2位学生的成绩)num3=Val(InputBox(请输入第3位学生的成绩)aver=(num1+num2+num3)/3Text1.Text=averEnd SubPrivate Sub Command2_Click()EndEnd Sub 32例：1、交换两个整型变量的值。、交换两

24、个整型变量的值。2、在窗体上分别创建、在窗体上分别创建3个标签、个标签、2个文本框和个文本框和3个个命令按钮，并设置属性值。命令按钮，并设置属性值。Private Sub Command1_Click()Dim a%,b%,t As Integera=Val(Text1.Text)b=Val(Text2.Text)t=aa=bb=tLabel3.Caption=交换后Text1.Text=aText2.Text=bEnd SubPrivate Sub Command2_Click()Label3.Caption=交换前Text1.Text=Text2.Text=End SubPrivate Sub Command3_Click()EndEnd Sub返回返回返回返回33