Quiz+4-13

Quiz 4-13:

Declare a one dimensional array of an string data type that has 2000 Rows. Then fill each cell that is divisible by 5 with "No More Snow!!!". Note: the other cells will have "Summer is Great" in them. Good Luck!

'========================== This is a way using MOD Dim Frog(2000) as string Dim I as integer

For I = 1 to 2000 If I mod 5 = 0 then Frog(I) = "No More Snow!!!" Else Frog(I) = "Summer is Great" end If Next I

 '========================== This is a way using two loops Dim Frog(2000) as string

Dim I as integer

For I = 1 to 2000  Frog(I) = "Summer is Great" Next I

For I = 5 to 2000 step 5

 Frog(I) = "No More Snow"  Next I