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运行，并进行测试即可