计算所有满足个位数字加上百位数字等于十位加上千位数字的四位数, 求代码

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/05/22 12:11:31

Public Sub test()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
For i = 1000 To 2000
a = Int(i / 1000)
b = Int((i - a * 1000) / 100)
c = Int((i - a * 1000 - b * 100) / 10)
d = i - a * 1000 - b * 100 - c * 10
If b + d = a + c Then
Debug.Print i
End If
Next
End Sub
1001
1012
1023
1034
1045
1056
1067
1078
1089
1100
1111
1122
1133
1144
1155
1166
1177
1188
1199
1210
1221
1232
1243
1254
1265
1276
1287
1298
1320
1331
1342
1353
1364
1375
1386
1397
1430
1441
1452
1463
1474
1485
1496
1540
1551
1562
1573
1584
1595
1650
1661
1672
1683
1694
1760
1771
1782
1793
1870
1881
1892
1980
1991

设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积,求出所有满足此规律的四位数之和有多少个四位数,满足个位上的数字比千位百位大,千位比百位大,百位数字比十位数字大设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积,求满足此规律的四位数之和求C语言程序某四位数满足个位数字等于十位数字百位数字等于千位数字若百位数字比个位数字大1,问这个四位数能被11整除吗?为什么?请某四位数满足个位数字等于十位数字,百位数字等于千位数字,若百位数字比个位数字大1,问这个四位数能被11整除吗?为什么?请有一个四位数，个位数字与百位数字的和是12，十位数字与千位数字的和是9，如果个位数字与百位数字互换，千位数字与十位数字互有一个四位数个位数字与百位数字的和是12,十位数字与千位数字的和是9,如果个位数字与百位数字互换,千位数字与十位数字互一个四位数千位上的数字是个位数字的5倍百位上的数字等于千位上数字与个位数字的和十位上的数字等于千位任意一个四位数,交换这个四位数的千位数字与百位数字,十位数字与个位数字,这时又得到一个新数. -个四位数，它的千位数字与十位数字相同，百位数字与个位数字相同，说明为什么这个四位数能被101整除．一个四位数,它的千位数字与十位数字相同,个位数字与百位数字相同,试说明这个数能被101整除 1000到9999中,个位数字与百位数字之和为6,十位数字与千位数字的积weu24de四位数