Penggunaan Perulangan dan String Pada VB

Pada perulangan kali ini saya mengunakan DO WHILE dan pada String ini saya akan membuat nama saya "BETRIKS"
Dan sekarang  mari kita lakukan pembuatan nya bersama :)

• Pertama kita klik pada menu toolbox , lalu pilih label dan combo box . pada label kita ganti text menjdi NOMOR , dan combo ox pada name dengan NO .
• Kedua , klik 2 x pada form akan muncul public class.
• ketiga , pada private sub kita masukan koding nya
  
  Koding :
  
  DIM pulpen as integer
  pulpen = 1
  do while pulpen<=10
  NO.items.add(pulpen)
  pulpen=pulpen+1
  loop
• ke-empat , klik enter sesuai yg anda inginkan , lalu masuka koding string di bawah koding perulangan yang sudah anda ketikan tadi.
  
  Koding :
  
  DIM TR as string ="3ABM4EB12TQR4RTIKKHGGS"
  NO.items.add(microsoft.visualbasic.mid (TR,3,1) &_
                        (microsoft.visualbasic.mid (TR,6,1) &_
                        (microsoft.visualbasic.mid (TR,10,1) &_
                        (microsoft.visualbasic.mid (TR,14,1) &_
                        (microsoft.visualbasic.mid (TR,16,1) &_
                        (microsoft.visualbasic.mid (TR,18,1) &_
                        (microsoft.visualbasic.mid (TR,22,1) &_
• Setelah semua koding sudah selesai , klik F5 untuk memastikan koding benar atau eror . Jika semua benar dapat kita jalan kan dengan klik ctr+F5
• Selamat mencoba :)
  
  
  CATATAN : NO = combo box
                      pulpen = variabel