Coding Cara mencari n bilangan Ganjil pertama dengan VB 6

Kali ini saya akan berbagi koding sederhana untuk mencari bilangan ganjil pertama dengan inputan n menggunakan VB6, caranya hampir sama dengan posting saya sebelumnya yaitu Coding cara mencari n bilangan genap pertama dengan VB6, kita akan sedikit memodifikasi kodingnya dimana kalau bilangan genap dimulai dari 0 sedangkan bilangan ganjil dimulai dari 1.
disini kita akan memberikan perubahan pada nilai awal a menjadi 1.

berikut ini kodingnya:

Private Sub Form_Load()
Form1.Show
Form1.FontSize = 14
Form1.FontBold = True
n = InputBox("Inputkan n", "input")
a = 1
For i = 1 To n
Print a
a = a + 2
Next
End Sub

Langkah-langkahnya adalah sebagai berikut:

• Buat Form baru pada VB 6. trus klik kanan form - View Code , setelah itu copy dan paste koding diatas pada tempat tsb. seperti pada gbr dibawah

• Simpan dan tekan Start (F5), maka tampilannya akan seperti gambar berikut

• Kemudian masukkan bilangan sembarang pada input box... disini saya memberikan contoh untuk mencari 10 bilangan ganjil pertama, maka saya akan memasukkan angka 10 ,dan hasilnya seperti berikut

Setelah dimasukkan angka 10 maka akan ditampilkan 1 bilangan genap pertama yang dimulai dari 1 - 19.

Oke kawan ... silahkan dicoba!!!