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

VB程序题:随机产生30-100(包括30、100)的10个正整数,求最大值,最小值,平均值,并显示整个数组的值和结果,如下图所示。龚沛曾

VB程序题:随机产生30-100(包括30、100)的10个正整数,求最大值,最小值,平均值,并显示整个数组的值和结果,如下图所示。
 
 
解题,代码如下:
Private Sub Form_Click()
    Dim a(1 To 10) As Integer
    For i = 1 To 10
        a(i) = Int(Rnd * 71 + 30)
        Print a(i); " ";
    Next i
    Max = a(1)
    Min = a(1)
    Avg = a(1)
    For i = 2 To 10
        If a(i) > Max Then Max = a(i)
        If a(i) < Min Then Min = a(i)
        Avg = Avg + a(i)
    Next i
    Avg = Avg / 10
    Print
    Print "Max="; Max; "  Min="; Min; "  Avg="; Avg
End Sub

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

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://www.wb98.com/post/79.html

    << 上一篇 下一篇 >>

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