VB顺序结构设计.ppt

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

1、V i s u a l B A S I C 程程序序设设计计第第四四章章第四章第四章 顺序结构程序设计顺序结构程序设计Visual Basic 程序设计程序设计1V i s u a l B A S I C 程程序序设设计计第第四四章章程序的概念 程序程序-可以被计算机处理的指令序列。可以被计算机处理的指令序列。程序设计程序设计-根据所提出的任务，用某种程序设计根据所提出的任务，用某种程序设计语言编制一个能正确完成该任务的计算机程序。语言编制一个能正确完成该任务的计算机程序。2V i s u a l B A S I C 程程序序设设计计第第四四章章一个程序应包括两个方面的内容一个程序应包括两个方

2、面的内容:沃思（沃思（Nikiklaus Wirth)提出一个公式提出一个公式:数据结构数据结构+算法算法=程序程序 数据结构算法程序设计方法语言工具数据结构算法程序设计方法语言工具当今对以上公式的扩充当今对以上公式的扩充:程序的特性对数据的描述：对数据的描述：数据结构数据结构(data structure)对操作的描述：对操作的描述：算法算法(algorithm)3V i s u a l B A S I C 程程序序设设计计第第四四章章算法的表示算法的表示可以用不同的方法表示算法，常用的有：可以用不同的方法表示算法，常用的有：u自然语言自然语言uN-SN-S图表示法图表示法u传统流程图传统流

3、程图u以上3种描述各有特色u 初学者最好在编程之前，先画出算法流程u建议用N-S盒图(禁用goto)4V i s u a l B A S I C 程程序序设设计计第第四四章章 结构化程序设计方法结构化程序设计方法思想思想:模块化程序设计思想模块化程序设计思想;原则原则:从上往下从上往下,逐步求精逐步求精;每个模块细化到可以直接编程每个模块细化到可以直接编程;要求要求:每个模块只有且必有一个入口和一个出口每个模块只有且必有一个入口和一个出口;5V i s u a l B A S I C 程程序序设设计计第第四四章章 结构化程序设计方法结构化程序设计方法三种基本结构三种基本结构:顺序顺序 选择选择

4、 循环循环任何程序都可以用任何程序都可以用三种基本结构三种基本结构表示表示优点：结构清晰，易读，较高的质量和效率优点：结构清晰，易读，较高的质量和效率6V i s u a l B A S I C 程程序序设设计计第第四四章章uu(1)(1)顺序结构顺序结构ABAB流程图N-S图A执行完再执行执行完再执行B箭头上方表示入口箭头上方表示入口箭头下方表示出口箭头下方表示出口上面框表示入口上面框表示入口下面框表示出口下面框表示出口7V i s u a l B A S I C 程程序序设设计计第第四四章章u事件驱动:将代码划分成一些过程u过程结构:过程内部代码由三种基本结构组成 即:顺序结构、选择结构、

5、循环结构u顺序结构:执行过程的次序从上到下，从左到右例例:Private Sub Command1_Click()Private Sub Command1_Click()Dim H Dim H As Single，R R As Single变量的声明变量的声明 Const Pi=3.14Const Pi=3.14 H=Val(Text1.Text)H=Val(Text1.Text)R=Val(Text2.Text)R=Val(Text2.Text)Text3.Text=Pi*R 2*H Text3.Text=Pi*R 2*H End Sub End Sub8V i s u a l B A S

6、I C 程程序序设设计计第第四四章章顺序结构程序设计顺序结构程序设计主要内容主要内容u赋值语句赋值语句u数据输入数据输入u数据输出数据输出u注释、暂停、程序结束语句注释、暂停、程序结束语句开始开始输入输入计算、处理计算、处理输出输出结束结束9V i s u a l B A S I C 程程序序设设计计第第四四章章赋值语句是VB程序最常用、最基本的语句l它能为变量提供数据。l若要在程序代码中设置对象的属性，也要使用赋值语句。u数据输入：将要加工的数据输入到计算机中可使用赋值语句赋值语句，输入函数输入函数，文本框控件，文本框控件，10V i s u a l B A S I C 程程序序设设计计第第

7、四四章章赋值 将给定数值赋给变量或对象(的属性)赋值语句赋值语句赋值语句格式=.=语句中的变量名应符合VB变量命名约定，表达式可以是常量、变量、表达式，对象名缺省时为当前窗体变量未赋值时，数值型变量为0，字符串变量为空串赋值号“=”与数学中的等号意义不同，赋值号左边必须是变量或对象属性R=3+AText1.Font=“黑体黑体”11V i s u a l B A S I C 程程序序设设计计第第四四章章说明明：1.执行过程：先求表达式的值，然后将值赋值给左边的执行过程：先求表达式的值，然后将值赋值给左边的变量变量2.不要将不要将“”理解为数学上的等号理解为数学上的等号 A=A+1 表示：将表示

8、：将A单元的值加后以放回到单元的值加后以放回到A单元单元 执行过程如右图执行过程如右图12V i s u a l B A S I C 程程序序设设计计第第四四章章3赋值符号赋值符号“=”左边只能是变量名或对象的属性引用，左边只能是变量名或对象的属性引用，不不 能是常量、符号常量、表达式。能是常量、符号常量、表达式。下面的赋值语句都是错的：下面的赋值语句都是错的：5=X 左边是常量左边是常量 Abs(X)=20 左边是函数调用，即是表达式左边是函数调用，即是表达式 4.赋值符号赋值符号“=”两边的两边的数据类型相容数据类型相容，一般要求应一致一般要求应一致类型相容类型相容：指变量名或对象属性名能

9、够正确存：指变量名或对象属性名能够正确存取赋值号右边的表达式的值。取赋值号右边的表达式的值。5.给可变类型的变量赋值后，变量的类型为赋值号右边给可变类型的变量赋值后，变量的类型为赋值号右边 表达式的类型表达式的类型13V i s u a l B A S I C 程程序序设设计计第第四四章章课堂练习课堂练习1(数据类型相容数据类型相容)：判断：判断A、B、C、S的值的值Dim A As Integer,B As Single,C As Double,S As String (或或Dim A%,B!,C#,S$)A=100 将整型数将整型数100100赋给整型变量赋给整型变量A S=123.45

10、将字符串将字符串123.45123.45赋给变量赋给变量S S A=S 将数字字符串变量赋值给整型变量将数字字符串变量赋值给整型变量，变量变量A中存放中存放123,类型相容类型相容 S=A S中存放字符串中存放字符串123 B=12345.67 A=B 单精度变量赋值给整型变量单精度变量赋值给整型变量，先四舍五入后取整先四舍五入后取整,A中存放中存放12346 C=123456.789 B=C 双精度变量赋值给单精度变量。有效数字双精度变量赋值给单精度变量。有效数字7位位 先四舍五入先四舍五入,后取整。变量后取整。变量B中存放中存放123456.8 S=abc A=S 运行运行错误，类型不匹配

11、错误，类型不匹配14V i s u a l B A S I C 程程序序设设计计第第四四章章课堂练习课堂练习2：执行下列各赋值语句后，：执行下列各赋值语句后，A的数据类型是的数据类型是什么？什么？(设设A没有定义数据类型没有定义数据类型)1.A=6=52.A=5+33.A=5+34.A=#03/20/2003#5.A=#3-20-03#6.A=Not 5 8可以用可以用TypeName函数判断函数判断变量的数据类型。变量的数据类型。如如:Print TypeName(A)注：注：将课堂练习将课堂练习2内容，上机实现。内容，上机实现。1.使用立即窗口观察使用立即窗口观察A的数据类型的数据类型。2

12、.变量变量A在代码中在代码中可能造成可能造成逻辑逻辑错误或错误或运行运行错误。错误。可使用本地或监视窗口观察可使用本地或监视窗口观察A的数据类型的数据类型。15V i s u a l B A S I C 程程序序设设计计第第四四章章u数据输入：将要加工的数据输入到计算机中可使用赋值语句赋值语句，输入函数输入函数，文本框控件，文本框控件，数据输入数据输入u输入函数(InputBox)InputBox(,)功能 显示一个(输入输入)对话框对话框，等待用户输入信息或按下 按钮，返回包含文本框内容的字符串提示信息 出现在对话框上的信息（字符串表达式）。用Chr(13)、Chr(10)、Chr(13)&

13、Chr(10)、vbCrLf可换行标题 出现在对话框标题栏上的信息（字符串表达式），缺省则显示当前应用程序的名字默认值 出现在对话框上文本框中的信息（字符串表达式），缺省为空函数返回值函数返回值:字符串字符串(在对话框中在对话框中单击取消则返回单击取消则返回)16V i s u a l B A S I C 程程序序设设计计第第四四章章InputBox(,)VBVB提提供供的的InputBoxInputBox函函数数可可生生成成(输输入入)对话框框。(输输入入)对话框可以接受用户的输入，但是其风格和用法有别于文本框。框可以接受用户的输入，但是其风格和用法有别于文本框。例例：有语句如下：有语句如下

14、:Dim x%As Integer x=Val(InputBox(“请输入一个数请输入一个数”,“输入框输入框”,100)语句执行后打开如下对话框语句执行后打开如下对话框:默认值标题提示17V i s u a l B A S I C 程程序序设设计计第第四四章章注意注意：uu每执行一次每执行一次InputBoxInputBox函数，用户只能函数，用户只能输入一个数据输入一个数据;uu输入框的样式是输入框的样式是固定固定的，用户不能改变的，用户不能改变;uu用用户户只只能能改改变变 “提提示示”和和“标标题题”的的内内容容，而而“提提示示”和和“标题标题”都是字符串表达式。都是字符串表达式。默认

15、值标题提示18V i s u a l B A S I C 程程序序设设计计第第四四章章例：设计一个从键盘输入数据的对话框 Private Sub Form_Activate()Dim R As String,Area As Single R=InputBox(请输入半径,计算面积,1)Area=3.14*Val(R)2 Print Val(R),Area End Sub返回文本框中的文返回文本框中的文本并赋给变量本并赋给变量R R返回一个零长度的返回一个零长度的字符串赋给变量字符串赋给变量R R19V i s u a l B A S I C 程程序序设设计计第第四四章章u文本框文本框(Text

16、Box)：可用于数据输入，接收用户输入的信息 用文本框输入数据时，也就是将文本框的用文本框输入数据时，也就是将文本框的Text属性的内容属性的内容赋值给某个变量。赋值给某个变量。例例：将文本框：将文本框Text1中输入的字符串赋给字符串变量中输入的字符串赋给字符串变量Mystr Dim MyStr As String MyStr=Text1.Text 例例：将文本框：将文本框Text1中输入的字符串作为数据赋给整型变量中输入的字符串作为数据赋给整型变量 Dim A As Integer A=Val(Text1.Text)20V i s u a l B A S I C 程程序序设设计计第第四四章

17、章u焦点和焦点和Tab键序键序焦点焦点:当前可以接收用户输入的对象称为具有焦点对象的Enable和Visible属性为True时，才能接收焦点接收焦点有些控件不能获得焦点，例如标签、定时器、菜单标签、定时器、菜单(对象)如何获得焦点？运行时用户选择对象(鼠标、Tab键、访问键)在代码中使用SetFocus方法(对象)失去焦点运行时用户选择其它对象(鼠标、Tab键、访问键)在代码中对另一个对象使用SetFocus方法21V i s u a l B A S I C 程程序序设设计计第第四四章章 Tab 键序键序所谓Tab键序，即光标在各个控件之间移动的顺序每个窗体都有自己的Tab键序默认的Tab键

18、序与控件的建立顺序一致改变控件的TabIndex属性可以改变键序 控件的TabStop属性(=True)决定它是否能够使用 Tab 键将焦点移动到当前对象 事件事件GotFocus 发生在对象得到焦点时LostFocus 发生在对象失去焦点时22V i s u a l B A S I C 程程序序设设计计第第四四章章【例例4-2】设计如下图所示的界面，运行时，输入某学生三设计如下图所示的界面，运行时，输入某学生三门课的成绩，计算平均成绩。按要求编程门课的成绩，计算平均成绩。按要求编程。n单击单击“计算计算”按钮求平均成绩；按钮求平均成绩；n当输入成绩的文本框当输入成绩的文本框获得焦点获得焦点时

19、，选中其中的文本时，选中其中的文本；n当输入成绩的文本框内容发生当输入成绩的文本框内容发生变化变化时，清除平均值；时，清除平均值；n单击单击“清除清除”按钮清除所有内容，将按钮清除所有内容，将焦点定位焦点定位在在Text1中；中；n单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。Text4Text1Text2Text3Command1Command2Command3设设Text4的的Locked属性为属性为True要要求求23V i s u a l B A S I C 程程序序设设计计第第四四章章 Private Sub Command1_Click()A=Val(Text1.Te

20、xt)B=Val(Text2.Text)C=Val(Text3.Text)Text4.Text=(A+B+C)/3 End Sub单击单击“计算计算”按钮求平均成绩按钮求平均成绩24V i s u a l B A S I C 程程序序设设计计第第四四章章Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub 当输入成绩的文本框当输入成绩的文本框获得焦点获得焦点时时,选中选中其中的文本其中的文本Private Sub Text2_GotFocus()Text2.SelStart=0 T

21、ext2.SelLength=Len(Text2.Text)End Sub Private Sub Text3_GotFocus()Text3.SelStart=0 Text3.SelLength=Len(Text3.Text)End Sub选中文本选中文本思考：思考：文本框文本框获获得焦点得焦点是否是否一定要使用一定要使用GotFocus事件事件？25V i s u a l B A S I C 程程序序设设计计第第四四章章Private Sub Text1_Change()Text4.Text=End Sub 当输入成绩的文本框内容发生变化时当输入成绩的文本框内容发生变化时,清除平均值清除平

22、均值Private Sub Text2_Change()Text4.Text=End SubPrivate Sub Text3_Change()Text4.Text=End Sub思考：思考：文本框文本框获得焦点获得焦点是否一定要使用是否一定要使用GotFocus事件事件？26V i s u a l B A S I C 程程序序设设计计第第四四章章单击单击“清除清除”按钮清除所有文本框的内容，并将焦点定按钮清除所有文本框的内容，并将焦点定位在文本框位在文本框Text1中。中。Private Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text

23、=Text4.Text=Text1.SetFocus End Sub单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。Private Sub Command3_Click()End End Sub27V i s u a l B A S I C 程程序序设设计计第第四四章章Private Sub Text1_Change()Text4.Text=Text1.SelStart=0 选择选择Text1文本的起始位置为文本的起始位置为0 Text1.SelLength=Len(Text1.Text)选择文本的长度为选择文本的长度为Text1 中中 文本的总长度文本的总长度End Sub思考：

24、思考：文本框文本框获得焦点获得焦点是否一定是否一定要使用要使用GotFocus事件事件？答答:不一定。可将不一定。可将、和为一，即：和为一，即：当当输入成绩的文本框内容发生变化时（输入成绩的文本框内容发生变化时（即即获获得焦点得焦点）,选中选中其中的文本并其中的文本并清除清除平均值。平均值。28V i s u a l B A S I C 程程序序设设计计第第四四章章数据输出数据输出 文本框文本框 标签标签 消息框消息框(MsgBoxMsgBox)PrintPrint方法方法 在程序设计中对输入的数据进行加工后，往往需在程序设计中对输入的数据进行加工后，往往需要将处理结果、提示信息等呈现给用户，

25、即输出要将处理结果、提示信息等呈现给用户，即输出29V i s u a l B A S I C 程程序序设设计计第第四四章章u文本框文本框(TextBox)控件：控件：文本框既可以文本框既可以输入输入数据，也可以数据，也可以输出输出数据数据 用文本框输出数据时，也就是将用文本框输出数据时，也就是将数据数据赋给赋给文本框的文本框的Text属性属性例：例：用文本框用文本框Text1输出一个字符串输出一个字符串 Text1.Text=hello例：例：用文本框用文本框Text1输出一个数值型数据输出一个数值型数据 Text1.Text=Str(3 2)Str可以省略或用可以省略或用Format例：例

26、：用文本框用文本框Text1输出多个数，分多行输出。输出多个数，分多行输出。首先将文本框的首先将文本框的MultiLine设置为设置为True，必要时可必要时可以进一步设滚动条属性以进一步设滚动条属性ScrollBars。X=3 2:Y=4 3 Text1.Text=Str(X)&vbCrLf&Str(Y)Chr(13)+Chr(10):回车符与换行符结合回车符与换行符结合30V i s u a l B A S I C 程程序序设设计计第第四四章章【例例4-3】在文本框Text1中输入任一英文字母，文本框文本框1获得焦点获得焦点时时,选中选中其中的文本。其中的文本。在Text2中显示该英文字母

27、及其ASCII码值。并要求在文本框Text2中显示出所有已输入的英文字母及其ASCII码值。Text1Text2Command1例例4631V i s u a l B A S I C 程程序序设设计计第第四四章章Text2的属性设置的属性设置Text 空空MultiLine TureScrollBars 2-Vertical Command1的代码设计的代码设计Private Sub Command1_Click()Dim Char As String*1 Char=Trim(Text1.Text)Text2.Text=Space(5)&Char&_ Space(10)&Str(Asc(Cha

28、r)&vbCrLf Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub Chr(13)&Chr(10)Text1Text2Command1文本框文本框1获得焦点获得焦点时时,选中选中其中的文本其中的文本例例46Text2.Text&显示出所有已输入的字母及ASCII码值32V i s u a l B A S I C 程程序序设设计计第第四四章章u标签标签(Label)控件：控件：用标签输出数据时，也就是将数据赋给标签的Caption属性。也可以输出多个数据。标签可以显示文本(但不能对文本进行编辑)标签的属

29、性标签的属性Caption：标签的标题Alignment：确定标签标题的对齐方式AutoSize：确定标签是否随标题自动调整大小BorderStyle：确定标签的边框BackStyle：指定背景是透明或不透明WordWrap：指示是否随标题沿垂直方向自动扩展33V i s u a l B A S I C 程程序序设设计计第第四四章章例：例：用标签用标签Label1输出输出一个字符串一个字符串 Label1.Caption=hello例：例：用标签用标签Label1输出输出一个数值型数据一个数值型数据 X=3 5 Label1.Caption=Str(X)例：例：用标签用标签Label1输出多个

30、数，分多行输出。输出多个数，分多行输出。先设置标签的先设置标签的AutoSize属性和属性和WordWrap属性为属性为True。X=3 5:y=7 4 Label1.Caption=x=&Str(X)&vbCrLf _&y=&Str(y)34V i s u a l B A S I C 程程序序设设计计第第四四章章【例例4-4】已知三角形的三条边已知三角形的三条边a、b、c的长度，用海伦的长度，用海伦公式求三角形的面积公式求三角形的面积S。海伦公式海伦公式:n将文本框将文本框Text1、Text2、Text3的内容清空的内容清空;n设置三个文本框的设置三个文本框的Alignment属性为属性为

31、1-Right Justify;n设置标签设置标签Label2的的Caption属性为空属性为空;n设置标签设置标签Label2的的BorderStyle属性为属性为1 Fixed Single。例例411Text1 Text2 Text3Label2Command1Label135V i s u a l B A S I C 程程序序设设计计第第四四章章代码如下：代码如下：代码如下：代码如下：Private Sub Command1_Click()Dim A As Single,B As Single,C As Single Dim P As Single,S As Single A=Val(

32、Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)P=(A+B+C)/2 S=Sqr(P*(P-A)*(P-B)*(P-C)用用Format显示时保留两位小数显示时保留两位小数 Label2.Caption=Format(S,0.00)End Sub36V i s u a l B A S I C 程程序序设设计计第第四四章章u消息框消息框(MsgBox)函数函数 消息框常用于在屏幕上显示一个对话框，给出消息框常用于在屏幕上显示一个对话框，给出一些提示或警告信息，并一些提示或警告信息，并允许允许用户进行用户进行选择选择。程序。程序根据根据该该选择选择确定进

33、一步的确定进一步的操作操作。37V i s u a l B A S I C 程程序序设设计计第第四四章章u消息框消息框(MsgBox)函数函数 (pp.58)格式格式 =MsgBox(,)或：MsgBox,功能功能在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮38V i s u a l B A S I C 程程序序设设计计第第四四章章 提示信息提示信息提示信息提示信息 字符串表达式,用Chr(13)、Chr(10)、Chr(13)&Chr(10)、vbCrLf可换行。对话框标题对话框标题对话框标题对话框标题 字符串表达式,可选项。同同InputBox 按钮类型按钮类

34、型按钮类型按钮类型 数值型数据,可选项。它包含按钮类型按钮类型+图标类型图标类型+默认按钮默认按钮(P65)按钮类型：0、1、2、3、4、5 图标类型：16、32、48、64默认按钮：0、256、512 返回值返回值返回值返回值(MsgBox)用户在对话框中按下了哪个按钮 返回值可以是：1、2、3、4、5、6、7(P65)39V i s u a l B A S I C 程程序序设设计计第第四四章章按钮及图标值如下按钮及图标值如下:根据用户所选按钮，根据用户所选按钮，函数返函数返回回1717的整数值的整数值，其含义，其含义如下表如下表:默认默认按钮按钮0,256,51240V i s u a l

35、 B A S I C 程程序序设设计计第第四四章章例例:Private Sub Command1_Click()A=MsgBox(提示信息提示信息,标题内容标题内容)End Sub例例:按钮类型按钮类型0到到5或符号常量或符号常量 见见P65 Private Sub Command1_Click()A=MsgBox(提示信息提示信息,1,标题内容标题内容)End Sub无按钮类型无按钮类型按钮类型按钮类型1默认默认按钮按钮0 041V i s u a l B A S I C 程程序序设设计计第第四四章章例例:图标图标类型类型16、32、48、64或符号常量或符号常量 见见P65 Private

36、 Sub Command1_Click()A=MsgBox(提示信息提示信息,16,标题内容标题内容)End Sub例例:默认默认按钮按钮0,256,512 见见P58 Private Sub Command1_Click()a=MsgBox(提示信息提示信息,2+256,标题内容标题内容)Print a End Sub按回车（按回车（默认默认）打印）打印4按钮类型按钮类型242V i s u a l B A S I C 程程序序设设计计第第四四章章按钮及图标值如下按钮及图标值如下:根据用户所选按钮，根据用户所选按钮，函数返函数返回回1717的整数值的整数值，其含义，其含义如下表如下表:默认默

37、认按钮按钮0,256,51243V i s u a l B A S I C 程程序序设设计计第第四四章章 按钮类型按钮类型按钮类型按钮类型 数值型数据,可选项。它包含按钮类型按钮类型+图标类型图标类型+默认按钮默认按钮(P65)按钮类型：0、1、2、3、4、5 图标类型：16、32、48、64默认按钮：0、256、512 返回值返回值返回值返回值(MsgBox)用户在对话框中按下了哪个按钮 返回值可以是：1、2、3、4、5、6、7(P65)44V i s u a l B A S I C 程程序序设设计计第第四四章章 a=msgbox(“文件已存在，是否替换原有文件?”,1+48+256）Pri

38、nt a课堂练习课堂练习3：用 msgbox 函数生成以下窗口，并将用户的选择赋给变量 a例例:换行 Private Sub Command1_Click()A=MsgBox(第一行&Chr(13)&第二行)End Sub按回车打印数值按回车打印数值2按钮类型按钮类型+图标类型图标类型+默认按钮默认按钮45V i s u a l B A S I C 程程序序设设计计第第四四章章uPrint方法方法格式：格式：.Print ;|,数据输出数据输出:用用Print方法输出数据方法输出数据对象名 窗体(Form)、图片框(Picture)、立即窗口 (Debug)、打印机(Printer).缺省缺省

39、:当前窗体当前窗体显示格式 多个表达式使用逗号“,”或分号“;”隔开,表示分区格式(以14个字符位置为单位)，每区显示一个表达式的值;表示紧凑格式，即后一项紧跟前一项显示 省略此项，则输出空行省略此项，则输出空行功能：功能：在窗体、图片框、立即窗口、或打印机上输出数据46V i s u a l B A S I C 程程序序设设计计第第四四章章例例例例：Print 23Print 23*2=2=；2323*2 2 在当前窗体上输出在当前窗体上输出23*2=46 Picture1.Print Good Picture1.Print Good 在图片框在图片框Picture1上输出上输出Good P

40、rinter.Print Morning Printer.Print Morning 在打印机上输出在打印机上输出Morning Debug.Print 23 Debug.Print 23*2=2=；2323*2 2 在立即窗口输出在立即窗口输出23*2=46 输出时，数值型数据前有一个符号位输出时，数值型数据前有一个符号位(正号不显正号不显)，后面留，后面留 一个空格位；字符串原样输出，前后无空格。一个空格位；字符串原样输出，前后无空格。47V i s u a l B A S I C 程程序序设设计计第第四四章章例例例例:Print “1234567890123456789012345678

41、9”Print 1；2；3 Print 4，5，Print 6 Print 7，8 Print Print 9，10输出结果为：12345678901234567890123456789 1 2 3 4 5 6 7 8 9 1048V i s u a l B A S I C 程程序序设设计计第第四四章章Private Sub Form_Load()Form1.Show Print 12345678901234567890?2+4=;2+4?2-4=,2-4End SubPrivate Sub Form_Activate()Print 12345678901234567890?2+4=;2+4;

42、2+5?2-4=,2-4End Sub课堂练习课堂练习4：指出下列程序的执行结果：指出下列程序的执行结果Print方法在方法在Form_Load事件中事件中不起不起作用，必须使用作用，必须使用Show方法，或将方法，或将AutoRedraw属性设置为属性设置为Ture输入输入Print时可用时可用?代替，代替，VB将其自动转换成将其自动转换成Print49V i s u a l B A S I C 程程序序设设计计第第四四章章与与Print配合使用的函数配合使用的函数：Tab函数函数格式格式:Tab(n)功能功能:与Print方法一起对输出数据进行定位参数参数 n 指明输出数据的显示位置(列数

43、)n省略，打印位置为下一个打印区的起点下一个打印区的起点 n当前位置，打印位置为下一行的第n列n输出行宽度，打印位置为 n Mod 行宽行宽Spc函数函数格式：格式：Spc(n)功能：功能：跳过n个空格50V i s u a l B A S I C 程程序序设设计计第第四四章章Private Sub Form_Activate()Print 12345678901234567890 Print Hello;Tab(10);World Print Hello;Tab;World Print Hello;Tab(4);World Print Tab(-5);Hello End Sub课堂练习课堂练

44、习5：指出下列程序的执行结果51V i s u a l B A S I C 程程序序设设计计第第四四章章 与与Print配合使用的函数：配合使用的函数：Spc函数函数 格式：格式：Spc(n)功能：功能：跳过n个空格例例:Print HOW;Spc(3);ABOUT结果结果:HOWABOUT注意注意:Spc函数与函数与Space函数、函数、Tab函数的区别函数的区别nSpace函数函数:可以用在字符串允许出现的任何位置。可以用在字符串允许出现的任何位置。nSpc函数函数:只能用在打印语句中。只能用在打印语句中。nTab函数指定函数指定绝对绝对位置；位置；Space函数或函数或Spc函数指定函数

45、指定相相对对位置。位置。52V i s u a l B A S I C 程程序序设设计计第第四四章章u注释语句注释语句格式：格式：|Rem 功能：功能：给语句或程序段加上注释，以提高可读性说明说明：1.指要包括的任何注释文本。在指要包括的任何注释文本。在Rem关键字和注关键字和注释内容之间要加一个空格。释内容之间要加一个空格。2.如果在其他语句行后面使用如果在其他语句行后面使用Rem关键字，必需用冒号关键字，必需用冒号(：)与与语句隔开。语句隔开。注释、暂停、程序结束语句注释、暂停、程序结束语句例例例例:Const PI=3.1415925 符号常量符号常量PI S=PI*r*r :Rem 计

46、算圆的面积计算圆的面积例例例例:Rem 符号常量符号常量 Const PI=3.141592553V i s u a l B A S I C 程程序序设设计计第第四四章章u暂停语句暂停语句格式：Stop功能：暂停程序的执行，一般用于程序调试。类似于执行“运行”菜单中的“中断”命令u结束语句结束语句格式：格式：End功能：结束程序的执行54V i s u a l B A S I C 程程序序设设计计第第四四章章应用举例应用举例uP.70 例例例例4-6 4-6 输出三个在任意指定范围的随机整数。输出三个在任意指定范围的随机整数。a a）设计界面设计界面b b）运行界面运行界面框架Frame1La

47、bel4例例410生成生成a,b 范围内的随机整数范围内的随机整数 Int(b-a+1)*Rnd+a)55V i s u a l B A S I C 程程序序设设计计第第四四章章本部分内容要求自学本部分内容要求自学uP70 例4-5 uP71 例4-6uP72 例4-7uP72 例4-856V i s u a l B A S I C 程程序序设设计计第第四四章章 u输入输入u计算、处理：计算、处理：u输出输出赋值语句赋值语句文本框文本框InputBox函数函数赋值语句赋值语句标签标签文本框文本框Print语句语句MsgBox函数函数本章小结本章小结u注释、暂停、程序结束语句注释、暂停、程序结束

48、语句顺序结构程序：顺序结构程序：开始开始输入输入计算、处理计算、处理输出输出结束结束57V i s u a l B A S I C 程程序序设设计计第第四四章章1.Print方法在方法在Form_Load事件中不起作用，必须使用事件中不起作用，必须使用Show方法，方法，或将或将AutoRedraw属性设置为属性设置为Ture2.2.在在Form_LoadForm_Load事件中，事件中，SetFocusSetFocus方法不起作用方法不起作用原原因因同同Print方方法法，因因为为系系统统在在窗窗体体装装入入内内存存时时无无法法同同步步地地用用SetFocusSetFocus方方法法定定位位

49、控控件件的的焦焦点点。解解决决的的方方法法在在属属性性窗窗口口对对要要定定位焦点的控件将其位焦点的控件将其TabIndexTabIndex值设置为值设置为0 0就可。就可。常常见错误见错误和和难难点点 58V i s u a l B A S I C 程程序序设设计计第第四四章章3.3.程序运行时对多个文本框间焦点移动的问题程序运行时对多个文本框间焦点移动的问题方法一方法一：按：按“Tab”Tab”键。这时可不必编程，直接利用系键。这时可不必编程，直接利用系统提供的功能方便地在各控件之间移动。若要确定离开或进统提供的功能方便地在各控件之间移动。若要确定离开或进入了哪个控件，则利用入了哪个控件，则

50、利用“控件控件_ _LostFocusLostFocus”或或“控件控件_ _GotFocusGotFocus”事件进行判断。事件进行判断。方法二方法二：按：按“回车回车”键。这时必须通过键。这时必须通过KeyPressKeyPress事件编程来事件编程来实现，有关程序段如下：实现，有关程序段如下：Private SubPrivate Sub某文本框某文本框_ _KeyPress(KeyAsciiKeyPress(KeyAscii As Integer)As Integer)If Key If Key AsciiAscii=13 Then=13 Then 另一控件另一控件.SetFocusSe