计算机的管理规则如下:
·对于某人需要的物品数量,若仓库有足够的物品,将直接分配给该人。
·若某人需要的物品数量超过了当前的库存量,仓库会拒绝该人的请求。
管理员希望知道有多少人没有顺利取到物品。
现编写VB程序实现对物品的管理,在文本框Text 1中输入物品库存总量,在文本框Text 2中输入每人所需要物品的数量(以逗号分隔),单击“统计”按钮count,在Label 4中显示一天中没有取到物品的人数。程序设计界面如图所示。
Private Sub count_Click()
Dim sum As Integer,num As Integer
Dim cnt As Integer
Dims As String,chAs String,tmp As String
cnt= 0
sum=Val(Text 1.Text)
s=Text 2.Text
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch=","Then
num=Val(tmp)
If num>sum Then
cnt=cnt+ 1
Else
End If
tmp=""
Else
End If
Next i
Label 4.Caption=Str(cnt)
End Sub