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
按你的意思可以添加一个模块的···在模块中定义变量···比如说n_xiangpi(橡皮的数量),n_Camera(照相机数目),然后再你的储货架的那个窗口定义原始数量,比如说n_Camera=19,然后再售货机那个窗口上1.显示 if n_Camera>0 then 货物显示;2。购买货物 n_Camera=n_camera-1 3.售完··if n_Camera=0 then 货物显示售完 基本思路就是这样的··呵呵··