VB第四章赋值与输入输出（精品）

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,赋值语句,输入,/,输出通过,:,文本框控件、标签控件、,InputBox,函数、,MsgBox,函数和过程,Print,方法，,format,等来实现。,第四章 赋值与输入输出,4.1,赋值语句,形式：,变量名表达式,对象名,.,属性名,=,表达式,功能：计算表达式的值，再将此值赋给变量或对象属性。,复合赋值运算符：,+= -= *= /= &=,例：,a *= b+4,等价于,a = a*(b+4),给变量赋值和设定属性是,VB,编程中常见的两个任务。例如：,n = n + 1 ,计数累加,Text1.Text, ,清除文本框的内容,Text1.Text,欢迎使用,VB ,文本框显示字符串,1,“,=,”,是一个赋值运算符，叫做赋值号,2,变量赋值后，新值代替旧值,3,变量初值：,（,1,）数值型变量初值为,0,（,2,）字符型变量初值为空，即,4,赋值时，,强制转换成左边精度,如,:,Dim a% = 10 / 3,则,a,结果为,3,赋值语句注意事项,当表达式的类型与变量的类型不一致时,强制转换成左边的精度。,浮点型赋值强制赋值给整型，都为数值型，兼容,字符串赋值给整型，赋值不相容，运行出错,5.,右边表达式可以是变量、常量、函数等。,但：,c = 3 +,Math.Sqrt,(- 3),x =,Math.sin(x,) / (20 mod 2),6,赋值号,“,=,”,左边只能是变量名或对象的属性，,不能是常量、符号常量、表达式。,例：,5 = X,Abs(X,)=20,左边是常量,左边是函数调用，即表达式,7,不要将,“,”,理解为数学上的等号：,A = A + 1,表示将,A,的值加后再放回到,A,中,语句,语句功能,a,b,c,第一个是赋值号，第二个为逻辑等。,若,b,等于,c,，则将“,True”,赋给,a,，否则将“,False”,赋给,a,，,a,为逻辑变量,“,=,”,符号有两个意义：,赋值号,、,关系运算符等号,形式相同,系统会根据所处的位置判断符号的意义。,1.,InputBox,函数：,字符串类型,变量名,InputBox,（提示,，标题,，默认值,，,xpos,，,ypos,）,4.2,、输入对话框,InputBox,函数,vbCrLf,2,在提示中显示多行文本,回车换行？,InputBox,函数返回字符型数据。要得到数值，则转换：,R =,Val,(InputBox(,请输入圆半径,：, ,输入,),3,使用,Val(),Dim,strName,As String * 40,，,strS1 As String * 40,相应的语句如下,:,strName,=,InputBox,( “,请输入你的姓名”,+,vbCrLf,+ “,然后单击确定”, “,输入框”,),也可以：,strS1 = “,请输入你的姓名”,+ Chr(13) + Chr(10) + “,然后单击确定”,strName,= InputBox(strS1,， “输入框”， ，,100,，,100),当键盘输入“王晓明” 后,变量,strName,获得键盘输入的值,.,例,从输入框中输入圆的半径，计算圆的周长和面积,(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,Text1.Text = k,Text2.Text = s,MsgBox ,计算已完成, , ,例,End Sub,Private Sub Command2_Click(),End,End Sub,MsgBox,函数返回所选,按钮的值,，,函数形式,：,变量,% =,MsgBox,(,提示,对话框类型,对话框标题,),MsgBox,过程不返回值，,过程形式,：,MsgBox,提示,对话框类型,对话框标题,4.3.MsgBox,函数和,MsgBox,过程,打开一个信息框，等待用户选择一个按钮。,提示：,必选项。显示多行，可用,vbCrLf,对话框标题：,在对话框标题栏显示的信息文本。,对话框类型：,按钮形式、图标。,是一整型表达式,第,3,个按钮为默认,512,VBDefaultButton3,第,2,个按钮为默认,56,VBDefaultButton2,第,1,个按钮为默认,0,VBDefaultButton1,默,认,按,钮,信息图标,64,VBInformation,警告信息图标,48,VBExclamation,询问信息图标,32,VBQuestion,关键信息图标,16,VBCritical,图,标,类,型,重试、取消按钮,5,VBRetryCancel,是、否按钮,4,VBYesNo,是、否、取消按钮,3,VBYesNoCancel,终止、重试、忽略按钮,2,VBAboutRetryIgnore,确定、取消按钮,1,VBOkCancel,确定按钮,0,VBOkOnly,按,钮,数,目,描 述,值,内 部 常 数,分组,内部常数,返,回,值,被单击的按钮,vbOk,1,确定,vbCancel,2,取消,vbAbort,3,终止,vbRetry,4,重试,vbIgnore,5,忽略,vbYes,6,是,vbNo,7,否,按钮值如下,:,函数返回,所选按钮整数值,MsgBox,所选按钮返回值,例,4.2,编一账号和密码输入的检验程序,【,要求,】,帐号不超过,6,位数字,有错,清除原内容再输入,.,密码输入时在屏幕上以,“,*,”,代替,;,若密码错，显示有关信息，选择,“,重试,”,按钮，清除原内容再输入，选择,“,取消,”,按钮，停止运行。,【,分析,】,帐号,6,位,MaxLength,为6 ,LostFocus,判断,数字,IsNumeric,函数,密码,PassWordChar,为,“,*,”,MsgBox,函数设置密码错对话框,If MsgBox(,密码错误,vbRetryCancel,+,vbExclamation, ,输入密码,) =,vbRetry,Then,Text1 = ,Text2 = ,Text1.SetFocus,Else,End,End If,程序段：,语法格式：,Load,对象名,功能：把对象名代表的窗体对象、控件数组元素等加载到内存中。,说明：使用,Load,语句可以加载窗体，但不显示窗体。当,VB,加载窗体对象时，先把窗体属性设置为初始值，再执行,Load,事件过程。,例如,Load,Forml,加载窗体,Forml,Load Option(2),加载控件数组中的一个元素,4.4,加载对象语句,Load,格式：,Unload,对象名,功能：从内存中卸载指定窗体或控件。,如果卸载的对象是程序惟一的窗体，则将终止程序的执行,例如,Private Sub Command1_Click(),Unload Me,卸载当前窗体,End Sub,Me,是系统关键字，用来代表当前窗体,4.5,卸载语句,Unload,格式：,End,功能：结束程序的运行。,也可以单击工具栏上的,“,结束,”,按钮,4.7,暂停语句,Stop,格式：,Stop,功能：暂停程序的运行。可用于调试程序,(,设置断点,),也可以通过单击工具栏上的,“,中断,”,按钮来实现,使用,Ctrl + Break,组合键,4.6,结束语句,End,Print,方法,用于显示,(,输出,),文本,格式：,对象名,.,Print,表达式列表,说明：,(1),使用的对象可以是窗体等,Print,“,程序设计,”,在当前窗体上输出,Picture1.Print,“,程序设计,”,在图片框上输出,(2),表达式列表是一个或多个表达式，如果省略，则输出一个空行,(3),当输出多个表达式时，各表达式之间用分号,“,；,”,(,紧凑格式,),或逗号,“,，,”,(,按区格式,),隔开。,注：,Print,方法的显示格式有分区格式和紧凑格式两种。当各表达式用逗号作为分隔符时，按分区格式显示数据，每隔,14,列开始一个打印分区，每列的宽度是选字体磅值大小的所有字符的平均宽度；当表达式用分号隔开时，其输出格式为紧凑格式，此时将在每个数据后面增加一个空格，如果是正数，将把正号显示为空格。,4.8,使用,Print,方法输出数据,例：,Private Sub,Form_Click,(),a = 2,b = VB,Print 50 * a,计算并输出表达式的值,Print b,输出变量的值,Print,输出空行,Print The Total is,输出字符串常量,End Sub,运行结果：,输出数值数据时，前面有一个符号位,(,正号以空格表示,),，后面留有一个空格；输出字符串时，前后不留空格。,例：,Private Sub,Form_Click,(),a = 3: b = 4,Print a, b, 4 + a,Print 2 * b,Print a, , b,Print a=; a, b=; b,End Sub,运行结果,(4),若语句行末尾有分号或逗号,则输出本行输出项后不换行,编写的窗体单击事件过程代码如下：,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 = 6 : b = 21 : c = 23 : d = 15,s = a + b + c + d,m = (a * 18 + b * 19 + c * 20 + d * 21) / s,以下舍入到小数后,1,位,Print ,平均年龄：,;,Int(m,* 10 + 0.5) / 10,End Sub,运行程序后单击窗体，输出结果是：,平均年龄：,19.7,例,使用,Print,方法输出全班学生的平均年龄 已知,18,岁,6,人，,19,岁,21,人，,20,岁,23,人，,21,岁,15,人,1.,Spc,函数,格式：,Spc(n,),功能：在输出下一项之前插入,n,个空格。,例如：,Print,学号,；,Spc(2),；,姓名,；,Spc(5),；,成绩,输出结果,(,表示空格,),：,学号,姓名,成绩,4.9,特殊打印格式,2.,函数格式：,Tab(n,),功能：把输出位置移到第,n,列。,例如：,Print Tab(2);,学号,；,Tab(11);,姓名,；,Tab(21);,成绩,输出结果是,(1,个汉字占,2,个位置,),：,学号姓名成绩,4.9,特殊打印格式,程序代码如下：,Private Sub,Form_Click,(),Print,Print Tab(15); ,学号,; Tab(26); ,姓名,; Tab(36); ,成绩,Print Tab(14); String(27, -),输出,27,个减号字符“,-”,Print Tab(14); 20011001; Tab(26); ,张小三,; Tab(36); 57,Print Tab(14); 20011003; Tab(26); ,李小四,; Tab(36); 69,Print Tab(14); 20011012; Tab(26); ,马小五,; Tab(36); 92,Print Tab(14); String(27, -),输出,27,个减号字符“,-”,End Sub,例,使用,Tab,对输出进行定位,运行结果,4.Format,格式输出函数,形式：,Format,(,表达式, ,格式字符串,),常用数值格式化符及举例,1.23E-01,0.00E+00,1234.567,用指数表示,E+,$1234.57,$#.#,1234.567,在数字前强加,123456.7%,#.#%,1234.567,数值乘以,100,，加百分号,%,1,234.567,#,#0.000,1234.567,千分位,，,1234.567,#.#,1234.567,位置不足时不填充,0,#,01234.5670,00000.0000,1234.567,用,0,填充不足的位置,0,显示结果,格式字符串,表达式,作 用,符号,4.10 Format,函数,28,例,:,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,3. Format,函数,