中科新闻网李秉宪宋慧乔分手原因:vb编程高手请进！！紧急~~~~！！！！！
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 03:44:26
只有一对数 如 56 和 10 就是一对 它符合 对调后 65 + 1 = 56 +10
求的就是这些数对
Private Sub Form_Click()
For i = 1 To 100
For j = i To 100
If i + j = (i Mod 10) * 10 + i \ 10 + (j Mod 10) * 10 + j \ 10 Then
n = n + 1
If n Mod 20 = 0 Then
Print i; j
Else
Print i; j;
End If
End If
Next
Next
Print n
End Sub
结果，有330对这样的数。
同数算对调数吗？还有;23+1=11+13，这样也算一对吗？说清楚点问题。。
Private Sub Form_Load()
Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
For d = 0 To 9
If (a + c = b + d) Then List1.AddItem a & b & c & d
Next d, c, b, a
End Sub
或者,前面这个只是简化了点
Private Sub Form_Load()
Dim a, b, c, d As Integer
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
For d = 0 To 9
If (a*10+b + c*10 +d = 10*b+a + 10*d + c) Then List1.AddItem a & b & c & d
Next d, c, b, a
End Sub
a*10
b
c*10
d