又求一道VB题
(2) 程序填空题
tk482.frm的功能是:当按下“筛选法求100以内的素数”按钮时,在窗体上出现“显示出100以内的素
数”,并按每行10个数的格式显示出这些素数。程序不完整,请补充(1)、(2)空白处,以便能得到正确答案,但不得增删原语句。
代码:Private Sub Command1_Click()
Cls
Const N = 100
Dim i, j, Line, a(N) As Integer
For i = 0 To N - 1 '置初值
a(i) = (1) '此处有一空(1)
Next i
For i = 2 To Sqr(N)
For j = i + 1 To N
If a(i) <> 0 And a(j) <> 0 Then
If a(j) Mod a(i) = 0 Then a(j) = (2) '此处有一空(2)
End If
Next j
Next i
Print "显示出100以内的素数"
For i = 2 To N - 1
If a(i) <> 0 Then
Print a(i); Spc(1);
Line = Line + 1
End If
If Line <> 0 And Line Mod 10 = 0 Then Print '每行显示10个数
Next i
End Sub
Private Sub Form_Load()
End Sub
参考答案:(1)空填i;(2)空填0
程序如下:
Private Sub Command1_Click()
Cls
Const N = 100
Dim i, j, Line, a(N) As Integer
For i = 0 To N - 1 '置初值
a(i) = i '此处有一空(1)
Next i
For i = 2 To Sqr(N)
For j = i + 1 To N
If a(i) <> 0 And a(j) <> 0 Then
If a(j) Mod a(i) = 0 Then a(j) = 0 '此处有一空(2)
End If
Next j
Next i
Print "显示出100以内的素数"
For i = 2 To N - 1
If a(i) <> 0 Then
Print a(i); Spc(1);
Line = Line + 1
End If
If Line <> 0 And Line Mod 10 = 0 Then Print '每行显示10个数
Next i
End Sub