Membuat Angka Urut 1 Tampai 100 dengan Visual Basic 6.0


pada pelajaran pertama kelas TK ataupun SD tentunya kita disuruh membuat angka urut 1 sampai 10

nah kali ini juga pelajaran pertama di visual basic yaitu membuat angka urut dari 1 sampai 100

oke.. langsung saja berikut codenya:

 

Dim a As Integer ‘mendeklarasikan a
Private Sub Form_Load()
a = 0 ‘menentukan a
Do ‘memulai
a = a + 1 ‘menambahkan a dengan a + 1
Text1.Text = Text1.Text & “[” & a & “] “ ‘menampilkan hasil a ke text1.text
Loop Until a = 100 ‘ulangi do sampai jumlah a = 100
End Sub

 

dan berikut hasilnya:

====>> klik gambar untuk memperbesar

 

nah untuk membuat angka kelipatan, kodenya hampir sama

misalnya kelipatan 7 dari 1 sampai 100

code:

Dim a As Integer ‘mendeklarasikan a
Private Sub Form_Load()
a = 1 ‘menentukan a
Do ‘memulai
Text1.Text = Text1.Text & “[” & a & “] “ ‘menampilkan hasil a ke text1.text
a = a + 7 ‘menambahkan a dengan kelipatan 7
Loop Until a >= 100 ‘ulangi do sampai jumlah a lebih besar atau sama dengan  100
End Sub

berikut hasilnya:

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s