好几个空哦.
下面是调试好的程序(直接从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