题目

某仓库管理员希望使用计算机来帮助他管理仓库物品。会有不同的人到仓库取物品，每人希望取走不同数量的物品，物品库存总量事先已知。 计算机的管理规则如下： ·对于某人需要的物品数量，若仓库有足够的物品，将直接分配给该人。 ·若某人需要的物品数量超过了当前的库存量，仓库会拒绝该人的请求。 管理员希望知道有多少人没有顺利取到物品。 现编写VB程序实现对物品的管理，在文本框Text 1中输入物品库存总量，在文本框Text 2中输入每人所需要物品的数量（以逗号分隔），单击“统计”按钮count，在Label 4中显示一天中没有取到物品的人数。程序设计界面如图所示。 （1） 根据题意，“统计”按钮的对象名为。 （2） VB程序代码如下，请在划线处填入合适的代码。 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 （3） 若在文本框Text 1中输入“30”，文本框Text 2中输入“10，5，20，6，78”，则程序运行结束时标签Label 4中显示的内容为。 答案： 【1】count 【1】sum=sum-num【2】tmp=tmp+ch 【1】2

查看本题答案和解析