VB二级复习总结文档格式.docx
《VB二级复习总结文档格式.docx》由会员分享，可在线阅读，更多相关《VB二级复习总结文档格式.docx（47页珍藏版）》请在冰点文库上搜索。
在变量的尾部加上类型说明符：
Num%，Str1$均是合法的变量名
在引用时，可以省略类型说明符。
（2）定义变量时声明其类型
Dim变量名
As
类型
“类型”可为基本数据类型或用户自定义的类型。
Boolean（布尔型）
Long（长整型）
Single（单精度型）
Double（双精度型）
String（字符串型）
Variant（变体型）
用户自定义类型
Dimstr1AsString,countryAsString*20
DimiAsInteger,sumAsSingle
定义变量后，数值型变量的初值为0
字符型变量的初值为空字符串
其中：
变长字符串的初值是长度为0
定长字符串的初值的长度等于定义值。
3.变体类型变量
如未定义类型的变量
DimsumAsVariant
Dimsum
运算符与表达式
1.算术运算符（8种）
优先级（从高到低）：
指数（∧）
取负（-）
乘法、浮点除法（*,/）
整数除法（\）
取模（Mod）
加法、减法（+,-）。
整除：
被除数和除数为整数，结果为整数。
31.7\5.88
32\6
结果为：
5
取模（求余）运算：
结果为整数除法的余数。
31.77Mod5.88
（四舍五入）
32Mod6，
余数为2
3Mod6
余数为3
字符串表达式
字符串运算符：
或
＋
把字符串连接成一个字符串。
（1）符号“&
”与字符串变量之间应间隔一个空格，
str1
str2
（2）“&
”能强制把其它类型的数据转换为字符串，
而“＋”不能。
2008&
"
奥运会"
2008奥运会
2008"
+"
2008奥运会
注意：
Print"
123"
+567
结果：
690
abc"
出错：
类型不匹配
常用内部函数
数学函数
函
数
功
能
Abs（x）
返回x的绝对值
Int（x）
求不大于x的最大整数
Int（7.8）结果为7，Int（-7.8）结果为-8
Cint（x）
把x小数四舍五入，转换为整数，
Exp（x）
计算ex，e是自然数2.718281
Log（x）
求x的自然对数
Sqr（x）
求x的平方根
Rnd
返回0～1之间的随机数：
字符串函数
Len（str）
返回字符串长度
Left$（str，n）
取字符串左边n个字符
Right$（str，n）
取字符串右边n个字符
Mid$（str，p[，n]）
从位置p开始，取n个字符，如n省略，取到最后
Str$（num）
数值转字符串
Val（str）
字符串转数值
Asc（str）
返回字符串首字母ASCII码
Chr$（n）
ASCII码转字符
说明:
（l）三角函数Sin、Cos和Tan自变量的单位是弧度
反正切函数Atn（x）的返回值单位为弧度。
度转换为弧度：
1°
=3.14159/180*x
（2）用函数Rnd可以产生不同的随机数。
产生指定范围的随机数：
●
产生0～n之间的随机数（不含0和n）
Rnd*n
产生0～n之间的随机整数（含0，不含n）
Int（Rnd*n）
产生a～b之间的随机整数（含a，不含b）
Int（（b-a）*Rnd+a）
产生a～b之间的随机整数（含a和b）
Int（（b-a+1）*Rnd+a）
顺序结构
结构化程序三种基本结构：
顺序结构、选择结构和循环结构。
1
赋值语句
变量=表达式
属性名=属性值
当变量类型与表达式的类型不同时，VB自动将表达式的类型强制
转换为变量类型。
DimNumAsInteger
Num=8.89
（将9赋给Num，四舍五人）
3
数据输入
方法1：
用文本框
例：
DimmAsInteger
m=Val（Text1.Text）
方法2：
用Inputbox（）函数
m=Val（InputBox（"
enterm:
））
方法3：
从文件输入
Input#2，m
4
输出数据
Text1.Text=n
或
Text1=n
用标签
Label1.Caption=n
用Print方法
Printn
方法4：
输出到列表框
List1.AddItemn
方法5：
输出到文件
Open"
abc.dat"
ForOutputAs#1
Write#1,n
【例】交换变量a、b的值。
用中间变量t作暂存单元，必须与交换的变量同类型。
t=a：
a=b：
b=t
3.2
窗
体
窗体常用的方法Print，
窗体事件
1.Click事件
2.Load事件
Load是把窗体装入工作区事件，
Form_Load（）事件是执行程序时自动触发的，因此常用来在
启动程序时对属性和变量进行初始化。
3.UnLoad事件
关闭窗体触发该事件
选择结构
满足条件为“真”，用“True”表示；
不满足条件为“假”，用“False”表示。
关系表达式
1.关系运算符（6种）
=、<
>
、<
、>
=、>
=
优先级相同，运算从左到右。
2.关系表达式
“apply”>
“apple”
按ASCII码逐字符进行比较。
空格<
“0”…“9”<
“A”…“Z”<
“a”…“z”
“apple”
结果为True
逻辑表达式
逻辑运算符：
Not、
And、
Or
优先级：
逻辑非（Not）、逻辑与（And）、逻辑或（Or）
表示：
a≤x≤b
a<
=xAndx<
=b
1．单行If语句
If条件Then语句组1[Else语句组2]
语句组：
各语句间需用“：
”分隔。
2．块结构If语句
If条件Then
语句块1
Else
语句块2
EndIf
计算分段函数
1+x
（x≥0）
y=
1-2x
（x<
0）
Ifx>
=0Then
y=1+x
Else
y=1-2*x
EndIf
用单行If语句：
If
x>
=0
Then
y=1+x
Else
或：
=0Theny=1+x
If
x<
0Theny=1-2*x
3.多分支选择结构
If条件1Then
ElseIf条件2Then
ElseIf条件3Then
语句块3
……
语句块n+1
从多个条件中，选择执行一个语句块
“纵然分支众多，仅选其一”
当有多个条件为真时，只能执行最前面的一个语句块。
ElseIf之间不能有空格
【例】学生成绩判定。
PrivateSubCommand1_Click（）
x=Val（InputBox（"
输入学生成绩：
Ifx>
=90Then
Print“优”
ElseIfx>
=80Then
Print“良”
=70Then
Print“中”
60Then
Print“及格”
Print“不及格”
EndSub
4.2.4
IIf函数
IIf是单行If语句的简单版本。
变量=IIf（条件，True部分，False部分）
IIf函数中的三个参数都不能省略。
1+x
DimxAsSingle,yAsSingle
x=Val（Text1.Text）
y=IIf（x>
=0,1+x,1-2*x）
Text2.Text=y
【例】判闰年。
闰年的条件：
（1）被4整除，但不能被100整除；
（2）能被400整除。
最好：
IfxMod400=0Then
y$="
是闰年"
ElseIf
xMod4=0
And
xMod100<
0Then
y$="
不是闰年"
也可
x=Val（InputBox（"
输入年份"
IfxMod4=0andxMod100<
0
or
xMod400=0Then
4.SelectCase语句
用于实现多分支结构。
SelectCase测试表达式
Case条件1
Case条件2
CaseElse
语句块n+1
EndSelect
功能：
从多个条件中选择执行第一个符合条件的语句，都不符合，
则执行CaseElse后的语句块。
注意条件：
常量表：
1，3，5
测试范围：
10to20,“a”to“z”
比较范围：
Is<
10
（不能为逻辑表达式）
【例】学生成绩评定
x=Val（InputBox（"
输入考试成绩"
SelectCasex
Case90To100
优"
Case80To89
良"
Case70To79
中"
Case60To69
及格"
Case0To59
不及格"
输入错误"
Form1.Print"
成绩:
;
x,"
等级:
y$
循环结构
“当型”循环：
当条件为真，执行循环体。
“直到型”循环：
做循环，直到条件为真为止。
1.For-Next循环
常用于循环次数已知。
For循环变量=初值To终值[Step步长]
循环体
[ExitFor]
Next循环变量
【例】计算n!
。
n=Val（InputBox（"
输入一个自然数"
Term=1
Fori=1Ton
Term=Term*i
Nexti
Printn;
!
="
Term
【例】计算2+4+6+……+100的值。
Sum=0
Forx=2To100Step2
Sum=Sum+x
Nextx
Sum="
Sum
【例】计算1+2!
+3!
+……+10!
T=1
S=0
Fork=1To10
T=T*k
S=S+T
Nextk
PrintS
2．While-Wend循环
适合处理循环次数未知的循环。
While条件
语句块
Wend
当条件为真时执行循环。
【例】计算1+2+3+……+100
DimnAsInteger,sAsInteger
s=0
n=1
Whilen<
=100
s=s+n
n=n+1
Lable1.Caption=“1+2++3+……+100=”&
s
3．Do-Loop循环
Do
[ExitDo]
Loop[While|Until条件]
Do[While|Until条件]
[ExitDo]
Loop
While条件——当“条件”为True执行循环体。
Until条件——“条件”为False执行循环体。
如无条件，则为死循环。
格式1：
“先循环，后判断”，至少执行一次循环。
格式2：
“先判断，后循环”，如条件不满足，则一次循环也不执行。
Dowhilen<
Loop
s=0
DoUntiln>
100
【例】将十进制数转换为二进制数
PrivateSubForm_Click（）
DimmAsInteger
m=InputBox（"
）
a$="
Whilem<
0
r=mMod2
a$=r&
a$
m=m\2
Printa$
a$=a$&
r
则为：
4=001
列表框
列表框的方法
AddItem方法：
用于在列表框中插入一个列表项。
列表框.AddItem项目字符串[,索引值]
如省略索引值，则在列表框的最后插入新列表项。
【例】将文本框内容添加到列表框1
List1.AddItemText1.Text
多重循环
（1）必须完整嵌套，不得交叉。
（2）ExitFor语句和ExitDo语句只能退出当前层循环。
指定每行显示数据的个数
Forn=1to30
Printn;
””;
IfnMod10=0Then
Print
Nextn
'
每显示10个数据换行
常用算法
（1）
1.不定方程求解。
【例】百鸡问题
x+y+z=100
5x+3y+z/3=100
DimxAsInteger
DimyAsInteger,zAsInteger
公鸡"
"
母鸡"
小鸡"
Forx=0To20
Fory=0To33
z=100-x-y
If5*x+3*y+z/3=100Then
Printx,y,z
EndIf
Nexty
Nextx
2．求最大公约数和最小公倍数
辗转相除法：
【例】计算最大公约数和最小公倍数。
DimmAsInteger,nAsInteger
DimuAsInteger,vAsInteger
m=Val（Text1.Text）
n=Val（Text2.Text）
Ifm>
nThen
u=m:
v=n
u=n:
v=m
r=uModv
u=v
v=r
LoopUntilr=0
Print"
最大公约数：
u
最小公倍数：
m*n/u
或
r=uModv
DoWhiler<
u=v
Loop
v
3．判素数（质数）
【例】判n是否为素数。
DimnAsInteger,iAsInteger
输入正整数"
Fori=2Ton-1
IfnModi=0ThenExitFor
Ifi>
n-1Then
是质数"
不是质数"
例求100～200之间素数，并写入顺序文件。
Open“shusu.dat”ForOutputAs#1
Forn=101To200step2
S=1
‘是
Fori=2ToInt（Sqr（n））
IfnModi=0Then
S=0
‘不是
ExitFor
NextI
Ifs=1Then
Nextn
close#1
添加到列表框：
List1.AddItemn
数
组
6．1静态数组
编译时分配存储空间。
定义：
Dimb（3，4）AsLong
分配4×
5个长整型变量的空间，
二维数组在内存按行的顺序存放
b（0，0）
b（0，1）
B（0，2）
b（0，3）
b（0，4）
b（1，0）
b（1，1）
B（1，2）
b（1，3）
b（1，4）
b（2，0）
b（2，1）
B（2，2）
b（2，3）
b（2，4）
b（3，0）
b（3，1）
B（3，2）
b（3，3）
b（3，4）
Dimb（3，2to4,1to3）AsInteger
共分配4×
3×
3=36个元素，共72Byte
Option语句
OptionBase1
只能出现在窗体层或模块层
必须位于数组定义之前。
例:
……
Dima（10）AsInteger，x（5，5）AsString
每一维下标的下界均从1开始。
动态数组
运行时分配内存区，
定义分两步进行：
（1）先在窗体层、标准模块或过程中Dim或Public声明一个
没有下标的数组。
（2）过程中用ReDim语句定义带下标的数组。
声明时不指定数组的维数
数组的维数由第一次出现的ReDim语句指定。
DimTest（）AsInteger
DimnAsInteger
SubForm_click（）
n=InputBox（”Enteravalue:
”）
ReDimTest（n）
升级会员 