UC知道2 编写程序
来源：百度知道 编辑：UC知道 时间：2024/05/11 05:19:20
u 编写程序，找出1000以内的所有回文数，并统计1000以内所有回文数的个数。“回文数”是指从左到右看与从右到左看其值均一样的数。要求运行界面如图1-2所示：
Private Sub Form_Click()
n = 0
For k = 1 To 1000
a = (1)
b = ""
For i = 1 To (2)
b = (3)
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 = (1)
b = ""
For i = 1 To (2)
b = (3)
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
这是个填空题
（1）k Mod 10
（2）3
（3)k\10
第一个是对k进行模运算，也就是获取余数，k无论是多少的整数，取余之后都得到个位上的数。
第三个明显是要求k的首位，由于k最多有三位，所以至少要整除2次
所以第二个空填2
不过一个数用10整除无数次之后都是得到其最高位的数字，所以第二空填大于2的整数都能完成任务，但是这样就做只会增加机器的负担
－－－－－－
你的图呢？