UC知道我想知道这道题如何做的，希望大家能帮忙，谢谢！
来源：百度知道 编辑：UC知道 时间：2024/06/23 18:20:28
编写程序，找出1000以内的所有回文数，并统计1000以内所有回文数的个数。“回文数”是指从左到右看与从右到左看其值均一样的数。要求运行界面如图1-2所示：
Private Sub Form_Click()
n = 0
For k = 1 To 1000
a = k (1)
b = ""
For i = 1 To len(a)
b = b & mid(a,4-I,1)
Next i
If a = b Then
n = n + 1
Print k;
If n Mod 10 = 0 Then Print
End If
Next k
Print
Print "n="; n
End Sub
Private Sub Form_Click()
n = 0
For k = 1 To 1000
a = k (1)
b = ""
For i = 1 To len(a)
b = b & mid(a,4-I,1)
Next i
If a = b Then
n = n + 1
Print k;
If n Mod 10 = 0 Then Print
End If
Next k
Print "n="; n
End Sub
是关于VF的？
是不是可以这样：
（1）k Mod 10
（2）2
（3)k\10
第一个是对k进行模运算，也就是获取余数，k无论是多少的整数，取余之后都得到个位上的数。
第三个明显是要求k的首位，由于k最多有三位，所以至少要整除2次
所以第二个空填2
不过一个数用10整除无数次之后都是得到其最高位的数字，所以第二空填大于2的整数都能完成任务，但是这样就做只会增加机器的负担
a是k的最后一位，b是k的第一位，由于k最多只有3位，所以我们只要确认k的最后一位和第一位相同就可以确认它是否是回文了
－－－－－－
你的图呢？