vb编程技术赋值与输入输出课件

《vb编程技术赋值与输入输出课件》由会员分享，可在线阅读，更多相关《vb编程技术赋值与输入输出课件（83页珍藏版）》请在金锄头文库上搜索。

1、第第4 4章章 赋值与输入输出赋值与输入输出 第第4章章 赋值与输入输出赋值与输入输出 4.1 数据输出数据输出4.2 常用基本语句常用基本语句 4.3 利用文本框进行数据输入利用文本框进行数据输入 4.4 使用对话框使用对话框 习题四习题四 第第4 4章章 赋值与输入输出赋值与输入输出 4.1 数数 据据 输输 出出 4.1.1直接输出到窗体1.使用Print方法使用Print方法可以在窗体上输出文本字符串或表达式的值，并可在其他图形对象或打印机上输出信息。其语法格式为对象名称.Print表达式列表,|;第第4 4章章 赋值与输入输出赋值与输入输出 【例4-1】使用Print方法在窗体中直接

2、输出字符串或数值表达式的值，如图4.1所示。设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，在窗体中增加一个命令按钮Command1，如图4.2所示。(2)按表4-1设置对象属性。(3)编写代码。第第4 4章章 赋值与输入输出赋值与输入输出 图4.1使用Print方法第第4 4章章 赋值与输入输出赋值与输入输出 图4.2建立程序界面第第4 4章章 赋值与输入输出赋值与输入输出 表4-1属性设置第第4 4章章 赋值与输入输出赋值与输入输出 2.与Print方法有关的函数为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。1)Tab函数在Print方法中

3、，可以使用Tab函数来对输出进行定位。2)Spc函数在Print方法中，还可以使用Spc函数来对输出进行定位。第第4 4章章 赋值与输入输出赋值与输入输出 【例4-2】使用Tab和Spc函数进行对齐输出，如图4.3所示。图4.3使用Tab和Spc函数进行对齐输出第第4 4章章 赋值与输入输出赋值与输入输出 PrivateSubForm_Click()PrintPrintTab(5);学号;Tab(20);姓名;Tab(30);性别;Tab(40);入学成绩PrintPrintTab(5);2000101;Tab(20);丁叮;Tab(30);女;Tab(40);650PrintTab(5);2

4、000102;Tab(20);柳洋洋;Tab(30);男;Tab(40);668PrintTab(5);2000103;Spc(8);李骊;Spc(6);女;Spc(8);640PrintTab(5);2000132;Spc(8);杜小红;Spc(4);女;Spc(8);635;EndSub第第4 4章章 赋值与输入输出赋值与输入输出 3.使用位置属性要精确地把文本输出到窗体、图片框或打印页上，可以用位置属性CurrentX和CurrentY。这两个属性分别表示当前输出位置的横坐标与纵坐标。如果要控制所显示或打印文本的大小和外观，可以用VB中的字体属性，各字体属性及其名称如表4-2所示。第第4

5、 4章章 赋值与输入输出赋值与输入输出 表4-2字体属性及名称第第4 4章章 赋值与输入输出赋值与输入输出 【例4-3】如图4.4所示，按指定尺寸、颜色和外观，把字符串“风光无限好”输出到窗体的中间。设计步骤如下：(1)建立应用程序用户界面与对象属性的设置参见例4-1。(2)编写命令按钮的Click事件代码：第第4 4章章 赋值与输入输出赋值与输入输出 图4.4使用位置属性CurrentX和CurrentY示例第第4 4章章 赋值与输入输出赋值与输入输出 PrivateSubCommand1_Click()DimaAsString,textWAsInteger,textHAsIntegerFo

6、ntName=隶书设置输出文本的字体FontSize=30设置输出字体的大小ForeColor=QBColor(15)设置输出文本的前景色，即字体的颜色第第4 4章章 赋值与输入输出赋值与输入输出 BackColor=QBColor(8)设置输出文本的背景色，即窗体的颜色a=风光无限好textW=TextWidth(a)/2TextWidth(a)表示字符串a的宽度textH=(TextHeight(a)+Command1.Height)/2 TextHeight(a)表示字符串a的高度第第4 4章章 赋值与输入输出赋值与输入输出 CurrentX=ScaleWidth/2-textW设置输出

7、的水平位置CurrentY=ScaleHeight/2-textH设置输出的垂直位置Printa输出文本EndSub第第4 4章章 赋值与输入输出赋值与输入输出 4.清除方法ClsCls方法可以清除Form或PictureBox中由Print方法和图形方法在运行时所生成的文本或图形，清除后的区域以背景色填充。设计时使用Picture属性设置的背景位图和放置的控件不受Cls影响。Cls方法的语法为对象名称.Cls第第4 4章章 赋值与输入输出赋值与输入输出 【例4-4】在例4-3中使用Cls方法清除窗体中由Print方法所生成的文本，如图4.5所示。图4.5Cls方法示例第第4 4章章 赋值与输

8、入输出赋值与输入输出 【例4-5】使用Print方法在图片框中输出字符串或数值表达式的值。设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，在窗体中增加一个图片框Picture1和一个命令按钮Command1，如图4.6左所示。(2)按表4-3设置对象属性。第第4 4章章 赋值与输入输出赋值与输入输出 图4.6在图片框中输出字符串或数值表达式的值第第4 4章章 赋值与输入输出赋值与输入输出 表4-3属性设置第第4 4章章 赋值与输入输出赋值与输入输出 (3)设计代码。命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()Pi

9、cture1.PrintPicture1.Print6+10=;6+10Picture1.PrintPicture1.Print山重水复,Picture1.Print疑无路Picture1.PrintPicture1.Print柳暗&花明又一村EndSub程序运行结果如图4.6右所示。第第4 4章章 赋值与输入输出赋值与输入输出 【例4-6】如图4.7所示，在图片框中使用位置函数。设计步骤如下：(1)建立应用程序用户界面并按例4-5的方法设置对象属性，结果如图4.7左所示。(2)编写事件代码。“击我”命令按钮的Click事件代码为第第4 4章章 赋值与输入输出赋值与输入输出 图4.7在图片框中

10、使用位置函数第第4 4章章 赋值与输入输出赋值与输入输出 PrivateSubCommand1_Click()DimaAsString,textWAsInteger,textHAsIntegerPicture1.FontName=隶书Picture1.FontSize=30Picture1.ForeColor=QBColor(15)Picture1.BackColor=QBColor(8)a=风光无限好textW=Picture1.TextWidth(a)/2textH=Picture1.TextHeight(a)/2第第4 4章章 赋值与输入输出赋值与输入输出 Picture1.Curren

11、tX=Picture1.Width/2-textWPicture1.CurrentY=Picture1.Height/2-textHPicture1.PrintaEndSub“清除”命令按钮的Click事件代码为PrivateSubCommand2_Click()Picture1.ClsEndSub程序运行结果如图4.7右所示。第第4 4章章 赋值与输入输出赋值与输入输出 4.1.3使用“标签”控件输出标签(Label)主要是用来显示(输出)文本信息的，它不能作为输入信息的界面。也就是说标签控件的内容只能用Caption属性来设置或修改，不能直接编辑。它是VB中最常用的输出文本信息的工具，完全

12、可以取代Print方法。第第4 4章章 赋值与输入输出赋值与输入输出 【例4-7】如图4.8所示，使标签控件具有边框，并修改标签属性为无边框。图4.8有边框和无边框的标签控件第第4 4章章 赋值与输入输出赋值与输入输出 设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加一个命令按钮Command1、两个标签Label1和Label2，如图4.9左所示。(2)设置对象属性如表4-4所示。设置后的界面如图4.9右所示。第第4 4章章 赋值与输入输出赋值与输入输出 图4.9建立界面与设置属性第第4 4章章 赋值与输入输出赋值与输入输出 表4-4属性设置第第4 4章章 赋

13、值与输入输出赋值与输入输出 (3) 编写事件代码。命令按钮Command1的单击(Click)事件代码为PrivateSubCommand1_Click()Label1.Caption=甜蜜的负担 改变Label1的标题内容Label2.Caption=“是你改变了我”改变Label2的标题内容Label2.Alignment=2-centerLabel2的内容居中显示Label2.BorderStyle=0-none将Label2的边框样式改为无边框EndSub第第4 4章章 赋值与输入输出赋值与输入输出 4.2 常用基本语句常用基本语句4.2.1赋值语句LET赋值语句是任何程序设计中最基本

14、的语句。在前面的例子中，我们已经在代码中使用了它。它的作用是将指定的值赋给某个变量或对象的某个属性。赋值语句的一般格式为Let名称=表达式第第4 4章章 赋值与输入输出赋值与输入输出 【例4-8】设计程序如图4.10所示，实现两个变量值的交换。分析：将两个不同的变量设想为两个瓶子A、B，其中分别装有不同颜色的液体，要交换瓶子中的液体。可以这样来做：另取一个瓶子C，先将瓶A中的液体倒入瓶C中，再将瓶B中的液体倒入A中，最后将瓶C中的液体倒入B中。第第4 4章章 赋值与输入输出赋值与输入输出 图4.10交换两变量的值第第4 4章章 赋值与输入输出赋值与输入输出 设计步骤如下：(1)建立应用程序用户

15、界面。选择“新建”工程，进入窗体设计器，增加一个命令按钮Command1，4个标签Label1Label4，如图4.11左所示。(2)按表4-5所示设置对象属性。第第4 4章章 赋值与输入输出赋值与输入输出 图4.11建立界面与设置属性第第4 4章章 赋值与输入输出赋值与输入输出 表4-5属性设置第第4 4章章 赋值与输入输出赋值与输入输出 (3)编写事件代码。命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()t=Label3.CaptionLabel3.Caption=Label4.CaptionLabel4.Caption=tEndSub第第

16、4 4章章 赋值与输入输出赋值与输入输出 4.2.2卸载对象语句Unload当要结束应用程序而从内存中卸载窗体或要从内存中卸载某些控件时，可以使用Unload语句。Unload语句的语法格式为：Unload对象名第第4 4章章 赋值与输入输出赋值与输入输出 【例4-9】在例4-8中使用命令关闭程序窗体，如图4.12所示。图4.12关闭程序窗体第第4 4章章 赋值与输入输出赋值与输入输出 只需在上例中增加一个命令按钮Command2(关闭)，并且编写Command2的Click事件代码如下即可：PrivateSubCommand2_Click()UnloadMeMe表示按钮所在的窗体对象EndS

17、ub第第4 4章章 赋值与输入输出赋值与输入输出 4.2.3注释语句为了提高程序的可读性，通常应在程序的适当位置加上一些注释。注释语句用来在程序中包含注释，语法格式为Rem注释内容或注释内容第第4 4章章 赋值与输入输出赋值与输入输出 4.3 利用文本框进行数据输入利用文本框进行数据输入4.3.1使用“文本框”控件文本框(TextBox)是一个文本编辑区域，用户可以在该区域输入、编辑和显示文本内容。缺省时，文本框只能输入单行文本，并且输入的字符最多为2048个。若将控件的MultiLine属性设置为True，则可以输入多行文本，并且文本的内容可多达32K。文本框的主要属性如表4-6所示。第第4

18、 4章章 赋值与输入输出赋值与输入输出 表4-6文本框的属性第第4 4章章 赋值与输入输出赋值与输入输出 1.使用文本框控件文本框中显示的文本是受Text属性控制的。Text属性可以用以下3种方式设置：(1)设计时在“属性”窗口进行设置。(2)运行时通过代码设置。(3)在运行时由用户输入。第第4 4章章 赋值与输入输出赋值与输入输出 图4.13计算球的体积和表面积第第4 4章章 赋值与输入输出赋值与输入输出 【例4-10】输入球体的半径，然后计算并输出球体的体积和表面积，如图4.13所示。分析：设球的半径为r，球体积和球表面积分别为v和f，依题意可得计算公式：第第4 4章章 赋值与输入输出赋值

19、与输入输出 设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加两个命令按钮Command1和Command2、3个标签Label1Label3和3个文本框Text1Text3，如图4.14左所示。(2)设置对象属性如表4-7所示。第第4 4章章 赋值与输入输出赋值与输入输出 图4.14建立界面与设置属性第第4 4章章 赋值与输入输出赋值与输入输出 表4-7属性设置第第4 4章章 赋值与输入输出赋值与输入输出 (3)编写事件代码。命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()DimrAsSingle,vAsSing

20、le,fAsSingleConstpi=3.14159 定义符号常量r=Val(Text1.Text) 将文本框中的文本转换为数值型数据v=4/3*pi*r3计算球体积f=4*pi*r2计算球表面积Text2.Text=v输出球体积Text3.Text=f输出球表面积EndSub第第4 4章章 赋值与输入输出赋值与输入输出 命令按钮Command2的Click事件代码为PrivateSubCommand2_Click()UnloadMeEndSub第第4 4章章 赋值与输入输出赋值与输入输出 2.多行文本框(1)MultiLine多行属性。(2)ScrollBars属性。第第4 4章章 赋值与

21、输入输出赋值与输入输出 【例4-11】应用MultiLine和ScrollBars属性，建立两个文本框，它们的有关属性如表4-8所示。(1)建立应用程序用户界面，如图4.15所示。(2)设置对象属性。Text1的Text属性值见图4.15所示，其他属性如表4-8所示。第第4 4章章 赋值与输入输出赋值与输入输出 图4.15文本标识区第第4 4章章 赋值与输入输出赋值与输入输出 表4-8属性设置第第4 4章章 赋值与输入输出赋值与输入输出 (3)编写事件代码。事件过程如下：PrivateSubForm_Click()Text1.SelStart=0将文本框Text1中的第1个字符前设为标识区的起

22、点Text1.SelLength=24将整个标识区长度定为24Text2.Text=Text1.SelText被标识的字符串存入Text2中EndSub第第4 4章章 赋值与输入输出赋值与输入输出 4.3.2焦点与Tab键序1.焦点焦点(Focus)就是光标，当对象具有“焦点”时才能响应用户的输入，因此对象也就具有了接收用户鼠标单击或键盘输入的能力。2.Tab键序TabIndex属性决定控件接收焦点的顺序，TabStop属性决定焦点是否能够停在该控件上。第第4 4章章 赋值与输入输出赋值与输入输出 4.3.3使用“框架”控件如同图片框一样，框架(Frame)控件是一种容器控件，在框架控件内部的

23、控件可以随框架一起移动，并且受到框架控件某些属性(Visible、Enabled)的控制。在多数情况下只需使用框架控件将其他控件分成可标识的控件组，而不必响应框架控件的事件。需要修改的可能是框架控件的Name、Caption或Font属性。第第4 4章章 赋值与输入输出赋值与输入输出 【例4-12】在文本框中输入长、宽、高，求长方体的表面积，并输出。设长方体的长、宽、高为a、b、c，表面积为s。根据数学知识有：s=2(ab+bc+ca)设计步骤如下：第第4 4章章 赋值与输入输出赋值与输入输出 图4.16设计用户界面第第4 4章章 赋值与输入输出赋值与输入输出 (1)设计程序界面并设置对象属性

24、。选择“新建”工程，进入窗体设计器，在窗体中增加一个框架控件Frame1，一个命令按钮Command1和一个标签Label1。选定Frame1，在其中增加3个文本框Text1Text3。按表4-9所示设置对象属性。设置属性后的窗体如图4.16所示。第第4 4章章 赋值与输入输出赋值与输入输出 表4-9属性设置第第4 4章章 赋值与输入输出赋值与输入输出 (2)编写事件代码。命令按钮Command1的Click事件代码为：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,sAsSinglea=Val(Text1.Text)b=V

25、al(Text2.Text)c=Val(Text3.Text)s=2*(a*b+b*c+c*a)计算表面积Label1.Caption=s在标签上输出结果EndSub第第4 4章章 赋值与输入输出赋值与输入输出 图4.17求长方体的表面积第第4 4章章 赋值与输入输出赋值与输入输出 4.4 使使 用用 对对 话话 框框 4.4.1消息对话框(MsgBox)MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。其语法格式为变量=MsgBox(消息内容,对话框类型,对话框标题)第第4 4章章 赋值与输入输出赋值与输入输出 表4-10参数1出现按钮第第4 4章

26、章 赋值与输入输出赋值与输入输出 表4-11参数2图标类型第第4 4章章 赋值与输入输出赋值与输入输出 表4-12参数3默认按钮第第4 4章章 赋值与输入输出赋值与输入输出 图4.18信息对话框第第4 4章章 赋值与输入输出赋值与输入输出 表4-13函数的返回值第第4 4章章 赋值与输入输出赋值与输入输出 4.4.2输入框(InputBox)InputBox函数显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。其语法格式为变量=InputBox(信息内容,对话框标题,默认内容)第第4 4章章 赋值与输入输出赋值与输入输出 【例4-13】设计华氏温度和摄氏温度相互转换的程序。利用输

27、入框输入温度，如图4.19所示。输入一个华氏温度可以得到相应的摄氏温度，而输入一个摄氏温度则可以得到相应的华氏温度，如图4.20所示。第第4 4章章 赋值与输入输出赋值与输入输出 图4.19输入温度值第第4 4章章 赋值与输入输出赋值与输入输出 图4.20温度的转换第第4 4章章 赋值与输入输出赋值与输入输出 设计步骤如下：(1)建立应用程序用户界面并设置对象属性。(2)编写事件代码。第第4 4章章 赋值与输入输出赋值与输入输出 习习 题题 四四 4.1利用标签控件制作阴影文字，文字内容设为“缤纷世界”。提示：利用标签控件的Top、Left与BackStyle属性。4.2设计程序，使之根据输入

28、的英文字母进行大小写转换。4.3向一个RC串联电路充电，电容上的电压为第第4 4章章 赋值与输入输出赋值与输入输出 其中，U0为直流电源的电压。求在t=1s时U/U0的值(R=500k，C=10F)。4.4设计计算语文、数学、英语这3门课程平均成绩的程序，利用文本框作数据的输入和输出。4.5在文本框中输入3种商品的单价、购买数量，计算并输出所用的总金额。4.6用InputBox函数接收圆的半径r(厘米)，求圆面积s。4.7“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？第第4 4章章 赋值与输入输出赋值与输入输出 4.8在文本框中输入小

29、时、分、秒，转化成共有多少秒，然后输出之。4.9已知平面坐标系中两点的坐标，求两点间的距离。4.10将弧度换算为角度值度、分、秒的形式。计算方法如下：(1)先将弧度值变成十进制，如弧度值为1.474919573，化为角度的方法为1.474919573*(180/)=84.50666665第第4 4章章 赋值与输入输出赋值与输入输出 (2)去掉整数部分84，余0.50666665。(3)用0.50666665*60分=30.399999。(4)去掉30，余0.399999。(5)用0.399999*60秒=23.9999424(6)最后将84、30、24拼接成843024。第第4 4章章 赋值与输入输出赋值与输入输出 4.11在习题4.3中使用消息框MsgBox输出计算的结果。4.12在习题4.2中使用消息框MsgBox输出转换结果。4.13在习题4.8中使用输入框InputBox输入时间的小时、分钟、秒钟数。4.14编程序输出在指定范围内的3个随机数，范围在文本框中输入。第第4 4章章 赋值与输入输出赋值与输入输出 4.15设某职工应发工资x元，试求各种票额钞票总张数最少的付款方案。4.16利用“框架”修饰习题4.15中的窗体。4.17使用消息对话框输出各种票额钞票张数的付款方案。