急急急！！！！求大神给解决一下

其实好像挺麻烦的哎。类型转换，字符串处理。

自重吧。真扯蛋的程序。

我写了一个算法草稿，现在没在身边，一会发给你。
大致就是 数组(0-9)，取出一个，for十层嵌套，判断，输出

Private Sub Command1_Click()
Dim i, j, m, n As Integer
Dim l As Integer
Dim s As String
l = 0
Text1.Text = ""
For i = 0 To 9
For j = 10 To 99
For m = 100 To 999
n = i + j + m
s = CStr(i & j & m & n)
If Len(CStr((n))) = 4 And diff(s) Then
Text1.Text = Text1.Text & i & "+" & j & "+" & m & "=" & n & vbCrLf
l = l + 1
End If
Next m
Next j
Next i
Text2.Text = "查找到满足条件的等式个数为：" & l
End Sub
Private Function diff(ByVal s As String) As Boolean
Dim i, j As Integer
Dim a() As Integer
i = Len(s)
diff = True
ReDim a(i)
For j = 1 To i
a(j) = Int(Mid(s, j, 1))
Next j
For j = 1 To i - 1
For k = j + 1 To i
If a(j) = a(k) Then
diff = False
Exit Function
End If
Next k
Next j
End Function

Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, h, i, j, s, t As Integer
For a = 0 To 9
For b = 1 To 9
For c = 0 To 9
For d = 1 To 9
For e = 0 To 9
For f = 0 To 9
For g = 1 To 9
For h = 0 To 9
For i = 0 To 9
For j = 0 To 9
s = a + Val(bc) + Val(def)
t = Val(ghij)
If s = t & (a <> b <> c <> d <> e <> f <> g <> h <> i <> j) Then
Print a & "+" & b & c & "+" & d & e & f & "=" & g & h & i & j
End If
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub

Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, h, i, j, s, t As Integer
For a = 0 To 9
For b = 1 To 9
For c = 0 To 9
For d = 1 To 9
For e = 0 To 9
For f = 0 To 9
For g = 1 To 9
For h = 0 To 9
For i = 0 To 9
For j = 0 To 9
s = a + Val(bc) + Val(def)
t = Val(ghij)
If s = t & (a <> b <> c <> d <> e <> f <> g <> h <> i <> j) Then
text1 = text1 & a & "+" & b & c & "+" & d & e & f & "=" & g & h & i & j
End If
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
还是没动静 咋改？？？？？？？