用VB做壹個產生隨機數的程序

用VB做壹個產生隨機數的程序過程：

1 創建隨機數窗體：

2 編寫產生隨機數的事件：

Private Sub Command1_Click()

Randomize '初始化隨機數生成器

List1.AddItem Int((Rnd * 9) + 1)

End Sub

3 運行結果：