1 / 11
文档名称:

VB编程用经常要要用到的算法.doc

格式:doc   大小:40KB   页数:11页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB编程用经常要要用到的算法.doc

上传人:xunlai783 2018/11/23 文件大小:40 KB

下载得到文件列表

VB编程用经常要要用到的算法.doc

相关文档

文档介绍

文档介绍:算法(Algorithm):计算机解题基本思想思路方法和步骤算法描述:是对要解决个问题或要完成项任务所采取思路方法和步骤描述包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等通常使用自然语言、结构化流程图、伪代码等来描述算法
1、计数、求和、求阶乘等简单算法
此类问题都要使用循环要注意根据问题确定循环变量初值、终值或结束条件更要注意用来表示计数、和、阶乘变量初值
例:用随机产生100个[099]范围内随机整数统计个位上数字分别为1234567890数个数并打印出来
本题使用来处理用a(1 to 100)存放产生确100个随机整数x(1 to 10)来存放个位上数字分别为1234567890数个数即个位是1个数存放在x(1)中个位是2个数存放在x(2)中……个位是0个数存放在x(10)
将编写在个GetTJput过程中代码如下:
Public Sub GetTJput
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer, p As Integer
\'产生100个[099]范围内随机整数每行10个打印出来
For i = 1 To 100
a(i) = Int(Rnd * 100)
If a(i) < 10 Then
Space(2); a(i);
Else
Space(1); a(i);
End If
If i Mod 10 = 0 Then
Next i
\'统计个位上数字分别为1234567890数个数并将统计结果保存在x(1),x(2),...,x(10)中将统计结果打印出来
For i = 1 To 100
p = a(i) Mod 10 \' 求个位上数字
If p = 0 Then p = 10
x(p) = x(p) + 1
Next i
\"统计结果\" For i = 1 To 10
p = i
If i = 10 Then p = 0
\"个位数为\" + Str(p) + \"共\" + Str(x(i)) + \"个\"
Next i
End Sub

2、求两个整数最大公约数、最小公倍数[Page]
分析:求最大公约数算法思想:(最小公倍数=两个整数的积/最大公约数)
(1) 对于已知两数mn使得m>n;
(2) m除以n得余数r;
(3) 若r=0则n为求得最大公约数算法结束;否则执行(4);
(4) m←nn←r再重复执行(2)
例如: 求 m=14 ,n=6 最大公约数. m n r
14 6 2
6 2 0
m=inputBox(\"m=\")
n=inputBox(\"n=\")
nm=n*m
If m < n Then t = m: m = n: n = t
r=m mod n
Do While (r <> 0)
m=n
n=r
r= m mod n
Loop
Pr \"最大公约数=\", n
Pr \"最小公倍数=\", nm/n
3、判断素数
只能被1或本身整除数称为素数基本思想:把m作为被除数将2—INT()作为除数如果都除不尽m就是素数否
则就不是(可用以下段实现)
m =val( InputBox(\"请输入个数\"))
For i=2 To (sqr(m))
If m Mod i = 0 Then Exit For
Next i
If i > (sqr(m)) Then

Pr \"该数是素数\"
Else[Page]
Pr \"该数不是素数\"
End If
将其写成,若为素数返回True不是则返回False
Private Function Prime( m as Integer) As Boolean
Dim i%
Prime=True
For i=2 To (sqr(m))
If m Mod i = 0 Then Prime=False: Exit For
Next i
End Function



4、验证哥德巴赫猜想
(任意个大于等于6偶数都可以分解为两个素数的和)
基本思想:n为大于等于6任偶数可分解为n1和n

最近更新

通信原理第六章 64页

国有土地租赁协议(标准版) 7页

土地使用权出让(转让)合同公证书新(标准版) 3页

增值税法公开课获奖课件赛课一等奖课件 171页

基建工程监理聘用合同样本(标准版) 5页

外销合同样本(标准版) 8页

咨询行业的腾飞-抓住机遇 迎接挑战 26页

咨询服务销售技巧-销售经理的培训演讲 27页

S421铁路乘车证的使用与违章处理 25页

卓越服务,无可比拟-行业领先餐厅服务体验 26页

医疗器械推广-双十二营销策划-销售代表或市场.. 24页

苏东坡一生足迹公开课获奖课件赛课一等奖课件.. 7页

送别诗中常见意象 32页

细胞重组与细胞融合公开课获奖课件赛课一等奖.. 50页

追梦赤子心歌词 9页

《学案与测评》2021届高考英语总复习-语法提升.. 18页

主要电气设备及其符号 18页

创新游乐园活动策划-激发游客兴趣,增强活动曝.. 23页

浙江省山海联盟协作学校2024-2025学年下学期七.. 12页

项目融资的投资结构公开课获奖课件赛课一等奖.. 52页

农田水资源管理-提高农田灌溉效率 31页

农业专科教育-农业专科教育介绍 23页

养老保险投资良策-优化资产配置,实现保值增值.. 22页

猪的杂交优势利用公开课获奖课件赛课一等奖课.. 20页

架桥机安全验收表标准化用表 2页

1000以内加减法混合计算带答案 20页

译林八年级下册英语书答案 4页

近五年高考化学试题解析(化学平衡) 10页

美国加州交通法规 5页

个人自我诊断SWOT表格 3页