Jawabanmu

2014-05-21T10:23:52+07:00
Ini menggunakan visual basic

Kode program yang di taruh di tombol CEK adalah :sebenarnya hampir sama sih dengan mencari bilangan genap, hanya merubah 0 nya menjadi 1

Private Sub Command1_Click()Dim Hasil As StringDim i As IntegerFor i = 1 To Val(Text1.Text)If i Mod 2 = 1 ThenHasil2 = Hasil2 + 1Hasil = Hasil & i & ","End IfNextLabel1.Caption = "bilangan genap dari 1 sampai " & Text1.Text & " ada " & Hasil2 & " yaitu " & HasilEnd Sub