Identify Biggest number in given numbers

‘ Here is the code to identify Biggest no. in given 10 digits

‘ Identify Biggest no. in a given list

‘******************************Called Function with an Array**********************

Function Biggest(a)

val2=a(9)
print val2
Big=val2

For i=0 to ubound(a)

val1=a(i)
print val1

If (val1>Big) Then

Big=val1

else

Big=biggest

End If

biggest=big

Next

‘print “Biggest no. is ………………….”&Big

End Function

‘*******************************End of Function **********************************

Dim a

a=array(1,2,4,3,56,2,35,30,12,5) ‘ Assigning values to an Array “a”

‘************************************ Calling Function ****************************

big=Biggest(a) ‘Function calling with an array “a”

print “Biggest No. is “&big ‘ Printing Returned Value of Function

Thanks & Regards
Baba Fakruddin.D

Reverse the Given Number

‘Reversing the Given Number…

Function Reverse(Num)

num_len=len(Num)

for i=0 to len(Num)-1

Rem=Num mod 10

‘msgbox Rem

Num=Num\10

‘msgbox Num

val=val&Rem

print val

Next

Reverse=val

End Function

Num=Inputbox(“Enter a Number to reverse”)

result=Reverse(Num)

msgbox “Reversed Number is      :”&result

thanks & regards,

Baba Fakruddin.D