1. 用VB新建壹個標準EXE程序
2.?用 Lable 、TextBox 和 CommandButton?控件在窗體中設計界面如下:
3. 雙擊“抽取”按鈕,並在代碼窗口中修改代碼如下:
Private Sub Command1_Click()
Dim v1 As Long, v2 As Long, v3 As Long
v1 = Val(Text1)
v2 = Val(Text2)
v3 = Int(Rnd(1) * (v2 - v1 + 1)) + v1
Text3.Text = v3
End Sub
4.按F5運行,並進行測試即可