vb顺序结构(精品).ppt

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

1、V i s u a l B A S I C 程程序序设设计计第第4 4章章顺序结构程序设计顺序结构程序设计本章要点本章要点:赋值语句赋值语句 数据输入数据输入 数据输出数据输出 注释、暂停与程序结束语句注释、暂停与程序结束语句1第第四四章章 顺顺序序结结构构程程序序设设计计事件驱动事件驱动:将代码划分成一些过程将代码划分成一些过程过程结构过程结构:过程内部代码由三种基本结构组成过程内部代码由三种基本结构组成 即即:顺序结构、选择结构、循环结构顺序结构、选择结构、循环结构顺序结构顺序结构:执行过程的次序从上到下，从左到右执行过程的次序从上到下，从左到右例例:Private Sub Command

2、1_Click()Const Pi=3.14 H=Val(Text1.Text):R=Val(Text2.Text)Text3.Text=Pi*R 2*H End Sub2第第四四章章 顺顺序序结结构构程程序序设设计计4.1 赋值语句赋值语句1.格式格式 =或或:.=2.功能功能 计算表达式的值，再将此值赋给变量或对象属性。计算表达式的值，再将此值赋给变量或对象属性。3.说明说明(1):应符合应符合VB变量命名约定。变量命名约定。(2):常量、变量、表达式。常量、变量、表达式。(3):缺省时为当前窗体。缺省时为当前窗体。(4)赋值号赋值号“=”:与数学中的等号意义不同与数学中的等号意义不同。例

3、例:X=X+1(5)赋值号左边必须是变量或对象属性。赋值号左边必须是变量或对象属性。3第第四四章章 顺顺序序结结构构程程序序设设计计例例:X=1 MyStr=Good Morning Command1.Caption=确定确定 X+1=X 错误，赋值号左边是表达式错误，赋值号左边是表达式(3)变量名或对象属性名的类型应与表达式变量名或对象属性名的类型应与表达式类型相容类型相容。例例:Dim A As Integer,B As Single Dim C As Double,S As String A=100 将整型数将整型数100赋给整型变量赋给整型变量A S=123.45 将字符串将字符串12

4、3.45赋给变量赋给变量S A=S 将数字字符串变量赋值给整型变量，将数字字符串变量赋值给整型变量，变量变量A中存放中存放123 S=A S中存放字符串中存放字符串123 B=12345.67 A=B 高精度变量赋值给低精度变量，高精度变量赋值给低精度变量，先四舍五入后取整先四舍五入后取整,A中存放中存放123464第第四四章章 顺顺序序结结构构程程序序设设计计 C=123456.789 B=C 高精度变量赋值给低精度变量，高精度变量赋值给低精度变量，变量变量B中存放中存放123456.8。有效数字。有效数字7位位 S=abc A=S 错误，类型不匹配错误，类型不匹配例例:执行下列各赋值语句后

5、，执行下列各赋值语句后，A的数据类型是什么？的数据类型是什么？(设设A没有定义数据类型没有定义数据类型)A=6=5 A=5+3 A=5+3 A=#11/26/99#A=#11/26/1999#A=Not 5 8可以用可以用TypeName函数函数判断变量的数据类型。判断变量的数据类型。如如:Print TypeName(A)5第第四四章章 顺顺序序结结构构程程序序设设计计(4)变量未赋值时，数值型变量值为变量未赋值时，数值型变量值为0，字符串变量，字符串变量 值为空串值为空串。【例【例4-1】设变量】设变量A中存放中存放5，变量，变量B中存放中存放8，交换，交换两个变量的值，使变量两个变量的值

6、，使变量A中存放中存放8，变量，变量B中存放中存放5。分析分析:需要借助第三个变量需要借助第三个变量C 代码如下代码如下:A=5 B=8 C=A A=B B=C6第第四四章章 顺顺序序结结构构程程序序设设计计4.2 数据输入数据输入 赋值语句；输入框赋值语句；输入框(InputBox)；文本框文本框(TextBox)4.2.1 用输入框用输入框(InputBox)输入数据输入数据1.格式格式 InputBoxInputBox(,)2.功能功能 提示一对话框，等待用户输入正文或按下按钮，提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。并返回包含文本框内容的字符串。:字符串

7、表达式。用字符串表达式。用Chr(13)、Chr(10)、Chr(13)&Chr(10)、vbCrLf可换行。可换行。:字符串表达式。字符串表达式。:字符串表达式。如果省略，则默认为空。字符串表达式。如果省略，则默认为空。函数返回值函数返回值:字符串字符串(在对话框中在对话框中单击取消则返回单击取消则返回)7第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“确定确定”，返回文本框中的文本到变量，返回文本框中的文本到变量R中中单击单击“取消取消”，返回一个零长度的字符串，返回一个零长度的字符串例例:Private Sub Form_Activate()Dim R As String,ARE

8、A As Single R=InputBox(请输入半径请输入半径,计算面积计算面积,1)AREA=3.14*Val(R)2 Print Val(R),AREA End Sub8第第四四章章 顺顺序序结结构构程程序序设设计计4.2.2 用文本框用文本框(TextBox)输入数据输入数据1.文本框的属性文本框的属性(1)Text:返回或设置文本框显示的内容。返回或设置文本框显示的内容。例例:Text1.Text=欢迎使用欢迎使用Visual Basic(2)MultiLine:决定是否可以显示多行文本决定是否可以显示多行文本。(3)PasswordChar:常用于输入口令。常用于输入口令。在文本

9、框中键入字符显示为该指定的字符。在文本框中键入字符显示为该指定的字符。(此时此时MultiLine属性值应为属性值应为False)(4)ScrollBars:用于确定文本框是否带滚动条以及用于确定文本框是否带滚动条以及滚动条的方向滚动条的方向。(仅当仅当MultiLine属性值为属性值为True时才可以带滚动条时才可以带滚动条)9第第四四章章 顺顺序序结结构构程程序序设设计计(5)SelLength:在运行期返回或设置选择的字符数。在运行期返回或设置选择的字符数。例例:Text1.SelLength=Len(Text1.Text)表示选中文本框表示选中文本框Text1中所有字符。中所有字符。(

10、6)SelStart:在运行期返回或设置当前选择文本的起在运行期返回或设置当前选择文本的起始位置。始位置。例例:Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。表示选择文本的起始位置从第一个字符开始。(7)Locked:指定运行时文本框内容是否可以编辑。指定运行时文本框内容是否可以编辑。False可以编辑可以编辑 True不可编辑不可编辑(只读只读)10第第四四章章 顺顺序序结结构构程程序序设设计计2.文本框的事件和方法文本框的事件和方法 事件事件:Change、Click、DblClick、GotFocus、LostFocus、KeyPress等等 方法方法:Set

11、Focus【例【例4-2】设计如下图所示的界面，运行时，输入某】设计如下图所示的界面，运行时，输入某同学三门课的成绩，计算平均成绩。按要求编程。同学三门课的成绩，计算平均成绩。按要求编程。Text4(设设Locked为为True)Text1Text2Text3Command1Command2Command311第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“计算计算”按钮求平均成绩按钮求平均成绩 Private Sub Command1_Click()A=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)Text4.Text=(A+B+C

12、)/3 End Sub12第第四四章章 顺顺序序结结构构程程序序设设计计当输入成绩的文本框获得焦点时，选中其中的文本当输入成绩的文本框获得焦点时，选中其中的文本 Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub Private Sub Text2_GotFocus()Text2.SelStart=0 Text2.SelLength=Len(Text1.Text)End Sub Private Sub Text3_GotFocus()Text3.SelStart=0 Text3.

13、SelLength=Len(Text1.Text)End Sub13第第四四章章 顺顺序序结结构构程程序序设设计计当输入成绩的文本框内容发生变化时，清除平均值当输入成绩的文本框内容发生变化时，清除平均值 Private Sub Text1_Change()Text4.Text=End Sub Private Sub Text2_Change()Text4.Text=End Sub Private Sub Text3_Change()Text4.Text=End Sub14第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“清除清除”按钮清除所有文本框的内容，并将焦按钮清除所有文本框的内容，

14、并将焦点定位在文本框点定位在文本框Text1中。中。Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text1.SetFocus End Sub单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。Private Sub Command3_Click()End End Sub15第第四四章章 顺顺序序结结构构程程序序设设计计例：在编辑框输入弧度值，转换角度值例：在编辑框输入弧度值，转换角度值16第第四四章章 顺顺序序结结构构程程序序设设计计4.2.3 焦点和焦点和Tab键序键序1.焦点焦点 当

15、前可以接收用户输入的对象称为具有焦点。当前可以接收用户输入的对象称为具有焦点。注意注意:并非所有控件都可以接收焦点。而且并非所有控件都可以接收焦点。而且,只只有有Enable和和Visible属性为属性为True时，才可以时，才可以接收焦点。接收焦点。2.事件事件 GotFocus 发生在对象得到焦点时发生在对象得到焦点时 LostFocus 发生在对象失去焦点时发生在对象失去焦点时3.对象何时得到焦点对象何时得到焦点 运行时选择对象运行时选择对象(鼠标、鼠标、Tab键、访问键键、访问键)在代码中使用在代码中使用SetFocus方法方法17第第四四章章 顺顺序序结结构构程程序序设设计计2.Ta

16、b键序键序 指按指按Tab键时光标在各个控件之间移动的顺序。键时光标在各个控件之间移动的顺序。每个窗体都有自己的每个窗体都有自己的Tab键序。键序。默认键序与控件的建立次序一致。默认键序与控件的建立次序一致。TabIndex属性属性:决定键序决定键序 改变改变TabIndex属性可以改变键序属性可以改变键序 TabStop属性属性:决定是否能够使用决定是否能够使用 TAB 键将焦点键将焦点移动到当前对象。移动到当前对象。18第第四四章章 顺顺序序结结构构程程序序设设计计4.3 数据输出数据输出 Print方法、消息框方法、消息框(MsgBox)、文本框、标签、文本框、标签4.3.1 用用Pri

17、nt方法输出数据方法输出数据1.Print方法方法 格式格式:.Print;|,;|,:窗体窗体 如如 Form1.Print Hello 图片框图片框 如如 Picture1.Print Hello 打印机打印机 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug.Print Hello 省略省略:默认为当前窗体。默认为当前窗体。:多个表达式多个表达式使用逗号或分号隔开。使用逗号或分号隔开。逗号逗号:以以14个字符位置为单位把一个输出行个字符位置为单位把一个输出行分成若干区段。分成若干区段。分号分号:后一项紧跟前一项输出。后一项紧跟前一项输出。19第第四四章章

18、顺顺序序结结构构程程序序设设计计 输出时，数值型数据前有一个符号位输出时，数值型数据前有一个符号位(正号不显正号不显)，后面留一个空格位；字符串原样输出，前后无空，后面留一个空格位；字符串原样输出，前后无空格。格。例例:Private Sub Form_Activate()Print 12345678901234567890 Print 2+4=;2+4 Print 2-4=,2-4 End Sub 例例:Private Sub Form_Activate()Print 12345678901234567890 Print 2+4=;2+4,Print 2-4=;Print 2-4 End S

19、ub20第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Form_Load()Form1.Show Print 12345678901234567890 Print 产生空行产生空行 Print 2+4=;2+4,Print 取消上面一句末尾逗号的作用取消上面一句末尾逗号的作用 Print 2-4=;Print 2-4 End Sub输入输入Print时可用时可用?代替，代替，VB将其自动转换成将其自动转换成Print21第第四四章章 顺顺序序结结构构程程序序设设计计2.与与Print方法有关的函数方法有关的函数(1)Tab函数函数 格式格式:Tab(n)功能功能:

20、在指定的第在指定的第n个位置上输出数据。个位置上输出数据。参数参数n:n当前位置当前位置:打印位置为下一行的第打印位置为下一行的第n列列 n输出行宽度输出行宽度:打印位置为打印位置为 n Mod 行宽行宽 省略省略:打印位置为下一个打印区的起点打印位置为下一个打印区的起点 (每每14个字符个字符为一个打印区为一个打印区)22第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Form_Activate()Print 12345678901234567890 Print Hello;Tab(10);World Print Hello;Tab;World Print Hel

21、lo;Tab(4);World Print Tab(-5);Hello End Sub23第第四四章章 顺顺序序结结构构程程序序设设计计(2)Spc函数函数 格式格式:Spc(n)功能功能:跳过跳过n个空格。个空格。例例:Print HOW;Spc(3);ABOUT 结果结果:HOWABOUT注意注意:Spc函数与函数与Space函数、函数、Tab函数的区别函数的区别24第第四四章章 顺顺序序结结构构程程序序设设计计4.3.2 用消息框用消息框(MsgBox)输出数据输出数据格式格式:MsgBox(,)功能功能:在对话框中显示消息，等待用户单击按钮，并在对话框中显示消息，等待用户单击按钮，并返

22、回一个整数告诉用户单击了哪个按钮。返回一个整数告诉用户单击了哪个按钮。:字符串表达式。字符串表达式。用用Chr(13)、Chr(10)、Chr(13)&Chr(10)、vbCrLf可换行。可换行。:数值型数据。数值型数据。按钮类型按钮类型+图标类型图标类型+默认按钮。见默认按钮。见P78 :字符串表达式。字符串表达式。返回值返回值:由在对话框中按下哪种按钮决定。见由在对话框中按下哪种按钮决定。见P7825第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Command1_Click()A=MsgBox(提示信息提示信息)End Sub例例:换行换行 Private S

23、ub Command1_Click()A=MsgBox(第一行第一行&Chr(13)&第二行第二行)End Sub26第第四四章章 顺顺序序结结构构程程序序设设计计例例:Private Sub Command1_Click()A=MsgBox(提示信息提示信息,标题内容标题内容)End Sub例例:按钮类型按钮类型0到到5或符号常量或符号常量 见见P58 Private Sub Command1_Click()A=MsgBox(提示信息提示信息,1,标题内容标题内容)End Sub27第第四四章章 顺顺序序结结构构程程序序设设计计例例:图标类型图标类型16、32、48、64或符号常量或符号常量

24、 Private Sub Command1_Click()A=MsgBox(提示信息提示信息,16,标题内容标题内容)End Sub例例:默认按钮默认按钮0，256，512 Private Sub Command1_Click()a=MsgBox(提示信息提示信息,2+256,标题内容标题内容)Print a End Sub按回车打印按回车打印428第第四四章章 顺顺序序结结构构程程序序设设计计4.3.3 用文本框用文本框(TextBox)输出数据输出数据【例【例4.7】在在Text1中输入任一英文字母，在中输入任一英文字母，在Text2中中显示该英文字母及其显示该英文字母及其ASCII码值。

25、要求在文本框码值。要求在文本框Text2中显示出所有输入的英文字母及其中显示出所有输入的英文字母及其ASCII码值码值Text1Text2Command129第第四四章章 顺顺序序结结构构程程序序设设计计Private Sub Command1_Click()Dim Char As String*1 Char=Trim(Text1.Text)Text2.Text=Text2.Text&Space(5)&Char&_ Space(10)&Str(Asc(Char)&vbCrLf Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1.T

26、ext)End SubChr(13)&Chr(10)30第第四四章章 顺顺序序结结构构程程序序设设计计4.3.4 用标签用标签(Label)输出数据输出数据1.标签的属性标签的属性(1)Caption:标签的标题。标签的标题。(2)Alignment:确定标签标题的对齐方式。确定标签标题的对齐方式。(3)AutoSize:确定标签是否随标题自动调整大小。确定标签是否随标题自动调整大小。(4)BorderStyle:确定标签的边框。确定标签的边框。0 无边框；无边框；1 有边框。有边框。(5)BackStyle:指定背景是透明或不透明。指定背景是透明或不透明。1不透明；不透明；0透明。透明。(6

27、)WordWrap:指示是否随标题沿垂直方向自动扩展。指示是否随标题沿垂直方向自动扩展。True标签将随标题在垂直方向变化。标签将随标题在垂直方向变化。(此时此时AutoSize属性值应设置为属性值应设置为True)False标签不能在垂直方向上扩展。标签不能在垂直方向上扩展。31第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-5】测试标签的边框样式和透明样式。】测试标签的边框样式和透明样式。在窗体上放置一标签，显示在窗体上放置一标签，显示“Visual Basic程序设程序设计教程计教程”，放置四个命令按钮，放置四个命令按钮，Command1放在放在Command2上，上，Comm

28、and3放在放在Command4上。运行上。运行时，单击相应按钮，界面发生相应变化。时，单击相应按钮，界面发生相应变化。Label1Command2Command1Command3Command432第第四四章章 顺顺序序结结构构程程序序设设计计Private Sub Command2_Click()Label1.BorderStyle=0 Command1.Visible=True Command2.Visible=FalseEnd SubPrivate Sub Command1_Click()Label1.BorderStyle=1 Command1.Visible=False Comma

29、nd2.Visible=TrueEnd Sub33第第四四章章 顺顺序序结结构构程程序序设设计计Private Sub Command3_Click()Label1.BackStyle=1 Command3.Visible=False Command4.Visible=TrueEnd SubPrivate Sub Command4_Click()Label1.BackStyle=0 Command3.Visible=True Command4.Visible=FalseEnd Sub 34第第四四章章 顺顺序序结结构构程程序序设设计计2.标签的事件标签的事件:Click、DblClick.例例

30、:Private Sub Label1_DblClick()Label1.FontSize=Label1.FontSize+10 End Sub3.标签的方法标签的方法:Move 格式格式:.Move ,:指示对象左边的水平坐标指示对象左边的水平坐标(x-轴轴)。:指示对象顶边的垂直坐标指示对象顶边的垂直坐标(y-轴轴)。:指示对象新的宽度。指示对象新的宽度。:指示对象新的高度。指示对象新的高度。例例:Private Sub Label1_Click()Label1.Move Label1.Left+50 End Sub35第第四四章章 顺顺序序结结构构程程序序设设计计4.4 注释、暂停与程序

31、结束语句注释、暂停与程序结束语句1.注释语句注释语句 格式格式:|Rem 功能功能:给语句或程序段加上注释，以提高可读性。给语句或程序段加上注释，以提高可读性。说明说明:Rem与与 之间至少空一个空格。之间至少空一个空格。例例:Private Sub Form_Activate()Rem 本程序用于计算圆的面积本程序用于计算圆的面积 Dim R As String,AREA As Single R为半径为半径 R=InputBox(请输入半径请输入半径,1):Rem 输入半径输入半径 AREA=3.14*Val(R)2 以下将半径和面积输出到窗体上以下将半径和面积输出到窗体上 Print Va

32、l(R),AREAEnd Sub36第第四四章章 顺顺序序结结构构程程序序设设计计2.暂停语句暂停语句 格式格式:Stop 功能功能:暂停程序的执行。暂停程序的执行。用于程序调试。类似于执行用于程序调试。类似于执行“运行运行”菜单中的菜单中的“中断中断”命令命令3.结束语句结束语句 格式格式:End 功能功能:结束程序的执行。结束程序的执行。37第第四四章章 顺顺序序结结构构程程序序设设计计例：单位发工资例：单位发工资，设某职工应发工资，设某职工应发工资X元，试求各种元，试求各种 票额钞票总张数最少的付款方案。票额钞票总张数最少的付款方案。38第第四四章章 顺顺序序结结构构程程序序设设计计例：单位发工资例：单位发工资，设某职工应发工资，设某职工应发工资X元，试求各种元，试求各种 票额钞票总张数最少的付款方案。票额钞票总张数最少的付款方案。39第第四四章章 顺顺序序结结构构程程序序设设计计例：生成指定范围内的随机数例：生成指定范围内的随机数40第第四四章章 顺顺序序结结构构程程序序设设计计本章小结本章小结:输入输入计算计算输出输出赋值语句赋值语句文本框文本框IntputBox函数函数赋值语句赋值语句标签标签文本框文本框Print语句语句MsgBox函数函数41