Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第3章

第3章 VB 的基本语句,本章学习目标,3.1 基本语句说明,在VB6.0中的语句式执行具体操作的指令，每个语句行以回车键结束。程序语句是VB6.0关键字、属性、函数、运算符以及能够生成VB6.0编辑器可识别指令的符号的任意组合。 语句是我们学习编程的基本，从基本功能上来看，语句大致分为3种：赋值语句、方法语句和注释语句。分别实现不同的功能，书写格式也有所区别 赋值语句将指定的值赋值给某个变量或者对象的属性。 方法语句使用VB提供的一些方法完成某项功能 注释语句为提高可读性增加的注释性的话。,3.1.1赋值语句,赋值语句的一般格式为： Let 或： Let . 功能：将“”右边的表达式的值，赋值给左边的变量或属性。这里的表达式可以是常量、变量以及属性。,赋值语句使用说明,语句定义中的Let可以省略。 在赋值语句中的“”是赋值号，它与数学中的逻辑等号是不同的。 赋值语句具有赋值和计算双重功能。当等号右边为表达式时，首先计算出表达式的值，然后再赋值给等号左边的变量或属性。 在向对象属性赋值时，应指明对象名和属性名。系统默认的对象是当前窗体，所以对当前窗体的属性赋值时，可以省略对象名。 等号左边的变量或属性的数据类型必须与等号右边的数据类型相一致。 变量或对象的属性一旦被赋值，新值将代替旧值。,案例3-1,分析下几个赋值语句所实现的功能。 a = a + 1 将变量a的值加1再赋值给它本身 Text1.Text = “新年快乐“ 将常量“新年快乐”赋值给文本框Text1的Text属性 x = Val(Text1.Text) 将文本框内容转为数值型数据并赋值给变量x Num = 15 将常量15赋值给变量Num Num = a + x 将变量a与x的和赋值给变量Num Label1.Caption = #2/14/2007# 将日期型常量赋值给Label1.Caption属性 Form1.Enabled = 53 将布尔表达式的值赋给Form1.Enabled属性,3.1.2 方法语句,方法语句其实就是程序对方法的调用，它的一般格式为： 对象名.方法名 参数列表, 或： Call 对象名.方法名(参数列表,) 功能：实现方法所实现的功能,方法语句使用说明,使用方法语句，应指明对象名和属性名。系统默认的对象是当前窗体，所以对当前窗体的属性赋值时，可以省略对象名。 如使用Call关键字，方法中的参数必须用括号括起来。不使用Call关键字，方法中的参数必须与方法名之间用空格隔开。 方法的使用我们将在函数与过程中进行详细的介绍。,案例3-2,分析下面语句所完成的功能 Print “新年快乐“ 在窗体上打印“新年快乐” Call Cls 清除屏幕上的打印 Form1.Move 100, 100 将窗体移动到（100,100）坐标位置 Stop 暂停程序的执行同时打开立即窗口 End 结束程序的运行,3.1.3 注释语句,注释语句的一般格式为： 注释内容 或： Rem 注释内容 功能：对程序的有关内容起注释作用。,注释语句使用说明,注释语句并非执行语句，对程序的执行过程不产生任何影响，它不被解释或者编译 任何字符或汉字均可作为注释内容。 以Rem关键字开头的注释不能用于语句的后面，而以单引号开头的注意可以写在任意地方。 注释语句符号后的所有内容将都被看作是注释。,案例3-3,分析下面那条是注释语句,学习使用方法 a = Val(Text1.Text) If a Mod 2 = 0 Then ' 看余数判断是否为奇偶数 Rem 满足条件执行下面语句 MsgBox “这个数是偶数！“ Else Rem 不满足条件执行下面语句 MsgBox “这个数是奇数！“ End If,课堂练习 3-1,已知有4个数15、23、38、9，求这4个数的和、平均值，并将这4个数输出到窗体上。程序设计如下,要求分析每条语句各是什么类型. Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer Dim Sum As Integer, Avg As Single a = 15: b = 23: c = 38: d = 9 '给各变量赋值 Print a, b, c, d '打印输入各变量的值 Sum = a + b + c + d '求和 Avg = Sum / 4 '求平均值 Print “4个数的和为：“ & Sum '输出和 Print “4个数的平均值为：“ & Avg '输出平均值 End Sub,3.2 使用Print方法进行输出,Print语句是我们常用的输出方法，它除了输出方便外，还能对输出信息的位置、格式等进行处理。Print方法能在窗体上、立即窗口或其他图形对象上以及打印机上输出信息。 Print语句的一般格式如下为： 对象名.Print 输出项“，”或“；”输出项,3.2.1 Print语句的格式,这里的Object是窗体或图片框的对象名。当对象为当前窗体时可以省略不写。 输出项可以是一个或多个任意类型的常量、变量、表达式、属性等，输出时会自动转换为字符串。 多个输出项之间必须使用逗号“，”或分号“；”分隔。如果使用“，”，则每一项输出到不同的制表列，项与项之间有较大的距离；如以“；”分隔输出项，则项与项之间紧挨着（当输出项是数值时，只间隔一个空格）。也可以在Print语句中使用“&”或“”字符串连接符。 Print方法具有计算和输出双重功能，如果输出是表达式，将先进行表达式计算，然后再输出。 Print语句输出完毕后如没有“，”或“；”将自动换行。但如果有“，”或“；”的话后继的Print方法输出的信息将显示在本行的下一标准区段内。在单独的Print方法表示换行。,3.2.1 Print语句相关函数方法,改变输出起始位置的两个属性：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、Spc Tab（）函数，格式为：Tab（） 使用Tab（n）函数对输出位置进行定位，将显示或打印的位置移到参数n指定的制表位。该函数与输出项之间使用“;”隔开。例如：Print Tab(20);”姓名”。 Spc（）函数，格式为：Spc（） Spc（n）函数与Tab函数不同，它提供指定参数n的空格，该函数也与输出项之间使用“;”隔开。例如：Print Spc(20);”姓名”。 4. 清除屏幕方法：Cls 格式：Cls 用于清除窗体或者图片框中由Print方法产生的图形，并将光标移动到对象的最左上角。,案例3-2,阅读下面程序，给出程序的运行结果。 Private Sub Form_Click() Print “Visual Basic程序设计语言“ a = 10: b = 20 Print “a×b=“; a * b Print “a×b=“, a * b Print “1030“ & 10 + 30 Print Print a, b Print Form1.Caption End Sub,案例3-2 程序运行效果,案例3-3,编写程序，使用Print方法，使窗体显示如图3-4效果。,Private Sub Form_Click() CurrentX = 0 设置Print开始的起始位置 CurrentY = 500 FontName = “楷体_GB2312” FontSize = 16 Print Tab(10); “姓名“; Tab(25); “性别“; Tab(40); “年龄“ 使用Tab函数设置间隔 Print 换行 Print Tab(10); “张三“; Tab(25); “男“; Tab(40); “17“ Print Spc(9); “李四“; Spc(11); “女“; Spc(13); “16“ 使用Spc函数设置间隔 End Sub Private Sub Command1_Click() 清除屏幕程序 Cls End Sub,案例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,阅读下面程序，测试该程序输出的结果。 Private Sub Form_Click() Print Format(123.456, “#.#“) Print Format(123.456, “00000.#“) Print Format(123.456, “00,000.00“) Print Format(123.456, “$#,#.#“) Print Format(123.456, “+#.#“) Print Format(0.1234, “#.#%“) Print Format(123.456, “0.000E+00“