vb代碼大全
（一）實驗目的
學會綜合運用選擇結構、循環結構、數組和過程進行程序設計的方法。
（二）實驗內容
利用隨機函數產生80個10～99之間的隨機整數，將其中的偶數按由小到大的順序排列并輸出，將奇數按由大到小的順序排列并輸出；在產生的80個隨機整數中，找出其中的素數，并將這些素數求和。
（三）實驗要求
1．將隨機產生的80個整數存入數組，按每行10個數輸出到窗體或文本框中。
2．偶數和奇數也分別存入數組，將排好序的偶數和奇數分別輸出到窗體或兩個文本框中。
3．用Sub子過程或Function函數過程判斷隨機整數是否為素數。
4．將素數按每行10個數在窗體或文本框中輸出。
5．將素數的個數及求和結果輸出到窗體或文本框中。
6．界面由學生自行設計。
OptionExplicit
Functionfc(a)AsBoolean
DimiAsLong
Fori=2ToInt(a/2)
IfaModi=0Then
fc=False
ExitFor
Else
fc=True
EndIf
Nexti
EndFunction
PrivateSubForm_Click()
Dimi,j,k,m,s,g,fAsInteger
j=0
k=0
f=0
Dima(1To80)AsInteger
Dimb(1To80)AsInteger
Dimc(1To80)AsInteger
Dimd(1To80)AsInteger
Fori=1To80
a(i)=Int(Rnd()*100)
ifa(i)<10thena(i)=a(i)+10
Ifa(i)Mod2=0Then
j=j+1
b(j)=a(i)
Else
k=k+1
c(k)=a(i)
EndIf
Nexti
Fori=1Toj
Form=i+1Toj
Ifb(i)<b(m)Then
s=b(m)
b(m)=b(i)
b(i)=s
EndIf
Nextm
Nexti
Fori=1Tok
Form=i+1Tok
Ifb(i)<b(m)Then
s=c(m)
c(m)=c(i)
c(i)=s
EndIf
Nextm
Nexti
Fori=1To80
Iffc(a(i))=TrueThen
g=g+1
d(g)=a(i)
EndIf
Nexti
Print"隨機數："
Fori=1To80
f=f+1
Iff<11Then
Print""&a(i);
Else
f=1
Print""&a(i);
EndIf
Nexti
Print"偶數："
f=0
Fori=1Toj
f=f+1
Iff<11Then
Print""&b(i);
Else
f=1
Print""&b(i);
EndIf
Nexti
Print"奇數:"
f=0
Fori=1Tok
f=f+1
Iff<11Then
Print""&c(i);
Else
f=1
Print""&c(i);
EndIf
Nexti
Print"素數："
f=0
Fori=1Tog
f=f+1
Iff<11Then
Print""&d(i);
Else
f=1
Print""&d(i);
EndIf
Nexti
s=0
Print"素數個數："&g
Fori=1Tog
s=s+d(i)
Nexti
Print"素數總和："&s
EndSub