VB第3章赋值与输入输出

第3赋值与输入输出第一页，共五十六页。一个完整的VB应用程序，一般都包含三部分 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 ，即输入→处理→输出可通过VB语句、各种控件实现输入输出操作本章主要内容赋值语句常用基本语句使用Print方法输出数据(shùjù)窗体和基本控件命令按钮/标签/文本框对话框输入对话框/消息对话框程序举例第3章赋值与输入输出第二页，共五十六页。赋值语句是程序设计中最基本(jīběn)、最常用的语句格式：［Let］变量名= 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式功能：计算右端的表达式，并把结果赋值给左端的变量例3.1已知a=6,b=9,计算c=√a2+b2编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSinglea=6b=9c=Sqr(a*a+b*b)Print"c="&cEndSub运行程序后单击窗体，输出结果如下：C=10.816653.1赋值语句(yǔjù)第三页，共五十六页。本事件过程采用的是顺序程序结构，运行(yùnxíng)的过程是：声明3个单精度变量a,b,c6→a9→b计算表达式，其结果10.81665→c输出结果赋值含义:将值送到变量的存储单元中去第四页，共五十六页。说明：(1)表达式中的变量(biànliàng)必须是赋过值的，否则变量(biànliàng)的初值自动取零值(变长字符串变量(biànliàng)取空字符)。例如：a=1c=a+b+3′b未赋过值，为0执行后，c值为4(2)利用赋值语句，可以改变变量的值，因此，同一变量在不同时刻可以取不同的值。第五页，共五十六页。PrivateSubForm_Click()a=3:Print"*A="&aa=7:Print"**A="&aa=a*2+3:Print"***A="&aEndSub运行程序后单击窗体，输出的结果如下：*A=3**A=7***A=17(3)赋值语句跟数学(shùxué)中等式具有不同的含意，例如赋值语句x=x+1,表示把变量x的当前值加上1后再将结果赋给变量“先读后写”：读出x的内容→加1→写回x（覆盖原有内容）例3.2示例(shìlì)第六页，共五十六页。设计步骤如下：(1) 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 ：计算某年y的元旦是星期几，可由以下式子得出：F=y-1+［(y-1)/4］-［(y-1)/100］+［(y-1)/400］+1其中［］表示求整K=FMod7F除以7的余数y为某年公元年号，计算出K为星期几(2)创建(chuàngjiàn)应用程序的用户界面例3.3设计(shèjì)一个“万年历”程序，用来查看某年的元旦是星期几第七页，共五十六页。(3)设置对象(duìxiàng)属性(4)编写程序代码功能要求：用户在“输入年份”文本框(Text1)中输入某一年份，单击“查看”按钮时，则在“星期”文本框(Text2)中显示出星期几第八页，共五十六页。编写的“查看”按钮(Command1)Click事件过程(guòchéng)代码如下：PrivateSubCommand1_Click()DimyAsInteger,fAsInteger,kAsIntegey=Val(Text1.Text)-1f=y+Int(y/4)–Int(y/100)+Int(y/400)+1k=fMod7‘等价于f-Int(f/7)*7吗?Text2.Text=kEndSub运行结果（见上图）第九页，共五十六页。3.2.1注释语句Rem在程序的适应位置加上必要的注释，可以提高程序的可读性语法(yǔfǎ)格式：Rem注释内容或´注释内容功能：在程序中加入注释内容，以便于对程序的理解。例如Rem交换变量a和b的值c=a´c为临时单元a=bb=c说明：(1)如果使用关键字Rem，在Rem和注释内容之间要加一个空格。(2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的语句隔开。注释符(单引号’)可以直接写在其他语句后面。3.2常用(chánɡyònɡ)基本语句第十页，共五十六页。3.2.2加载对象语句Load语法格式：Load对象名功能：把对象名代表(dàibiǎo)的窗体对象、控件数组元素等加载到内存中。说明：使用Load语句可以加载窗体，但不显示窗体。当VB加载窗体对象时，先把窗体属性设置为初始值，再执行Load事件过程。例如LoadForml´加载窗体FormlLoadOption(2)´加载控件数组中的一个元素第十一页，共五十六页。3.2.3卸载语句Unload格式：Unload对象名功能：从内存(nèicún)中卸载指定窗体或控件。如果卸载的对象是程序惟一的窗体，则将终止程序的执行例如PrivateSubCommand1_Click()UnloadMe′卸载当前窗体EndSubMe是系统关键字，用来代表当前窗体第十二页，共五十六页。格式：End功能：结束程序的运行。也可以单击工具栏上的“结束”按钮3.2.5暂停语句Stop格式：Stop功能：暂停程序的运行。可用于调试程序(设置断点)也可以通过单击工具栏上的“中断”按钮来实现(shíxiàn)使用Ctrl+Break组合键3.2.4结束(jiéshù)语句End第十三页，共五十六页。3.3.1Print方法用于显示(输出)文本格式：［对象名.］Print［表达式列表］说明：(1)使用的对象可以是窗体等Print“程序设计”´在当前窗体上输出Picture1.Print“程序设计”´在图片框上输出(2)表达式列表是一个或多个表达式，如果省略，则输出一个空行(3)当输出多个表达式时，各表达式之间用分号“；”(紧凑(jǐncòu)格式)或逗号“，”(按区格式)隔开。按区格式(14个字符位置)3.3使用(shǐyòng)Print方法输出数据第十四页，共五十六页。例：PrivateSubForm_Click()a=2b="VB"Print50*a'计算并输出表达式的值Printb'输出变量的值Print'输出空行Print"TheTotalis"'输出字符串常量EndSub运行(yùnxíng)结果：第十五页，共五十六页。输出数值数据时，前面有一个符号(fúhào)位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。例：PrivateSubForm_Click()a=3:b=4Printa,b,4+a,Print2*bPrinta,,bPrint"a=";a,"b=";bEndSub运行结果(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行第十六页，共五十六页。编写的窗体单击事件过程代码如下：PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerDimdAsInteger,sAsInteger,mAsSinglea=6:b=21:c=23:d=15s=a+b+c+dm=(a*18+b*19+c*20+d*21)/s'以下舍入到小数(xiǎoshù)后1位Print"平均年龄：";Int(m*10+0.5)/10EndSub运行程序后单击窗体，输出结果是：平均年龄：19.7例3.4使用Print方法(fāngfǎ)输出全班学生的平均年龄已知18岁6人，19岁21人，20岁23人，21岁15人第十七页，共五十六页。1.Spc函数格式：Spc(n)功能：在输出(shūchū)下一项之前插入n个空格。例如：Print"学号"；Spc(2)；"姓名"；Spc(5)；"成绩"输出结果(└┘表示空格)：学号└┘└┘姓名└┘└┘└┘└┘└┘成绩3.3.2特殊(tèshū)打印格式第十八页，共五十六页。2.Tab函数函数格式：Tab(n)功能：把输出位置移到第n列。例如：PrintTab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"输出结果(jiēguǒ)是(1个汉字占2个位置)：└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩第十九页，共五十六页。程序代码如下：PrivateSubForm_Click()PrintPrintTab(15);"学号";Tab(26);"姓名";Tab(36);"成绩"PrintTab(14);String(27,"-")'输出(shūchū)27个减号字符“-”PrintTab(14);"20011001";Tab(26);"张小三";Tab(36);57PrintTab(14);"20011003";Tab(26);"李小四";Tab(36);69PrintTab(14);"20011012";Tab(26);"马小五";Tab(36);92PrintTab(14);String(27,"-")'输出27个减号字符“-”EndSub例3.5使用Tab对输出进行(jìnxíng)定位第二十页，共五十六页。运行(yùnxíng)结果第二十一页，共五十六页。格式：Format(表达式[,格式串])功能：根据格式串规定(guīdìng)的格式来输出表达式的值a=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函数(hánshù)第二十二页，共五十六页。窗体(Form)是设计VB应用程序的基本平台窗体本身(běnshēn)是一个对象，又是其他对象的载体或容器多数应用程序是从窗体开始执行的;一个程序可以有多个窗体3.4.1窗体的基本属性设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现默认属性3.4窗体第二十三页，共五十六页。一些常用的窗体属性(shǔxìng)：·Name属性：用于设置窗体的名称。指定窗体的名称。只读，不能在应用程序中修改·Caption属性：用于设置窗体标题栏上的标题内容。·Maxbutton和Minbutton属性：用于设置最大化和最小化按钮·Height和Width属性：确定窗体的初始高度和宽度·Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标·Appearance属性：用于设置窗体的外观是平面还是三维的·BackColor和ForeColor属性：设置窗体的背景色和前景色·Picture属性：用于在窗体上设置要显示的图形。［对象.］Picture=LoadPicture("文件名")·Visible(可见性)：设置对象的可见性，默认值为True第二十四页，共五十六页。坐标原点(0,0)在窗体的左上角坐标轴刻度(kèdù)单位为缇(Twip,567缇为1厘米)当前位置的横坐标(CurrentX)和纵坐标(CurrentY)窗体坐标(zuòbiāo)系统YX·(CurrentX,CurrentY)当前(dāngqián)位置第二十五页，共五十六页。窗体作为对象，能够对事件作出响应。与窗体有关的常用事件有以下(yǐxià)几种。窗体事件过程的一般格式为：PrivateSubForm_事件名([参数表])……EndSub不管窗体名字如何定义，但在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字(如Form1等)3.4.2窗体的事件(shìjiàn)第二十六页，共五十六页。与窗体有关的常用事件有以下几种(jǐzhǒnɡ)。(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方法：用于在窗体上输出(shūchū)表达式的值(3)Cls方法：用于清除运行时在窗体中显示的文本或图形(4)Move(移动)方法：用于移动并改变窗体或控件的位置和大小3.4.3窗体的方法(fāngfǎ)第二十八页，共五十六页。1.焦点焦点(Focus)是对象接收鼠标或键盘输入的能力。当对象得到或失去焦点时，分别会产生GotFocus或LostFocus事件。要将焦点赋给控件，有以下几种方法：(1)用鼠标选定对象(2)按快捷键选定对象(3)按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点(4)在代码中用(zhōngyòng)SetFocus方法来设置焦点。例如：Text1.SetFocus′把焦点设置在文本框Text12.Tab键序Tab键序是指用户按Tab键时，焦点在控件间移动的顺序反映在控件的TabIndex属性3.4.4焦点(jiāodiǎn)与Tab键序第二十九页，共五十六页。设置以下3个命令(mìnglìng)按钮：“显示”按钮：用于显示唐诗“静夜思”“清除”按钮：用于清除所生成的文本“结束”按钮：结束程序的运行设计步骤如下：(1)创建应用程序的用户界面和设置对象的属性例3.6显示(xiǎnshì)唐诗“静夜思”第三十页，共五十六页。(2)编写程序代码(dàimǎ)。编写的三个按钮的Click事件过程代码(dàimǎ)如下：PrivateSubCommand1_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName="楷体_GB2312"FontSize=20CurrentX=1200CurrentY=350Print"静夜思(唐诗)"FontName="幼圆"PrintFontSize=13PrintSpc(6);"床前明月光，疑是地上霜"PrintPrintSpc(6);"举头望明月，低头思故乡"EndSub第三十一页，共五十六页。PrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSub程序运行后，单击“显示”按钮，输出(shūchū)结果第三十二页，共五十六页。需要在窗体中放置各种控件，才能实现用户与应用程序之间的信息交互三种基本(jīběn)控件——命令按钮、标签和文本框3.5.1控件的公共属性(1)Name属性：控件的Name属性（名称）必须以字母开头，其后可以是字母、数字和下划线，名称长度不能超过40个字符(2)Caption属性：任意的字符串。以通过程序代码改变其值，例如：Command1.Caption=“结束“可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的Caption属性设置为“结束(&E)”，则运行时该控件外观如图3.7所示，只要用户同时按下Alt键和E键，就能执行该按钮命令。3.5基本(jīběn)控件第三十三页，共五十六页。(3)Enabled属性:该属性决定(juédìng)控件是否对用户产生的事件作出响应(4)Visible属性该属性决定控件是否可见，默认值为True。(5)Height、Width、Top和Left属性：Height和Width属性确定控件的高度和宽度，Top和Lelf属性确定控件在窗体中的位置YXTopHeightLeftWidth第三十四页，共五十六页。(6)BackColor和ForeColor属性(7)FontName、FontSize、FontBold、FontItalic、FontStrikethru和FontUnderline属性(8)Font属性：确定控件中显示的文本所用(suǒyònɡ)字体的样式、大小、字体效果等第三十五页，共五十六页。用于接收用户的操作信息，并引发应用程序的某个操作1．常用属性(1)Default属性和Cancel属性Default属性和Cancel属性分别用于设置(shèzhì)“默认按钮”和“取消按钮”(2)Style属性设置命令按钮的外观2.常用事件和方法命令按钮最常用的事件是Click(单击)事件，但不支持DblClick(双击)事件。命令按钮常用的方法是SetFocus方法。3.5.2命令(mìnglìng)按钮第三十六页，共五十六页。标签(Label)主要用来显示比较固定的提示性信息。1．常用属性(1)Alignment属性设置标签中文本的对齐方式(2)AutoSize属性确定标签的大小是否根据标签的内容自动调整大小(3)BorderStyle属性设置标签的边框外观(wàiguān)2.常用事件和方法标签最常用的事件是Click(单击)事件和DblClick(双击)事件。标签常用的方法是SetFocus方法。3.5.3标签(biāoqiān)第三十七页，共五十六页。文本框(TextBox)是一个文本编辑区域，用户可以在该区域中输入(shūrù)、编辑和显示文本内容。默认情况下，文本框只能输入单行文本，并且最多可以输入2048个字符1.常用属性文本框具有一般控件的常用属性，但文本框没有Caption属性(1)Maxlength属性:确定文本框中文本的最大长度(2)Multiline属性:指定文本框中是否允许显示和输入多行文本(3)PasswordChar属性：确定在文本框中是否显示用户输入的字符，常用于密码输入(4)ScrollBars属性：指定在文本框中是否出现滚动条3.5.4文本框第三十八页，共五十六页。(5)SelStart属性、Sellength属性和SelText属性(6)Text属性设置或返回文本框中所包含的文本内容(nèiróng)。(7)Locked属性2.常用事件和方法文本框支持Click、DblClick等鼠标事件，同时支持Change、GotFocus、LostFocus等事件文本框常用方法有SetFocus方法和Move方法第三十九页，共五十六页。如输入4852秒，则应输出1小时20分52秒(1)创建应用程序的用户界面和设置(shèzhì)对象属性(2)编写程序代码PrivateSubCommand1_Click()DimhAsInteger,mAsInteger,sAsInteger,tAsIntegert=Val(Text1.Text)h=t\3600t=t-h*3600m=t\60s=t-m*60Text2.Text=hText3.Text=mText4.Text=sEndSub例3.7输入(shūrù)一个总秒数，化成小时、分钟和秒数PrivateSubCommand2_Click()EndEndSub第四十页，共五十六页。第四十一页，共五十六页。对话框既可以用来显示信息(xìnxī)，也可以用于输入信息(xìnxī)VB中能够建立两种预制对话框：输入框和消息框使用系统提供的函数(InputBox和MsgBox)，而不必为对话框另建窗体先看以下一个例子例3.7a通过输入框输入姓名，然后再消息框中显示出来PrivateSubForm_Load()x=InputBox("输入您的姓名","您叫什么名?")MsgBox(x&"先生：祝您马到功成！")EndSub3.6使用(shǐyòng)对话框第四十二页，共五十六页。3.6.1输入对话框用于产生一个能接收用户输入的对话框格式：变量=InputBox(提示[,标题][,缺省值][,xpos][,ypos])举例(jǔlì)filename$=InputBox(“请输入文件名(不超过8个字符)”，”文件名”，”vbfile”)将产生一个如下对话框第四十三页，共五十六页。filename$=InputBox("请输入(shūrù)文件名"+Chr(13)+"(不超过8个字符)","文件名","vbfile")第四十四页，共五十六页。使用MsgBox函数，可以产生一个对话框来显示消息当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮其语法格式是：变量=MsgBox(提示[,对话框类型(lèixíng)[,对话框标题]])例：y=MsgBox(“输入文件名是否正确”,52,”请确认”)“对话框类型”一般有3个参数，4+48+0出现按钮；图标类型；默认按钮；函数返回值(例3_9b)3.6.2消息(xiāoxi)对话框第四十五页，共五十六页。消息框的三种格式(géshi)y=MsgBox(“输入文件名是否正确”,52,”请确认”)MsgBox“输入文件名是否正确”,52,”请确认”MsgBox(“输入文件名是否正确”)第四十六页，共五十六页。(1)创建应用程序的用户界面(yònɡhùjièmiàn)和设置对象属性(2)编写程序代码PrivateSubCommand1_Click()DimrAsSingle,kAsSingle,sAsSingler=Val(InputBox("请输入圆的半径","计算圆的周长和面积"))k=2*3.14159*rs=3.14159*r*rText1.Text=kText2.Text=sMsgBox"计算已完成",,"例3.10"EndSubPrivateSubCommand2_Click()EndEndSub例3.8从输入(shūrù)框中输入(shūrù)圆的半径，计算圆的周长和面积第四十七页，共五十六页。当输入(shūrù)的圆半径为65时，运行结果第四十八页，共五十六页。例3.9编写程序，实现两个文本框内容的交换(jiāohuàn)使用一个临时单元变量(t)(1)在窗体上建立两个标签、两个文本框和一个命令按钮(2)编写程序代码PrivateSubCommand1_Click()´“交换”按钮t=Text1.TextText1.Text=Text2.TextText2.Text=tEndSub3.7程序(chéngxù)举例第四十九页，共五十六页。在窗体上设置三个命令按钮(图3.15)，程序进入(jìnrù)运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。例3.10控制(kòngzhì)窗体“变大”和“变小”第五十页，共五十六页。(1)建立应用程序的用户界面和设置对象属性(2)编写程序代码PrivateSubForm_Load()Form1.Height=4000Form1.Width=4000Form1.Top=1000Form1.Left=1000EndSubPrivateSubCommand1_Click()'“窗体变大”按钮Form1.Height=Form1.Height+200'每次增加(zēngjiā)200点Form1.Width=Form1.Width+200EndSubPrivateSubCommand2_Click()'“窗体变小”按钮Form1.Height=Form1.Height-200'每次减少200点Form1.Width=Form1.Width-200EndSub第五十一页，共五十六页。在第一个文本框中输入文字时，在另外两个文本框中显示(xiǎnshì)同样相同的内容，但显示(xiǎnshì)的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容例3.11在三个文本框中显示(xiǎnshì)不同的文字效果第五十二页，共五十六页。(1)建立应用程序的用户界面和设置对象属性(shǔxìng)(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)在窗体上建立一个标签(biāoqiān)（Label1）和三个命令按钮(Command1、Command2和Command3)三个命令按钮分别使用访问键Alt+C、Alt+H和Alt+D例3.12实现标签的显示和隐藏(yǐncáng)，以及改变文字的颜色第五十四页，共五十六页。(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()'“隐藏(yǐncáng)标签”按钮Label1.Visible=False'隐藏标签EndSubPrivateSubCommand3_Click()'“显示标签”按钮Label1.Visible=True'显示标签EndSub第五十五页，共五十六页。内容(nèiróng) 总结 初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf 第。EndSub。说明：(1)如果使用关键字Rem，在Rem和注释内容之间要加一个空格。输出结果(jiēguǒ)是(1个汉字占2个位置)：。·Visible(可见性)：设置对象的可见性，默认值为True。“清除”按钮：用于清除所生成的文本。(1)在窗体上建立两个标签、两个文本框和一个命令按钮。单击“清除”按钮时则清除三个文本框中的内容第五十六页，共五十六页。