模拟库存 vbasic 编写.doc

Private Sub Command1_Click() Form1.Picture1.Cls End Sub Private Sub Command2_Click() Dim r As Integer r = wdema() Form1.Picture1.Print r End Sub Private Sub Command3_Click() Dim i As Integer, j As Integer, k As Integer, m As Integer Dim rr As Single, lo As Boolean rr = nornd()