组卷题库 > 高中信息技术试卷库
试题详情
编写一个VB程序,实现功能为在n个数中寻找第m大的数。程序运行时,自动生成n个三位数随机整数,并显示在列表框List1中,单击“排序”按钮Command1,将数据进行排序,并将排好序的数据显示在列表框List2中,在文本框Text1中输入m,单击“计算”按钮Command2,在文本框Text2中显示第m大的数。程序运行效果如下图所示:

为实现上述功能的VB程序如下,在程序划线处填入合适的代码。

Dim d(1 To 20) As Integer

Const n = 20

Private Sub Form_Load()

    Dim i As Integer, j As Integer, t As Single

    List1.Clear

    Randomize

    For i = 1 To n

        

        List1.AddItem Str(d(i))

    Next i

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t1 As Integer

    For i = 1 To n - 1

        For j =

            If d(j) < d(j - 1) Then

                t1 = d(j): d(j) = d(j - 1): d(j - 1) = t1

            End If

        Next j

    Next i

    For i = 1 To n

        List2.AddItem Str(d(i))

    Next i

End Sub

Private Sub Command2_Click()

    Dim m As Integer

    m = Val(Text1.Text)

    Text2.Text = “第” + Str(m) + “ 大的数为:” +

End Sub

知识点
参考答案
采纳过本试题的试卷
教育网站链接