当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·湖州期中) 某仓库对货物的编码规则为:货物类型(4-8位英文字母)货物编码(4-8位数字)货物校验码。货物编码的每一位数除以2产生的余数,倒序输出即是货物正确的校验码,现编写如下VB程序,如图在Text1中输入货物完整编码后,判定校验码是否符合标准,并在Label1中输出结果。

    1. (1) 由程序可知,此程序中按钮的名称为
    2. (2) 请在划线处填入合适的代码。

      Private Sub check_Click()

          Dim s as string, ss as string, s1 as string, s2 as string

          Dim i as integer, bz as integer

         

          bz = 0

          For i = 1 To Len(s)

              ss = Mid(s, i, 1)

              If ss = "-" Then

                  bz = bz + 1

              ElseIf bz = 1 Then

                  s1 = CStr() + s1      ‘Cstr函数是在str的基础上去除前导空格

              ElseIf bz = 2 Then

                  s2 = s2 + ss

              End If

          Next i

          If  Then

              Label1.Caption = "符合标准"

          Else

              Label1.Caption = "不符合标准"

          End If

      End Sub

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