VB语言基础 一、 常量 1 定义：在程序运行过程中不能发生改变的量 2 分类 整型常量： 整数 不带小数点的数 数值常量 一、 常量 1 定义：在程序运行过程中不能发生改变的量 2 分类 整型常量： 整数 不带小数点的数 数值常量 定点小数 例如：3.14159 、 -6.8 实型常量 浮点小数 例如：1.23456E3、8.8E-18 定义：被一对引号括起来的若干个字符的组合 字符串常量 例如：”China”、 ”新北京，新奥运”、”169” 定义：在程序中多次使用到一个常量，则可以用一个有意义的名字表示 符号常量 格式： Const 常量名 as 数据类型=表达式 例如： Const pi as single=3.1415926

VB语言基础 二、 变量 1 定义：在程序执行时其值可以变化的量 2 分类 ：变量是用来存储数据的。数据有不同的类型，相应的变量也有不同 二、 变量 1 定义：在程序执行时其值可以变化的量 2 分类 ：变量是用来存储数据的。数据有不同的类型，相应的变量也有不同 短整型 整型 长整型 数值型 单精度 实型 双精度 字符串型

VB语言基础 变量的定义： 格式： dim 变量名 as 数据类型 短整型 integer -32768~32767 2字节 长整型 long -2147483648~2147483648 4字节 单精度 single -3.402823E38 ~-1.401298E-45 4字节 1.401298E-45~3.402823E38 双精度 double 1.7976931E308~-4.9406564E-324 8字节 4.9406564E-324~1.7976931E308 字符串型 string

VB语言基础 变量名命名规则： 1 必须以字母开头 2 必须由字母、数字、下划线组成 3 长度不能超过255个字符 4 不能是保留字 5 应该尽量有意义

VB语言基础 以下哪些变量名是正确的 123abc Label_1 A$ End 书名 × √

VB语言基础 例如： Dim I as Integer Dim sum as single Dim name as string Dim I as integer, sum as single, name as string

VB语言基础 三、 赋值语句 格式： [let] 变量名 = 值或表达式 赋值语句规则：把赋值号右边的值或表达式的值赋给赋值号左边的变 量，赋值时应尽量保持变量类型与数据类型一致。

VB语言基础 例： Dim a,b,c as integer,str as string Let a=2 Let b=3 Let a=5 Let c=a+b Let str=“Visual Basic” Form1.print a,b,c

VB语言基础 如何交换两个变量的值？

数学算术运算符 VB算术运算符 + - × * ÷ / 乘方 ^ 取商 \ 取余 Mod 括号运算（），[]，{} 括号运算（） 四、 表达式 数学算术运算符 VB算术运算符 + - × * ÷ / 乘方 ^ 取商 \ 取余 Mod 括号运算（），[]，{} 括号运算（）

VB语言基础 五、 函数 函数名 功能 Abs(x) 求x的绝对值 Int(x) 求不大于x的最大整数 Sqr(x) Log(x) 求x的自然对数lnx(x>0) Exp(x) 求以e为底的指数函数 Sin(x) 求x的正弦值，x的单位为弧度 Tan(x) 求x的正切值，x的单位为弧度 Sgn(x) 求x的符号，x>0,返回1;x=0,返回0;x<0,返回-1 rnd 产生[0，1）之间的随机数 Str(x) 将数值x转换为字符串 Val(s) 将数字字符串s转换为数值 Len(s) 求字符串s的长度 Right(s,n) 取字符串s从右开始长度为n的子串 Mid(s,m,n) 取字符串s从左边第m个字符开始长度为n的子串 Instr(s1,s2) 指定字符串s2在另一字符串s1中最先出现的位置

VB语言基础 改正下列VB表达式的错误 xy^3表示（xy）3 y+2/x-4表示 e^x*sin(x)表示exsinx Cos(30)表示cos30o

VB语言基础 将下列数学式写成VB表达式 a+b2 Sin(a+b) (x+y)3 64+|-5| ex+1

VB语言基础 写出下列VB表达式的值 Sqr(81)+len(“baisc”) Abs(int(-7.8)) Exp(0) Log(100)/log(10) Int(3.14159*100+0.5)/100 Sgn(1-abs(-3)) Right(“china”,2)+mid(“welcome”,6,2)

VB语言基础 读程序 Private sub command1_click() Private sub command2_click() Dim radius as single Dim peri as single Dim area as single Radius=val(text1.text) Peri=2*3.14159*radius area=3.14159*radius^2 Text2.text=str(peri) Text3.text=str(area) End sub Private sub command2_click() End End sub

If语句 … … if then 语句1 条件 if 条件 then 语句1 else 语句2 语句2 语句3 … …

数据的输入和输出 1. 程序运算的得到的结果，可以用文本框或标签控件显示 2. 当需要显示大批量数据时，更适合用print方法输出

数据的输入和输出 例： Dim x,y as single Form1.print -61;-34 Form1.print 9*2;12 Form1.print “This is”;”a book” x=3:y=4 Print “x=“;x,”y=”;y 运行结果 -61 -34 18 12 This isa book X=3 y=4

数据的输入和输出 Print 方法的表达式列表可以是：常量、变量、表达式 如果是多个表达式，可以用分号（;）或逗号（,）分隔。分号 表示一个表达式紧接着上一个表达式继续显示，逗号则表示下 一个表达式移到下一个打印区开始显示，每一个区占14列。

数据的输入和输出 从例子的结果可以看出 1 print方法具有计算和输出的双重功能。先计算出表达式的 值，然后在输出该值。正数数值具有一个前导和一个尾部空 格，负数数值用负号替代前导空格。对于字符串则是原样输 出，不包括定界符双引号。 2 使用prinr “x=”;x的形式输出数据，可以在数据前加上注解性的说 明，使我们一看就知道是哪个变量的值。在一个语句里，分号和逗号 可以混合使用。

数据的输入和输出 此外，还可以在表达式前用tab(n)函数控制输出的位置，式中的n表示 输出点离窗体左边界的绝对位置。 Dim a,b as integer a=4:b=9 Print tab(1);”数”;tab(9);”平方”;tab(18);”立方”;tab(27);”立方根” Print tab(1);a;tab(9);a^2;tab(18);a^3;tab(27);sqr(a) Print tab(1);b;tab(9);b^2;tab(18);b^3;tab(27);sqr(b) 注意：TAB函数中的数值应该从左到右依次增大，而不能忽左忽右

数据的输入和输出 为了便于和程序交互，VB提供了inputbox和msgbox这2个函数 1 inputbox函数 数，屏幕就会弹出一个标准输入对话框供输入数据使用，使用方 法下： 变量=inputbox(提示[,标题][,缺省])

数据的输入和输出 Const pi as single = 3.1415926 Dim radius,peri,area as single radius=inputbox(“请输入半径” ,”输入框”) peri=2*pi*radius area=pi*radius^2 Print “半径=”;radius,”周长=”;peri,“面积=”;area

数据的输入和输出 2 msgbox函数 在使用windows操作系统等软件的时候，经常会弹出一些对话框。事实上，VB中，我们也可以利用msgbox函数设计出这样的对话框。 Msgbox函数格式如下 变量=msgbox(提示[,按钮][,标题]) 其中，“提示”和“标题”的意义与inputbox函数中对应的参数相同 按钮是一个由4个常数量组成的式子，形式为c1+c2+c3+c4，用于 决定信息框中显示的按钮的数目及形式，使用的图标式样，缺省按 钮是什么以及消息框的模式等。

数据的输入和输出 参数 VB内部常量 含义 C1 VbOkOnly 只显示”确定”按钮 VbOkCancel 显示”确定””取消”按钮 VbAbortRetryIgnore 显示”终止””重试””忽略”按钮 vbYesNoCancel 显示”是””否””取消”按钮 vbYesNo 显示”是””否”按钮 vbRetryCancel 显示”重试””取消”按钮 C2 vbCritical 显示禁止图标 vbQuestion 显示疑问图标 vbExclamation 显示警告图标 vbInformation 显示信息图标 C3 vbDefaultButton1 第一个按钮为缺省 vbDefaultButton2 第二个按钮为缺省 vbDefaultButton3 第三个按钮为缺省 C4 vbApplicationModal 应用模式 vbSystemModal 系统模式

按钮名 VB内部常量 数 值 确定 vbOk 1 取消 vbCancel 2 终止 vbAbort 3 重试 vbRetry 4 忽略 数据的输入和输出 按钮名 VB内部常量 数 值 确定 vbOk 1 取消 vbCancel 2 终止 vbAbort 3 重试 vbRetry 4 忽略 vbIgnore 5 是 vbYes 6 否 vbNo 7

If语句 一、行if语句 1 流程图 条件 条件 Y N Y N 语句1 语句1 语句2 语句2 语句3

If语句 … … if then 语句1 条件 if 条件 then 语句1 else 语句2 语句2 语句3 … … 2 格式 这里的条件是什么？

If语句 什么是VB（算术）表达式 用VB运算符连接起来的常量、变量，称为VB表达式 VB运算符：+、-、*、/、^、mod、\、（） 例如： a+1 a/b mod 2 p*(p-a)*(p-b)*(p-c)

If语句 什么是关系表达式 用关系运算符连接起来的VB表达式 关系运算符：>、<、=、>=、<=、<> 例如： 3+5>6-1 Abs(a)>=b*2 (a-b)*(a+b)<>3 “abc”>”ABC” 关系表达式的值？

If语句 关系表达式的值为布尔类型（boolean） 布尔类型的值只有两种 T或者F 例如： 3+5>6-1 Abs(a)>=b*2 (a-b)*(a+b)<>3 “abc”>”ABC”

If语句 字符串比较大小规则： 从左向右逐个比较字符ASCII码的大小，直到比出大小为止。 “abc”>”ABC” “Abcd”<“aBCD” ”Window”<“Windows” “hello”=“hello”

If语句 什么是逻辑表达式 用逻辑运算符连接起来的关系表达式 逻辑运算符：and(与运算)、or（或运算）、not（非运算） 例如： a+b>1 and c mod 4 <>0 a*b*c<=d or b^2-4*a*c<>0 not a>b or c<=d and e=f

If语句 and(与运算) 二元运算符 条件1 and 条件2 结果 T F F F F F F T F T T T

If语句 or(或运算) 二元运算符 条件1 or 条件2 结果 T F T F T T T T T F F F

If语句 not(非运算) 一元运算符 not 条件 结果 F T T F

If语句 逻辑运算优先级 例如： a+b>1 and c mod 4 <>0 a*b*c<=d or b^2-4*a*c<>0 not a>b or c<=d and e=f not > and > or

If语句 逻辑表达式的运算顺序 先算VB表达式，再算关系表达式，最后算逻辑表达式 例：2^2>=5 and abs(-5)<>len(“basic”) not 15 mod 2 <6 or “123”=left(“12345”,4)

If语句 例：2^2>=5 and abs(-5)<>len(“basic”) or not 15 mod 2 < 6 or “123”=left(“12345”,4) 4 >=5 and 5 <> 5 or not 1 < 6 or “123”=“1234” F and F or not F or F F and F or T or F F or T or F T T

If语句 练一练，写出下列逻辑表达式的值 14 \ 5 > int(4.5) and “windows”>”Windows” or sqr(81)=abs(int(-8.9)) and sgn(4)<>0 rnd>2 and “china”>mid(”chinese”,3,2) or not sgn(-10)>=4 and exp(0)<>2^2

If语句 思考 1、已知三条线段，如何判断它们能否构成一个三角形 2、如何判断某一个年份是否是闰年

数据的输入和输出

数据的输入和输出