点击command1，label1随机显示1.2.3-Function a() As String Dim b(2) As String b(0) = 1 b(1) = 2 b(2) = 3 Randomize a = b(Rnd* 2) End Function Private Sub Command1_Click() Label1.Caption = a End Sub