VB常用算法总结.docx
《VB常用算法总结.docx》由会员分享，可在线阅读，更多相关《VB常用算法总结.docx（9页珍藏版）》请在冰点文库上搜索。
VB常用算法总结
VB常用算法总结
一、变量值的交换
算法思想:
若交换两个变量的值,必须引入第三个新的变量进行传递。
以下代码是错误的:
X=12:
Y=34:
X=Y:
Y=X
正确的代码是:
X=12:
Y=23:
T=X:
X=Y:
Y=T
二、判断一个数是否能被另一个数整除
算法思想:
可以用整除的定义（余数为0）或X除以Y等于X整除Y等表达式进行判断。
条件表达式可以为:
XmodY=0或X\Y=X/Y或Int（X/Y）=X/Y
如果以上条件表达式为True,则表示X能被Y整除。
三、累加、阶乘、计数和求平均值
算法思想:
使用循环语句,并用一个变量存放累加的中间及最终结果。
注:
累加求和时变量初值为0,计算阶乘时变量初值为1。
统计计个数（计数）时可用一个变量作为统计个数的累加变量,每次加1即可。
求平均值算法思想是先求和,再除以个数。
条件求和（或计数）:
在循环语句中加入If-EndIf判断语句。
例题:
计算1到10之间所有整数的累加和以及10!
。
n=10
sum=0‘累加求和时,变量的初值一定为0
prod=1‘累乘（连乘）时,变量的初值一定为1
Fori=1Ton
sum=sum+i
prod=prod*i
Nexti
Printsum,prod
例题:
统计0—100之间能被3整除的数的个数、累加和及其平均值。
s=0
n=0
Fori=0To100
Ifimod3=0Then
s=s+i
n=n+1
EndIf
Nexti
Printn,s,s/n
四、随机数的产生
[a,b]之间的随机整数
Int（（b-a+1）*rnd）+a
（a,b）随机数
（b-a）*rnd+a
五、求若干个数中最大值或最小值
六、常用字符处理函数
Mid函数:
从字符串指定位置取指定个字符,格式为Mid（字符,p,n）,从第p个字符开始,向后截取n个字符（若n省略则取到最后）。
Left和Right函数:
从字符串左边或右边取指定个字符,格式为Left（字符,n）和Right（字符,n）。
Len函数:
测试字符串长度。
UCase和LCase函数:
UCase将小写字母转换为大写字母;LCase将大写字母转换为小写字母。
Instr（[首字符位置,]字符串1,字符串2[,n]）:
在字符串1中查找字符串2,如果找到,返回字符串2的第一个字符在字符串1中出现的位置。
首字符位置是可选的,如果不指定,从字符串起始位置开始查找;如果指明,从指定的位置开始查找。
Asc函数:
返回字符串中第一个字符的ASCII码。
Chr函数:
将一个数值转换为其所对应的字符。
字符的比较规则是按ASCII码顺序比较,规则为空格<”A”~”Z”<”a”~”z”
小写字母的ASCII比大写字母的ASCII小32。
例题:
1.将所有文本转换为大写（小写）字母
可以直接使用UCase（LCase）函数转换。
例如:
Text2.Text=UCase（Text1.Text）
2.对某个字符串的所有字符逐一处理
算法思想:
如果对某个字符串的所有字符逐一处理,即从字符串的第1个字符开始到最后一个字母,每次处理1个字符。
可以使用For循环实现。
通用代码为:
Fori=1ToLen（s）
s1=Mid（s,i,1）
……
Nexti
3.字符转换
算法思想:
通过字符的ASCII码进行处理（使用Asc函数）,然后再使用Chr函数将ASCII转换成字符。
例题:
将文本框Text1中字符按如下规律转换a-b、b-c……z-a,并显示在文本框Text2中。
s=Text1.Text
n=Len（s）
Fori=1Ton
s1=Mid（s,i,1）
Ifs1>="a"Ands1<="y"Then
s2=s2+Chr（Asc（s1）+1）
ElseIfs1="z"Then
s2=s2+"a"
EndIf
Nexti
Text2.Text=s2
例题:
将文本框Text1中的小写字母转换其对应的大写字母,将大写字母转换成小写字母,并显示在文本框Text2中。
PrivateSubCommand1_Click（）
s=Text1.Text
n=Len（s）
m=Asc（"a"）-Asc（"A"）
Fori=1Ton
s1=Mid（s,i,1）
Ifs1>="a"Ands1<="z"Then
s2=s2+Chr（Asc（s1）-m）
EndIf
Ifs1>="A"Ands1<="Z"Then
s2=s2+Chr（Asc（s1）+m）
EndIf
Nexti
Text2.Text=s2
EndSub
5.统计某字符出现次数
算法思想:
对字符串中字符逐一判断,如果是某字符,则统计变量加1。
例题:
统计文本框Text1中字符i和j出现的次数（不区分大小写）。
PrivateSubCommand1_Click（）
s=Text1.Text
n=Len（s）
Fori=1Ton
s1=Mid（s,i,1）
IfUCase（s1）="I"Thenni=ni+1
IfUCase（s1）="J"Thennj=nj+1
Nexti
Printni,nj
EndSub
八、素数
素数定义:
只能被1和本身整除的正整数称为素数（或称质数）。
例如11就是素数,它只能被1和11整除。
算法思想:
判别某数n是否是素数的方法有很多,最简单的是从素数的定义来求解。
对于n,从i=2,3,…,n-1判别n能够被i整除,只要有一个能整除,n就不是素数,否则n是素数。
此种算法比较简单,但速度慢,因此,可以将n被2到（或n/2）间的所有整数除,如果都除不尽,则n就是素数,否则n是非素数。
注:
执行For循环时,循环变量等于终值仍进入循环,遇到Next语句,循环变量会自动加上步长,因此如果循环正常完成后,循环变量的值将大于终值。
例如:
Fori=1To4
If……ThenExitFor
Nexti
Printi
如果循环正常结束,则输出结果为5（大于4）。
如果循环过程中满足If条件,执行ExitFor语句退出循环,则i的值一定小于5。
例题:
判断n是否是素数。
PrivateSubCommand2_Click（）
n=Val（Text1.Text）
Forj=2Ton-1
IfnModj=0ThenExitFor
Nextj
Ifj>n-1ThenPrint"是素数"ElsePrint"不是素数"
EndSub
例题:
输出2~n范围的全部素数。
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Fori=2Ton
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr（i）ThenPrinti
Nexti
EndSub
使用DoWhile循环判断是否是素数
九、最大公约数和最小公倍数
算法思想:
（1）对于已知两数x、y,使得x>y
（2）x除以y得余数r;
（3）若r=0,则x为求得的最大公约数,算法结束;否则执行步骤（4）
（4）x←y,y←r,再重复执行
（2）
求得了最大公约数后,最小公倍数就可很方便地求出,即将原来的两数相乘除以最大公约数。
PrivateSubForm_Click（）
x=Val（InputBox（"请输入第一个数:
"））
y=Val（InputBox（"请输入第二个数:
"））
Ifxt=x
x=y
y=t
EndIf
x1=x
y1=y
Printx,y
DoWhiley<>0
r=xMody
x=y
y=r
Loop
Print"最大公约数为:
";x
Print"最小公倍数为:
";x1*y1/x
EndSub
十、水仙花数
定义:
“水仙花数”是指一个三位数,其中各位数字的立方和等于该数本身（如153=13+53+33）
分析:
此题的关键是要知道如何分离出一个三位数中的各位数字。
例题:
找出100~999之间的所有“水仙花数”。
PrivateSubCommand1_Click（）
Fori=100To999
a=Int（i/100）
b=Int（（i-100*a）/10）
c=i-Int（i/10）*10
Ifi=a^3+b^3+c^3Then
Printi
EndIf
Nexti
EndSub
PrivateSubCommand1_Click（）
Forn=100To999
s=0
a=n
DoWhilea<>0
b=aMod10
s=s+b*b*b
a=a\10
Loop
Ifs=nThenPrintn
Nextn
EndSub
十一、斐波那切数列的输出
该数列前两项为1,1从第三项开始,an=an-1+an-2
十二、进制转换
十三、三个数排序
十四、分段函数
十五、图形输出（双重循环）
十六、百鸡百钱问题
十七、迭代法P116页
十八、输入a,b,c,的值,求方程ax2+bx+c=0的解。
注意:
对象只考文本框、标签、命令按钮和窗体。
本学期计算机基础及VB程序设计复习指导如下:
1、计算机基础的50道复习题,试卷上占20分,选择15题,填空5题。
2、VB习题集第一到五章控制结构的课后习题及试题解析（其中,控件只考窗体、文本框、标签、命令按钮）试卷上占40分。
3、经典算法。
占40分。
升级会员 