VB程序设计基础全套课件VB教程第3章教案.ppt

《VB程序设计基础全套课件VB教程第3章教案.ppt》由会员分享，可在线阅读，更多相关《VB程序设计基础全套课件VB教程第3章教案.ppt（42页珍藏版）》请在三一办公上搜索。

1、第3章,赋值与输入输出,一个完整的VB应用程序，一般都包含三部分内容，即 输入 处理 输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容,第3章 赋值与输入输出,退出,1.赋值语句Let变量名=表达式 示例：x=5*1.4 2.注释、结束和暂停语句(1)注释语句 Rem 注释内容 或 注释内容(2)结束语句 End(3)暂停语句 Stop 也可以通过单击工具栏上的“中断”按钮来实现 使用Ctrl+Break组合键,赋值与输入输出,(1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如：a=1 c=a+b+3 b未赋过值，为0 执行后，c 值为 4

2、(2)赋值语句跟数学中等式具有不同的含意，例如 x=x+1 表示把变量x的当前值加上1后再将结果赋给变量“先读后写”：读出x的内容 加1 写回x（覆盖原有内容）,说明,(3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素(其值被读出)；出现在左边时，变量起存放表达式的值的作用(被赋值)。例如 x=2 a=3 x=2*a+5 当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把该值乘2后加5，然后将结果(11)赋值给变量x。(4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。,说明,例3.2 设计程序，实现两个文本框内容的交

3、换,(1)在窗体上建立两个标签、两个文本框和一个命令按钮(2)编写程序代码 借助于另一个变量(假设为 t)，并直接在控件中交换数据 Private Sub Command1_Click()“交换”按钮 Dim t As String t=Text1.Text Text1.Text=Text2.Text Text2.Text=t End Sub,Text1,Text2,例3.2,编写的程序代码如下：Private Sub Command1_Click()“交换”按钮 t=Text1.Text Text1.Text=Text2.Text Text2.Text=t End Sub,采用变体型变量,说

4、明：对于初学者来说，为了节省时间，有时可以不采用Dim等语句声明就直接使用变量(默认为变体型，如t)。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。,把上述程序改为以下形式，效果是否一样？,Private Sub Command1_Click()“交换”按钮 Text2.Text=Text1.Text Text1.Text=Text2.Text End Sub,思考题,想一想,下列程序的运行结果是什么？,运行时，在文本框Text1中输入5，单击“计算”按钮后，在文本框Text2显示的结果是什么?Private Sub Command1_Click()“计算”按钮 Dim a A

5、s Integer,b As Integer,c As Integer a=Val(Text1.Text)b=7 c=2*a Mod b/3+1 a=a+1 b=2*b-1 c=c+a+b Text2.Text=cEnd Sub,思考题,想一想,例3.2h,20,3.3.1 Print方法 用于显示(输出)文本 格式：对象名.Print 表达式列表 说明：(1)使用的对象可以是窗体等 Print“程序设计”在当前窗体上输出 Picture1.Print“程序设计”在图片框上输出(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行,3.3 使用Print方法输出数据,例3.2a Priv

6、ate Sub Form_Click()a=2 b=VB Print 50*a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub 运行结果：,例3.2a,输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格(3)当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开。按区格式(14个字符位置)(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行,例3.2b Private Sub Form_Click()a=3:b=4 Pr

7、int a,b,4+a,Print 2*b Print a,b Print a=;a,b=;b End Sub 运行结果,例3.2b,1.Spc函数 格式：Spc(n)功能：在输出下一项之前插入n个空格。例如：Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)：学号姓名成绩,特殊打印格式,函数格式：Tab(n)功能：把输出位置移到第n列。例如：Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果是(1个汉字占2个位置)：学号姓名成绩,2.Tab函数,格式：Format(表达式,格式串)功能：根据格式串规定的格式来输出表达式的值 例3.

8、2c a=4513.7:b=3456.78:TimeVar=#08:30:05#Print Format(a,#,#.#)Print Format(a,$#,#.00)Print Format(b,+#,#.#)Print Format(TimeVar,h:m:s)输出结果是：4,513.7$4,513.70+3,456.8 8:30:5 格式符号#和0都能显示数字，但符号#会剔除不必要的0，符号0会按规定补足0,3.Format函数,例3.2c,窗体(Form)是设计VB应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的;一个程序可以有多个窗体

9、3.4.1 窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现 默认属性,3.4 窗体,一些常用的窗体属性：Name属性：用于设置窗体的名称。指定窗体的名称。只读，不能在应用程序中修改 Caption属性：用于设置窗体标题栏上的标题内容。Maxbutton和Minbutton属性：用于设置最大化和最小化按钮 Height和Width属性：确定窗体的初始高度和宽度 Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标 Appearance属性：用于设置窗体的外观是平面还是三维的 BackColor和ForeColor属性：设置窗体的背景色和前景

10、色 Picture属性：用于在窗体上设置要显示的图形。对象.Picture=LoadPicture(文件名)Visible(可见性)：设置对象的可见性，默认值为True,坐标原点(0,0)在窗体的左上角 坐标轴刻度单位为缇(Twip,567缇为1厘米)当前位置的横坐标(CurrentX)和纵坐标(CurrentY),Y,X,(CurrentX,CurrentY)当前位置,窗体坐标系统,窗体事件过程的一般格式为：Private Sub Form_事件名(参数表)End 在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字(如Form1等),3.4.2 窗体的事件,与窗体有关的

11、常用事件有以下几种。(1)Load(装载)事件(2)Unload(卸载)事件(3)Activate(活动)、Deactivate(非活动)事件(4)Paint(绘画)事件(5)Click(单击)事件(6)DblClick(双击)事件(7)KeyPress(按键)事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为：Private Sub 对象_KeyPress(KeyAscii As Integer)End Sub 参数KeyAscii返回所按键的ASCII码,(1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体(2)Print方法：用于在窗体上输出表达式的值

12、(3)Cls方法：用于清除运行时在窗体中显示的文本或图形(4)Move(移动)方法：用于移动并改变窗体或控件的位置和大小,窗体的方法,1.属性：对象的特性 如 Text1.Text,Label1.BackColor等 设置方法：(1)在属性窗口中设置(2)在程序中更改对象的属性 如 Text1.Text=“ABCDEFG”2.事件：由系统预先设置好的、能被对象识别的动作。例如：鼠标的移动(MouseMove)、单击(Click)等 用来引发事件过程，其格式如下 3.方法 方法是对象能够执行的动作 它是对象本身内含的函数或过程，用于完成某种特定的功能 一般格式：对象名.方法名(参数)如 Form

13、1.Cls 消除窗体Form1上的内容 Form1.Print Visual BASIC 在当前窗体上显示,对象的属性、事件与方法(小结),Sub 对象名_事件名()处理事件的程序代码End Sub,1.焦点 焦点(Focus，光标)是对象接收鼠标或键盘输入的能力。要将焦点赋给控件，有以下几种方法：(1)用鼠标选定对象(2)按快捷键选定对象(3)按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点(4)在代码中用SetFocus方法来设置焦点。例如：Text1.SetFocus 把焦点设置在文本框Text1 2.Tab键序 Tab键序是指用户按Tab键时，焦点在控件间移动的顺序 反映

14、在控件的TabIndex属性,焦点与Tab键序,设置以下3个命令按钮：“显示”按钮：用于显示唐诗“静夜思”“清除”按钮：用于清除所生成的文本“结束”按钮：结束程序的运行 设计步骤如下：(1)创建应用程序的用户界面和设置对象的属性,例3.3 显示唐诗“静夜思”,例3.3,(2)编写程序代码。编写的三个按钮的Click事件过程代码：Private Sub CmdPrt_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName=楷体_GB2312 FontSize=20 FontBold=True 粗体 CurrentX=1200

15、:CurrentY=350 显示位置 Print 静夜思(唐诗)FontName=幼圆 Print FontSize=13 Print Spc(6);床前明月光，疑是地上霜 Print Print Spc(6);举头望明月，低头思故乡 End Sub,Private Sub CmdCls_Click()Cls End Sub Private Sub CmdEnd_Click()End End Sub 程序运行后，单击“显示”按钮，输出结果,3.5 基本控件,三种基本控件命令按钮、标签和文本框 命令按钮(commandButten)用于引发应用程序的某个操作 标签(Label)主要用来显示比较固

16、定的提示性信息。文本框(TextBox)是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。几点说明：(1)Caption属性：对象的标题 可以在Caption属性中为控件指定一个访问键 例如：Command1.Caption=“结束(&E)”运行时只要用户同时按下Alt键和E键，就能执行该按钮命令(2)Enabled属性：决定控件是否对用户产生的事件作出响应(3)Visible属性：决定控件是否可见，默认值为True,在窗体上已经建立了两个文本框Text1和Text2，并编写 如下三个事件过程：Private Sub Form_Click()Text2.Text=P Text1.

17、Text=P+Text1.Text End Sub Private Sub Text1_Change()内容发生改变 Text2.Text=Text2.Text+N+Text1.Text End Sub Private Sub Form_Load()Text2.Text=M Text1.Text=M End Sub 运行程序后单击窗体，则在文本框Text2中显示的内容是 A.PNM B.NPM C.PNP D.PNPM,例3.3a,D,思考题,想一想,对话框既可以用来显示信息，也可以用于输入信息 VB中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数(InputBox和MsgBox)

18、，而不必为对话框另建窗体 先看以下一个例子 例3.4a 通过输入框输入姓名，然后再消息框中显示出来 Private Sub Form_Load()x=InputBox(输入您的姓名,您叫什么名?)y=MsgBox(x&先生：祝您马到功成！)End Sub,3.6 使用对话框,例3.4a,用于产生一个能接收用户输入的对话框 格式：变量=InputBox(提示,标题,缺省值,xpos,ypos)举例 filename$=InputBox(“请输入文件名(不超过8个字符)”，”文件名”，”vbfile”)将产生一个如下对话框,3.6.1 输入对话框,例3.4b,filename$=InputBox(

19、请输入文件名+Chr(13)+(不超过8个字符),文件名,vbfile),使用MsgBox函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮 其语法格式是：变量=MsgBox(提示,对话框类型,对话框标题)例：y=MsgBox(“输入文件名是否正确”,52,”请确认”)“对话框类型”一般有3个参数，4+48+0 出现按钮；图标类型；默认按钮；函数返回值 示例：,3.6.2 消息对话框,例3.4c,1.返回一个值。从返回值中可以知道用户按下的是哪个按钮（表3.5）。例如 y=MsgBox(“输入文件名是否正确”,52,”请确认”)若y为1，表示用户按

20、下的是“确定”按钮，依此类推。程序通过判断y值(如采用条件语句IF-THEN)，再根据用户按下的是什么按钮，再做不同的处理。2.不返回值。例如 MsgBox“输入文件名是否正确”,52,”请确认”MsgBox“输入文件名是否正确”采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。,MsgBox的两种格式,(1)创建应用程序的用户界面和设置对象属性(2)编写程序代码Private Sub Command1_Click()Dim r As Single,k As Single,s As Single r=Val(InputBox(请输入圆的半径,计算圆的周

21、长和面积)k=2*3.14159*r s=3.14159*r*r Text1.Text=k Text2.Text=s MsgBox 计算已完成,例3.5 End Sub Private Sub Command2_Click()End End Sub,例3.5 从输入框中输入圆的半径，计算圆的周长和面积,例3.5,当输入的圆半径为65时，运行结果,例3.6 控制窗体“变大”和“变小”在窗体上设置三个命令按钮(图3.13)，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。,3.7 程序举例,例3.6,(1)建立应用程序的用户

22、界面和设置对象属性(2)编写程序代码 Private Sub Form_Load()Form1.Height=4000 Height为窗体的高度，P55 Form1.Width=4000 Height为窗体的宽度 Form1.Top=1000 设置窗体的初始位置 Form1.Left=1000 End Sub Private Sub Command1_Click()“窗体变大”按钮 Form1.Height=Form1.Height+200 每次增加200点 Form1.Width=Form1.Width+200 End Sub Private Sub Command2_Click()“窗体变

23、小”按钮 Form1.Height=Form1.Height-200 每次减少200点 Form1.Width=Form1.Width-200 End Sub,在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容,例3.7 在三个文本框中显示不同的文字效果,例3.7,(1)建立应用程序的用户界面和设置对象属性(2)编写程序代码 Private Sub Form_Load()Text2.FontName=隶书 Text2.FontSize=16 Text3.FontName=楷体_GB2312 Text3.FontS

24、ize=20 End Sub Private Sub Text1_Change()Text2.Text=Text1.Text Text3.Text=Text1.Text End Sub Private Sub Command1_Click()“清除”按钮 Text1.Text=清除文本框Text1的内容 Text2.Text=清除文本框Text2的内容 Text3.Text=清除文本框Text3的内容 Text1.SetFocus 设置焦点 End Sub,(1)在窗体上建立一个标签（Label1）和三个命令按钮(Command1、Command2和Command3)三个命令按钮分别使用访问键

25、Alt+C、Alt+H和Alt+D,例3.8 实现标签的显示和隐藏,以及改变文字的颜色,例3.8,(2)编写程序代码 Private Sub Form_Load()Randomize Label1.BackColor=QBColor(15)背景色 Label1.ForeColor=QBColor(0)文字颜色 Label1.FontSize=18 字体大小 End Sub Private Sub Command1_Click()“改变文字颜色”按钮 Clr=Int(15*Rnd)产生随机颜色码 Label1.ForeColor=QBColor(Clr)End Sub Private Sub Command2_Click()“隐藏标签”按钮 Label1.Visible=False 隐藏标签 End Sub Private Sub Command3_Click()“显示标签”按钮 Label1.Visible=True 显示标签 End Sub,