一、改错题（17分）
[题目]下面程序的功能是：找出1~300之间的三个相邻整数N、N+1和N+2，且每个整数均为两个素数的乘积。本题程序界面见图所示。
[要求]
1、新建工程，输入上述代码，改正程序中的错误；
2、改错时，不得增加或删除语句，但可适当调整语句位置；
3、将窗体文件和工程文件分别命名为F1和P1并保存。
Option Explicit
Private Sub Command1_Click()
Dim P() As Integer, I As Integer, N(3) As Integer
Call Prime(P, 150)
For I = 1 To 300
If Compare(P, I) Then
List1.AddItem I & " , " & I + 1 & " , " & I + 2
End If
Next I
End Sub
Private Sub Prime(P() As Integer, N As Integer)
Dim I As Integer, K As Integer, Idx As Integer
For I = 2 To N
For K = 2 To Sqr(I)
If I Mod K = 0 Then Exit For
Next K
If K > Sqr(I) Then
Idx = Idx + 1
ReDim P(Idx)
P(Idx) = I
End If
Next I
End Sub
|
