Pemrograman blog

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

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 :

Sudah lama gak mempostingkan artikel di blog ini, dan ada kabar baik bagi pengunjung, sekarang blog ini ada kategori baru, yaitu kategori visual basic, dan ini adalah artikel pertama di blog ini tentang visual basic. 'Kode Untuk Tombol Add' '(menambah daftar ke listbox, syarat jika daftar sudah ada maka tidak bisa tambahkan lagi / akan muncul peringatan)'