当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号