试题

试题 试卷

logo

题型:单选题 题类:常考题 难易度:普通

浙江省Z20名校联盟(名校新高考研究联盟)2022届高三上学期信息技术8月第一次联考(暑假返校联考)试卷

在由数字组成的字符串中,找出同一数字的相邻最大间距,如字符串“1231212323” ,数字“3”第一次与第二次分别出现在位置3和8,相距5,间隔距离最大。编写VB代码如下:

Dim d(0 To 9) As Integer

s=Text1.Text

c=0

For i=0 To 9

    d(i)=0

Next i

For i=1 To Len(s)

          '填空

Next i

Text2.Text=Str(c)

方框处的代码可由以下三部分组成:

①d(t)=i   ②t=val(Mid(s,i,1))   ③if d(t)<>0 And i-d(t)>c Then c=i-d(t)

代码顺序正确的是(     )

A、①②③ B、②③① C、②①③ D、①③②
举一反三
某仓库物品代码格式为“X-XXX-XXXXX-Y”,其中“X”和“Y”均为0到9之间的数字,“Y”为校验码。校验码由前面9个X计算得到,计算方法为:从左边开始,第1个数字乘以1加上第2个数字乘以2……依此类推,直到加上第9个数字乘以9,将该结果除以10,所得余数即为校验码。

小吴设计一个根据校验码校验物品代码的VB程序,功能如下:在文本框Text1中输入物品代码,单击“校验”按钮Command1,如果输入的校验码与计算所得的校验码一致,则输出“校验通过。”(如下左图所示),否则输出“校验不通过!”(如下右图所示)。

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

Dim s As String           '用于存储输入的物品代码

Dim t As String

Dim i As Integer, j As Integer

Dim sum As Integer           '用于存储计算校验码的累加和

Dim check_old As Integer             '用于存储输入物品代码中的校验码Y

Dim check_new As Integer            '用于存储按照前面9个数字X计算所得的新校验码

Dim a(1 To 10)As Integer

Private Sub Command1_Click()

    '从物品代码中取出9个数字X依次存储到a(1)到a(9)中,取出校验码Y存储到a(10)中

    s= Text     ①

    j=0

    For i=1 To 13

        t=Mid(s, i, 1)

        If(t>="0")And(t<="9") Then

            j=j+1

            a(j)=Val(t)

        End If

    Next i

    '计算新的校验码并和输入的校验码进行比较

    sum=0

    For i=1 To 9

        sum=sum+       ②

    Next i

    check_new=    ③

    check_old=a(10)

    If check_old=check_new Then

        Label1.Caption="校验通过。"

    Else

        Label1.Caption="校验不通过! "

    End If

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#} 

返回首页

试题篮