<\/p>\n
1-9\u6570\u5b57\u4e09\u4f4d\u6570\u51cf\u4e09\u4f4d\u6570\u7b49\u4e8e\u4e09\u4f4d\u6570<\/a><\/h2>\n
\u4f7f\u75281-9\u7684\u6570\u5b57\uff0c\u8981\u6c42\u5f62\u6210\u4e00\u4e2a\u7b49\u5f0f\uff0c\u7528\u4e09\u4f4d\u6570\uff0c\u51cf\u53bb\u4e09\u4f4d\u6570\uff0c\u7b49\u4e8e\u4e09\u4f4d\u6570
\u8981\u6c42\u6240\u6709\u6570\u5b57\u4e0d\u91cd\u590d\uff0c\u5373\u540c\u65f6\u4e0d\u6f0f
\u5217\u51fa\u6240\u6709\u7684\u53ef\u80fd
\u5e2e\u670b\u53cb\u5bb6\u5c0f\u5b69\u770b\u4e00\u4e0b\u6709\u591a\u5c11\u79cd\u53ef\u80fd
\u8c22\u8c22\uff0c\u56e0\u8fd8\u672a\u5f97\u7b54\u6848\uff0c\u672a\u4e0a\u9644\u4ef6\uff0c\u89c1\u8c05<\/p><\/blockquote>\n\u4ee3\u7801:<\/h5>\n
Sub Test()
Dim a, b, c, d, e, i
For a = 123 To 789
For b = a + 1 To 987 – a
c = a + b
d = c & “-” & a & “=” & b
For i = 1 To 9
If InStr(d, i) = 0 Then Exit For
Next
If i = 10 Then e = e + 1: Debug.Print e; vbTab; d
Next
Next
End Sub<\/p><\/blockquote>\n<\/div>\n","protected":false},"excerpt":{"rendered":"1-9\u6570\u5b57\u4e09\u4f4d\u6570\u51cf\u4e09\u4f4d\u6570\u7b49\u4e8e\u4e09\u4f4d\u6570 \u4f7f\u75281-9\u7684\u6570\u5b57\uff0c\u8981\u6c42\u5f62\u6210\u4e00\u4e2a\u7b49\u5f0f\uff0c\u7528\u4e09\u4f4d\u6570\uff0c\u51cf\u53bb\u4e09\u4f4d\u6570\uff0c\u7b49\u4e8e\u4e09\u4f4d\u6570\u8981\u6c42\u6240 … \u7ee7\u7eed\u9605\u8bfb\u8fd9\u4e2a\u5e16\u5b50\u7684\u9898\u76ee\uff0c\u5728\u82cf\u6559\u7248\u5c0f\u5b66\u56db\u5e74\u7ea7\u5bd2\u5047\u4f5c\u4e1a\uff0c\u53c8\u88ab\u4f5c\u4e3a\u8da3\u5473\u9898\u4e86\u3002\u6655\u554a\u3002\u8fd9\u8da3\u5473\u592a\u5927\u4e86\u554a\u3002<\/span>