VB程序设计基础_全套课件_VB教程第3章教案教学文案

VB程序设计基础_全套课件_VB教程第3章教案一个完整的VB应用程序，一般都包含三部分内容，即输入→处理→输出可通过VB语句、各种控件实现输入输出操作本章主要内容第3章赋值与输入输出赋值语句注释、结束及暂停语句使用Print方法输出数据窗体和基本控件对话框程序举例命令按钮标签文本框输入框消息框退出1.赋值语句［Let］变量名=表达式示例：x=5*1.42.注释、结束和暂停语句(1)注释语句Rem注释内容或´注释内容(2)结束语句End(3)暂停语句Stop也可以通过单击工具栏上的“中断”按钮来实现使用Ctrl+Break组合键赋值与输入输出(1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如：a=1c=a+b+3′b未赋过值，为0执行后，c值为4(2)赋值语句跟数学中等式具有不同的含意，例如x=x+1表示把变量x的当前值加上1后再将结果赋给变量“先读后写”：读出x的内容→加1→写回x（覆盖原有内容）说明(3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素(其值被读出)；出现在左边时，变量起存放表达式的值的作用(被赋值)。例如x=2a=3x=2*a+5当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把该值乘2后加5，然后将结果(11)赋值给变量x。(4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。说明例3.2设计程序，实现两个文本框内容的交换(1)在窗体上建立两个标签、两个文本框和一个命令按钮(2)编写程序代码借助于另一个变量(假设为t)，并直接在控件中交换数据PrivateSubCommand1_Click()′“交换”按钮DimtAsStringt=Text1.TextText1.Text=Text2.TextText2.Text=tEndSubText1Text2例3.2编写的程序代码如下：PrivateSubCommand1_Click()´“交换”按钮t=Text1.TextText1.Text=Text2.TextText2.Text=tEndSub采用变体型变量说明：对于初学者来说，为了节省时间，有时可以不采用Dim等语句声明就直接使用变量(默认为变体型，如t)。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。把上述程序改为以下形式，效果是否一样？PrivateSubCommand1_Click()′“交换”按钮Text2.Text=Text1.TextText1.Text=Text2.TextEndSub思考题想一想下列程序的运行结果是什么？运行时，在文本框Text1中输入5，单击“计算”按钮后，在文本框Text2显示的结果是什么?PrivateSubCommand1_Click()'“计算”按钮DimaAsInteger,bAsInteger,cAsIntegera=Val(Text1.Text)b=7c=2*aModb/3+1a=a+1b=2*b-1c=c+a+bText2.Text=cEndSub思考题想一想Text1Text2例3.2h203.3.1Print方法用于显示(输出)文本格式：［对象名.］Print［表达式列表］说明：(1)使用的对象可以是窗体等Print“程序设计”´在当前窗体上输出Picture1.Print“程序设计”´在图片框上输出(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行3.3使用Print方法输出数据例3.2aPrivateSubForm_Click()a=2b="VB"Print50*a'计算并输出表达式的值Printb'输出变量的值Print'输出空行Print"TheTotalis"'输出字符串常量EndSub运行结果：例3.2a输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格(3)当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开。按区格式(14个字符位置)(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行例3.2bPrivateSubForm_Click()a=3:b=4Printa,b,4+a,Print2*bPrinta,,bPrint"a=";a,"b=";bEndSub运行结果例3.2b1.Spc函数格式：Spc(n)功能：在输出下一项之前插入n个空格。例如：Print"学号"；Spc(2)；"姓名"；Spc(5)；"成绩"输出结果(└┘表示空格)：学号└┘└┘姓名└┘└┘└┘└┘└┘成绩3.3.2特殊打印格式函数格式：Tab(n)功能：把输出位置移到第n列。例如：PrintTab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"输出结果是(1个汉字占2个位置)：└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩2.Tab函数格式：Format(表达式[,格式串])功能：根据格式串规定的格式来输出表达式的值例3.2ca=4513.7:b=3456.78:TimeVar=#08:30:05#PrintFormat(a,"##,###.##")PrintFormat(a,"$##,###.00")PrintFormat(b,"+##,###.#")PrintFormat(TimeVar,"h:m:s")输出结果是：4,513.7$4,513.70+3,456.88:30:5格式符号#和0都能显示数字，但符号#会剔除不必要的0，符号0会按规定补足03.Format函数例3.2c窗体(Form)是设计VB应用程序的基本平台窗体本身是一个对象，又是其他对象的载体或容器多数应用程序是从窗体开始执行的;一个程序可以有多个窗体3.4.1窗体的基本属性设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现默认属性3.4窗体一些常用的窗体属性：·Name属性：用于设置窗体的名称。指定窗体的名称。只读，不能在应用程序中修改·Caption属性：用于设置窗体标题栏上的标题内容。·Maxbutton和Minbutton属性：用于设置最大化和最小化按钮·Height和Width属性：确定窗体的初始高度和宽度·Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标·Appearance属性：用于设置窗体的外观是平面还是三维的·BackColor和ForeColor属性：设置窗体的背景色和前景色·Picture属性：用于在窗体上设置要显示的图形。［对象.］Picture=LoadPicture("文件名")·Visible(可见性)：设置对象的可见性，默认值为True坐标原点(0,0)在窗体的左上角坐标轴刻度单位为缇(Twip,567缇为1厘米)当前位置的横坐标(CurrentX)和纵坐标(CurrentY)YX·(CurrentX,CurrentY)当前位置窗体坐标系统窗体事件过程的一般格式为：PrivateSubForm_事件名([参数表])……End在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字(如Form1等)3.4.2窗体的事件与窗体有关的常用事件有以下几种。(1)Load(装载)事件(2)Unload(卸载)事件(3)Activate(活动)、Deactivate(非活动)事件(4)Paint(绘画)事件(5)Click(单击)事件(6)DblClick(双击)事件(7)KeyPress(按键)事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为：PrivateSub对象_KeyPress(KeyAsciiAsInteger)……EndSub参数KeyAscii返回所按键的ASCII码(1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体(2)Print方法：用于在窗体上输出表达式的值(3)Cls方法：用于清除运行时在窗体中显示的文本或图形(4)Move(移动)方法：用于移动并改变窗体或控件的位置和大小3.4.3窗体的方法1.属性：对象的特性如Text1.Text,Label1.BackColor等设置方法：(1)在属性窗口中设置(2)在程序中更改对象的属性如Text1.Text=“ABCDEFG”2.事件：由系统预先设置好的、能被对象识别的动作。例如：鼠标的移动(MouseMove)、单击(Click)等用来引发事件过程，其格式如下3.方法方法是对象能够执行的动作它是对象本身内含的函数或过程，用于完成某种特定的功能一般格式：［对象名.］方法名［(参数)］如Form1.Cls´消除窗体Form1上的内容Form1.Print"VisualBASIC"´在当前窗体上显示对象的属性、事件与方法(小结)Sub对象名_事件名()处理事件的程序代码EndSub1.焦点焦点(Focus，光标)是对象接收鼠标或键盘输入的能力。要将焦点赋给控件，有以下几种方法：(1)用鼠标选定对象(2)按快捷键选定对象(3)按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点(4)在代码中用SetFocus方法来设置焦点。例如：Text1.SetFocus′把焦点设置在文本框Text12.Tab键序Tab键序是指用户按Tab键时，焦点在控件间移动的顺序反映在控件的TabIndex属性3.4.4焦点与Tab键序设置以下3个命令按钮：“显示”按钮：用于显示唐诗“静夜思”“清除”按钮：用于清除所生成的文本“结束”按钮：结束程序的运行设计步骤如下：(1)创建应用程序的用户界面和设置对象的属性例3.3显示唐诗“静夜思”例3.3(2)编写程序代码。编写的三个按钮的Click事件过程代码：PrivateSubCmdPrt_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName="楷体_GB2312"FontSize=20FontBold=True′粗体CurrentX=1200:CurrentY=350′显示位置Print"静夜思(唐诗)"FontName="幼圆"PrintFontSize=13PrintSpc(6);"床前明月光，疑是地上霜"PrintPrintSpc(6);"举头望明月，低头思故乡"EndSubPrivateSubCmdCls_Click()ClsEndSubPrivateSubCmdEnd_Click()EndEndSub程序运行后，单击“显示”按钮，输出结果3.5基本控件三种基本控件——命令按钮、标签和文本框命令按钮(commandButten)用于引发应用程序的某个操作标签(Label)主要用来显示比较固定的提示性信息。文本框(TextBox)是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。几点说明：(1)Caption属性：对象的标题可以在Caption属性中为控件指定一个访问键例如：Command1.Caption=“结束(&E)”运行时只要用户同时按下Alt键和E键，就能执行该按钮命令(2)Enabled属性：决定控件是否对用户产生的事件作出响应(3)Visible属性：决定控件是否可见，默认值为True在窗体上已经建立了两个文本框Text1和Text2，并编写如下三个事件过程：PrivateSubForm_Click()Text2.Text="P"Text1.Text="P"+Text1.TextEndSubPrivateSubText1_Change()´内容发生改变Text2.Text=Text2.Text+"N"+Text1.TextEndSubPrivateSubForm_Load()Text2.Text="M"Text1.Text="M"EndSub运行程序后单击窗体，则在文本框Text2中显示的内容是A.PNMB.NPMC.PNPD.PNPM例3.3aD思考题想一想对话框既可以用来显示信息，也可以用于输入信息VB中能够建立两种预制对话框：输入框和消息框使用系统提供的函数(InputBox和MsgBox)，而不必为对话框另建窗体先看以下一个例子例3.4a通过输入框输入姓名，然后再消息框中显示出来PrivateSubForm_Load()x=InputBox("输入您的姓名","您叫什么名?")y=MsgBox(x&"先生：祝您马到功成！")EndSub3.6使用对话框例3.4a用于产生一个能接收用户输入的对话框格式：变量=InputBox(提示[,标题][,缺省值][,xpos][,ypos])举例filename$=InputBox(“请输入文件名(不超过8个字符)”，”文件名”，”vbfile”)将产生一个如下对话框3.6.1输入对话框例3.4bfilename$=InputBox("请输入文件名"+Chr(13)+"(不超过8个字符)","文件名","vbfile")使用MsgBox函数，可以产生一个对话框来显示消息当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮其语法格式是：变量=MsgBox(提示[,对话框类型[,对话框标题]])例：y=MsgBox(“输入文件名是否正确”,52,”请确认”)“对话框类型”一般有3个参数，4+48+0出现按钮；图标类型；默认按钮；函数返回值示例：3.6.2消息对话框例3.4c1.返回一个值。从返回值中可以知道用户按下的是哪个按钮（表3.5）。例如y=MsgBox(“输入文件名是否正确”,52,”请确认”)若y为1，表示用户按下的是“确定”按钮，依此类推。程序通过判断y值(如采用条件语句IF-THEN)，再根据用户按下的是什么按钮，再做不同的处理。2.不返回值。例如MsgBox“输入文件名是否正确”,52,”请确认”MsgBox“输入文件名是否正确”采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。MsgBox的两种格式(1)创建应用程序的用户界面和设置对象属性(2)编写程序代码PrivateSubCommand1_Click()DimrAsSingle,kAsSingle,sAsSingler=Val(InputBox("请输入圆的半径","计算圆的周长和面积"))k=2*3.14159*rs=3.14159*r*rText1.Text=kText2.Text=sMsgBox"计算已完成",,"例3.5"EndSubPrivateSubCommand2_Click()EndEndSub例3.5从输入框中输入圆的半径，计算圆的周长和面积例3.5当输入的圆半径为65时，运行结果例3.6控制窗体“变大”和“变小”在窗体上设置三个命令按钮(图3.13)，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。3.7程序举例例3.6(1)建立应用程序的用户界面和设置对象属性(2)编写程序代码PrivateSubForm_Load()Form1.Height=4000'Height为窗体的高度，P55Form1.Width=4000'Height为窗体的宽度Form1.Top=1000'设置窗体的初始位置Form1.Left=1000EndSubPrivateSubCommand1_Click()'“窗体变大”按钮Form1.Height=Form1.Height+200'每次增加200点Form1.Width=Form1.Width+200EndSubPrivateSubCommand2_Click()'“窗体变小”按钮Form1.Height=Form1.Height-200'每次减少200点Form1.Width=Form1.Width-200EndSub在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容例3.7在三个文本框中显示不同的文字效果例3.7(1)建立应用程序的用户界面和设置对象属性(2)编写程序代码PrivateSubForm_Load()Text2.FontName="隶书"Text2.FontSize=16Text3.FontName="楷体_GB2312"Text3.FontSize=20EndSubPrivateSubText1_Change()Text2.Text=Text1.TextText3.Text=Text1.TextEndSubPrivateSubCommand1_Click()'“清除”按钮Text1.Text=""'清除文本框Text1的内容Text2.Text=""'清除文本框Text2的内容Text3.Text=""'清除文本框Text3的内容Text1.SetFocus'设置焦点EndSub(1)在窗体上建立一个标签（Label1）和三个命令按钮(Command1、Command2和Command3)三个命令按钮分别使用访问键Alt+C、Alt+H和Alt+D例3.8实现标签的显示和隐藏,以及改变文字的颜色例3.8(2)编写程序代码PrivateSubForm_Load()RandomizeLabel1.BackColor=QBColor(15)'背景色Label1.ForeColor=QBColor(0)'文字颜色Label1.FontSize=18'字体大小EndSubPrivateSubCommand1_Click()'“改变文字颜色”按钮Clr=Int(15*Rnd)'产生随机颜色码Label1.ForeColor=QBColor(Clr)EndSubPrivateSubCommand2_Click()'“隐藏标签”按钮Label1.Visible=False'隐藏标签EndSubPrivateSubCommand3_Click()'“显示标签”按钮Label1.Visible=True'显示标签EndSub 结束语谢谢大家聆听！！！