鍒╃敤闅忔満鍑芥暟浜х敓80涓?0锝?9涔嬮棿鐨勯殢鏈烘暣鏁帮紝灏嗗叾涓殑鍋舵暟鎸夌敱灏忓埌澶х殑椤哄簭鎺掑垪骞惰緭鍑猴紝灏嗗鏁版寜鐢卞ぇ鍒板皬鐨勯『搴忔帓鍒楀苟杈撳嚭锛涘湪浜х敓鐨?0涓殢鏈烘暣鏁颁腑锛屾壘鍑哄叾涓殑绱犳暟锛岃姹傦細灏嗛殢鏈轰骇鐢熺殑80涓暣鏁板瓨鍏ユ暟缁勶紝鎸夋瘡琛?0涓暟杈撳嚭鍒扮獥浣撴垨鏂囨湰妗嗕腑銆?/p>
2锛庡伓鏁板拰濂囨暟涔熷垎鍒瓨鍏ユ暟缁勶紝灏嗘帓濂藉簭鐨勫伓鏁板拰濂囨暟鍒嗗埆杈撳嚭鍒扮獥浣撴垨涓や釜鏂囨湰妗嗕腑銆?/p>
3锛庣敤Sub瀛愯繃绋嬫垨Function鍑芥暟杩囩▼鍒ゆ柇闅忔満鏁存暟鏄惁涓虹礌鏁般€?/p>
4锛庡皢绱犳暟鎸夋瘡琛?0涓暟鍦ㄧ獥浣撴垨鏂囨湰妗嗕腑杈撳嚭銆?/p>5锛庡皢绱犳暟鐨勪釜鏁板強姹傚拰缁撴灉杈撳嚭鍒扮獥浣撴垨鏂囨湰妗嗕腑
答案：Dim a(80), b, c, d, f, h
Public Function ss()
c = 0
Print "绱犳暟鏄?"
For b = 1 To 80
If a(b) Mod 2 <> 0 And a(b) Mod 3 <> 0 And a(b) Mod 5 <> 0 And a(b) Mod 7 <> 0 Then
Print a(b);
d = d + a(b)
c = c + 1
If c Mod 10 = 0 Then
End If
End If
Next
Print "绱犳暟涓暟鏄?" & c
Print "绱犳暟鐨勫拰鏄?" & d
End FunctionPrivate Sub Command1_Click()
Cls
Print "浜х敓80涓?0锝?9涔嬮棿鐨勯殢鏈烘暣鏁版槸:"
Randomize
For b = 1 To 80 '闅忔満鍑芥暟浜х敓80涓?0锝?9涔嬮棿鐨勯殢鏈烘暣鏁?br>a(b) = Int((Rnd * 90) + 10)
Print a(b);
If b Mod 10 = 0 Then
End If
Next
'鍋舵暟鐢卞皬鍒板ぇ
For b = 1 To 80
For c = b To 80
If a(c) > a(b - 1) Then
d = a(b - 1)
a(b - 1) = a(c)
a(c) = d
End If
Next
Next
Print "鍋舵暟鐢卞皬鍒板ぇ"
For b = 1 To 80
If a(b) Mod 2 = 0 Then
Print a(b);
f = f + 1
If f Mod 10 = 0 Then
End If
End If
Next
'濂囨暟澶у埌灏?br>For b = 1 To 80
For c = b To 80
If a(c) < a(b - 1) Then
d = a(b - 1)
a(b - 1) = a(c)
a(c) = d
End If
Next
Next
Print "濂囨暟澶у埌灏?
For b = 1 To 80
If a(b) Mod 2 <> 0 Then
Print a(b);
h = h + 1
If h Mod 10 = 0 Then
End If
End If
Next
ss '璋冪敤Function鍑芥暟杩囩▼
End SubPrivate Sub Command1_Click()
Dim i, j, s, nb, nc, nd, nn, a(80), b(80), c(80), d(8) As Integer
For i = 1 To 80
a(i) = 99 - Int(Rnd * (99 - 10))
Next
Print "闅忔満浜х敓鐨?0涓?0锝?9涔嬮棿鐨勬暣鏁帮細"
For i = 1 To 80 Step 10
For j = 0 To 9
If i + j > 80 Then Exit For
Print a(i + j),
Next
Next
nb = 0
nd = 0
For i = 1 To 80
If a(i) Mod 2 <> 0 Then
nb = nb + 1
b(nb) = a(i) ' 濂囨暟
Else
nd = nd + 1
d(nd) = a(i) ' 鍋舵暟
End If
Next
For i = 1 To nd
For j = i + 1 To nd
If d(i) > d(j) Then
s = d(i)
d(i) = d(j)
d(j) = s
End If
Next
Next
Print "浠庡皬鍒板ぇ鎺掑簭鐨勫伓鏁帮細"
For i = 1 To nd Step 10
For j = 0 To 9
If i + j > nd Then Exit For
Print d(i + j),
Next
Next
For i = 1 To nb
For j = i + 1 To nb
If b(i) < b(j) Then
s = b(i)
b(i) = b(j)
b(j) = s
End If
Next
Next
Print "浠庡ぇ鍒板皬鎺掑簭鐨勫鏁帮細"
For i = 1 To nb Step 10
For j = 0 To 9
If i + j > nb Then Exit For
Print b(i + j),
Next
Next
nc = 0
nn = 0
For i = 1 To 80
If f(a(i)) = True Then
nc = nc + 1
c(nc) = a(i) 鈥?绱犳暟
nn = nn +c(nc)
End If
Next
Print "绱犳暟鍏憋細" & Format(nc) & " 涓紝绱犳暟涔嬪拰涓猴細" & Format(nn)
For i = 1 To nc Step 10
For j = 0 To 9
If i + j > nc Then Exit For
Print c(i + j),
Next
Next
End Sub
Function f(ByVal n As Integer) As Boolean 鈥?鍒ゆ柇鏄惁涓虹礌鏁扮殑鍑芥暟
' 鑻ヤ负绱犳暟锛屽垯杩斿洖True锛涘惁鍒欙紝杩斿洖False
Dim i As Integer
Dim s As Boolean
If n <= 1 Then
f = False
Exit Function
End If
If n = 2 Then
f = True
Exit Function
End If
For i = 2 To n - 1
If n Mod i = 0 Then
f = False
Exit Function
End If
Next
f = True
End Function
璇炬湰涓婂氨鑳芥壘鍒扮殑涓滆タ锛岃繕鏄嚜宸辨壘鎵惧惂銆傘€傘€?/p>
Rnd() '闅忔満鏁板嚱鏁?/p>
鐢熸垚鏌愪釜鑼冨洿鍐呯殑闅忔満鏁存暟锛屽彲浣跨敤浠ヤ笅鍏紡锛?nbsp;
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
杩欓噷锛寀pperbound 鏄殢鏈烘暟鑼冨洿鐨勪笂闄愶紝鑰? lowerbound 鍒欐槸闅忔満鏁拌寖鍥寸殑涓嬮檺銆?/p>"鐢卞皬鍒板ぇ鐨勯『搴忔帓鍒?鐢卞ぇ鍒板皬鐨勯『搴忔帓鍒? 瑕佺敤鍒版暟缁勫啋娉℃帓搴忎簡
鐢熸垚闅忔満鏁扮殑澶氬皯,鍒ゆ柇鏄惁"鍋舵暟","濂囨暟","绱犳暟"鍙婂瓨鍏ョ浉搴旀暟缁勮繖涓啓娈靛垽鏂▼搴忓惂
