试题

试题 试卷

logo

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

【bj】高中信息技术综合库——循环语句2

下列VB程序功能为:先把数组中最小的元素放到中间位置,再把第二小的元素放到中间的后一个位置,然后把第三小的元素放到中间的前一个位置,以此类推。如数组元素a(1)到a(9)的值依次为72,61,3,95,39,38,64,65,98,程序运行后,数组元素a(1)到a(9)的值依次为98,72,64,39,3,38,61,65,95。

m = (1 + n) \ 2       ‘n为数组元素的个数,m为数组中间位置元素的下标

For i = 1 To n

    If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

    If i Mod 2 = 1 Then

        k = q + 1: q = q + 1

    Else

        k = p - 1: p = p - 1

    End If

    pos = k

    For j = 1 To n

        If And a(j) < a(k) Then k = j

    Next j

    If pos > k Then

        t = a(pos): a(pos) = a(k): a(k) = t

    End If

Next i

上述程序段方框处的代码为(  )

A、j < p And j > q B、j > p Or j < q C、j < p Or j > q D、j > p And j < q
举一反三
某仓库物品代码格式为“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#} 

返回首页

试题篮