Question

vb，求满足下列条件的所有四位数ABCD的个数，该四位数是5的倍数，且A+D=B+C，即第1位数加上第4位

急啊，求快点？

Answer 1

俊狼猎英团队为您解答：
按题意A、B、C、D各不相同吧。没有其它条件本题 只能一一罗列出来了。
5的倍数，末位数为5或0，
当末位为0时，A可取3到9间的一部分，共有：3120、3210、5230、5320、6240、6420、7250、7340、7430、7520、8170、8260、8350、8530、8620、8710、9180、9270、9360、9450、9540、9630、9720、9810。24个数。
当末位为5时，共有：1245、1425、2165、2345、2435、2615、3175、3265、3625、3715、4185、4275、4365、4635、4725、4815、6295、6385、6475、6745、6835、6925、7395、7485、7845、7935、8495、8945、9685、9865。30个数。
合计54个数。

追问

我问的是vb编程的程序

Answer 2

Private Sub Command1_Click()
Dim i As Long
Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long
Dim w As Long
Dim k As Long
Dim str As String

k = 0
Text1.Text = ""
str = ""
For i = 1000 To 9995 Step 5
w = i
A = w \ 1000

w = w - A * 1000
B = w \ 100

w = w - B * 100
C = w \ 10

w = w - C * 10
D = w
If (A + D) = (B + C) Then
str = str & CStr(i) & vbCrLf
k = k + 1
End If
Next i
Text1.Text = str & vbCrLf & CStr(k)

End Sub

共123个
1010
1065
1100
1155
1245
1335
1425
1515
1605
2020
2075
2110
2165
2200
2255
2345
2435
2525
2615
2705
3030
3085
3120
3175
3210
3265
3300
3355
3445
3535
3625
3715
3805
4040
4095
4130
4185
4220
4275
4310
4365
4400
4455
4545
4635
4725
4815
4905
5050
5140
5195
5230
5285
5320
5375
5410
5465
5500
5555
5645
5735
5825
5915
6060
6150
6240
6295
6330
6385
6420
6475
6510
6565
6600
6655
6745
6835
6925
7070
7160
7250
7340
7395
7430
7485
7520
7575
7610
7665
7700
7755
7845
7935
8080
8170
8260
8350
8440
8495
8530
8585
8620
8675
8710
8765
8800
8855
8945
9090
9180
9270
9360
9450
9540
9595
9630
9685
9720
9775
9810
9865
9900
9955

Answer 3

x>=1000&&x<=9999
x%5==0
x/1000+x%10==x%1000/100-x%1000%100/10

Answer 4

Private Sub Form_click()
Dim n, a, b, c, d, i As Integer

For n = 1000 To 9995 Step 5
a = n \ 1000
b = (n - 1000 * a) \ 100
c = (n - 1000 * a - 100 * b) \ 10
d = n Mod 10
If a + d = b + c Then
i = i + 1
End If
Next n
Print i
End Sub