素数(质数):就是一个大于等于2的整数,并且只能被1和本身整除,而不能被其他整数整除的数. 在窗体上画一个命令按钮和一个文本框~清空文本框中内容 在代码窗口编写如下代码 Private Function sushu(ByVal n As Long) As Boolean Dim i As Long For i = 2 To n - 1 If (n Mod i) = 0 Then Exit For Next i If i = n Then sushu = True End Function Private Sub Command1_Click() Dim j As Integer j = Val(Text1.Text) If sushu(j) = True Then Print "输入的是素数" Else:Print "输入的不是素数" End If End Su