Contoh Program Visual Basic 2010 : Latihan 11

'Latihan 11 (Mencari Jumlah Nilai dan Rata-rata)

             'Tampilan Form

'Coding

Public Class frmLat_11

    Dim jumlah, rerata As Integer

    Dim data As String

    Private Sub bInput_Click(ByVal sender As 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("Masukkan Data" & ulang & " : "))

                jumlah = jumlah + inputdata

                data = data & " " & inputdata

                ulang = ulang + 1

            End While

            rerata = jumlah / Val(Me.txtBanyak.Text)

            Me.txtData.Text = data.ToString

            Me.txtJumlah.Text = jumlah.ToString

            Me.txtaRerata.Text = rerata.ToString

        Else

            'Inputkan Banyak Data

            Me.txtBanyak.Text = ""

            Me.txtBanyak.Focus()

        End If

    End Sub

    Private Sub frmLat_11_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_11_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

End Class