vb實現隨機生成100個整數，將其中的奇數由大到小排序，偶數由小到大排序，找出其中所有素數并求和

• 一.程序運行界面
• 二. 代碼部分
• • 1.全局變量的聲明
  • 2. 窗體內的代碼
  • • 1>生成100個隨機數
    • 2> 分開數組中的奇偶數分別放在兩個數組里，然后對奇數數組排序
    • 3>偶數數組排序
    • 4>找出數組中所有的素數
    • 5>計算素數個數及總合

一.程序運行界面

二. 代碼部分

1.全局變量的聲明

Public a(100) As Integer Public oA(100) As Integer Public jA(100) As Integer Public x As Integer Public y As Integer Public sA(100) As IntegerPublic z As Integer

2. 窗體內的代碼

1>生成100個隨機數

Private Sub Command1_Click() Dim n As IntegerDim str As StringFor i = 0 To 99a(i) = Int(Rnd() * 100 + 1)NextFor i = 1 To 100If i Mod 10 = 0 Thenstr = str & a(i - 1) & vbCrLfElsestr = str & a(i - 1) & vbTabEnd IfNextText1.Text = strx = 0:y = 0:z = 0Text2.Text = vbNullStringText3.Text = vbNullStringText4.Text = vbNullStringText5.Text = vbNullStringText6.Text = vbNullString End Sub

2> 分開數組中的奇偶數分別放在兩個數組里，然后對奇數數組排序

Private Sub Command2_Click()For i = 1 To 100If a(i - 1) Mod 2 = 0 ThenoA(x) = a(i - 1)x = x + 1ElsejA(y) = a(i - 1)y = y + 1End IfNextDim t As IntegerFor i = 0 To y - 1For j = i + 1 To y - 1If jA(i) > jA(j) Thent = jA(j)jA(j) = jA(i)jA(i) = tEnd IfNextNextFor i = 1 To yIf i Mod 6 = 0 ThenText2.Text = Text2.Text & jA(i - 1) & vbCrLfElseText2.Text = Text2.Text & jA(i - 1) & vbTabEnd IfNext End Sub

3>偶數數組排序

Private Sub Command3_Click()Dim t As IntegerFor i = 0 To x - 1For j = i + 1 To x - 1If oA(i) < oA(j) Thent = oA(j)oA(j) = oA(i)oA(i) = tEnd IfNextNextFor i = 1 To xIf i Mod 6 = 0 ThenText3.Text = Text3.Text & oA(i - 1) & vbCrLfElseText3.Text = Text3.Text & oA(i - 1) & vbTabEnd IfNext End Sub

4>找出數組中所有的素數

Private Sub Command4_Click()Dim boo As BooleanFor i = 0 To 99boo = TrueIf a(i) < 3 ThenIf a(i) = 0 Thenboo = FalseElseIf a(i) = 1 Thenboo = TrueElseIf a(i) = 2 Thenboo = FalseEnd IfElseFor j = 2 To a(i) - 1If a(i) Mod j = 0 Thenboo = FalseExit ForEnd IfNextEnd IfIf boo = True ThensA(z) = a(i)z = z + 1End IfNextFor i = 1 To zIf i Mod 6 = 0 ThenText4.Text = Text4.Text & sA(i - 1) & vbCrLfElseText4.Text = Text4.Text & sA(i - 1) & vbTabEnd IfNextEnd Sub

5>計算素數個數及總合

Private Sub Command5_Click() Dim s As IntegerFor i = 0 To z - 1s = s + sA(i)NextText5.Text = sText6.Text = z End Sub

總結

以上是生活随笔為你收集整理的vb实现随机生成100个整数，将其中的奇数由大到小排序，偶数由小到大排序，找出其中所有素数并求和的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。