作业帮找出100到200的无暇素数无暇素数是一个数的逆序数也是素数大神们帮我把
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 07:32:27
找出100到200的无暇素数无暇素数是一个数的逆序数也是素数大神们帮我把
找出100到200的无暇素数
无暇素数是一个数的逆序数也是素数
大神们帮我把
找出100到200的无暇素数无暇素数是一个数的逆序数也是素数大神们帮我把
Text1.Text = ""
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 100 To 200
A = i \ 100
B = (i Mod 100) \ 10
C = i Mod 10
D = C * 100 + B * 10 + A
k = 0
If D > i Then
h = D
Else
h = i
End If
For j = 2 To (i \ 2)
If (i Mod j = 0) Then
k = k + 1
End If
Next j
If k = 0 Then
For j = 2 To (D \ 2)
If (D Mod j = 0) Then
k = k + 1
End If
Next j
If k = 0 Then Text1.Text = Text1.Text + CStr(i) + vbTab + CStr(D) + vbNewLine
End If
Next i
放个text和command就会显示了