تجزیه عدد

[ali.rk]

کد تجزیه عدد :



Dim a AsInteger


Dim fi


Dim i AsBoolean


Dim x AsBoolean


x = True


i = True


Dim ted


Dim araye(31) AsInteger


Dim p


a = TextBox1.Text


pa = "{ "


fi = 2


p = 1


While i


If a Mod fi = 0 Then


araye(p) = fi


a = a / fi


p = p + 1


If a = 1 Then


Exit While


EndIf


Else


fi = fi + 1


EndIf


EndWhile


p = 1


While x


If araye(p) <> 0 Then


If araye(p + 1) <> araye(p) And araye(p - 1) <>araye(p) Then


pa = pa & " " & araye(p) & "^1"


ted = 0


p = p + 1


Else


If araye(p) <> araye(p - 1) And araye(p + 1) = araye(p) Then


ted = 1


p = p + 1


Else


If araye(p) = araye(p - 1) And araye(p + 1) = araye(p) Then


ted = ted + 1


p = p + 1


Else


If araye(p) = araye(p - 1) And araye(p + 1) <> araye(p) Then


ted = ted + 1


pa = pa & " " & araye(p) & "^" & ted


p = p + 1


ted = 0


EndIf


EndIf


EndIf


EndIf


Else


Exit While


EndIf


EndWhile



pa = pa & " }"




یه تشکر بکنید ممنون می شما

[ali.rk]

dim pa
رو تو class بنویسید تهش pa می شه متن تجزیه اش