Question

VB编程。。跪求100~999的回文数素数！

跪求VB大神的代码。。。要简单易懂！！！跪求。。。。。要VB代码。。。！！！！！

Answer 1

Private Sub Form_click()
Dim i As Integer, n As Integer
For i = 100 To 999
If Left(i, 1) = Right(i, 1) Then
Print i;
n = n + 1
If n Mod 10 = 0 Then Print
End If
Next
End Sub

追问

阿哥啊。。。我要的是。。。回文素数。。，你给我弄全部回文数。。。

追答

Private Sub Form_click()
Dim i As Integer, N As Integer
For i = 100 To 999
If Left(i, 1) = Right(i, 1) And isNO(i) = True Then
Print i;
N = N + 1
If N Mod 10 = 0 Then Print
End If
Next
End Sub

Function isNO(ByVal 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
isNO = True
Else
isNO = False
End If
End Function

追问

大哥666哒，我已经采纳了！

Answer 2

你回文数会输出吧？

追问

我会。。。你只要给我代码就行了。。

追答

我只会Java的求素数，看你能不能看懂并转化成VB了，
public boolean isTrue(int a){
int i=0;
if(a>2){
for(i=2;i<a;i++){
if(a%i==0){
return false;
}
if (i==a){
return true;
}
}
}else{
return false;
}
}
我估计VB和这个差不多