实验内容 利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按

Question

Private Sub Command1_Click()
Dim s1, s2 As String
Randomize
Dim a(80) As Integer
For i = 1 To 80
a(i) = 10 + Int(Rnd * 90)
Next i
For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then
Print
End If
Next
For i = 1 To 79
For j = i + 1 To 80
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i

n = 0
For i = 1 To 80
If a(i) Mod 2 = 0 Then
s1 = s1 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s1 = s1 + Chr$(13) + Chr$(10)
End If
Next i
Print s1

n = 0
For i = 80 To 1 Step -1
If a(i) Mod 2 <> 0 Then
s2 = s2 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s2 = s2 + Chr$(13) + Chr$(10)
End If
Next i
Print s2
Print
For i = 1 To 80
fnprime (a(i))
Next

End Sub
Function fnprime(m As Integer) As Boolean
Dim k As Integer, f As Boolean
f = True
For k = 2 To m - 1
If m Mod k = 0 Then
f = False
End If
Next k
If f = True Then
Print m;
End If

End Function
我已经做到这了，请帮忙把素数每行10个输出，然后再输出素数的个数，急求呀
我要的是VB语言编程，不是C或C＋＋

Answer 1

Dim a%(1 to 80), i%, k%, t%, b%(1 to 80), c%(1 to 80)
Private Sub Command1_Click()
Me.Cls
Dim j As Integer
Randomize
t = 1
k = 1
For i = 1 To 80
a(i) = Int(Rnd * 90) + 10

If a(i) Mod 2 = 1 Then
b(k) = a(i)
k = k + 1
End If

If IsPrimeNum(a(i)) Then
c(t) = a(i)
t = t + 1
End If
Next i

Print "全部"

For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then Print
Next i

SortArray b, k - 1

Print "奇数"

For i = 1 To k - 1
Print b(i);
If i Mod 10 = 0 Then Print
Next i

Print

SortArray c, t - 1

Print "素数"

For i = 1 To t - 1
Print c(i);
If i Mod 10 = 0 Then Print
Next i
End Sub

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

End Function

Private Sub SortArray(arr() As Integer, ByVal size As Integer)
Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = 1 To size
For j = i + 1 To size
If arr(i) > arr(j) Then t = arr(i): arr(i) = arr(j): arr(j) = t
Next j
Next i

End Sub

追问

这个程序最后素数还是没有求和啊，跪求素数求和代码

Answer 2

Next k
If f = True Then
Print m;
End If
这里修

Dim j
If f = True Then
j=j+1;
if(j%10 == 0) Then
Print 回车（我也不知道vb的回车怎么输出，你自己加上去看看吧）
End If
Print m;
End If
Print j；