我从按钮创建了自己的框,文本0到getupperbound(1)
,现在我想随机选择其中一个。
答案 0 :(得分:0)
要获得两个数字之间的随机整数(Min和Max,包括),请执行以下操作:
Function GetRandomNumber(ByVal Min As Integer, ByVal Max As Integer) As Integer
Randomize
GetRandomNumber = Int(Rnd * (Max - Min + 1) + Min)
End Function
答案 1 :(得分:0)
首先,您需要确保按钮具有相同的名称和索引属性。 然后,您需要随机化按钮索引,然后在按钮阵列上使用它。
Dim index as Integer
Randomize
index = Round(Rnd*getupperbound(1)) ' a random index
'Do something with Button(index)
index = Round(Rnd*getupperbound(1)) 'Another random index
'Do something with Button(index)