当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·上海月考) 奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法:统计二进制数据的数位中“1”的个数,若个数为奇数,则校验位值为0,否则校验位值为1。小李编写了一个计算奇校验位值得VB程序,功能如下:在文本框Text1中输入1~255十进制待校验数,单击“计算”按钮Command1后,在文本框Text2中显示该数对应的二进制值,并在标签Label3中显示该数的校验位值。程序运行界面如图所示。

    1. (1) 在设计程序界面时,要清空文本框中的显示内容,应修改该文本框中的属性,要修改窗体的标题,应该应修改该窗体的属性。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适代码。

      Private Sub Command1_Click()

      Dim a As Integer, s As String

      Dim n As Integer, t As Integer, v As Integer

      n = Val(Text1.Text)

      t = 0

      s = ""

      Do While n > 0

        a = n Mod 2

        n = n \ 2

        t =

        s = Str(a) + s

      Loop

      v = t Mod 2

      Text2.Text = s

      Label3.Caption = "校验位值:" +

      End Sub

    3. (3) 运行该程序,在文本框Text1中输入22,单击“计算”按钮,则显示的校验位值是 。

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