第3章 Visual Basic程序设计基础

null第3章 Visual Basic程序设计基础 第3章 Visual Basic程序设计基础 数据类型 运算符和 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式 常用内部函数 3-1 数据类型 3-1 数据类型 3-1-1 基本数据类型 Integer (整型) % Long (长整型) & Single (单精度实型) ! Double (双精度实型) # Currency（货币型） @ String (字符串类型) $ Byte（字节型） Boolean (布尔型) Date (日期型) Variant (变体类型)数值型（Numeric）数值型（Numeric）表示无符号数常量与变量常量与变量Dim r AS Single Private Sub Command1_Click() r=Val(TEXT1.TEXT) Text2.Text=3.14*r^2 Endsub Private Sub Command2_Click() r=Val(Text1. text) Text3.Text=2*3.14*r Endsub常量： 具体的数据、 在程序运行中保持不变。 变量： 在程序运行中值发生变化。常量的分类常量的分类直接常量 符号常量用户自定义符号常量 系统定义符号常量3-1 数据类型3-1 数据类型3-1-2 直接常量 整型： 12，－3 ，1％ 长整型：-2147483640 ， 1& 单精度实型： 1.2, -3.4, -1.0! 双精度实型：-3.5e55 , -1.0# 字符串: “hello world” ， “” 布尔型： True真 ,False 假 日期型： #10/12/2005 10:10:10#数值常量表示 数值常量表示 null1、数值型数据与逻辑型数据的转换 ①数值型数据→逻辑型数据，0转换为False，非0值转换为True。 ②逻辑型数据→数值型数据时，False转换为0，True转换为-1。 2、VB在认别数值常量时,存在多义性。 例：3.01 它可能是单精度类型（4B），也可能是双精度类型（4B）或货币类型（8B）。 默认情况下，VB将选择需要内存容量最小的表示方法。 为了显示地说明常数的类型，常在常数的后面加上类型说明符。 例：3.01@ 说明：符号常量 符号常量 符号常量用一个标识符来代替常量（在程序中反复使用或难记忆的）。 1、系统定义符号常量 系统常量位于对象库中，可通过“视图”/“对象浏览器”查看。vbRed表示红色，直接引用。null 形式： Const 常量名1 [AS 类型] = 表达式，常量名2 [AS 类型] = 表达式… 说明： ⑴ 省略 [AS 类型] ，常量的类型由表达式值的类型决定。 ⑵ 符号常量不能改变，不能重新赋值。 (3)用逗号分隔多个常量声明 。 举例： Const Pi = 3.14159265358979 Const Pi #= 3.14 Const Max As Integer = 100 Const Birth = #1/1/06# Const MyString = "China" 2、用户定义符号常量3-1 数据类型3-1 数据类型3-1-3变量 1．变量的定义： Dim 变量名1 As 类型1, 变量名2 As 类型2 …… Dim a As Integer, b As Integer '定义两个整型变量a和b 省略数据类型则变量为Variant类型 Dim a, b As Integer '定义变量a为Variant类型，变量b为Integer类型 nulldim x as integer Dim y as long 2000200120022005xy内存20032004532799x=5 Y=32799 变量的声明 变量的声明 (1)用声明语句声明变量 Dim|Private|Static|Public 变量名 [AS 类型/类型符] [，变量名 [AS 类型/类型符]] 例如： Dim fac As Long,addr As String Dim average As Single ,strName$ Dim var1,var2 AS Double 使用声明语句声明变量后，VB自动给变量分配内存空间，并赋初值。变量的声明 变量的声明 (2)隐式声明 ＶＢ默认，可以不进行变量显示声明而通过赋值语句直接使用变量。其类型默认为变体（Variant）类型。 例如： strName=“你好！” strName=56 但常会因各种原因，出现难以查找错误,所以在程序中最好先声明再使用。变量的声明 变量的声明 (3) 强制显示声明 1、在每个窗体模块或标准模块“通用|声明”部分写入下面语句： Option Explicit 2、“工具”/“选项”/“编辑器”，选择“要求变量声明”。3-1 数据类型3-1 数据类型Private Sub Command1_Click() Dim a As Integer, b As Integer Print a a = 1 b = 2 Print a + b End Sub 整型变量a,b初始值默认为00 33-1 数据类型3-1 数据类型Private Sub Command1_Click() Dim a As Single, b As Single a = 1.2 b = 2.3 Print a + b End Sub 浮点型变量a,b初始值默认为0.0 3.53-1 数据类型3-1 数据类型Private Sub Command1_Click() Dim s As String s = "hello world" Print s End Sub 字符串变量s初始值默认为“”空串 hello world3-1 数据类型3-1 数据类型Private Sub Command1_Click() Dim f As Boolean Print f f = True frmInfo.Visible = f ‘窗体可见 End Sub 布尔变量f初始值默认为False Falsenull例：输入圆的半径，求圆的周长和面积。分析： 输入的数据是：半径值 计算周长和面积 输出：周长和面积值 常量：3.14 、2 变量:半径 radi、周长 peri、面积aeranull通用声明段: CONST P=3.14 Private Sub Command1_Click() TEXT2.TEXT=P*VAL(TEXT1.TEXT)^2 Form1.Backcolor=vbgreen Endsub Private Sub Command2_Click() TEXT3.TEXT=2*P*VAL(TEXT1.TEXT) Form1.Backcolor=vbblue Endsub Private Sub Command1_Click() TEXT2.TEXT=3.14*VAL(TEXT1.TEXT)^2 Form1.Backcolor=vbgreen Endsub Private Sub Command2_Click() TEXT3.TEXT=2*3.14*VAL(TEXT1.TEXT) Form1.Backcolor=vbblue Endsub 符号常量的使用null通用声明段: Const PI = 3.14 Private Sub Command1_Click() Dim r As Single Form1.BackColor = vbRed r = Val(Text1.Text) Text2.Text = PI * r ^ 2 End Sub Private Sub Command2_Click() Dim r As Single r = Val(Text1.Text) Form1.BackColor = vbGreen Text3.Text = 2 * PI * r End Sub 变量的使用在过程中声明 （过程级变量）null通用段: Const PI = 3.14 Dim r As Single Private Sub Command1_Click() Form1.BackColor = vbRed r = Val(Text1.Text) Text2.Text = PI * r ^ 2 End Sub Private Sub Command2_Click() r = Val(Text1.Text) Form1.BackColor = vbGreen Text3.Text = 2 * PI * r End Sub 变量的使用在窗体中声明 （窗体级变量）3-1 数据类型练习3-1 数据类型练习Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim delta As Single Dim root1 As Single, root2 As Single End Sub 求二元一次方程的两个根， 系数保存在变量a,b,c中， 根保存在变量root1,root2中， 判别式保存在变量delta中 怎样定义变量？3-2 运算符和表达式的种类3-2 运算符和表达式的种类算术运算符 字符串运算符 关系运算符 逻辑运算符 日期运算符 运算符和表达式的种类表达式的种类表达式的种类表达式的种类 ： 算术表达式 字符串表达式 关系表达式 逻辑表达式 日期表达式 对象表达式 算术运算符与算术表达式 算术运算符与算术表达式 设：ia=3例：5+10 mod 10 \ 9 / 3 +2 ^2结果：10普通除法整除null例：输入一个三位数，分离其个位、 十位、百位上的数字。Private Sub Command1_Click() Dim A As Integer A = Text1.Text Text4.Text = A \ 100 Text3.Text = (A Mod 100) \ 10 Text2.Text = A Mod 10 End Sub字符串运算符与字符串表达式字符串运算符与字符串表达式例： "abcdef" & 12345 ' 结果为 "abcdef12345 " "abcdef " + 12345 ' 出错 “123” + 456 ‘结果为数值 579 （+时，若两边的表达式有数值，则做算术加法运算） 注意：True转换为数值-1，False转换为数值0 "123 " + True ' 结果为 122关系运算符及关系表达式关系运算符及关系表达式关系表达式说明关系表达式说明(1) 在关系表达式中两个操作数进行大小比较，结果为逻辑量。 (2) 如果两个操作数是数值型，则按其大小比较。 (3) 如果两个操作数是字符串，则按字符的ASCII码值从左到右逐一比较，最先出现的不一样字符之间的关系决定了两个字符串比较的结果。 (4) 如果两个操作数是日期型，将日期看成“yyyymmdd”的8位整数，按数值大小比较。逻辑运算符及逻辑表达式逻辑运算符及逻辑表达式null1、成绩等级评定书写关系和逻辑表达式Score>=90 Score>=80 AND Score<90 Score >=70 AND Score<80 Score >=60 AND Score<70 Score<60null2、判断水仙花数 一个三位数 d，个位数字是a，十位数字是b，百位数字是c。测试d是否是水仙花数。 a^3+ b^3+c^3=d 或: d=a^3+ b^3+c^3 运算符的优先级运算符的优先级 当一个表达式中存在多种运算符时，按如下优先级的先后顺序进行运算： 算术运算符>字符运算符>关系运算符>逻辑运算 注意： (1) 用括号可以改变运算顺序。 (2) 乘方和负号相邻时，取负优先。如：2 ^ -2 的结果是0.25，相当于2^(-2)。 练习：练习：写出表达式：b2-4ac 写出表达式 -b+delt 2a b*b-4*a*c(-b+delt)/(2*a)练习：练习：关系运算符和关系表达式 (a=2,b=3)运算结果:True或False练习：练习：可以通过 表达式判断x是奇偶数 当表达式为真表示 整型变量x可以被2整除 不能被3整除的表达式 (x Mod 2)=0(x Mod 3)<>0练习：练习：3．与数学表达式a≤x≤b对应的Visual Basic表达式是_______。 a=2,b=3,x=4 a<=x<=b 1<=b True（a<=x）And （x<=b）错！！练习：练习：用表达式表示x或者被2整除，或者被3整除( ) Or ( )（x Mod 2）=0（x Mod 3）=0练习：练习：Private Sub Form_Click() Dim a As Integer, b As Integer Dim reslut As Integer a=1 b=2 result = a + b Print "结果是：" & result End Sub 注意：双引号之内的是字符串，原样输出 双引号之外的是变量，输出其取值结果是：3练习：练习：2．语句Print 5/4*6\5 Mod 2的输出结果是 。 (5/4*6)\5 Mod 27.5\5 Mod 21 Mod 21小结 小结 常量、变量、表达式 null作业 1、教材第3章思考与练习题。 2、完成实验3的初步设计。复习复习写出表达式-(a*a)/(a+b)复习复习当表达式为真，表示变量x是小于100的非负数 当表达式为真，x不可以被3或5整除(0