vb循环必须掌握经典算法Word格式.doc
- 文档编号:14618180
- 上传时间:2022-10-23
- 格式:DOC
- 页数:4
- 大小:38.50KB
vb循环必须掌握经典算法Word格式.doc
《vb循环必须掌握经典算法Word格式.doc》由会员分享,可在线阅读,更多相关《vb循环必须掌握经典算法Word格式.doc(4页珍藏版)》请在冰豆网上搜索。
r=IIf(n<
m,n,m)'
iif函数的用法参见课本67页
Fori=rTo1Step-1
IfnModi=0AndmModi=0Then
Printn&
"
"
&
m&
这两个数的最大公约是"
i
ExitFor
EndIf
Nexti
这两个数的最小公倍数是"
n*m/i
EndSub
2判断一个数是否为素数,假定概数是n
如果一个数是素数,那么它只能被1和它本身整除,所以该数除以2到n-1之间的所有余数都不为0,反之,该数除以2到n-1之间只要有一个余数为0,它就不是素数(这个时候就可以提前结束循环,肯定该数不是素数),所以循环的初值是2,终止时n-1,
从数学原理终止为n/2,spr(n)都可以,其中n-1>
n/2>
spr(n),所以终止为spr(n)的循环次数最少
如果是不素数提前结束循环,是素数,退出循环是循环变量的值不满足终止
Dimn%,i%
请输入一个数"
Fori=2Ton-1
IfnModi=0Then
不是素数"
Ifi=nThen
是素数"
不管这个数是否为素数,假定它是素数,用一个变量(一般用flag)记住它是素数的状态(flag=1),否则反之flag=0
Dimn%,i%,flag%
flag=1
flag=0
Ifflag=1Then
Else
3找出1到300之间的所有素数,并且5个一行输出
n=0
Forj=3To300
Fori=2Toj-1
IfjModi=0Then
Printj;
n=n+1
IfnMod5=0ThenPrint
Nextj
4例4-12教材80页,求
把dowhilet>
0.000001改成1//t>
0.000010
5求1+3+5+7+……+100的和
Dimi%,sum%
sum=0
Fori=1To100Step2
sum=sum+i
Print"
1+3+....+100="
sum
6.求1!
+2!
+3!
+…..10!
之和
Dimi%,sum!
f!
‘注意这里定义为单精度,否则产生错误
f=1
Fori=1To10
f=f*i
sum=sum+f
1!
+....+10!
="
7打印九九乘法表.
Dimi%,j%
Fori=1To9
Forj=1To9
se=i&
×
"
j&
i*j
PrintTab((j-1)*9+1);
se;
Nextj
Print'
每输入完一行,打印换行,继续输出下一行
Nexti
打印下三角九九乘法表
Forj=1Toi
打印上三角九九乘法表
Forj=iTo9
8.猴子吃桃子。
小猴在某天摘桃若干个,当天吃掉一半,觉得还不过瘾,又多吃了一个;
第二天吃了剩下的桃子的一半多一个;
以后每天都这样吃下去,直到第7天要吃时只剩下一个,问小猴子第一天共摘下了多少个桃子?
Dimn%,i%
x=1'
第7天的桃子
Print"
第7天的桃子数为:
1只"
Fori=6To1Step-1
x=(x+1)*2
第"
;
i;
天的桃子数为:
x;
只"
Nexti
9.Fibonacci序列,序列为1,1,2,3,5,8……..输入该序列的前30项,并且五个一行输出
Dimi%,f1!
f2!
f3!
f1=1'
给第一项赋值
f2=1'
给第二项赋值
Printf1;
Space(3);
f2;
Fori=3To20Step1
f3=f1+f2
Printf3;
Space(5);
IfiMod5=0ThenPrint
f1=f2
f2=f3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 循环 必须 掌握 经典 算法
![提示](https://static.bdocx.com/images/bang_tan.gif)