VB高手请进。希望前辈都能指教。多给几个程序。小弟在此谢过了。

Option Explicit

Option Base 1
Dim a%(80), b%(80), c%(80), d%(80)
Dim j%, k%, l%
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Text1.Text = "随机序列" & vbCrLf
Text2.Text = "偶数" & vbCrLf
Text3.Text = "奇数" & vbCrLf
Text4.Text = "素数" & vbCrLf
Text5.Text = "素数求和" & vbCrLf
j = 1
k = 1
l = 1
Randomize

For i = 1 To 80
a(i) = Int(Rnd * 90) + 10
If a(i) Mod 2 = 0 Then
b(j) = a(i)
j = j + 1
Else
c(k) = a(i)
k = k + 1
End If
Text1.Text = Text1.Text & a(i) & " "
If i Mod 10 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If

If IsPrimeNum(a(i)) = True Then
d(l) = a(i)
l = l + 1
sum = sum + a(i)
End If
Next i

Sort b, j - 2
Sort c, k - 2

For i = 1 To j - 1
Text2.Text = Text2.Text & b(i) & " "
If i Mod 10 = 0 Then
Text2.Text = Text2.Text & vbCrLf
End If
Next i

For i = 1 To k - 1
Text3.Text = Text3.Text & c(i) & " "
If i Mod 10 = 0 Then
Text3.Text = Text3.Text & vbCrLf
End If
Next i

For i = 1 To l - 1
Text4.Text = Text4.Text & d(i) & " "
If i Mod 10 = 0 Then
Text4.Text = Text4.Text & vbCrLf
End If
Next

Text5.Text = "素数求和:" & vbCrLf & sum
End Sub

Private Function IsPrimeNum(ByVal V As Integer) As Boolean
Dim i As Integer
IsPrimeNum = True
If V < 2 Then IsPrimeNum = False: Exit Function
For i = 3 To V - 1
If V Mod i = 0 Then
IsPrimeNum = False
Exit Function
End If
Next i
End Function

Private Sub Sort(dat() As Integer, Dl As Integer)
Dim x As Integer
Dim y As Integer
Dim t As Integer
For x = LBound(dat) To LBound(dat) + Dl
For y = x + 1 To LBound(dat) + Dl
If dat(x) < dat(y) Then
t = dat(x)
dat(x) = dat(y)
dat(y) = t
End If
Next y
Next x
End Sub

Private Sub Form_Load()
Me.Width = 6000
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

Text1.Width = 3000
Text2.Width = 3000
Text3.Width = 3000
Text4.Width = 3000
Text5.Width = 3000

End Sub

0分，一般来说懂的人也不会为了0分来把程序无私的奉献出来滴！！

哪怕是最简单的游戏，它的代码也是复杂的！！更何况并不是单独的代码就能简单完成一个游戏的编程的。。。。。