VisualBasic程序设计案例教程 第3章 赋值与输入输出.ppt

《VisualBasic程序设计案例教程 第3章 赋值与输入输出.ppt》由会员分享，可在线阅读，更多相关《VisualBasic程序设计案例教程 第3章 赋值与输入输出.ppt（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、掌握掌握VB中赋值语句和常用基本语句的用法中赋值语句和常用基本语句的用法理解掌握理解掌握print方法输出数据方法输出数据理解并熟练运用窗体和基本控件的运用理解并熟练运用窗体和基本控件的运用熟练运用对话框熟练运用对话框教学重点与难点：教学重点与难点：VB程序设计中数据的输入和输入，掌握程序设计中数据的输入和输入，掌握VB程序设程序设计数据输入和输出的两种实现：方法和相关控件计数据输入和输出的两种实现：方法和相关控件 第第3 3章章 赋值与输入输出赋值与输入输出【案例说明案例说明】1 已知已知a=5，b=7，计算，计算c=的值。的值。2设计一个设计一个“万年历万年历”程序，用来查看某年的元旦是星

2、期几，运行结程序，用来查看某年的元旦是星期几，运行结果如图果如图3.1所示：所示：分析分析1：此案例赋值语句的运用，后面会详细讲，还会用到：此案例赋值语句的运用，后面会详细讲，还会用到求平方根函数应该是（求平方根函数应该是（sqr）读者可以参考第二章的函数表。）读者可以参考第二章的函数表。分析分析2：要求输入的年份的元旦是星期几，除了相关的赋值：要求输入的年份的元旦是星期几，除了相关的赋值语句外，还要会求任何一年的元旦是周几的式子，现给出语句外，还要会求任何一年的元旦是周几的式子，现给出如下：，如下：，k=f mod 7。其中。其中表示求整，表示求整，y为某年公元年号，为某年公元年号，计算出计

3、算出k为星期几，为星期几，k=0表示星期天。表示星期天。3.1 3.1 赋值语句案例赋值语句案例【技术要点】已知已知a=5，b=7，计算，计算c=的值。的值。编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下：Private Sub Form_Click()Dim a As Single，b As Single，c As Singlea=5b=7c=Sqr(a*a+b*b)Print”c=”；cEnd sub运行程序后单击窗体，输出结果如下：运行程序后单击窗体，输出结果如下：C=8.602325 3.1 3.1 赋值语句案例赋值语句案例2设计一个“万年历”程序，用来查看某年的元旦是

4、星期几，运行结果如图3.1所示：（1）我们先把程序所用的数学式子转为程序语言所表过的格式对应的语言表达式为：f=y+Int(y/4)-Int(y/100)+Int(y/400)+1（2）创建应用程序的用户界面。（3）设置对象属性。如表3.1所示。（4）编写程序代码。编写“查看”按钮（Commandl）单击事件过程代码如下：Private Sub command1_click()Dim y As Integer,f As Integer,k As Integer y=Val(Text1.Text)-1 f=y+Int(y/4)-Int(y/100)+Int(y/400)+1 k=f Mod 7

5、Text2.Text=kEnd Sub 3.1 3.1 赋值语句案例赋值语句案例 相关知识及注意事项关于赋值语句：（1）表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如：a=3c=a+b+3，b未赋值，为0，执行后，c值为6。（2）利用赋值语句，可以改变变量的值，因此同一变量在不同时刻可以取不同的值。例 变量赋值示例。Private Sub form_click()a=2Print*A=;aa=4Print*A=;aa=a*2+2Print*A=;aEnd Sub运行程序后单击窗体，输出结果如下：*A=2*A=4*A=10 3.1 3.1 赋值语句案例赋值

6、语句案例【案例说明】1使用Print方法输出全班学生的平均年龄，已知18岁10人，19岁20人，20岁20人，21岁10人。2使用Tab对输出进行定位，输出结果如右图所示。【技术要点】该应用程序设计步骤如下。1运用【案例说明】中的第一部份（1）启动VB后，进入代码窗口（可以直接双击窗口），在过框中选择click事件。（2）运行下面的代码：Private Sub Form_click()Dim a As Integer,b As Integer,c As Integer Dim d As Integer,s As Integer,m As Single a=10:b=20:c=20:d=10 s

7、=a+b+c+d m=(a*18+b*19+c*20+d*21)/s 舍入到小数后1位 Print 平均年龄：;Int(m*10+0.5)/10End Sub单击窗体，结是在窗体中输入：平均年龄：19.5 3.3 Print方法输出数据和特殊打印格式案例 2运用【案例说明】中的第二部份使用Tab对输出进行定位（1）启动VB后，进入代码窗口（可以直接双击窗口），在过框中选择click事件。（2）运行下面的代码：Private Sub Form_click()Print Print Tab(15);学号;Tab(26);姓名;Tab(36);成绩 Print Tab(14);String(27,-

8、)输出27个减号字符“-”Print Tab(14);19011001;Tab(26);张明明;Tab(36);57 Print Tab(14);19011003;Tab(26);李小月;Tab(36);69 Print Tab(14);19011012;Tab(26);王小五;Tab(36);92 Print Tab(14);String(27,-)输出27个减号字符“-”End Sub 3.3 Print方法输出数据和特殊打印格式案例相关知识及注意事项1Print方法Print方法用于在窗体、图片框和打印机上显示或打印输出文本。语法格式：对象名Print 表达式列表说明：（1）对象名可以是

9、窗体（Form）、图片框（PictureBox）或打印机（Printer）的名称。如果省略对象名，则在当前窗体上直接输出。例如：Print程序设计 在当前窗体上输出 PicturelPrint“程序设计”在图片框上输出（2）表达式列表可以是一个或多个表达式，如果省略，则输出一个空行。例如：Private Sub Form_Click()a=3b=VVPrint 50*a 计算并输出表达式的值Print b 输出变量的值Print 输出空行Print The Total is 输出字符串常量End Sub 3.3 Print方法输出数据和特殊打印格式案例（3）当输出多个表达式时，各表达式之间用分

10、号“；”或逗号“，”隔开。使用分号分隔符，则按紧凑格式输出，即后一项紧跟前一项输出；使用逗号分隔符，则各输出项按区格式输出，此时系统会按14个字符位置将输出行分为若干个区段（划分区段的数目，与行宽有关），逗号后的表达式将在当前输出位置的下一个区段输出。例如：Private Sub Form_Click()a=3:b=4Print a,b,4+a,Print 2*bPrint a,bPrint a=;a,b=;bEnd Sub运行结果如图 3.3 Print方法输出数据和特殊打印格式案例（3）当输出多个表达式时，各表达式之间用分号“；”或逗号“，”隔开。使用分号分隔符，则按紧凑格式输出，即后一项

11、紧跟前一项输出；使用逗号分隔符，则各输出项按区格式输出，此时系统会按14个字符位置将输出行分为若干个区段（划分区段的数目，与行宽有关），逗号后的表达式将在当前输出位置的下一个区段输出。例如：Private Sub Form_Click()a=3:b=4Print a,b,4+a,Print 2*bPrint a,bPrint a=;a,b=;bEnd Sub运行结果如图 （4）若语句行末尾没有分隔符，则输出当前输出项后自动换行：若以分号 或逗号结束，则输出当前输出项后不换行，下一个Print输出的内容将紧凑输出（以分号结尾）或输出在下一个区段上（以逗号结尾）。在上面例中，第2行语句Print

12、a，b，4+a，以逗号结束，则下一个Print输出的8显示在下一个区段上。3.3 Print方法输出数据和特殊打印格式案例2.SpC函数函数格式：Spc(n)3.tab函数函数格式：Tab(n)4Format函数函数格式：Format（表达式，格式串）以下举一些简单的实例：Private Sub Form_Click()a=4513.7:b=3456.78:TimeVar=#8:30:05 AM#Print Format(a,#,#.#)Print Format(a,$#,#.00)Print Format(b,+#,#.#)Print Format(TimeVar,h:m:s)End Sub

13、输出的结果是：4,513.74,513.70+3,456.88:30:5 3.3 Print方法输出数据和特殊打印格式案例5常用基本语句（1）注释语句RemRem 交换变量a和b的值c=a，c为中间临时单元a=bb=c说明：（2）加载对象语句LoadLoad Forml 加载窗体FormlLoad option(2)加载控件数组中的一个元素（3）卸载语句Unload如果卸载的对象是程序惟一的窗体，将终止程序的执行，例如：Private SubCommandl_Click()UnloadMe 卸载当前窗体End sub说明：Me是系统关键字，用来代表当前窗体。（4）结束语句EndEnd语句能够强

14、行终止程序代码的执行，清除所有变量，并关闭所有数据文件。在程序运行中，用户也可以单击工具栏上的“结束”按钮来强行结束程序的运行。3.3 Print方法输出数据和特殊打印格式案例（5）暂停语句StopStop语句可以在程序中设置断点。与End语句不同的是，在解释方式下，stop不会关闭任何文件和清除变量。关于Stop语句的实际应用，请见后面相关章节：3.3 Print方法输出数据和特殊打印格式案例【案例说明】显示唐诗“回乡偶书（贺知章）”，要求设置如下3个命令按钮：“显示”按钮：用于显示唐诗“回乡偶书（贺知章）”。“清除”按钮：用于清除所生成的文本。“结束”按钮：结束程序的运行。程序运行结果如右

15、图所示：3.4 窗体案例【技术要点】（1）创建应用程序的用户界面和设置对象的属性。（2）编写程序代码。编写的3个按钮的单击事件过程代码如下Private Sub CmdPrt_Click()“显示”按钮 BackColor=RGB(255,255,255)背景色(白色)ForeColor=RGB(0,0,255)前景色(蓝色)FontName=楷体_GB2312字体名 FontSize=20字号 FontBold=True粗体 CurrentX=1200横坐标 CurrentY=350纵坐标 Print 回乡偶书（贺知章）FontName=宋体 Print FontSize=13 Print

16、Spc(6);少小离家老大回，乡音无改鬓毛衰 Print Print Spc(6);儿童相见不相识，笑问客从何处来End Sub 3.4 窗体案例Private Sub CmdCls_Click()“清除”按钮 ClsEnd SubPrivate Sub CmdEnd_Click()“结束”按钮 EndEnd Sub相关知识及注意事项1窗体2窗体的基本属性（1）Name（名称）：窗体名.Name 如Forml.Name（2）Caption（标题）：（3）AutoRedraw（自动重画）（4）BackColor（背景颜色）和ForeColor（前景颜色）（5）BorderStyle（边框类型）（

17、6）ControlBox（控制框）（7）Enabled（允许）（8）font（字体）3.4 窗体案例若要在程序代码中处理字体，应采用下列字体属性：FontName：字体名称。FontSize：字体大小(字号)。FontBold：是否粗体，可设置值为True或False。Fontltalic：是否斜体，可设置值为True或False。FontStrikethru：是否删除线，可设置值为True或False。FontUnderline：是否下划线，可设置值为True或False。FontTransParent：确定显示的信息是否与背景重叠，当属性值为True(默认值)时，表示保留背景，使前景的文本

18、或图形与背景重叠显示；当设置属性值为False时，背景将被前景的文本或图形覆盖。若要在程序代码中处理字体，应采用下列字体属性：FontName：字体名称。FontSize：字体大小(字号)。FontBold：是否粗体，可设置值为True或False。Fontltalic：是否斜体，可设置值为True或False。FontStrikethru：是否删除线，可设置值为True或False。FontUnderline：是否下划线，可设置值为True或False。FontTransParent：确定显示的信息是否与背景重叠，当属性值为True(默认值)时，表示保留背景，使前景的文本或图形与背景重叠显示

19、；当设置属性值为False时，背景将被前景的文本或图形覆盖。3.4 窗体案例（9）Height（局），Width（宽），Top（顶边位置）和Left（左边位置）（10）Icon（图标）：（11）MaxButton，MinButton（最大、最小化按钮）（12）Picture（图形）对象Picture=LoadPicture（文件名）（13）Visible(可见性)（14）WindowState(窗口状态)3窗体的事件Private sub form_事件名(参数表)End Sub与窗体有关的常用事件有以下几种。1）Load（装载）事件（2）Unload（卸载）事件（3）Activate（活动）

20、，Deactivate（非活动）事件（4）Paint（绘画）事件（5）Click（单击）事件（6）DblClick（双击）事件（7）KeyPress(按键)事件 3.4 窗体案例4窗体的方法（1）Show(显示)方法（2）Print（打印）方法（3）Cis（清除）方法（4）Move（移动）方法5窗体的方法焦点与Tab键序（1）焦点（2）Tab键序 3.4 窗体案例【案例说明】窗体为应用程序提供了一个窗口，但是仅有窗体是不够的，还需要在其中放置各种控件才能实现用户与应用程序之间的信息交互。本节案例将介绍控件的公共属性和3种基本控件命令按钮、标签和文本框。输入一个总秒数，化成小时、分钟和秒数，然后

21、显示出来。如输入5000秒，应输出1小时23分20秒。当其程序在运行时，在总秒数对应的方本框中输入要转化的秒数，点击计算，会计算出相应的值，其运行结果如图所示。3.5 基本控件案例技术要点】（1）创建应用程序的用户界面和设置对象属性。（2）编写程序代码。写的两个命令按钮单击事件过程代码如下：Private Sub Command1_Click()Dim h As Integer,m As Integer,s As Integer,t As Integer t=Val(Text1.Text)h=t 3600 t=t-h*3600 m=t 60 s=t-m*60 Text2.Text=h Text

22、3.Text=m Text4.Text=s Text1.SetFocusEnd SubPrivate Sub Command2_Click()EndEnd Sub 3.5 基本控件案例相关知识及注意事项1控件的公共属性（1）Name属性（2）Caption属性（3）Enabled属性（4）Visible属性（5）Height，Width，Top和Lelf属性（6）BaekColor和ForeColor属性（7）FontName，FontSize，FontBold，Fontltalic，FontStrikethru和FontUnderline属性（8）Font属性2命令按键（1）常用属性Defa

23、ult属性和Cancel属性（2）常用事件和方法命令按钮最常用的事件是Click(单击)事件，但不支持DblClick(双击)事件。命令按钮常用的方法是SetFocus方法。3标签常用的属性（1）Alignment属性2）AutoSize属性 3.5 基本控件案例（3）BorderStvle属（4）BackStvle属性（5）WordWrap属性常用事件和方法标签可触发Click，DblClick等事件。标签支持Move方法，用于实现控件的移动4文本框常用属性（1）Maxlength属性（2）Multiline属性（3）PasswordChar属性注意，只有在Multiline属性被设置为Fa

24、lse的前提下，PasswordChar属性才能起作用（4）ScrollBars属性注意，使文本框出现滚动条的前提是Muhiline属性必须设置为True。（5）SelStart属性、Sellength属性和SelText属性（6）Text属性：（7）Locked属性常用事件和方法文本框支持Click，DblClick等鼠标事件，同时支持Change，GotFocus，LostFocus等事件。3.5 基本控件案例【案例说明】设计程序，由用户从输入框输入圆的半径，输出圆的周长和面积。分析功能要求：当用户单击“开始”按钮（command1）时，弹出一个输入对话框，供用户通过消息框提示“计算机已完

25、成”。单击“结束”按钮（command2）结束程序的运行。程序运行效果如图所示。【技术要点】（1）创建应用程序的用户界面和设置对象的属性（2）编写程序代码。编写的两个按钮单击事件过程的代码如下：Private Sub command1_click()“开始”Dim r As Single,k As Single,s As Single r=Val(InputBox(请输入圆的半径,计算圆的周长和面积)k=2*3.14159*r s=3.14159*r*r 3.5 对话框案例 Text1.Text=k Text2.Text=s MsgBox 计算已完成,完成计算End SubPrivate Su

26、b command2_click()“结束”EndEnd Sub当输入的圆半径为50时，运行结果如图所示 3.5 对话框案例 相关知识及注意事项1输入对话框InputBox函数用于产生一个能接收用户输入的对话框，其语法格式如下：变量=iputBox（提示，标题，默认值，ypos，ypos）其中：（1）“提示”指定在对话框中显示的文本。要使“提示”文本换行显示，可在换行处插入回车符（Chr（13）、换行符（Chr（10）（或系统符号常量vbcrLf）或回车换行符（Chr（13）+（Chr（10），使显示的文本换行。（2）“标题”指定对话框的标题。（3）“默认值”用于指定输人框(用于输人内容的文本

27、框)中显示的默认文本。（4）xpos和ypos分别指定对话框的左边和上边，与屏幕左边和上边的距离。3.5 对话框案例 FileName$=InputBox(“请输入你该卡号的密码（不超过6个字符)”,“卡号框”,“888888”)将产生一个如左图所示的输入对话框 如果把上述语句改为：FileName$=InputBox(“请输入你该卡号的密码”+Chr(13)+“*（不超过6个字节）”,“卡号框”,“888888”)，则是把“提示”信息分为“请输入你该卡号的密码”和“(不超过6个字符)”两行显示，如右图所示 2消息对话框变量=MsgBox（提示，对话框类型，对话框标题）其中：（1）“提示指定在

28、对话框中显示的文本。在“提示”文本中使用回车符（Chr(13)）、换行符（Chr（10）或回车换行符（Chr（13）+Chr（10），使显示的文本换行。（2）“对话框标题”指定对话框的标题。（3）“对话框类型”指定对话框中出现的按钮和图标，一般有3个参数，其取值和含义见表3.3、表3.4和表3.5。3.5 对话框案例 例如：y=MsgBox(输入的文件名是否正确,52,请确认)显示的对话框如图3.15所示。其中52=4+48+0表示显示两种按钮（“是”和“否”）、采用感叹号（!）图标和指定第一个按钮为默认的活动按钮。（4）MsgBox返回值指明了用户在对话框中选择了哪一个按钮，如表3.6所示（

29、5）选项中的值可以是数值，也可以是符号常量，例如：x=vbYesNoCancel+vbQuestion+vbDefaultButtonly=MsgBox(输入的文件名是否正确,x,请确认)（6）如果省略了某一选项，必须加入相应的逗号分隔符，例如：y=MsgBox(输入的文件名是否正确,请确认)（7）若不需要返回值，则可以使用MsgBox的语句格式：MsgBox提示，对话框类型，对话框标题 3.5 对话框案例【案例说明】1设计程序，实现两个文本框内容的交换。分析：交换两个文本框中的内容，与交换两个变量值一样。使用一个变量t，先将第一个文本框的内容暂存于t，再将第二个文本框的内容存人第一个文本框，

30、最后将t值存人第二个文本框。程序运行效果如下，当其在第一个文本框中输入“早上好”在第二个文本框中输入“晚上好”，点击交换时，结果如图所示。3.7 综合案例【案例说明】2设计程序，在窗体上设置3个命令按钮（如图所示）。程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大；单击“窗体变小”按钮时，窗体变小；单击“退出”按钮时，退出。分析：通过Height（高）和Width（宽）属性可以改变窗体的大小。当在Height和Width原有值的基础上增加若干个点（如200点，以缇为单位），则窗体变大；若减少若干个点（如200点），则窗体变小。3.7 综合案例【案例说明】3在窗体上创建3个文本框，如左

31、图所示。程序运行后，在第一个文本框中输入文字时，在另外两个文本框中显示相同的内容，但显示的字号和字体不同。单击“清除”按钮时，清除3个文本框中的内容。4设计程序，实现标签的显示和隐藏，并改变文字的颜色。程序运行效果如右图所示 3.7 综合案例【技术要点】1运用【案例说明】中的第一部份设计程序，实现两个文本框内容的交换。（1）在窗体上建立两个标签、两个文本框和一个命令按钮（2）编写程序代码。Private Sub Command1_Click()“交换”按钮 Dim t As String,a As String,b As String a=Text1.Text b=Text2.Text t=a

32、 a=b b=t Text1.Text=a Text2.Text=bEnd Sub3.7 综合案例【技术要点】2运用【案例说明】中的第二部份设计程序，在窗体上设置3个命令按钮（2）编写程序代码。编写的4个事件过程代码如下：Private Sub Form_Load()Form1.Height=4000 Form1.Width=4000 Form1.Top=1000 Form1.Left=1000End SubPrivate Sub Command1_Click()“窗体变大”按钮 Form1.Height=Form1.Height+300 每次增加300点 Form1.Width=Form1.

33、Width+300End Sub3.7 综合案例【技术要点】Private Sub Command2_Click()“窗体变小”按钮 Form1.Height=Form1.Height-300 每次减少300点 Form1.Width=Form1.Width-300End SubPrivate Sub Command3_Click()“退出”按钮 Unload MeEnd Sub3运用【案例说明】中的第三部份在窗体上创建3个文本框（2）编写程序代码。编写的4个事件过程代码如下：Private Sub Form_Load()Text2.FontName=宋体 Text2.FontSize=16

34、Text3.FontName=楷体_GB2312 Text3.FontSize=20End Sub3.7 综合案例【技术要点】Private Sub Text1_Change()Text2.Text=Text1.Text Text3.Text=Text1.TextEnd SubPrivate Sub Command1_Click()“清除”按钮 Text1.Text=清除文本框Text1的内容 Text2.Text=清除文本框Text2的内容 Text3.Text=清除文本框Text3的内容 Text1.SetFocus 设置焦点End SubPrivate Sub Command2_Clic

35、k()“结束”按钮 Unload MeEnd Sub3.7 综合案例 4运用【案例说明】中的第四部份（1）在窗体上建立一个标签(Labell)和3个命令按钮(Commandl，Command2和Command3)，然后设置对象的属性（2）编写程序代码本程序含有以下4个事件过程Private Sub Form_Load()Randomize Label1.BackColor=QBColor(15)背景色 Label1.ForeColor=QBColor(0)文字颜色 Label1.FontSize=18 字体大小End SubPrivate Sub Command1_Click()“改变文字颜色”按钮 Clr=Int(15*Rnd)产生随机颜色码 Label1.ForeColor=QBColor(Clr)End SubPrivate Sub Command2_Click()“隐藏标签”按钮 Label1.Visible=False 隐藏标签End SubPrivate Sub Command3_Click()“显示标签”按钮 Label1.Visible=True 显示标签End Sub3.7 综合案例