Question

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

Answer 1

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