Question

vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数

Answer 1

Module module3

Sub Main()

Dim num As Integer

Dim i As Integer

Console.Write("请输入一个正整数：")

num = Integer.Parse(Console.ReadLine())

While IsPrimeNumber(num) = False

num += 1

End While

Console.WriteLine(num)

End Sub

'判断一个整数是否是素数

Function IsPrimeNumber(ByVal num As Integer) As Boolean

Dim i,k As Integer

If num < 2 Then

Return False

End If

If num = 2 Then

Return True

End If

k = Math.Sqrt(num)

For i = 2 To k

If num Mod i = 0 Then

Return False

End If

Next

Return True

End Function

End Module