ANALISIS LISTING PROGRAM JUMLAH BILANGAN

Public Class Form1

    Dim Jumlah As Integer

    Dim awal, akhir As Integer

‘menampilkan variabel jumlah, awal, akhir hanya dikenal dalam daerah form 1 atau penjabaran dari tipe data yang digunakan dan tipe data numerik berupa bilangan bulat’

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Jumlah = 0

        awal = Val(TextBox1.Text) ‘menunjukkan nilai awal dalam Textbox1 hanya dibaca nilai Numerik’

       akhir = Val(TextBox2.Text) ‘menunjukkan nilai akhir dalam Textbox1 hanya dibaca nilai Numerik’

Do Until (awal > akhir)

            Jumlah = Jumlah + awal

            awal = awal + 1

        Loop

‘menunjukkan

        MsgBox("jumlah bilangan adalah " & Jumlah, vbOKOnly, "jumlah")

‘menunjukkan message box yang merupakan hasil dari perhitungan jumlah bilangan’

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close() (‘menunjukkan jika mengklik button 2 maka form akan keluar’

    End Sub

  

End Class