Kod:
Dim Sayi As String, Carpim As Long, Toplam As Long Sayi = InputBox("", "10 tabanında yazılacak sayıyı giriniz.") Dim a As Integer Cls Carpim = 1 Toplam = 0 Print "Girilen sayı : " & Sayi Print "" For a = Len(Sayi) To 1 Step -1 Print Mid(Sayi, a, 1) & " x " & Carpim & " = " & Mid(Sayi, a, 1) * Carpim Toplam = Toplam + Mid(Sayi, a, 1) * Carpim Carpim = Carpim * 10 Next a Print "" Print "Bu sayının 10 tabanından yazılışı : " & Toplam
__________________