怎么在VB中添加代码

有两种方法，一、双击控件，就可以写该控件的代码。二、选择控件事件，在事件里写代码。

Private

Sub

Command1_Click()

'代码

End

Sub

Private

Sub

Form_Load()

'代码

End

Sub

可以不用module功能

设form1为储货架、form2为贩卖机；

在form1中添加一标签用于和显示存储货品的数量，添加一timer控件，可随机自行增加货品储藏量，代码如下：

Private Sub Form_Load()

Randomize

Label1 = Int(Rnd * 50) + 50

Timer1.Interval = 1000

Form2.Show

End Sub

Private Sub Timer1_Timer()

Label1 = Label1 + Int((Rnd * 10000) / 8000)

End Sub

在form2中添加一按钮，代码如下：

Private Sub Command1_Click()

If Form1.Label1 >0 Then

Form1.Label1 = Form1.Label1 - 1

MsgBox "卖出一货品"

Else

Form1.timer1.Interval = 0

Form1.Label1 =0

MsgBox "货已售完"

End If

End Sub

---