• 2021-04-14
    编写子过程,子过程的功能是:交换一个数组中最大值和最小值的位置,其他元素的位置不变。要求在主调过程中输入(或随机产生)一组数,并在主调过程中输出处理前、处理后的数据。
    Private Sub Form_Click()
    Dim a%(1 To 10), i%
    Print "原始数据:"
    For i = 1 To 10
    a(i) = Int( 【1】* 101 + 100)
    Print a(i);
    Next i
    Print
    Call 【2】
    Print "交换后:"
    For i = 1 To 10
    Print a(i);
    Next i
    Print
    End Sub
    Sub jh(b%())
    Dim ma%, mi%, i%, t%
    ma = LBound(b)
    mi = LBound(b)
    For i = LBound(b) + 1 To 【3】
    If 【4】Then ma = i
    If b(mi) > b(i) Then 【5】
    Next i
    t = b(ma): b(ma) = b(mi): b(mi) = 【6】
    End Sub