' VBScript FizBuzz'Write a program that prtins the numbers from 1 to 100. 'But for multiples of three print Fizz 'instead of the number and for the 'multiples of five print Buzz. 'For numbers which are multiples of both three and five 'print FizzBuzz.MainPrivate Sub Main For x = 1 to 100 WScript.Echo EfferVesce(x) Next End SubPrivate Function EfferVesce(ByVal TheNumber) If 0 = (TheNumber mod 3) + (TheNumber Mod 5) Then EfferVesce = "FizzBuzz" ElseIf 0 = TheNumber Mod 3 Then EfferVesce = "Fizz" ElseIf 0 = TheNumber Mod 5 Then EfferVesce = "Buzz" Else EfferVesce = TheNumber End IfNextEnd Function http://zzmcbrjloc.com
url=http://dwadvaeoize.comdwadvaeoize
/url link=http://lxlpyrw.comlxlpyrw
/link