试题

试题 试卷

logo

题型:单选题 题类:常考题 难易度:困难

浙江省慈溪市三山高级中学2018-2019学年高二下学期信息技术第一次月考试卷

有VB 程序如下:

Private Sub Command1_Click()

    Dim s1 As String, s2 As String, ch As String

    s1 = Text1.Text

    s2 =””

    ch =””

    For i = 1 To Len(s1)

      ch = Mid (s1, i, 1)

      If Asc(ch) <= 122 And Asc(ch) >= 97 Then

        ch =Chr(Asc(ch) - 32)

      End If

      If Asc(ch) >= 65 And Asc(ch)<= 90 Then

        ch = Chr(65 + (Asc(ch) - 62) Mod 26)

      End If

      s2 = s2 + ch

    Next i

    Text2.Text = s2

  End Sub

已知大写字母A的ASCII码值为65,且小写字母的 ASCII 码为对应的大写字母的ASCII码加上32。运行上述程序,若文本框Text1 中的内容为“Text1”,单击命令按钮 Command1,则文本框Text2中将显示(  )

A、Whawl B、WHAW1 C、Whaw3 D、WHAW3
举一反三
【加试题】某一条形码是由13位数字组成的编码,其末位是校验码。条形码校验的方法如下:①除校验码之外,求其余12位编码中的奇数、偶数的数字之和;②将偶数的数字之和乘以3,加上奇数的数字之和;③取第②步得到结果的个位数字,用10减去该数字,将得到的结果存入变量m;④若m的值为10,则将m的值修改为0,否则不变;⑤若m和校验码相等则输出“校验码正确!”,否则输出“校验码错误!”。

现编写一个VB程序,实现如下功能:在文本框Text1中产生条形码数字序列,单击“校验”按钮Command1,在标签Label1中输出对应的校验信息,界面如图所示。实现上述功能的VB程序如下,但加框处代码有错,请改正

Private Sub Command1_Click()

     Dim s As String, x As Integer

     Dim n As Integer , js As Integer, os As Integer, m As Integer

     Js=0: os=0

     s = Text1.Text

         {#blank#}1{#/blank#}

If n <> 13 Then

    Label1.Caption = "条形码位数错误!"

Else

    For i = 1 To 12

    {#blank#}2{#/blank#}  

      If x Mod 2 <> 0 Then

        js = js + x

      Else

        os = os + x

      End If

    Next i

    m = os * 3 + js

       {#blank#}3{#/blank#}

    If m=Val(Mid(s,n,1)) Then

      Label1.Caption = "校验码正确!"

    Else

       Label1.Caption = "校验码错误!"

    End If

End If

End Sub

返回首页

试题篮