VB程序题：编一子过程 ProcMin(a()),amin),求一维数组a中的最小值amin VB源码 龚沛曾

VB程序题：编一子过程 ProcMin(a()),amin),求一维数组a中的最小值amin  VB源码 龚沛曾
主调程序随机产生10个-300~-400之间的数，显示所产生的数组中的各元素；调用ProcMin子过程，显示数组中的最小值。

解题，代码如下：
Private Sub Form_Click()
    Dim a(1 To 10), amin, i%
    Randomize
    For i = 1 To 10
        a(i) = -Int(Rnd * 101 + 300)
        Print a(i);
    Next i
    Call s(a(), amin)
    Print
    Print "min="; amin
End Sub
Sub s(b(), min)
    Dim i%
    min = b(LBound(b))
    For i = LBound(b) + 1 To UBound(b)
        If b(i) < min Then min = b(i)
    Next i
End Sub

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/89.html