Contoh Project Visual Basic 2010 Menentukan Rata-rata dari data yang di input.

Menentukan jumlah dan rata-rata dari data yang dimsukkan Tidak menggunakan menu utama.

• Form project

 

• Coding project

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

End Class