Private arr(100) As Integer
Public Function prime(x As Integer)
k = Int(Sqr(x) + 0.5)
For i = 2 To k
If x Mod i = 0 Then
prime = False
Exit Function
End If
Next
prime = True
End Function
Private Sub Command1_Click()
Open App.Path & "\in5.txt" For Input As #1
For i = 1 To 40
Input #1, arr(i)
Next
Close #1
End Sub
Private Sub Command2_Click()
'=================考生编写程序开始===================
'要求:显示素数个数和最小素数
'=================考生编写程序结束====================