vb素数经典编程.docVIP

Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim f As Boolean n = Val(Text1.Text) f = True For i = 2 To n - 1 If n Mod i = 0 Then f = False End If Next If f = True Then Text2.Text = 素数 Else Text2.Text = 不是素数 End If End Sub Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim f As Boolean n = Val(Text1.Text) f = True For i = 2 To n - 1 If n Mod i = 0 Then f = False Next If f Then Text2.Text = 素数 Else Text2.Text = 不是素数