当前位置: 高中信息技术 / 综合题
  • 1. (2021高二下·浙江月考) 某仓库管理员希望使用计算机来帮助他管理仓库物品。会有不同的人到仓库取物品,每人希望取走不同数量的物品,物品库存总量事先已知。

    计算机的管理规则如下:

    ·对于某人需要的物品数量,若仓库有足够的物品,将直接分配给该人。

    ·若某人需要的物品数量超过了当前的库存量,仓库会拒绝该人的请求。

    管理员希望知道有多少人没有顺利取到物品。

    现编写VB程序实现对物品的管理,在文本框Text 1中输入物品库存总量,在文本框Text 2中输入每人所需要物品的数量(以逗号分隔),单击“统计”按钮count,在Label 4中显示一天中没有取到物品的人数。程序设计界面如图所示。

    1. (1) 根据题意,“统计”按钮的对象名为
    2. (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. (3) 若在文本框Text 1中输入“30”,文本框Text 2中输入“10,5,20,6,78”,则程序运行结束时标签Label 4中显示的内容为

微信扫码预览、分享更方便