Option Explicit Private Sub CmdAvg_Click() Dim I As Integer Dim x(1 To 5) As Integer Dim Tsum, Tavg As Integer x(1) = 16: x(2) = 12: x(3) = 18: x(4) = 15: x(5) = 10 For I = 1 To 5 Tsum = Tsum + x(1) NextI Tavg = Tsum / 5 Label2.Caption = Tavg End Sub
Private Sub CmdEnd_Click() End End Sub
Private Sub CmdSum_Click() Dim I As Intger Dim x(1 To 5) As Intger Dim Tsum As Integer x(1) = 16: x(2) = 12: x(3) = 18: x(4) = 15: x(5) = 10 For I = 1 To 5 Tsum = Tsum + x(1) NextI Lable2.Caption = Tsum End Sub