经典算法程序实现15(常见算法).docx

1 / 4
经典算法程序实现２018
（综合练****br/>班级:_＿＿____＿_＿姓名:＿___＿_____
1．用随机函数产生10０个[0,９9］范围内的随机整数，统计个位上的数字分别为1,2,３,4,5，6,７,8,９，０的数的个数并打印出来。
Pubｌｉc Ｓuｂ　GeｔTJｐut(）
Ｄｉｍ a（1 To　１0０) As　Inｔeｇeｒ
Ｄim x(1　Ｔo １０) As Iｎｔeｇer
Ｄiｍ ｉ Ａs　Ｉｎteger, p As Intｅgｅr
'产生100个[0,９9]范围内的随机整数
Foｒ　i　= 1　Tｏ １0０
ａ(i) =　Ｉnt(Ｒnd ＊　１0０)
Iｆ ａ(ｉ) <　10 Thｅn
= Laｂ1．Cａｐｔion & "　" & Str（ａ(i))
Eｌｓｅ
＝ Ｌab1．Ｃaptiｏn ＆　Str(ａ(i))
Ｅnd Iｆ
'每行１０个在标签Ｌab１显示出来
Iｆ _＿__＿＿___＿____ Tｈｅn
ﻩ' 字符串常量VbCrLf的作用:换行
Ｌab１．Capｔｉoｎ=　 &　VbCｒLf
　 Ｅnd Iｆ
Neｘｔ ｉ
'统计个位上的数字分别为1,２，3，4,５，6，7，8,９,0
'的数的个数，并将统计结果保存在数组x(1）,x（2)，．.．，ｘ(10)
＇中,将统计结果在标签Lab2显示出来
Fｏｒ i ＝ 1 Ｔｏ 100
ｐ =_________＿___＿ 　＇求个位上的数字
Iｆ p　＝ 0　Thｅn　p = １0
x(p) ＝＿___＿＿＿___＿_＿＿
Next i
Ｌab２．Cａptiｏn＝"统计结果"
For　i　= 1 To 10
p　= ｉ
If　i　= 1０ Ｔhｅn _______＿_____
=　Lａb2．Cａptｉon　&　"个位数为"+　_ﻫSｔr(p)　+　"共" + Str(ｘ(ｉ)） + "个＂
Ｎｅｘｔ　i
Enｄ Sub
2. 哥德巴赫猜想：任意一个大于等于6的偶数都可以分解为两个素数之和。
基本思想:n为大于等于６的任一偶数,可分解为n１和n2两个数,分别检查ｎ１和ｎ２是否为素数,如都是,则为一组解。如ｎ1不是素数,就不必再检查ｎ２是否素数。先从ｎ１=3开始，检验ｎ1和n２（n２＝N-n１)是否素数。然后使ｎ1+2 　再检验n1、n２是否素数，… 直到ｎ1=ｎ/2为止。
’　Priｍe函数功能：若为素数返回Tｒue,不是则返回False
Fｕｎctｉon Prｉmｅ(　m as Iｎｔegｅr) Aｓ _＿_______＿___
Dim 　i Ａs　Iｎｔｅｇer
_＿_＿____＿＿___
Fｏｒ ｉ＝2　Tｏ ｉｎt（ｓqｒ（m)）
If　m　Mod ｉ = 0 Then　Prｉme＝False:　Exit　Ｆoｒ
Nｅxｔ i
Enｄ Fｕnctｉon
’利用上面的Priｍe函数,验证哥德巴赫猜想
Dim　　ｎ Ａｓ Ｉntｅger,n１ Aｓ Ｉntegｅr,n２ Aｓ Inｔｅｇeｒ
ｎ=Ｖaｌ(ＩnｐuｔＢox("输入大于6的正整数＂）)
Ｆor n１=3 to