第3章 顺序结构

第3章顺序结构本章内容：数据输入数据输出标签文本框命令按钮程序举例3.1数据输入 VB程序的执行则采用事件驱动机制，由用户或者系统触发某个事件去执行相应的事件过程。 尽管事件处理过程之间并无特定的执行顺序，但是每个事件过程的内部却依然包含着顺序、选择和循环三种基本控制结构。 顺序结构是结构化程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 中最基本的控制结构之一，其语句按照书写的顺序依次逐条执行。3.1数据输入——InputBox函数 调用InputBox函数时，系统将弹出一个输入对话框。 InputBox函数的格式：InputBox(Prompt[,Title][,Default][,…]) 说明 关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书 ： （1）InputBox函数返回一个字符串，该字符串就是用户在对话框中输入的数据。 （2）参数Prompt是必选项，它是一个字符串，用于提示用户当前应输入哪些数据。 （3）Title和Default这两个参数均为可选项，前者作为对话框的标题，后者作为对话框的默认输入内容。 （4）如果位于参数列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 中间的可选项参数被省略，则必须用逗号标示这些被省略的参数。举例：DimnameAsString,scoreAsIntegername=InputBox(“请输入学生的姓名”,“姓名输入”)’省略了默认值score=Val(InputBox("请输入学生的成绩",,80))’省略了标题3.1数据输入——文本框控件 用户可以在文本框控件中输入数据，然后在程序中通过赋值语句把它赋给某个变量。 一般形式：变量=文本框对象.text 举例：DimnameAsString,scoreAsIntegername=Text1.text’输入学生的姓名score=Val(Text2.text))’输入学生的成绩返回3.2数据输出——标签控件 一般形式：标签对象.caption=表达式Label1.caption=name’输出学生的姓名Label2.caption=Str(score)’输出学生的成绩。3.2数据输出——文本框控件 一般形式：文本框对象.text=表达式Text1.text=name’输出学生的姓名Text2.text=Str(score)’输出学生的成绩 文本框控件既可以用于输入数据，也可以用于输出数据，这取决于控件对象是作为赋值运算符的左操作数还是右操作数。3.2数据输出——MsgBox函数l调用MsgBox函数时，系统将弹出一个消息对话框，该对话框能够显示一些提示性的信息，并接收用户做出的选择。 MsgBox函数的格式：MsgBox(Prompt[,Buttons][,Title][,…])说明：（1）参数Prompt是必选项，它是一个字符串，可以作为输出的数据。（2）参数Buttons和参数Title均为可选项，前者是一个整型表达式，确定了消息对话框的类型；后者作为对话框的标题。Buttons的默认值是vbOKOnly，实际设置时可以由4个分组值相加而成。例如弹出一个采用应用模式的消息对话框，显示“终止”、“重试”和“忽略”按钮，图标为严重错误信息，默认是第一个按钮，Buttons的值可以写为2+16+0+0，也可以直接写为18。（3）MsgBox函数返回一个整数，该整数代表用户在对话框中选中的按钮。如果在函数调用时只给出第一个参数（Prompt）的值，就不必使用赋值语句；如果明确给出了其它参数的值，则必须用赋值语句把函数的返回值予以保存。举例：DimnameAsString,scoreAsIntegername="宋开莉"score=80MsgBox("学生姓名："&name&vbCr&"学生成绩："&score)3.2数据输出——Print方法 Print的功能是在对象上输出信息，其中对象可以是窗体、图片框、立即窗口和打印机。 Print方法的格式：[对象.]Print[表达式列表][;|,]说明：（1）调用Print方法时如果未给出对象名，则默认对象是窗体。（2）表达式列表是可选项，如果省略则输出一个空行。Print输出信息之后通常将会自动换行，如果语句末尾有分号（;）或者逗号（,），则表示不换行。（3）表达式列表中可以有多个表达式，表达式之间用空格、分号或者逗号分隔，其中空格和分号的效果相同。如果是数值表达式，就输出它的值；如果是字符串，则原样输出。（4）如果用分号（;）分隔表达式，按照紧凑格式输出数据；如果用逗号（,）分隔表达式，按照 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 格式输出数据，此时当前数据项在下一个输出区中显示。举例：DimnameAsString,scoreAsIntegername="宋开莉"score=80Print"学生姓名：";’不换行PrintnamePrint"学生成绩：";score相关函数：1．Spc函数Spc函数的功能是在当前输出位置插入指定数量的空格，其格式是：Spc(n)2．Tab函数Tab函数的功能是将当前输出位置定位至指定的地方，其格式是：Tab(n)DimnameAsString,scoreAsIntegername="宋开莉"score=80Print"学生姓名：";PrintSpc(5);namePrint"学生成绩：";Tab(15);score相关函数：3.Format函数 Format函数一般用于Print方法中，可以使得数值、字符串或者日期按指定的格式输出。 Format函数的格式：Format(表达式[,格式字符串])PrintFormat(3.14159,"00.000")’输出结果为03.142PrintFormat(3.14159,"##.###E+##")’输出结果为31.416E-1返回3.3标签 标签（Label）控件能够显示一些用户无法直接更改的文本信息，它通常作为一种辅助性的控件，用来标注那些自身不具备Caption属性的控件。在工具箱中表示为：标签的常用属性说明：（1）程序第一个标签控件的默认对象名是Label1，依次类推。（2）Caption是标签控件最重要的属性之一，其属性值是一个字符串，即显示的文本，最多允许有1024个字符。返回3.4文本框文本框（TextBox）控件是一种常用的标准控件，兼备数据输入和输出的功能，还提供了插入、选择以及复制等文本编辑手段。在工具箱中表示为：文本框的常用属性说明：（1）程序第一个文本框控件的默认对象名是Text1，依次类推。（2）Text是文本框控件最重要的属性之一，其属性值是一个字符串，即显示的文本。只允许输入单行文本时，最多可以有2048个字符；如果允许输入多行文本，则最多可以有32K个字符。文本框的常用事件：说明：（1）当用户在文本框中输入新内容，或者程序运行时修改了Text属性值，都会自动触发Change事件。（2）只有对象的Enabled和Visible的属性值是True时，它才有获得焦点的能力。在程序运行时，用户可以通过鼠标单击或者按Tab键切换，使某个控件获得焦点。（3）当用户按下并且释放键盘上的一个键，将会触发焦点所在控件的KeyPress事件。该事件返回所输入字符的Unicode码，在程序中加以判断，就会识别出用户刚才按下了哪个键。例3.1：在文本框中输入密码，然后单击窗体，在标签中显示该密码。完成步骤： 新建一个工程，在窗体上分别创建2个标签、1个文本框和1个命令按钮。在属性窗口中对窗体和控件的属性进行设置。 文本框的PasswordChar属性值设置为“*”，表示输入的字符都显示为“*”；标签Label2的BorderStyle属性值设置为1，表示该标签有边框。PrivateSubForm_Click()Label2.Caption="您输入的密码是："+Text1.TextEndSubPrivateSubCommand1_Click()EndEndSub代码及实现结果：返回3.5命令按钮命令按钮（CommandButton）控件通常用来接受用户的操作命令，一般通过单击命令按钮来触发事件过程，执行指定的操作，从而实现特定的功能。在工具箱中表示为：命令按钮的常用属性说明：（1）程序第一个命令按钮控件的默认对象名是Command1，依次类推。（2）设置Caption属性时，在标题的某个字母前插入一个连接符（&），即可为命令按钮设置快捷键。（3）当某个命令按钮的Default属性值为True时，按下Enter键就相当于用鼠标单击了该按钮；当某个命令按钮的Cancel属性值为True时，按下Esc键就相当于用鼠标单击了该按钮。（4）当某个命令按钮的Enabled属性值是False时，它就会失效并呈灰色，此时既不能接受用户的操作命令，也不能响应事件。当某个命令按钮的Visible属性值是False时，它在程序运行时将不会显示在窗体中。（5）当Style属性值是1时，表示在命令按钮上可以显示图形。此时即可在Picture属性中选择图片文件，程序运行时该命令按钮就会成为图形按钮。返回3.6程序举例——例3.2：输入3位学生的成绩，求其平均值。 新建一个工程，在窗体上分别创建1个标签、1个文本框和2个命令按钮，并设置属性值。 代码： PrivateSubCommand1_Click() Dimnum1AsInteger,num2AsInteger,num3AsInteger,averAsSingle num1=Val(InputBox("请输入第1位学生的成绩")) num2=Val(InputBox("请输入第2位学生的成绩")) num3=Val(InputBox("请输入第3位学生的成绩")) aver=(num1+num2+num3)/3 Text1.Text=aver EndSub PrivateSubCommand2_Click() End EndSub例3.4：PrivateSubCommand1_Click()Dima%,b%,tAsIntegera=Val(Text1.Text)b=Val(Text2.Text)t=aa=bb=tLabel3.Caption="交换后"Text1.Text=aText2.Text=bEndSubPrivateSubCommand2_Click()Label3.Caption="交换前"Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()EndEndSub1、交换两个整型变量的值。2、在窗体上分别创建3个标签、2个文本框和3个命令按钮，并设置属性值。返回