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

1、第3章 VB 的基本语句,本章学习目标,3.1 基本语句说明,在VB6.0中的语句式执行具体操作的指令，每个语句行以回车键结束。程序语句是VB6.0关键字、属性、函数、运算符以及能够生成VB6.0编辑器可识别指令的符号的任意组合。 语句是我们学习编程的基本，从基本功能上来看，语句大致分为3种：赋值语句、方法语句和注释语句。分别实现不同的功能，书写格式也有所区别 赋值语句将指定的值赋值给某个变量或者对象的属性。 方法语句使用VB提供的一些方法完成某项功能 注释语句为提高可读性增加的注释性的话。,3.1.1赋值语句,赋值语句的一般格式为： Let 或： Let . 功能：将“”右边的表达式的值，赋值给左边的变量或属性。这里的表达式可以是常量、变量以及属性。,赋值语句使用说明,语句定义中的Let可以省略。 在赋值语句中的“”是赋值号，它与数学中的逻辑等号是不同的。 赋值语句具有赋值和计算双重功能。当等号右边为表达式时，首先计算出表达式的值，然后再赋值给等号左边的变量或属性。 在向对象属性赋值时，应指明对象名和属性名。系统默认的对象是当前窗体，所以对当前窗体的属性赋值时，可以省略对象名。 等号

2、左边的变量或属性的数据类型必须与等号右边的数据类型相一致。 变量或对象的属性一旦被赋值，新值将代替旧值。,案例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 对象名.方法名(参数列表,) 功能：实现方法所实现的功能,方法语句使用说明,使用方法语句，应指明对象名和属性名。系统默认的对象是当前窗体，所以对当前窗体的属性赋值时，可以省略对象名。 如使用Cal

3、l关键字，方法中的参数必须用括号括起来。不使用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 “这个数

4、是偶数！“ 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方法能在窗体上、立即窗口或其

5、他图形对象上以及打印机上输出信息。 Print语句的一般格式如下为： 对象名.Print 输出项“，”或“；”输出项,3.2.1 Print语句的格式,这里的Object是窗体或图片框的对象名。当对象为当前窗体时可以省略不写。 输出项可以是一个或多个任意类型的常量、变量、表达式、属性等，输出时会自动转换为字符串。 多个输出项之间必须使用逗号“，”或分号“；”分隔。如果使用“，”，则每一项输出到不同的制表列，项与项之间有较大的距离；如以“；”分隔输出项，则项与项之间紧挨着（当输出项是数值时，只间隔一个空格）。也可以在Print语句中使用“&”或“”字符串连接符。 Print方法具有计算和输出双重功能，如果输出是表达式，将先进行表达式计算，然后再输出。 Print语句输出完毕后如没有“，”或“；”将自动换行。但如果有“，”或“；”的话后继的Print方法输出的信息将显示在本行的下一标准区段内。在单独的Print方法表示换行。,3.2.1 Print语句相关函数方法,改变输出起始位置的两个属性：CurrentX、CurrentY 改变Print语句输出的文字坐标是由窗体或图片框当前Curre

6、ntX、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的空格，该函数也与

7、输出项之间使用“;”隔开。例如：Print Spc(20);”姓名”。 4. 清除屏幕方法：Cls 格式：Cls 用于清除窗体或者图片框中由Print方法产生的图形，并将光标移动到对象的最左上角。,案例3-2,阅读下面程序，给出程序的运行结果。 Private Sub Form_Click() Print “Visual Basic程序设计语言“ a = 10: b = 20 Print “ab=“; a * b Print “ab=“, 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); “年龄“ 使

8、用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”为数字占位符，功能

9、与“#”相似，只是当要显示的数据位数小于格式串长度时，多余位置补“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“

《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第3章》由会员E****分享，可在线阅读，更多相关《Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第3章》请在金锄头文库上搜索。