vb编写程序在一个已按升序排好的数组中插入插入一个从键盘上输入的数使程序仍

Question

如题所述

Answer 1

假设已知a(5)数组有6个排序OK的数。
加一个Text控件 和 命令

Dim a() As Integer
Private Sub Command1_Click()
num = InputBox("Please enter number", "Insert number")
ReDim a(6) As Integer
a(0) = 1
a(1) = 2
a(2) = 4
a(3) = 6
a(4) = 11
a(5) = 14
a(6) = num
If a(6) < a(0) Then
For k = 5 To 0 Step -1
a(k + 1) = a(k)
Next k
a(0) = num
ElseIf a(6) > a(0) Then
For i = 1 To 5
If a(6) >= a(i - 1) And a(6) < a(i) Then
For k = 5 To i Step -1
a(k + 1) = a(k)
If k = i Then
a(k) = num
End If
Next k
End If
Next i

End If
For i = 0 To 6
txt1 = txt1 & a(i) & "-"
Next i
Text1.Text = txt1

End Sub
Private Sub Form_Load()
ReDim a(5) As Integer
a(0) = 1
a(1) = 2
a(2) = 4
a(3) = 6
a(4) = 11
a(5) = 14
For i = 0 To 5
txt1 = txt1 & a(i) & "-"
Next i
Text1.Text = txt1
End Sub本回答被网友采纳

Answer 2

你是焦挺吗？朋友。很敬佩！