题型：综合题 题类：常考题 难易度：普通
浙江省名校协作体2020-2021学年高二下学期信息技术联考试卷
计算机的管理规则如下：
·对于某人需要的物品数量，若仓库有足够的物品，将直接分配给该人。
·若某人需要的物品数量超过了当前的库存量，仓库会拒绝该人的请求。
管理员希望知道有多少人没有顺利取到物品。
现编写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
试题篮
控件设计一个秒表，倒计时时间精确到0.01秒，如图，设置该控件的interval属性值为（ ） 
