Dim a(80) As Integer, sum As Integer Dim i!, j!, k! Dim t As Boolean Randomize For i = 0 To 79 a(i) = Int(89 * Rnd + 10) t = 1 For j = 2 To a(i) - 1 If a(i) Mod j = 0 Then t = 0 Next j If t Then sum = sum + a(i) k = k + 1 Print a(i); If k Mod 10 = 0 Then Print End If Next i Print Print "素数个数为:" & k Print "和为:" & sum