Misalkan diketahui suatu bilangan 10 maka digit pembentuk bilangan tersebut dapat diuraikan sebagai berikut:
0 –> satuan
1 –> puluhan
Misalkan diketahui bilangan 275 maka posisi digit dalam bilangan tersebut dapat diurai sebagai berikut:
5 –> satuan
7 –> puluhan
2 –> ratusan
Algoritma
0. Mulai
1. tentukan variabel penyimpan satuan, puluhan, ratusan, ribuan
2. tentukan bilangan, mis N
3. tentukan panjang N
4. Ulangi I mulai dari N s.d panjang 1
5. Cetak keterangan I
6. Ulangi Ke I
7. Selesai
Implementasi
Private Sub Form_Activate() Dim N,I as Byte Dim Bil,Digit(9) as String*15 Digit(1)="Satuan" Digit(2)="Ratusan" Digit(3)="Ribuan" Digit(4)="Puluhan Ribu" Digit(5)="Ratusan Ribu" Digit(6)="Satu Juta" Digit(7)="Sepuluh Juta" Digit(8)="Seratus Juta" Digit(9)="Satu Milyar" Bil="275" N=Len(Bil) For I = N-1 To 1 Step 1 Print Bil(I-1);Digit(N-I) Next I End Sub