一個(gè)自然數(shù)倒過來(lái)讀仍是這個(gè)數(shù),就叫回文數(shù),有些回文數(shù)還是素?cái)?shù),就叫回文式素?cái)?shù),如93239.以下程序用于
請(qǐng)補(bǔ)充完善程序.
Function hw(m As Long) As Boolean
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Left(m, 1): b = Mid(m, 2, 1)
c = _____________________
d = _____________________
hw = IIf(a = d And b = c, True, False)
End Function
Function ss(m As Long) As Boolean
Dim k As Long, i As Long, f As Boolean
f=True
k = Sqr(m)
For i = 2 To k
If _____________________ Then
f = False
Exit For
End If
Next i
________________
End Function
Private Sub Command1_Click()
Dim m As Long, n As Integer
For m = 10000 To 99999
If _____________________________ Then
Print Tab((n Mod 10) * 8 + 1); m;
n = n + 1
End If
Next m
End Sub
Mid(m,4,1)Right(m,1)注意：只要能取出第四、五位即可得分
m mod i=0(只要能判斷整除即可)
ss=f ss(m) hw(m)(只寫ss及hw不得分,如果寫了True但寫錯(cuò)了扣1分)