




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、第2章 VB语言基础,主讲:方继才,本章主要内容,VB的数据类型、常量与变量; VB运算符和表达式的使用; VB语句的书写规则; 常用内部函数的使用; VB基本输入/输出语句的使用; VB的基本控制结构 数组的使用,2.1 数据类型,数据是程序处理的对象。,1. 整型(Integer)和长整型(Long) 整型数: -3276832767 长整型数:-21474836482147483647 2. 字节型(Byte) 表示无符号的整数; 0255 3. 单精度型(Single)和双精度型(Double):浮点数 例如:4.53E8(4.53108),8.173E-14,3.14D23 4. 货
2、币型(Currency),2.1.1 数据类型-数值,2.1.2-4 数据类型,5. 字符型(String):用双引号括起来的一串字符。 例如:“Canton”、”1+2=?”、”GoodMorning” 6. 逻辑型(Boolean):又称布尔型 其数据只有True(真)和False(假)两个值 7. 日期型(Date): 表示日期和时间 用两个“#”符号把日期和时间的值括起来 如:#08/20/2001#、#2001-08-20#,2.1.5-6 数据类型,8. 对象型(Object) 9. 变体型(Variant) 变体型数据是一种可变的数据类型。 当指定变量为Variant变量时,VB
3、会自动完成转换; 在程序中不特别说明时,默认为Variant型变量。 例:Temp=“22” 字符串 Temp=Temp-1 数值 Temp=#01/01/2002# 日期,2.2 常量与变量,2.2.1 常量-在程序运行中其值始终保持不变的量。 两种形式的常量:直接常量、符号常量、系统常量 1. 直接常量 例如:123,-263, “Visual Basic” , “12.57 ” 2. 符号常量 格式:Const 常量名 As 数据类型=表达式 例如: Const PI=3.14159 As Single 3.系统常量: (P29表2-2),2.2.2 变量,变量是在程序运行期间其值可以发
4、生变化的量。 1. 变量的命名规则: (1) 变量名必须以字母开头; (2) 只能由字母、数字和下划线组成; (3) 字符个数不得超过255个; (4) 不能使用VB的关键字(如语句名、函数名等)。 例如,Print、Sub、End等; (5) 不区分变量名中字母的大小写。,2. 变量的声明,变量的声明就是向程序说明要使用的变量。 有以下2种方法: (1) 显式声明 用Dim、Public、Private或Static语句来声明变量 例如:Dim sum As Integer (2) 隐式声明 不加说明就直接使用变量Variant 也可使用类型符来声明,如Num%,Sum!,2.3 运算符与表
5、达式,表达式:由运算符与操作数构成。 2.3.1 算术运算符与算术表达式,2.3.1 算术运算符与算术表达式,说明: (1) /和的区别:1/2=0.5,12=0 (2) Mod用来求整型数除法的余数。 例如:9 Mod 7 结果为 2 (3) 在表达式中乘号不能省略 如:a*b不能写成ab(或ab) (4) 括号不分大、中、小,一律采用圆括号。 例如,xx(x+1)+1 x*(x*(x+1)+1),计算: 5+2*10 mod 10 9 / 3 +2 2,11,2.3.2 字符串表达式,字符串表达式: 用连接符将两个字符串连接起来的式子。 连接符有两个:” 或 “,” 隔开。,Print实例
6、1:,Private Sub Form_Click() a = 2 : b = VB Print 50 * a Print b Print Print The Total is End Sub 运行结果:,Print实例2:,使用Print方法输出全班学生的平均年龄。 已知18岁6人,19岁21人,20岁23人,21岁15人 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 = 2
7、3 : d = 15 s = a + b + c + d m = (a * 18 + b * 19 + c * 20 + d * 21) / s Print 平均年龄:; Int(m * 10 + 0.5) / 10 End Sub,与print有关的函数,1、Spc函数 格式:Spc(n) 功能:在输出下一项之前插入n个空格。 例如:Print 学号;Spc(2);姓名;Spc(5);成绩“ 2、Tab函数 格式:Tab(n) 功能:把输出位置移到第n列。 例如:Print Tab(2);学号;Tab(11);姓名;Tab(21);成绩,2.6.4 格式化函数,格式:Format(表达式 ,
8、格式串) 功能:根据格式串规定的格式来输出表达式的值 例如:a=4513.7 : b=3456.78 : T=#08:30:05# Print Format(a, #,#.#) Print Format(a, $#,#.00) Print Format(b, +#,#.#) Print Format(T, h:m:s) 输出结果是: 4,513.7, $4,513.70,+3,456.8,8:30:5,2.7 VB的基本控制结构,结构化程序设计方法有三种基本控制结构: 顺序结构、选择结构和循环结构 具有单入口,单出口的特点,2.7.1 顺序结构,一个完整的VB应用程序,一般都包含三部分内容,即
9、: 输入 处理 输出 赋值语句: 格式:变量名=表达式 功能:计算右端的表达式,并把结果赋给左端的变量 例如: a = 3 : b = 4 c = Sqr(a * a + b * b),顺序结构-实例,将两个文本框中的值交换。 Private Sub Command1_Click() Dim t As String, a As String, b As String a = Text1.Text b = Text2.Text t = a : a = b : b = t Text1.Text = a Text2.Text = b End Sub,2.7.2 条件分支结构,1、简单分支结构 2、选
10、择分支(双分支结构) 3、多分支结构 4、If语句的嵌套使用 5、IIf函数,2.7.2 条件分支结构,1、简单分支结构(单分支结构) 格式:If 条件 Then 语句 或 If 条件 Then 语句块 End If,2、选择分支(双分支结构),格式: If 条件 Then 语句块1 Else 语句块2 End If,3、多分支结构,(1) If.Then.ElseIf.End If语句 If Then ElseIf Then ElseIf Then Else End If,多分支结构-例1,例1:分段函数 Y=3X-5 X0 Y=3x 010,3、多分支结构,(2) Select Case
11、语句 Select Case Case Case Case Case Else End Select,Select Case 语句说明,表达式表通常是一个具体值(如Case 1),每一个值确定一个分支。 还有三种方法可以确定设定值: (1) 一组值(用逗号隔开)。示例: Case 1,3,5 (2) 表达式1 TO 表达式2。示例: Case 60 To 80 (3) Is关系式。示例: Case Is5,多分支结构-例2,例2:输入学生成绩(百分制),判断该成绩的等级(优、良、中、及格、不及格)。,Dim fs As Single, dj As String fs = Val(InputBo
12、x(输入学生100制成绩) Select Case fs Case Is = 90: dj = 优 Case Is = 80: dj = 良 Case Is = 70: dj = 中 Case Is = 60: dj = 及格 Case Is = 0: dj = 不及格 Case Else: MsgBox 成绩输入有错! End Select If fs = 0 And fs = 100 Then MsgBox 你的成绩为: sum,步长为1可以省略!,2、DOLoop 循环,注意:常用于不知道循环次数的情况。 格式1: Do While | Until Exit Do Loop,2、DOLo
13、op 循环,格式2: Do Exit Do Loop While | Until ,2、DOLoop 循环,例1: 用Do循环求1+2+100的和。,sum = 0 : i=1 do while i = 100 sum = sum + i i=i+1 loop Print sum=; sum,sum = 0 : i=1 do sum = sum + i i=i+1 Loop until i100 Print sum=; sum,3、While.Wend循环 ,语句格式 While 条件 循环体 Wend 注意:本语句与上述Do While.Loop循环语句相似。,例:计算1+2+100的和。,
14、循环结构举例:,例2: p60(例2-12),求0-200之间的所有偶数之和。 例3:求T = 8! = 1238 。 例4:求D = 1 2 + 3 4 + - 100 . 例5:p61(例2-13),判断一个大于2的数是否为素数。 例6:用/41 - 1/3 + 1/5 - 1/7 + 级数,求的近似值 (取前50项来进行计算)。,想一想,例7:While.Wend循环,例:用/41 - 1/3 + 1/5 - 1/7 + 级数,求的近似值。当最后一项的绝对值小于10-5时,停止计算。 Dim pi As Single, n As Long, s As Integer pi = 0 : n
15、 = 1 : s = 1 Do While 1/n=0.00001 pi = pi + s / n s = -s n = n + 2 Loop Print =; pi * 4,4、多重循环,多重循环:几种循环结构可以自我嵌套和相互嵌套。 例1:打印指定的图形。,For i = 1 To 5 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print *; ; Next Print Next,4、多重循环,例2:多重循环的使用,打印九九乘法表。,2.8 数组,数组的基本概念 静态数组 数组的使用(一维) 动态数组(自学) 几个与数组有关的函数 2.9
16、程序举例(自学) ,2.8.1 数组的基本概念,1、数组与数组元素 数组:用一个统一的名字(数组名)代表逻辑上相关的一组变量。 如:100个学生的成绩, 采用简单变量来表示: s1,s2,s3, s99,s100 采用数组来表示:t(1), t(2), t(99), t(100) t(k) (k=1,2,100) 为数组元素(或称下标变量),2.8.1 数组的基本概念,2、数组的类型: 数值型数组、字符串数组、逻辑数组、日期型数组、变体数组等、对象数组。 3、数组的维数 一维数组、二维数组、多维数组 4、数组的形式 静态(定长)数组、动态(可变长)数组,2.8.2 静态数组,静态数组 是指在程
17、序运行过程中大小固定不变的数组。 1、声明一维静态数组 格式1: Dim (下标上界) As 数据类型 格式2: Dim (下标下界To 下标上界) As 数据类型 引用数组元素 数组经过声明后,就可以象普通变量一样引用数组中的任何一个元素。 格式:数组名(索引号),2.8.2 静态数组,例:Dim a(5)As Integer 或 Dim a(0 to 5) As Integer 这两条语句都表示定义一个数组a,包含a(0)、a(1)、a(2)、(3)、a(4)、a(5) 6个元素,且都是整型。 例:Dim a(-1 to 4) As Integer ?定义了几个元数? 数组的引用与赋值 a
18、(1) = 10 : a(2) = 20,默认下界定义: Option basic 1,2.8.2 静态数组,2、多维静态数组声明 格式1:Dim (下标上界,下标上界, ) As 数据类型 格式2:Dim (下标下界1 To下标上界1, 下标下界2 To下标上界2,) As 数据类型 例如: Dim B(9,9) as single Dim M(3,-2 to 2,5 to 10) as integer,2.8.3 数组的使用,1、数组的输入 例如,定义一个数组,并分别给每一元素赋值。 Dim s1 (9) As String,I As Integer For I=0 To 9 s1 (I)=InputBox(请输入任何一个字符:) Next I,还有其他方法吗?,2.8.3 数组的使用,2、数组的输出 例如,已有一个一维数组,将各个数组元素输出。 For I=0 To 9 print s1 (I); Next I,按每行5个输出?,想一想,2.8.3 数组的使用,3、几个实例: (1)随机产生10个小于100的整数,找出其最大值,最小值和平均值。 (2)利用冒泡法,编程将1
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论