16 lines
575 B
Text
16 lines
575 B
Text
function SumDigits(number, nBase)
|
|
if number < 0 then number = -1 * number ' convert negative numbers to positive
|
|
if nBase < 2 then nBase = 2 ' nBase can//t be less than 2
|
|
sum = 0
|
|
while number > 0
|
|
sum = sum + (number mod nBase)
|
|
number = int(number / nBase)
|
|
wend
|
|
SumDigits = sum
|
|
end function
|
|
|
|
print "The sums of the digits are:\n"
|
|
print "1 base 10 : "; SumDigits(1, 10)
|
|
print "1234 base 10 : "; SumDigits(1234, 10)
|
|
print "fe base 16 : "; SumDigits(hexdec("FE"), 16)
|
|
print "f0e base 16 : "; SumDigits(hexdec("F0E"), 16)
|