Program Menampilkan Bilangan Ganjil dan Banyaknya Bilangan Ganjil pada Visual Basic

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

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 String
Dim i As Integer
For i = 1 To Val(Text1.Text)
If i Mod 2 = 1 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

Comments

Popular posts from this blog

Cara Mengatasi Galat: Index hilang pada kolom di phpMyAdmin

Program C++ Menghitung Diskon Pembelian oleh Pelanggan