问题描述：
vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
问题解答：
我来补答
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
再问： 怎么跟我学的不一样啊,好多看不懂啊
