Pages

Coding Cara mencari n bilangan genap pertama dengan VB 6

Berikut koding cara mencari bilangan genap pertama dengan inputan n  menggunakan VB6

Private Sub Form_Load()
Form1.Show Form1.FontSize = 14
Form1.FontBold = True
n = InputBox("Inputkan n", "input")
a = 0
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 genap pertama, maka saya akan memasukkan angka 10 ,dan hasilnya seperti berikut


Setelah dimasukkan angka 10 maka akan ditampilkan 10 bilangan genap pertama yang dimulai dari 0 - 18.
Oke kawan ... silahkan dicoba!!!








5 komentar:

  1. Thx gan, sangat membantu buat nambah ilmu plus ngerjakan tugas kuliah hehehe :D

    ReplyDelete