- 最後登錄
- 2023-4-24
- 在線時間
- 2 小時
- 註冊時間
- 2008-4-1
- 閱讀權限
- 20
- 精華
- 0
- UID
- 3887184
- 帖子
- 372
- 積分
- 21 點
- 潛水值
- 5911 米
| 若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com 給你一個小例子,你可以再改改看- Imports System.Threading.Thread
- Public Class Form2
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim RndStarNum As Integer = 1 ' 開始號碼
- Dim RndEndNum As Integer = 30 ' 結果號碼
- Dim RnsNum As Integer ' 產生的亂數
- Randomize() ' 亂數產生器初始化
- RnsNum = CInt(Int((RndEndNum * Rnd()) + RndStarNum)) ' 到這裡就可以產生亂數了
- ' 以下是為了好看所做
- For i = RndStarNum To RnsNum
- Label1.Text = i ' 如圖要用圖片的話可以由這裡改
- Sleep(50) ' 延遲停留
- Application.DoEvents() ' 強制行,不加只會顯示最後一個圖
- Next
- End Sub
- End Class
複製代碼 ... |
|