当前位置: > 分,共12分.) 一个自然数倒过来读仍是这个数,就叫回文数,有些回文数还是素数,就叫回文式素数,如9323...
题目
分,共12分.) 一个自然数倒过来读仍是这个数,就叫回文数,有些回文数还是素数,就叫回文式素数,如9323
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但写错了扣1分)

提问时间:2020-08-07

答案
问题补充:Function hw(m As Long) As BooleanDim a As Integer,b As Integer,c As Integer,d As Integera = Left(m,1):b = Mid(m,2,1)c = mid(m,4,1)d = right(m,1)hw = IIf(a = d And b = c,True,False)End Functi...
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.