[已解决]EXCEL高手用VBA输出20个随机整数

vbyou127

EXCEL高手用VBA输出20个随机整数

VBA输出20个100以内的随机整数，输出各个数不相同，用msgbox输出

最佳答案

月排行榜 / 总排行榜

dsmch

2016-2-11 11:22

1. Sub Macro2()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Do While d.Count < 20
   
4.     x = Int(Rnd * 99) + 1
   
5.     d(x) = ""
   
6. Loop
   
7. MsgBox Join(d.keys, ",")
   
8. End Sub

复制代码

跳转到最佳答案楼层

Tank008

1. Sub 生成100以内随机整数()
   
2.     Dim d As Object, i As Integer
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Do
   
5.         d(Int(Rnd * 100)) = ""
   
6.     Loop Until d.Count > 20
   
7.    
   
8.     For i = 0 To d.Count - 1
   
9.         MsgBox d.keys()(i)
   
10.     Next i
    
11. End Sub

复制代码

dsmch

1. Sub Macro1()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For i = 1 To 20
   
4. 100:
   
5.     x = Int(Rnd * 99) + 1
   
6.     If Not d.exists(x) Then d(x) = "" Else GoTo 100
   
7. Next
   
8. MsgBox Join(d.keys, ",")
   
9. End Sub

复制代码

vbyou127

dsmch 发表于 2016-2-11 11:18

不用字典怎么做

dsmch

1. Sub Macro2()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Do While d.Count < 20
   
4.     x = Int(Rnd * 99) + 1
   
5.     d(x) = ""
   
6. Loop
   
7. MsgBox Join(d.keys, ",")
   
8. End Sub

复制代码

dsmch

1. Sub Macro3()
   
2. For i = 1 To 20
   
3. 100:
   
4.     x = Int(Rnd * 99) + 1
   
5.     If InStr("," & p & ",", "," & x & ",") = 0 Then p = p & "," & x Else GoTo 100
   
6. Next
   
7. MsgBox Mid(p, 2)
   
8. End Sub

复制代码

dsmch

1. Sub Macro4()
   
2. Dim w(1 To 100), m(1 To 20)
   
3. For i = 1 To 20
   
4. 100:
   
5.     x = Int(Rnd * 99) + 1
   
6.     If w(x) <> x Then s = s + 1: w(x) = x: m(s) = x Else GoTo 100
   
7. Next
   
8. MsgBox Join(m, ",")
   
9. End Sub

复制代码

lingyuncelia1

Public Function fun()
fun = Int(Rnd() * 10 + 1)
MsgBox fun
End Function

JX_shangrila

不用循环
Sub a()
   Dim arr(1 To 20)
   dg arr, 1
   MsgBox Join(arr, ",")
End Sub
Function dg(arr, i)
    Randomize
    arr(i) = Int((Rnd * 100))
    If i < 20 Then dg arr, i + 1
End Function