Question

按键精灵高手进 随机数怎么生成

用按键精灵随机生成0-9之间的数字 生成三个
然后这三个数相加 得到三数之和a1
上面重复17次 一直到a17
保证a1~a17都不能重复

若以下回答无法解决问题，邀请你更新回答

Answer 1

Dim b(2),a(17)
For j = 1 To 17
Rem start
For i = 0 To 2
Randomize
b(i)=Int(10* Rnd)
Next
a(j) = b(0) + b(1) + b(2)
If j > 1 Then
For c = 1 To 16
If j = c Then
Exit For
End If
If a(j) = a(c) Then
Goto start
End If
Next
End If
Next
For i = 1 To 17
MessageBox "a"&i&"为"&a(i)
Next