当前位置: 高中信息技术 / 综合题
  • 1. (2019高三上·浙江月考) 编写“区间覆盖”程序,实现如下功能:输入数轴上的若干个封闭区间范围(均为正整数且左坐标<右坐标),单击“统计”按钮,计算覆盖所有区间所需的数据点的个数。

    例如:依次输入以下区间:[2 5],[4 7],[1 4],[5 9],[4 5],[2 4],数轴如下:

    坐标点“4”覆盖了[2 5],[4 7],[1 4],[4 5],[2 4]共5个区间,坐标点“9”覆盖了[5 9]区间,所以覆盖这6个区间所需的坐标点数为2个。

    程序运行界面如图所示。

    实现上述功能的VB代码如下:

    Dim n As Integer

    Dim a(1 To 100) As Integer

    Private Sub Input_Click()

        '输入n个正整数区间,依次存放到数组

        'a(1)到a(2*n)中,并在List1中显示

        '代码略

    End Sub

    Private Sub Count_Click()

        Dim right As Integer, t As Integer, k As Integer

        Dim tmp As Integer, i As Integer, ans As Integer

       

             ‘改错

        ans = 1: t = 3

        Do While t < 2 * n

            If     ①    Then

                If a(t + 1) < right Then right = a(t + 1)

            Else

                ans = ans + 1

                right = a(t + 1)

            End If

                ②    

        Loop

        Text3.Text = Str(ans)

    End Sub

    请回答下列问题:

    1. (1) 根据程序可知,“统计”按钮的对象名为
    2. (2) 根据虚线框中算法可知,如示例所示输入的数据[4 7]和[4 5],在排序后,这两组数据在数组中的前后位置顺序是否发生改变?。(填:是/否)
    3. (3) 程序中加框处代码有误,请改正。
    4. (4) 请在划线处填入合适的代码。

       ② 

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