Program Menampilkan Jumlah Bilangan Genap dan Bilangan Genap pada Visual Basic

Program Menampilkan Jumlah Bilangan Genap dari suatu bilangan ( 1 sampai bilangan ke- x ) yang diinputkan di text box dan cacah atau banyaknya bilangan genap itu disebutkan. Bilangan genap itu apa saja gitu..\

Kode program yang di taruh di tombol CEK adalah :

Private Sub Command1_Click()

Dim Hasil As String

Dim i As Integer

For i = 1 To Val(Text1.Text)

If i Mod 2 = 0 Then

Hasil2 = Hasil2 + 1

Hasil = Hasil & i & ","

End If

Next

Label1.Caption = "bilangan genap dari 1 sampai " & Text1.Text & " ada " & Hasil2 & " yaitu " & Hasil

End Sub

sekian.