4.16.bas

来自「vb编程+从基础到实践光盘代码」· BAS 代码 · 共 37 行

Attribute VB_Name = "Module1"
Public Sub Insert()
    Dim i As Integer, j As Integer
    Dim temp As Integer
    Dim ins As Integer, pos As Integer
    Dim x(10) As Integer
                                     '随机产生9个1--100的整数并排序
    Randomize
    For i = 1 To 9
        x(i) = Int(100 * Rnd) + 1
    Next i
    For i = 1 To 8
        For j = i + 1 To 9
            If x(i) > x(j) Then
                temp = x(i)
                x(i) = x(j)
                x(j) = temp
            End If
         Next j
    Next i
                                                            '从键盘输入一个正数
    Do
        ins = Val(InputBox("ins="))
    Loop Until ins > 0
                                                            '将输入的数插入数组中
    pos = 1
    For i = 1 To 9
        If ins <= x(i) Then Exit For
        pos = i + 1
    Next i
    For j = 9 To pos Step -1
        x(j + 1) = x(j)
    Next j
    x(pos) = ins
End Sub