Question

vb习题：有一个10个整数的数组,各元素的值从小到大排列为:15,28,37,45,58,61,75,85,90,92.

现给出一个整数，要求将该数插入以上数组，插入后的排序不变，原位置的数据自动后移，并将最大的数值挤出。

Answer 1

Private Sub Command1_Click()

Dim a(), n As Integer

a = Array(-999, 15, 28, 37, 45, 58, 61, 75, 85, 90, 92)

Print "原有的数组元素是："

For i = 1 To UBound(a)

Print a(i);

Next i

Print

n = InputBox("请输入要插入的数：")

i = UBound(a)

While a(i) > n And i > 0

a(i) = a(i - 1)

i = i - 1

Wend

If i = UBound(a) Then i = i - 1

a(i + 1) = n

Print

Print "插入以后的数组元素是："

For i = 1 To UBound(a)

Print a(i);

Next i

Print

End Sub

Answer 2

dim a(1 to 10) as integer
private sub form_load()
a(1)=15
a(2)=28
''''''此处省略
end sub

private sub command1_click()
b=val(text1.text)
for i=1 to 10
if a(i)>b then
for j=10 to i step -1
if j>i then a(j)=a(j-1) else a(j)=b
next
end if
next
end sub