100到999之间有没有反向排列循环加不回文的数

完成该事件可分两类.
一：三位数只含一个0,有2*9*9=162个
二：三位数含2个0,有9个
由分类加法计数原理,总共有162+9=171个 .
解法二（间接法）900-9*9*9=171个

楼主还不露面确认正确答案.
三位数,每位一个数字,共三个数字.
各位相乘的积是素数,说明这三个数字里面必有且仅有一个素数,其他都是1.
因此,在形如：
X11、1X1、11X （,X是10以内的素数）
这样的数里,判断3位数是不是素数.
最终找到：
113
131
151
211
311
他们的和是917.

请问是使用什么编程软件

在窗体form1上画一个label1显示算式、一个text1输入答案,一个command1（更换命题）和一个command2（提交答案）.然后将以下代码黏贴到form1代码窗运行.你自己的代码做了部分调整放在command1里了：
Dim shu1 As Long, shu2 As Long, fuhao As String
Private Sub Command1_Click()
Randomize
shu1 = Int((999 - 100 + 1) * Rnd + 100)
shu2 = Int((999 - 100 + 1) * Rnd + 100)
fuhao = Mid("+-×÷", Fix(Rnd() * 4 + 1), 1)
Label1.Caption = CStr(shu1) fuhao CStr(shu2) " ="
Text1.Text = ""
Command2.Enabled = False
If Text1.Visible = True Then Text1.SetFocus
End Sub
Private Sub Command2_Click()
Select Case fuhao
Case "+"
If Val(Text1.Text) = shu1 + shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
Case "-"
If Val(Text1.Text) = shu1 - shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
Case "×"
If Val(Text1.Text) = shu1 * shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
Case "÷"
If Val(Text1.Text) = shu1 / shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
End Select
End Sub
Private Sub Form_Load()
Text1.Text = ""
Command1_Click
End Sub
Private Sub Text1_Change()
If Text1.Text <> "" Then Command2.Enabled = True Else Command2.Enabled = False
End Sub

200到500可以被13整除但是不能整除17 的数共21个
208 ,234 ,247 ,260 ,273 ,286 ,299 ,312 ,325 ,338 ,351 ,364 ,377 ,390 ,403 ,416 ,429 ,455 ,468 ,481 ,494
100到999之间形如153=1^3+5^3+3^3这类数有4个
你原来打的153=1^3+5^5+3^3可不是个等式.
153=1^3+5^3+3^3
370=3^3+7^3+0^3
371=3^3+7^3+1^3
407=4^3+0^3+7^3

Private Sub form_click()
Dim a As Integer, b As Integer, c As Integer
Dim i As Integer
For i = 100 To 999
a = Mid(i, 1, 1)
b = Mid(i, 2, 1)
c = Mid(i, 3, 1)
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i;
Next i
End Sub
不用你说的那么复杂，一个循环就可以搞定了。

当个位是0时,十位可填0到9,有10种可能,百位可填1到9,有9种可能,所以当个位是0时,有10×9=90种可能；
当十位是0时,个位可填1到9(填0的话与上面重复),有9种可能,百位也可填1到9,有9种可能,所以当十位是0时,有9×9=81种可能；
百位不能为0(一个数的最高位不能是0)
所以,从100到999的三位数中含有数字0的三位数有90+81=171种

从100到199,共100个数；
从200到299,共100个数；
以此类推,从100到999共900个数；
或者,从1到999共999个数,从1到99共99个数；从100到999就是999-99=900个数.

program ex1;
var
a,b,c,d:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=a*100+b*10+c then
begin
d:=a*100+b*10+c;
write(d,' ');
end;
end.

100和到点999距离相等的数=549.5=（100+999）*0.5
-1/35
-6
通项：（m-n）*0.5

var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(a,b,c);
end.
{结果：
153
370
371
407}

我举个第一个来说明：
110；这样可以使得200范围内有：10-1=9个；
220；这样可使得300范围内有：10-2=8个；
……
990,最后只剩下一个；
因此共有：9+8+7+……+1=45个

729

立方数在500 至999只有
9³=729 8³=512
而512不是平方数,只有729

101、131、151、181、191、313、353、373、383、727、757、787、797、919、929
共15个

1.共133个
有如下几种情况：
1.3个数码都相同,这样每个数都是其它两数的平均数,111,222,……,999,共9个
2.有两个数码相同,那这3位数有112,224,336,448四种组合,每种组合数位交换可以产生3个数,一共有12个
3.三个数都不相同,其中有一个为0,那么有120,240,360,480四种组合,每种组合数位交换可以产生4个数,一共16个
4.三个数都不相同,其中没有0,那么有123,135,147,159,234,246,258,345,357,369,456,468,567,579,678,789共16种组合,每种组合数位交换可以产生6个数,一共96个
所以这种数共有9+12+16+96=133个
2.1
100个19所有数位相加为10000,那么如果个位是8,这个和就成了9999,可以被3整除,个位是8也可以被2整除,所以1919……18可以被6整除,原数被除的余数为1
3.180001
0+1+……+9=45,而从10到19的数码和为10个1加上0到9的和,同理,20到29的数码和为10个2加上0到9的和,所以0到99的数码和为10+20+……90+45*10=900
同理,0到999的数码和为100+200+……+900+900*10=13500
同理,0到9999的数码和为1000+2000+……+9000+13500*10=180000
所以从0到10000的数码和为180000+1=180001
4.16种
120=1*2*2*2*3*5
因为a,b,c都是整数,所以a,b,c由这个几数的乘积按照不同组合构成
所以a,b,c的组合可以为
1,1,120
1,2,60
1,3,40
1,4,30
1,5,24
1,6,20
1,8,30
1,10,12
2,2,30
2,3,20
2,4,15
2,5,12
2,6,10
3,4,10
3,5,8
4,5,6
共16种
不知道你的答案从哪来的,但是肯定有问题,第三题我可以用另一种方法说明我的答案是正确的
我们不妨将所有数字者拆开,看看1-9每个数有多少个
来看1,1-99,每10个数中有1个数中有1,一共10个,加上十位数是1的10个,一共有20个
1-999,不看百位,1-99一共循环了10次,共20*10=200个1,百位是1的从100到199一共100个数,所以1-999一共有300个数码为1
同理,1-9999,1-999循环了10次,千位数是1的从1000-1999是1000个,所以从1-9999共有300*10+1000=4000个1
同理,由于所有数位都是1-9的循环,所以1-9的数码个数都是一样的
所以1-9999的数码和为（1+2+……+9）*4000=45*4000=180000
所以1-10000的数码和为180001
所以我觉得最好还是自己好好思考一下,看看哪个才是正确答案

Private Sub Form_Click()
For i = 100 To 999
a = i 100
b = (i - a * 100) 10
c = i Mod 10
If a + b + c = 5 Then Print a & b & c
Next i
End Sub

还想简单就这么写：
Private Sub Form_Click()
For i = 100 To 999
If Val(Left(i, 1)) + Val(Mid(i, 2, 1)) + Val(Right(i, 1)) = 5 Then Print i
Next i
End Su

设该数为m^3
500