當前位置:首頁 ? VB程序題 ? 正文

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.cojdcn.tw/post/79.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

贊助商鏈接

湘公網安備 43011102000514號 - ICP備08100508號

黑龙江福彩22选5开奖果