VB 求10~1000以内的所有回文素数。

2024-12-19 04:07:21

推荐回答（1个）

回答1：

好几个空哦.
下面是调试好的程序(直接从VB里复制过来的):
Private Sub Command1_Click()
Dim flg As Boolean, i%, j%, m%
For i = 10 To 1000 '第一个要填的空
m = Int(Sqr(i)) '取i的平方根整数
For j = 2 To m ' 判断是否为素数
If i Mod j = 0 Then Exit For '不是,下一个i
Next j
If j > m Then 'i是素数,判断是不是回文数
Call hws(i, flg) '第二个要填的空
If flg Then Text1 = Text1 & i & vbCrLf
'这里输出会连在一起,分不出数字的,如果自己运行的话,最好改为text1 & i & " "&vbcrlf,在每个数字间加一个空格
End If
Next i
End Sub
Private Sub hws(n As Integer, bz As Boolean)'判断所给n是不是回文数,
是的话,bz返回true,否返回false
Dim j%, k%, m$
bz = True
m = CStr(n) ' 将数值转为字符
k = Len(m) ' 求字符m的长度,这是第三个要填的空
For j = 1 To k \ 2 ' 判断回文数
If Mid(m, j, 1) <> Mid(m, k - j + 1, 1) Then '从数字两边依次判断是否相同,相同,是回文数,不同,不是
'上面这行mid(m,j,1)是第四个要填的空
bz = False
Exit For
End If
Next j
End Sub

最新问答

K线图1、5、15、30、60分钟跟日线图的意义和区别在哪？

请教风水大师家宅风水问题

右键新建工作表打开提示文件名或扩展名无效......？（版本：Excel 2016）

新版齐鲁同花顺多股同列时，鼠标放在上面移动数字就跟着动，怎么让它不动？那个白色的小框框怎么消掉？

设计集体科学教育活动“认识水”（大班）的活动方案，并对其中活动方法的设计思路进行说明。