vb编程 输入一个数看看是不是质数,要用IsPrime这个方程Prime NumbersA prime number is a number that can be evenly divided by only itself and 1.Forexample,the number 5 is prime because it can be evenly divided by only 1 and 5.Thenumber
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 17:06:41
![vb编程 输入一个数看看是不是质数,要用IsPrime这个方程Prime NumbersA prime number is a number that can be evenly divided by only itself and 1.Forexample,the number 5 is prime because it can be evenly divided by only 1 and 5.Thenumber](/uploads/image/z/8623582-70-2.jpg?t=vb%E7%BC%96%E7%A8%8B+%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B0%E7%9C%8B%E7%9C%8B%E6%98%AF%E4%B8%8D%E6%98%AF%E8%B4%A8%E6%95%B0%2C%E8%A6%81%E7%94%A8IsPrime%E8%BF%99%E4%B8%AA%E6%96%B9%E7%A8%8BPrime+NumbersA+prime+number+is+a+number+that+can+be+evenly+divided+by+only+itself+and+1.Forexample%2Cthe+number+5+is+prime+because+it+can+be+evenly+divided+by+only+1+and+5.Thenumber)
vb编程 输入一个数看看是不是质数,要用IsPrime这个方程Prime NumbersA prime number is a number that can be evenly divided by only itself and 1.Forexample,the number 5 is prime because it can be evenly divided by only 1 and 5.Thenumber
vb编程 输入一个数看看是不是质数,要用IsPrime这个方程
Prime Numbers
A prime number is a number that can be evenly divided by only itself and 1.For
example,the number 5 is prime because it can be evenly divided by only 1 and 5.The
number 6,however,is not prime because it can be evenly divided by 1,2,3,and 6.
Write a Boolean function named IsPrime which takes an integer as an argument
and returns true if the argument is a prime number or false otherwise.Use the func-
tion in an application that lets the user enter a number and then displays a message
indicating whether the number is prime.
vb编程 输入一个数看看是不是质数,要用IsPrime这个方程Prime NumbersA prime number is a number that can be evenly divided by only itself and 1.Forexample,the number 5 is prime because it can be evenly divided by only 1 and 5.Thenumber
Private Function isPrime(intIndicated As Integer) As Boolean
If intIndicated >= 2 Then
isPrime = True
For i = 2 To intIndicated - 1
If intIndicated Mod i = 0 Then isPrime = False: Exit For
Next i
Else
isPrime = False
End If
End Function
Private Sub Command1_Click()
Dim intInput As Integer
intInput = InputBox("Please enter a integer :", "Enter a number")
If isPrime(intInput) Then
MsgBox intInput & " is a prime number."
Else
MsgBox intInput & " is NOT a prime number."
End If
End Sub
另外,你用的是VB6还是.NET,我上面是按VB6写的.