当前位置: 高中信息技术 / 综合题
  • 1. (2016·杭州模拟) 某社区进行“摘葡萄”比赛活动,最后取十人进入决赛,工作人员编制了如下Visual Basic程序,功能是根据葡萄串数进行排序,程序中所有参赛者的成绩保存在数组m中,对应的姓名保存在数组name中。

    程序运行界面如图所示,左边列表框List1中显示数据(成绩和姓名),单击 “开始排序”按钮(Command1),排序后的结果按成绩从高到低显示在列表框List2中。

    解决此问题的排序部分的程序段如下:

    Dim m(1 To 10) As Single

    Dim name(1 To 10) As String

    Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

    For i = 1 To 9

        k = i

        For j = i + 1   To  10

            If      ①      Then k = j

        Next j

        If k <> i Then

            x = m(i) : m(i) = m(k) :       ②      

            y = name (i) :  name (i) = name (k)   :  name (k) = y

        End If

    Next I

        For I = 1  To  10

            List2.AddItem Str(m(i)) + "     " + name(i)

        Next i

    End Sub

    Private Sub Form_Load()

           ' 此过程用于对数组a和数组b进行初始赋值,代码略

    End Sub

    在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:

    1. (1) 程序中①划线处应填入
    2. (2) 程序中②划线处应填入

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