Out of The Box!!!

Berikut sebuah cuplikan program VB 6.0 dari seorang siswa untuk menampilkan deret 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 dengan menggunakan perintah pengulangan (looping) yang membuat terkesima dan speechless. Sangat orisinal dan otentik... mak nyussss

Dim I as Integer
I = 1

While I < 1
Text1.Text = "1, 2, 3, 4, 5, 6, 7, 8 , 9, 10"
I = I + 1
Wend

Sementara teman-temannya umumnya membuat program seperti berikut :

Dim I as Integer
I = 1

While I <= 10
Text1.Text = Text1.Text & I & ", "
I = I + 1
Wend

Yang akan menghasilkan 1, 2, 3, 4, 5, 6, 7, 8 , 9, 10, (ada koma di belakang angka sepuluh). Sementara program yang benar menurut pengajar :

Dim I as Integer
I = 1

While I <= 10
Text1.Text = Text1.Text & I
If I <>Text1.Text = Text1.Text & ", "
I = I + 1
Wend