設計

需要label數組，用復制粘貼的方式實現
要添加一個timer，屬性設置如下：

運行效果

代碼

Private Sub Command1_Click()Timer1.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = False End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseText1.Text = Label2(0).Caption & " " & Label2(1).Caption & " " & Label2(2).Caption & " " & Label2(3).Caption & " " & Label2(4).CaptionCommand2.Enabled = FalseCommand1.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click()End End SubPrivate Sub Timer1_Timer()RandomizeLabel2(0).Caption = Int(Rnd * 10 + 0)Label2(1).Caption = Int(Rnd * 10 + 0)Label2(2).Caption = Int(Rnd * 10 + 0)Label2(3).Caption = Int(Rnd * 10 + 0)Label2(4).Caption = Int(Rnd * 10 + 0)End Sub

總結

以上是生活随笔為你收集整理的vb 五位抽奖程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。