如何在visual basic中選擇隨機文本？

Question

我從按鈕製作了自己的盒子，其中有0到getupperbound(1)的文字，現在我想隨機選擇其中的一個。

Answer 1

要獲得兩個數字之間的隨機整數（最小和最大值，其中包括）做這樣的事情：

Function GetRandomNumber(ByVal Min As Integer, ByVal Max As Integer) As Integer 
    Randomize 
    GetRandomNumber = Int(Rnd * (Max - Min + 1) + Min) 
End Function 

Answer 2

首先，你需要確保的按鈕具有相同的名稱和索引屬性。 然後，你需要隨機化一個按鈕索引，然後在按鈕數組上使用它。

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)