6509
6590
6059
6950
6095
6905
6519
6591
6159
6951
6195
6915
6529
6592
6259
6952
6295
6925
6539
6593
6359
6953
6395
6935
6549
6594
6459
6954
6495
6945
6579
6597
6759
6957
6795
6975
6589
6598
6859
6958
6895
6985
7508
7580
7058
7850
7085
7805
7518
7581
7158
7851
7185
7815
7528
7582
7258
7852
7285
7825
7538
7583
7358
7853
7385
7835
7548
7584
7458
7854
7485
7845
7568
7586
7658
7856
7685
7865
7598
7589
7958
7859
7985
7895
8507
8570
8057
8750
8075
8705
8517
8571
8157
8751
8175
8715
8527
8572
8257
8752
8275
8725
8537
8573
8357
8753
8375
8735
8547
8574
8457
8754
8475
8745
8567
8576
8657
8756
8675
8765
8597
8579
8957
8759
8975
8795
9506
9560
9056
9650
9065
9605
9516
9561
9156
9651
9165
9615
9526
9562
9256
9652
9265
9625
9536
9563
9356
9653
9365
9635
9546
9564
9456
9654
9465
9645
9576
9567
9756
9657
9765
9675
9586
9568
9856
9658
9865
9685

穷举的话就是按顺序了~笨~

Private Sub Command1_Click()
Dim a, b, c, d, i

For a = 6 To 9
b = 15 - a
d = a & b & "5"
For i = 0 To 9
If InStr(1, d, i) > 0 Then
DoEvents
Else

d = a & "5" & i & b
Text1 = Text1 & d & vbCrLf
d = a & "5" & b & i
Text1 = Text1 & d & vbCrLf
d = a & i & "5" & b
Text1 = Text1 & d & vbCrLf
d = a & b & "5" & i
Text1 = Text1 & d & vbCrLf
d = a & i & b & "5"
Text1 = Text1 & d & vbCrLf
d = a & b & i & "5"
Text1 = Text1 & d & vbCrLf
End If

Next i
Next a

End Sub

你的算法比我的好些

但是答案我也不能确定了～～～

考虑用递推算法看行不行

答案没问题。首位不能小于6

5+10=15，那么有一位就要是10，不可能。

然后a,b就是2位，还有一个是5，定义字符串e=ab5最后一个用instr判断0到9不包含到e内，就是不重复的意思。然后改变a,b,5,i的顺序就可以了。（a必须是首位。）

Q5，先用asc转成数字然后…………在转回来…………

我做的也不到 1s，好像是 5 ~ 8ms 吧。

Q5 没按你说的那样做出来的

你放出你的代码看看

你给出的Q7的算法我运行不起来

大家看看Q8感觉如何？
这个才是最有趣的了

你给出的 Q4的算法有错误

InStr返回值是 字节数

而你使用的 Mid()函数 需要的是 字符数～～

呵呵～～～

Private Sub Form_load()

Dim strURL As String, i As Integer, j As Integer, strWangZhan As String
strURL = InputBox("请输入URL·")
i = InStr(strURL, "://") + 3
j = InStr(i, strURL, "/") - 1
strWangZhan = Mid(strURL, i, j - 7)
Text1 = strWangZhan

End Sub