高考问答金瓶莲番外时沙:一个电脑程序设计“数列找数”？
来源：百度文库 编辑：高考问答 时间：2024/04/29 19:23:33
数列找数：数组A(N)的各下标变量中N个互不相等的数，键盘输入正整数M（M≤N），要求打印数组中第M大的下标变量的值。
例如：数组A（10）的数据为：
A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10)
16 57 20 19 38 41 6 13 25 32
运行结果：INPUT AN NUMBER:3
A(5)=38 （即第3大的数是A(5)=38）
例如：数组A（10）的数据为：
A(1) A(2) A(3) A(4) A(5) A(6) A(7) A(8) A(9) A(10)
16 57 20 19 38 41 6 13 25 32
运行结果：INPUT AN NUMBER:3
A(5)=38 （即第3大的数是A(5)=38）
用vb的代码
Private Sub Form_Click()
Dim a(10) As Integer
Dim i，j,t,m As Integer
for i=1 to 10
a(i)=inputbox("请输入一个数")
m=inputbox("请输入一个正整数数")
next i
i = 0
j = 9
For i = 0 To 9
For j = 9 To i
If a(j) < a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
if m<=10 then
i=m
print a(i)
end if
End Sub