请vb高手帮忙

Question

我是个初学者, 我想用vb编写一台自动贩卖机,
我分了2张form, 一张是用作储货架, 另一张用作贩卖机的正面

怎样才可以做到那台机器一开始便储了一定数量的货品, 而且可以自行增加货品储藏量
还有的是储货架必须有货品储藏 售卖机才能出售直至售罄

听说是要用module功能, 但不知道怎样使用

希望各位大大能够帮忙

Answer 1

可以不用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

Answer 2

按你的意思可以添加一个模块的···在模块中定义变量···比如说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 货物显示售完
基本思路就是这样的··呵呵··

Answer 3

你到底要做什么？