试题

试题 试卷

logo

题型:填空题 题类:常考题 难易度:普通

浙江省台州中学2014-2015学年高一下学期信息技术期中考试试卷

有如下Visual Basic程序段:

Dim i As Integer, s As Integer

i = 1

s = 0

Do While i <= 5

 s = s + 2

i = i + 1

Loop

问:该程序段运行后,变量s的值为,i的值为

举一反三
国际标准书号ISBN分成四组的10位数字组成,前面9位数字分组号、出版社和书序号三组,最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位),取出的数字依次乘以10、9、8……2,把各次的乘积相加,用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码,单击“校验”按钮Cmd1,在文本框Text2输出结论。程序运行的界面如图所示:

实现上述功能的VB程序如下,但加框处代码有错,请改正。

Private Sub Command1_Click()

  Dim s As String,i As Integer,s1 As String,sum As Integer,t As Integer

  Dim jy As Integer

  s=Text1.Text

  t=0:sum=0

  For i=1 To Len(s)

    s1=Mid(s,i,1)

    If s1>=“0” And s1<=“9” Then

           ′①

        If t<10 Then

            sum=sum+Val(s1)*(11-t)

        ElseIf t=10 Then

              ′②

        End If

    End If

  Next i

  sum=11-sum Mod 11

  If  Then′③

    Text2.Text=“该校验码中数字不是10位数!”

  Else

    If jy=“X” and sum=10 Then

      Text2.Text=“校验通过”

    ElseIf val(jy)=sum then

      Text2.Text=“校验通过”

    Else

      Text2.Text=“校验不通过”

    End If

  End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

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

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

返回首页

试题篮