Visual Basic程序设计第3章

©2003.苏玉雄1-*第3章VB的基本语句本章学习目标3.1基本语句说明在VB6.0中的语句式执行具体操作的指令，每个语句行以回车<Enter>键结束。程序语句是VB6.0关键字、属性、函数、运算符以及能够生成VB6.0编辑器可识别指令的符号的任意组合。语句是我们学习编程的基本，从基本功能上来看，语句大致分为3种：赋值语句、方法语句和注释语句。分别实现不同的功能， 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 写格式也有所区别赋值语句——将指定的值赋值给某个变量或者对象的属性。方法语句——使用VB提供的一些方法完成某项功能注释语句——为提高可读性增加的注释性的话。3.1.1赋值语句赋值语句的一般格式为：[Let]<变量>＝< 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式>或：[Let]<对象名>.<属性>＝<表达式>功能：将“＝”右边的表达式的值，赋值给左边的变量或属性。这里的表达式可以是常量、变量以及属性。赋值语句使用说明 语句定义中的Let可以省略。 在赋值语句中的“＝”是赋值号，它与数学中的逻辑等号是不同的。 赋值语句具有赋值和计算双重功能。当等号右边为表达式时，首先计算出表达式的值，然后再赋值给等号左边的变量或属性。 在向对象属性赋值时，应指明对象名和属性名。系统默认的对象是当前窗体，所以对当前窗体的属性赋值时，可以省略对象名。 等号左边的变量或属性的数据类型必须与等号右边的数据类型相一致。 变量或对象的属性一旦被赋值，新值将代替旧值。案例3-1分析下几个赋值语句所实现的功能。a=a+1‘将变量a的值加1再赋值给它本身Text1.Text="新年快乐"‘将常量“新年快乐”赋值给文本框Text1的Text属性x=Val(Text1.Text)‘将文本框 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 转为数值型数据并赋值给变量xNum=15‘将常量15赋值给变量NumNum=a+x‘将变量a与x的和赋值给变量NumLabel1.Caption=#2/14/2007#‘将日期型常量赋值给Label1.Caption属性Form1.Enabled=5>3‘将布尔表达式的值赋给Form1.Enabled属性3.1.2方法语句方法语句其实就是程序对方法的调用，它的一般格式为：[对象名].方法名[参数列表,]或：Call[对象名].方法名[(参数列表,)]功能：实现方法所实现的功能方法语句使用说明 使用方法语句，应指明对象名和属性名。系统默认的对象是当前窗体，所以对当前窗体的属性赋值时，可以省略对象名。 如使用Call关键字，方法中的参数必须用括号括起来。不使用Call关键字，方法中的参数必须与方法名之间用空格隔开。 方法的使用我们将在函数与过程中进行详细的介绍。案例3-2分析下面语句所完成的功能Print"新年快乐"‘在窗体上打印“新年快乐”CallCls‘清除屏幕上的打印Form1.Move100,100‘将窗体移动到（100,100）坐标位置Stop‘暂停程序的执行同时打开立即窗口End‘结束程序的运行3.1.3注释语句注释语句的一般格式为：‘注释内容或：Rem注释内容功能：对程序的有关内容起注释作用。注释语句使用说明 注释语句并非执行语句，对程序的执行过程不产生任何影响，它不被解释或者编译 任何字符或汉字均可作为注释内容。 以Rem关键字开头的注释不能用于语句的后面，而以单引号开头的注意可以写在任意地方。 注释语句符号后的所有内容将都被看作是注释。案例3-3分析下面那条是注释语句,学习使用方法a=Val(Text1.Text)IfaMod2=0Then'看余数判断是否为奇偶数Rem满足条件执行下面语句MsgBox"这个数是偶数！"ElseRem不满足条件执行下面语句MsgBox"这个数是奇数！"EndIf课堂练习3-1已知有4个数15、23、38、9，求这4个数的和、平均值，并将这4个数输出到窗体上。程序设计如下,要求分析每条语句各是什么类型.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegerDimSumAsInteger,AvgAsSinglea=15:b=23:c=38:d=9'给各变量赋值Printa,b,c,d'打印输入各变量的值Sum=a+b+c+d'求和Avg=Sum/4'求平均值Print"4个数的和为："&Sum'输出和Print"4个数的平均值为："&Avg'输出平均值EndSub3.2使用Print方法进行输出Print语句是我们常用的输出方法，它除了输出方便外，还能对输出信息的位置、格式等进行处理。Print方法能在窗体上、立即窗口或其他图形对象上以及打印机上输出信息。Print语句的一般格式如下为：对象名.Print输出项[“，”或“；”输出项]3.2.1Print语句的格式 这里的Object是窗体或图片框的对象名。当对象为当前窗体时可以省略不写。 输出项可以是一个或多个任意类型的常量、变量、表达式、属性等，输出时会自动转换为字符串。 多个输出项之间必须使用逗号“，”或分号“；”分隔。如果使用“，”，则每一项输出到不同的制表列，项与项之间有较大的距离；如以“；”分隔输出项，则项与项之间紧挨着（当输出项是数值时，只间隔一个空格）。也可以在Print语句中使用“&”或“＋”字符串连接符。 Print方法具有计算和输出双重功能，如果输出是表达式，将先进行表达式计算，然后再输出。 Print语句输出完毕后如没有“，”或“；”将自动换行。但如果有“，”或“；”的话后继的Print方法输出的信息将显示在本行的下一 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 区段内。在单独的Print方法表示换行。3.2.1Print语句相关函数方法 改变输出起始位置的两个属性：CurrentX、CurrentY 改变Print语句输出的文字坐标是由窗体或图片框当前CurrentX、CurrentY两个属性值决定的。Print语句执行之后，会自动设置CurrentX、CurrentY两个属性的值，使它们指向下一个文本行的开头（CurrentX=0,CurrentY增加一行的数值）。2.改变输出文字的字体、字型的属性： FontName属性：该属性用于设置字体类型，例如“宋体”、“黑体”等。 FontSize属性：用于设置字体的大小，是一个数值型的数据。 FontBold属性：设置字体是否加粗，True表示加粗；False表示不加粗。 FontItalic属性：设置字体是否倾斜，True表示倾斜；False表示不倾斜。 FontUnderLine属性：设置字体是否有下划线，True表示有；False表示没有。3.设置输出项间隔的两个函数：Tab、SpcTab（）函数，格式为：Tab（<n>）使用Tab（n）函数对输出位置进行定位，将显示或打印的位置移到参数n指定的制表位。该函数与输出项之间使用“;”隔开。例如：PrintTab(20);”姓名”。Spc（）函数，格式为：Spc（<n>）Spc（n）函数与Tab函数不同，它提供指定参数n的空格，该函数也与输出项之间使用“;”隔开。例如：PrintSpc(20);”姓名”。4.清除屏幕方法：Cls格式：[<对象名.>]Cls用于清除窗体或者图片框中由Print方法产生的图形，并将光标移动到对象的最左上角。案例3-2阅读下面程序，给出程序的运行结果。PrivateSubForm_Click()Print"VisualBasic程序设计语言"a=10:b=20Print"a×b=";a*bPrint"a×b=",a*bPrint"10＋30＝"&10+30PrintPrinta,bPrintForm1.CaptionEndSub案例3-2程序运行效果案例3-3编写程序，使用Print方法，使窗体显示如图3-4效果。PrivateSubForm_Click()CurrentX=0‘设置Print开始的起始位置CurrentY=500FontName=“楷体_GB2312”FontSize=16PrintTab(10);"姓名";Tab(25);"性别";Tab(40);"年龄"‘使用Tab函数设置间隔Print‘换行PrintTab(10);"张三";Tab(25);"男";Tab(40);"17"PrintSpc(9);"李四";Spc(11);"女";Spc(13);"16"‘使用Spc函数设置间隔EndSubPrivateSubCommand1_Click()‘清除屏幕程序ClsEndSub案例3-3程序设计3.2.2格式输出函数Format用格式输出函数Format（）可以使数值、日期或字符型数据指定的格式输出。Format函数的语法格式为：Format（<表达式>，<格式字符串>）Format函数说明 <格式字符串>是一个字符串常量或变量，有专门的格式说明字符组成。这些说明字符决定了数据项<表达式>的显示格式和长度。格式说明字符按照类型可以分为数值型说明符、日期型说明符和字符型说明符。 常用的数值型格式说明符：“#”为数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中＃的位置上有数字存在，那么就显示出来，否则，该位置就什么都不显示，例如：Format（123.456，“####.##”）返回：123.46“0”为数字占位符，功能与“#”相似，只是当要显示的数据位数小于格式串长度时，多余位置补“0”％：百分比符号占位符。表达式乘以100，而百分比字符（％）会插入到格式字符串中出项的位置上，例如：Format（0.12345，“0.00％”）返回：12.345％dddddd：以完整日期表示法显示日期系列数（包括年、月、日），例如：Format（Data,“dddddd”）返回：2002年7月30日ttttt:以完整时间表示法显示（包括时、分、秒），用系统识别的时间格式定义的时间分隔符进行格式化。默认的时间格式为h:mm:ss,例如：Format（Time,”ttttt’）返回：22:17:08@：字符占位符。显示字符或是空白。如果字符串在格式字符串中@的位置有字符存在，那么就显示出来;否则，就在那个位置上显示空白。除非有惊叹号字符（！）在格式字符串中，否则字符占位符将由右而左被填空，例如：Format（”ABab”,”@@@@@@”）返回：”ABab”案例3-4阅读下面程序，测试该程序输出的结果。PrivateSubForm_Click()PrintFormat(123.456,"#####.##")PrintFormat(123.456,"00000.##")PrintFormat(123.456,"00,000.00")PrintFormat(123.456,"$##,###.##")PrintFormat(123.456,"+#####.##")PrintFormat(0.1234,"#####.##%")PrintFormat(123.456,"0.000E+00")PrintFormat(0.001234,"0.000E-00")PrintFormat("123.456","@@@@@@@@@@")PrintFormat(Time,"ttttt")PrintFormat(Date,"dddddd")EndSub案例3-4程序运行效果课堂练习3-2编写程序，使窗体显示如下图:课堂练习3-2程序设计PrivateSubForm_Click()FontName="楷体_GB2312"FontSize=20PrintPrintPrintTab(2);"学号";Tab(10);"姓名";Tab(20);"性别"PrintTab(2);"01";Tab(10);"张卫国";Tab(20);"男"PrintSpc(1);"02";Spc(6);"李亲梅";Spc(4);"女"EndSub课堂练习3-3使用Format函数设计程序，使数字“36.7359”分别实现如下格式： 该数保留3位有效数字 该数保留5位有效数字 在该数的后面加％，保留2位有效数字 这个数共占10位课堂练习3-3程序设计PrivateSubForm_Click()PrintFormat(36.7359,"##.###")‘该数保留3位有效数字PrintFormat(36.7359,"##.00000")‘该数保留5位有效数字PrintFormat(0.367359,"##.##%")PrintFormat(36.7359,"@@@@@@@@@@")EndSub课堂练习3-3运行效果3.3使用对话框进行数据输入输出对话框是一类特殊的窗体，广泛的应用于各类程序中。在应用程序中，常常会遇到需将某些信息反馈给用户，以便用户据此继续下一步操作，或进行大量不用类型的数据输入，在这种情况下经常使用对话框。一般来说，将信息反馈输出给用户的称为消息框，而输入数据的称为输入框。3.3.1InputBox函数调用在程序中调用InputBox函数，函数的语法是：InputBox（<提示信息>[,标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 ][,默认内容][,expNX][,expNY]）InputBox函数说明 第一个参数“提示信息”决定了输入框上的提示文字。如果要显示多行信息，则可在各行之间用回车符Chr(13)和换行符Chr(10)来分隔。 “标题”参数指定的是输入对话框标题栏中的文字。如果省略，则把应用程序名作为标题栏文字。 使用“默认内容”参数可以给输入对话框中的文本框提供默认内容。如果省略这个参数，则刚显示输入框时文本框是空的。 expNX、expNY参数指定对话框显示在屏幕上的位置。如果省略，则对话框会显示在屏幕中央。案例3-4使用输入框输入学生的姓名、年龄、性别，并将其打印在窗体上。运行效果如下图:案例3-4程序设计PrivateSubCommand1_Click()DimNameAsString,YearAsInteger,SexAsStringName=InputBox("请输入学生的姓名","学生登记表")Year=Val(InputBox("请输入学生的年龄","学生登记表"))Sex=InputBox("请输入学生的性别","学生登记表")PrintName,Year,SexEndSub3.3.2MsgBox的函数调用MsgBox的函数调用方法多应用在需要有多个按钮，并且点击不同按钮时也执行不同的程序，其格式为：MsgBox（<提示语句>[,按钮图标][,标题]）MsgBox的函数调用说明 第一个参数“提示语句”是字符串表达式，必需的。作为显示在对话框中的消息。如果要使消息内容在中间某处换行，可以用回车符Chr(13)或换行符Chr(10)。 可选的。数字表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则“按钮图标”参数的缺省值为0。参数值可以参考后面的三个表。这三种参数可以进行相加达到所需要的效果。 可选的。在对话框标题栏中显示的字符串表达式。如果省略“标题”，则将应用程序名放在标题栏中。定义按钮说明 参数值 常量 显示按钮 0 vbKonly 只显示确定按钮 1 vbOKCancel 显示确定、与、取消按钮 2 vbAbortRetryIgnore 显示终止、重试与忽略按钮 3 vbYesNoCancel 显示是、否和取消按钮 4 vbYesNo 显示是和否按钮 5 vbRetryCancel 显示重试和取消按钮定义图标说明 参数 常量 图标 16 vbCritical 32 vbQuestion 48 vbExclamation 64 vbInformation定义默认按钮说明 参数值 常量 默认按钮 0 vbDefaultButton1 第一个按钮 256 vbDefaultButton2 第二个按钮 512 vbDefaultButton3 第三个按钮 768 vbDefaultButton4 第四个按钮MsgBox函数返回值说明当程序运行到MsgBox函数时，显示消息框，停下来等待用户响应。当用户选择任何一个按钮后，返回一个代表所选按钮的整数，表示用户点击了消息框哪个按钮。 返回值 常量 按钮 1 vbOK 确定 3 vbAbort 终止 5 vbIgnore 忽略 7 vbNo 否 2 vbCancel 取消 4 vbRetry 重试 6 vbYes 是案例3-5首先调用一个输入框，在输入框内输入数据，然后出现一消息框如图3-10，点击“是”按钮则出现另一消息框提示“保存完毕”，点击“否”按钮则提示“未保存”。案例3-5程序设计PrivateSubCommand1_Click()DimStrAsString,sAsInteger,kAsIntegerStr=InputBox("请输入字符串","输入")‘调用输入框输入数据‘使用消息框的函数调用s=MsgBox("用户输入内容为："&Str&Chr(13)&"是否进行保存",32+4,"保存")Ifs=6Then‘判断点击了哪个按钮k=MsgBox("信息已保存！",,"提示")‘点击了“是”按钮Elsek=MsgBox("信息未保存！",,"提示")‘点击了“否”按钮EndIfEndSub案例3-5运行效果3.3.3Msgbox的过程调用对无需返回值的消息框，我们可以采用过程调用，格式如下：MsgBox<提示信息>[,按钮图标][,标题]参数意义与函数调用相同，但不需要将其赋值给某个变量，如：MsgBox“口令错误不能进入”，16，“注意”案例3-6使用输入框输入学生的姓名、年龄、性别，并将其显示在消息框中。案例3-6程序设计PrivateSubCommand1_Click()DimNameAsString,YearAsInteger,SexAsStringName=InputBox("请输入学生的姓名","学生登记表")Year=Val(InputBox("请输入学生的年龄","学生登记表"))Sex=InputBox("请输入学生的性别","学生登记表")MsgBox“该生的姓名：”&Name&Chr(13)&“该生的年_龄："&Year&Chr(13)&"该生的性别："&Sex,_vbInformation,"学生登记表"EndSub案例3-6运行效果课堂练习3-4在消息框中输入一个数值，然后弹出消息框显示该数，并提示“数据不符合条件”，如下图，当点击“终止”按钮则退出程序；点击“重试”按钮则另一消息框显示“数据不合格”；点击“忽略”则退出该消息框。课堂练习3-4程序设计PrivateSubCommand1_Click()DimaAsInteger,bAsStringa=Val(InputBox("请输入一个数据：","输入框"))b=MsgBox("用户输入数据为："&a&Chr(13)&_"数据不符合条件",vbAbortRetryIgnore+vbInformation,"错误")Ifb=vbAbortThenEndIfb=vbRetryThenMsgBox"数据不合格！",,"错误"EndSub课堂练习3-4运行效果3.4利用标签框、文本框输入输出标签框和文本框是程序设计中的常用的输入和输出控件。本节我们将对这两个控件进行详细的介绍。在工具箱位置如下图所示：3.4.1标签框控件标签框的默认名字为LabelX，主要有两大功能：首先它常用来输出文本信息，可以方便的在任意位置显示数据信息，其次它常常用来标注不具有Caption属性的控件，例如对文本框、列表框等进行一些描述性信息。标签框控件常用属性 属性 功能 值 Alignment 标签框内文本对齐方式 0：左对齐，1：右对齐，2：居中 AutoSize 是否根据标题内容自动改变大小 True：自动改变，False：不改变 BackColor 背景色 颜色属性值（BackStyle属性必须为1） BackStyle 背景类型 0：背景透明，1：背景不透明 BorderStyle 边框类型 0：无边框，1：有边框 Caption 设置标题内容 字符串 ForeColor 字体颜色 颜色属性值 WordWrap 是否自动换行 True：自动换行，False：不换行（AutoSize属性必须为True）标签框控件常用方法、事件标签框常用方法：Move方法是标签框控件的常用方法，格式：对象名.Move横坐标,纵坐标标签框常用事件：标签框的常用事件有Click、DblClick、MouseDown、MouseUp等。3.4.2文本框的控件文本框是使用比较多的一种控件，它的主要作用是进行数据的输人和输出。文本框控件本身具有通用的编辑功能，如复制、删除、粘贴，非常容易使用。文本框控件的类型名称是TextBox，在添加文本框时，系统会自动将文本框命名为TextX，X是一数字序号，为了反映该文本框的功能，应更改其名称。文本框控件的常用属性 属性 功能 值 Alignment 标签框内文本对齐方式 0：左对齐，1：右对齐，2：居中 AutoSize 是否根据标题内容自动改变大小 True：自动改变，False：不改变 BackColor 背景色 颜色属性值（BackStyle属性必须为1） BackStyle 背景类型 0：背景透明，1：背景不透明 BorderStyle 边框类型 0：无边框，1：有边框 Caption 设置标题内容 字符串 ForeColor 字体颜色 颜色属性值 WordWrap 是否自动换行 True：自动换行，False：不换行（AutoSize属性必须为True）文本框控件的常用事件 Change事件：当文本框中的内容发生改变时产生该事件，不论改变是通过键盘编辑还是通过代码改变。利用该事件，可以监控文本框内容的改变是否符合要求，如果不符合要求可以通过消息框等方式警告。该事件发生的频率很高，进行处理时消耗的资源较多，因此要尽量少用。 GotFocus事件：获取输人焦点时产生该事件，也适用于其他控件。在文本框中，可以利用该事件进行一些人性化设置，例如选中所有内容。使该事件产生的方法可以通过Tab键移动焦点位置，也可以通过鼠标单击，还可以通过在代码中调用该控件的SetFocus方法。只有控件的Visible和Enabled属性都设置为True时才会产生该事件。 KeyPress事件：输人ASCII字符或汉字时，在文本框中显示以前产生该事件。该事件响应过程带有一个参数KeyAscii，表示所键人字符的码值：对于英文字符，该值在0～127范围内；对于汉字，该值为负值。利用该事件可以检查输人的每一个字符，如果不是合法字符，就禁止输人该字符，方法是令KeyAscii为0，即KeyAscii=0。例如，在输人身份证一号时，只允许输人数字，其他字符不准输人。通过代码直接改变文本框的内容时，不会引发该事件。 KeyDown，KeyUp事件：这两个事件和KeyPress事件很相似，但功能更强。KeyPress只能识别出ASCII字符或汉字，但对功能键如光标键、F1键等是无能为力的，而KeyDown和KeyUp却可以检测到键盘上所有按键的状态oKeyDown事件在键按下时发生KeyUp事件在键松开时发生。 LostFocus事件：控件失去输人焦点时发生该事件，可以利用该事件检查数据的合法性，或者进行界面的动态设置等。LostFocus总是和GotFocus成对发生。案例3-8设计窗体，观察标签框的Alignment、AutoSize、BackColor、BorderStyle、ForeColor，WordWrap等属性，案例3-8属性设置 对象名 属性名 属性值 作用 Form1 Caption 标签框属性演示 设置标题栏 Label1 Caption 默认属性标签框： 设置标签框显示内容 Label2 Caption 改变颜色和字体： Label3 Caption 改变边框类型和对齐方式： Label4 Caption 标签框自动适应标题内容： Label5 Caption 标签框自动换行： Label6 Caption VB结构化程序设计案例3-8程序设计PrivateSubLabel7_Click()‘设置字体、颜色及标签框背景色Label7.FontName="楷体_GB2312"‘设置字体Label7.FontSize=12‘设置字号Label7.BackColor=RGB(0,255,0)‘设置标签框背景色为绿色Label7.ForeColor=RGB(255,0,0)‘设置字体颜色为红色Label7.Caption="VB结构化程序设计语言"‘设置标签框标题EndSubPrivateSubLabel8_Click()‘设置边框及对齐方式Label8.Alignment=2‘设置居中对齐Label8.BorderStyle=1‘设置有边框Label8.Caption="VB"EndSub案例3-8程序设计PrivateSubLabel9_Click()Label9.AutoSize=True‘根据标题大小自动调整标签框Label9.Caption="VB结构化程序设计语言"EndSubPrivateSubLabel10_Click()Label10.AutoSize=TrueLabel10.WordWrap=True‘自动换行Label10.Caption="VB结构化程序设计语言"EndSub案例3-8运行效果案例3-9制作一个打字软件，在文本框内输入一些汉字，在标签框内将自动显示出来。【案例分析】：这里我们多用到了一个文本框控件，当我们向文本框控件中输入内容的同时改变标签框控件的Caption属性就很容易做到这一点。下面我们介绍文本框控件。案例3-9属性设置 对象名 属性名 属性值 作用 Form1 Caption 打字练习 设置标题栏 Text1 Text 空 文本内容清空 MultiLine True 有多行 ScroIIBars 2 有垂直滚动条 Label1 Caption 空 设置按钮标题案例3-9程序设计PrivateSubText1_Change()‘文本框内容一旦改变就触发该事件Label1.Caption=Text1.Text‘将文本框内容赋值给标签框EndSub课堂练习3-5制作一个简单的运算器。设置标签框、文本框到合适的位置，在文本框内输入数字，点击相应的“＝”，将计算结果显示在文本框中。课堂练习3-5属性设置 对象名 属性名 属性值 作用 Form1 Caption 简单运算器 设置标题栏 Frame1 Caption 加法 Frame2 Caption 减法 Frame2 Caption 开平方根 Label1 Caption ＋ Label2 Caption ＝ Label3 Caption － Label4 Caption ＝ Label5 Caption 平方根＝ Label6 Caption 和 Text1～Text9 Text 空课堂练习3-5程序设计PrivateSubLabel2_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(Text1.Text):b=Val(Text2.Text)'将加数和被加数赋值给变量c=a+bText3.Text=c'将计算结果赋值给文本框EndSubPrivateSubLabel3_Click()Text6.Text=Val(Text4.Text)-Val(Text5.Text)'直接进行计算EndSubPrivateSubLabel6_Click()DimaAsSinglea=Sqr(Val(Text7.Text))Text8.Text=Format(a,"+##.##")'保留两位小数输出到文本框Text9.Text=Format(a,"-##.##")EndSub课堂练习3-5运行效果课堂练习3-6使用文本框显示全大写和全小写字母，并设置字体颜色、文本框背景色。在第一个文本框中显示正常字符串，在后两个文本框中显示全小写和全大写的字符串，并设置不同颜色。【案例分析】：该程序中用到了大写函数UCase和小写函数LCase，同时还有改变字体颜色的ForeColor属性和改变文本框背景色的BackColor属性。程序较简单。课堂练习3-6属性设置 对象名 属性名 属性值 作用 Form1 Caption 大小写 设置标题栏 Text1～Text3 Text 空课堂练习3-6程序设计PrivateSubCommand1_Click()'按钮单击事件，在文本框中设置字符串Text1.Text="MicrosoftVisualBasic6.0"EndSubPrivateSubText1_Change()'Textl的Change事件Text2.BackColor=RGB(255,0,0)'背景色为红色Text2.ForeColor=RGB(0,0,255)'字体颜色为蓝色Text2.Text=LCase(Text1.Text)'Text2中显示小写字符串Text3.BackColor=RGB(0,255,0)Text3.ForeColor=RGB(255,0,0)Text3.Text=UCase(Text1.Text)'Text3中显示大写字符串EndSub课堂练习3-6运行效果课堂练习3-7对文本框内容进行指定位置的截取。在文本框中输入截取的起始位置，截取长度，使用消息框输出截取的内容。课堂练习3-7程序设计PrivateSubCommand1_Click()DimStartAsInteger,LnAsIntegerStart=Val(Text2.Text):Ln=Val(Text3.Text)'为各变量赋值Text1.SelStart=Start'设置截取的起始位置Text1.SelLength=Ln'设置截取的长度MsgBox"您截取的字符串为："&Text1.SelText,,"提示"‘消息框显示截取内容EndSub课堂练习3-7运行效果