Vb编程:求100-999之间的所有素数
问题描述:
Vb编程:求100-999之间的所有素数
求100-999之间的所有素数,并在窗体上输出
要求:自定义一个过程判断一个数是否是素数
(答案正确追加30以上)
答
Private Sub Command1_Click()For i = 100 To 999If IsPrime(i) Thenn = n + 1Print i;If n Mod 10 = 0 Then PrintEnd IfNext iEnd SubPublic Function IsPrime(ByVal num As Long) As BooleanDim m As Longm = Sqr(...