Untuk menampilkan barisan bilangan 1 sampai dengan N, dengan N dimasukkan melalui textbox dan hasil barisan ditampilkan melalui ListBox. Langkah-langkahnya adalah:
  1. Buat project baru menggunakan Standard EXE. Pada form, isi property [Caption] dengan Barisan Bilangan.
  2. Tambahkan komponen-komponen: 1 label, 1 textbox, 1 listbox dan 1 commandbutton.
  3. Untuk label1, isi property [Caption] dengan "N =", [Alignment : 2 - Center]. Untuk text1, kosongkan property [Text]. Untuk command1, isi property [Caption] dengan Tampilkan Barisan dan untuk List1, kosongkan property List. Atur huruf [size : 12] dan posisi masing-masing komponen seperti gambar berikut:


  4. Klik pada command1, tambahkan program untuk membuat barisan bilangan dari 1 sampai dengan N sebagai berikut:
  5. Private Sub Command1_Click()
    N = Val(Text1)
    List1.Clear
    For i = 1 To N
    List1.AddItem i
    Next i
    End Sub
    Fungsi Val digunakan untuk mengubah tipe data text menjadi data numerik. Property Clear pada List1 digunakan untuk membersihkan isi List1, dan property AddItem pada List1 digunakan untuk menambahkan isi List1. Dengan demikian sebelumnya dibersihkan, kemudian ditambah isinya dengan barisan bilangan yang dibuat.

  6. Simpan project kemudian jalankan. Isilah nilai N dengan bilangan yang berbeda-beda, perhatikan hasilnya.

    Sumber:
    Basuki Achmad, 2006, Algoritma Pemrograman 2 Menggunakan Visual Basic 6.0, Institut Teknologi Sepuluh Nopember, Surabaya.