VB设计一个程序,求解3~100以内的全部素数，并以每行5个素数的形式输出3~100以内的全部素数。

Private Sub Command1_Click() Dim i As Integer, j As Integer, x As Integer For i = 3 To 100 x = 0 'i是素数的标记 For j = 2 To i - 1 '如在此范围内都不能整除，i就是素数 If i Mod j = 0 Then x = 1 '如整除了，就不是素数 Next j If x = 0 Then k = k + 1 Print