Aplikasi Jumlah Dan Rata-Rata
- Form Design
- Code
Dim Data As String
Dim jumlah As Integer
Dim Ratarata As Integer
Private Sub bInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bInput.Click
Dim ulang, inputdata As Integer
If Val(Me.txtBanyak.Text) >= 1 Then
'lanjutkan proses
ulang = 1
While (ulang <= Val(Me.txtBanyak.Text))
inputdata = Val(InputBox("masukan data " & ulang & " :"))
jumlah = jumlah + inputdata
Data = Data & " " & inputdata
ulang = ulang + 1
End While
Ratarata = jumlah / Val(Me.txtBanyak.Text)
Me.txtData.Text = Data.ToString
Me.txtJumlah.Text = jumlah.ToString
Me.txtRata.Text = Ratarata.ToString
Else
'input banyak data
Me.txtBanyak.Text = ""
Me.txtBanyak.Focus()
End If
End Sub
- Start Debugging
