Question

vb编程序,在有序数组中插入一个数,在有序数组中删除一个数.

要求先输出有序数组,然后输入插入或删除的数,最后显示插入或删除后的有序数组.

Answer 1

Dim a() As Integer, i As Integer, j As Integer, k As Integer

Private Sub Command1_Click()
Dim k As Integer
k = Val(Text1.Text)
For i = 1 To 6
   If k < a(i) Then
      Exit For
   End If
Next i
For j = 6 To i Step -1
   a(j + 1) = a(j)
Next j
a(i) = k
For i = 1 To 7
   Print a(i);
Next i
Print
End Sub

Private Sub Command2_Click()
Dim k1 As Integer
k1 = Val(Text1.Text)
For i = 1 To 7
If k1 = a(i) Then Exit For
Next i
For j = i + 1 To 7
   a(j - 1) = a(j)
Next j
For i = 1 To 6
   Print a(i);
Next i
End Sub

Private Sub Command3_Click()
ReDim a(1 To 7) As Integer
For i = 1 To 6
   a(i) = Int(Rnd * 101)
Next i
For i = 6 To 2 Step -1
   For j = 1 To i - 1
      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
For i = 1 To 6
   Print a(i);
Next i
Print
End Sub

Private Sub Form_Load()
Label1.Caption = "请输入要删除或插入的数"
Text1 = ""
Command1.Caption = "插入"
Command2.Caption = "删除"
Command3.Caption = "生成随机序数"
End Sub