Question

VB语言：要求编写一个函数过程判断某数是否是素数

要求编写一个函数过程判断某数是否是素数。
12-2 编写程序，找出所有既是素数又是回文数的三位正整数。例如：131等
要求编写一个函数过程判断某数是否是素数。编写一个函数过程判断一个数是否是回文数。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, flg As Boolean, pd As Boolean
For i = 100 To 999
flg = sushu(i)
If flg = True Then
pd = huwen(i)
If pd = True Then
a = a + 1
Print i;
If a Mod 5 = 0 Then Print
End If
End If
Next i
End Sub

Private Function sushu(n As Integer) As Boolean
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i = n Then
sushu = True
Else
sushu = False
End If
End Function

Private Function huwen(n As Integer) As Boolean
If Left(n, 1) = Right(n, 1) Then
huwen = True
Else
huwen = False
End If
End Function