当前位置: 高中信息技术 / 综合题
  • 1. (2020高三上·诸暨月考) 数组元素a(1)~a(100)用以存储某班级50位学生的信息技术和通用技术成绩,奇数位置存储信息技术成绩,偶数位置存储对应学生的通用技术成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想,设计一个在数组a中查找总成绩为key的程序,统计输出两科总成绩大于等于key的人数。部分运行界面如图所示:

    实现该功能的VB程序如下:

    Private Sub Command1_Click()

    Dim a(1 To 100) As Integer

    Dim sum As Intcger

    Const t= 50

    ‘将50个学生的信息技术和通用技术成绩依次存储在数组a(1)~a(100),代码略

    Key = Val(Text2.Text)

    i= 1

    j= 100

    m=(i+j)\2

    Do While   ①   And m>1

        If m Mod 2=1 Then m= m- 1

        sum = a(m)+ a(m- 1)

        If  ②  Then

            j=m-2

        Else

           

        End If

        m=(i+j)\2

    Loop

    Label2.Caption "大于等于"& Key & "分的人数为: "+ Str(t-j\2)

    End Sub

    1. (1) 代码"Private Sub Command1_Click()"中的Command1_Click()是(单选,填字母:A .对象名/B .属性名/C .事件名/D .事件处理过程明)。
    2. (2) 请在①②划线处填入合适代码。

       ② 

    3. (3) 加框出代码有错,请改正。

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