题目

小王编写VB程序实现Excel筛选最大的n项数据功能。其功能如下：在列表框list1中显示m个原始数据(存储在数组a中)，在文本框Text1中输入整数n(n≤m)，单击“筛选”按钮Command1后，在列表框List2 中按降序输出最大的n项数据(包括第n项的重复数据)。 程序运行界面如图所示，实现上述功能的VB程序如下。请回答下列问题： Const m= 10 Dim n As Integer Dim a(1 To m) As Integer Private Sub Form_ Load( )     '获取原始数据依次存数组a中，并在列表框List1中显示，数据个数存变量m，代码略 End Sub Private Sub Command1_ Click( )     Dim i As Integer, j As Integer, k As Integer     n= Val(Text1. Text)     i= 1     Do While i<=n         k=i         For j=i+1 To m             If a(j) > a(k) Then k=j         Next j         If i<>k Then             a(i)=a(i)+a(k)： a(k)=a(i) - a(k) ：   ①           End If         i=i+ 1     Loop     For i=1 To n         List2. AddItem Str(a(i))     Next i     c==n     For i=n+1 To m         If  Then c=c+1： List2. AddItem         Str(a(i))    '改错     Next i     List2. AddItem "筛选出" +   ②    + "个成绩" End Sub （1） 代码“Private Sub Command1_ Click( )”中的Command1_ Click( )属于 (单选，填字母：A .对象名/B .属性名/C .事件名/D .事件过程名)。 （2） 请在划线处填入合适的代码。 ① ②  （3） 加框处代码有错误，请改正。 答案： 【1】D 【1】a(i)=a(i)-a(k)【2】Str(c) a(i)= a

查看本题答案和解析