谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数.

Question

谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数.

Answer 1

素数(质数)：就是一个大于等于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 Sub