VB小结Word下载.docx
- 文档编号:22933134
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:46
- 大小:29.12KB
VB小结Word下载.docx
《VB小结Word下载.docx》由会员分享,可在线阅读,更多相关《VB小结Word下载.docx(46页珍藏版)》请在冰豆网上搜索。
“类型”可为基本数据类型或用户自定义的类型。
Boolean(布尔型)
Long(长整型)
Single(单精度型)
Double(双精度型)
String(字符串型)
Variant(变体型)
用户自定义类型
Dimstr1AsString,countryAsString*20
DimiAsInteger,sumAsSingle
定义变量后,数值型变量的初值为0
字符型变量的初值为空字符串
其中:
变长字符串的初值是长度为0
定长字符串的初值的长度等于定义值。
3.变体类型变量
如未定义类型的变量
DimsumAsVariant
Dimsum
运算符与表达式
1.算术运算符(8种)
优先级(从高到低):
指数(∧)
取负(-)
乘法、浮点除法(*,/)
整数除法(\)取整
取模(Mod)取余
加法、减法(+,-)。
整除:
被除数和除数为整数,结果为整数。
字符串表达式
字符串运算符:
&
或
+
把字符连接成一个字符串。
(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可以产生不同的随机数。
产生指定范围的随机数:
l
产生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
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)
EndSub
数组元素的引用
形式:
数组名(下标)
数组元素赋初值
运行前对数组进行初始化。
数组变量名=Array(初值表)
数组下标下界缺省为0,只能对一维数组初始化
【例】
DimaAsAsVariant
a=Array(1,2,3,4,5,6,7)
下标从0~6
【例】一维数组元素赋初值。
PrivateSubForm_Click()
DimaAsV
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 小结