This one was fun. Although, I knew what a Prime number is, I don't think I've ever learned methods to find them. The method I used is fine for a small number, but really wouldn't scale.
Advanced Event 6 in the Microsoft Scripting Games 2008.
1: '*********************************************************************
2: ' Script Name: Event6.vbs
3: ' Version: 1.0
4: ' Author: Perry Harris (PHactotum)
5: ' Updated: 8:45 AM Tuesday, February 26, 2008
6: ' Purpose: Solves the 2008 winter Scripting Games Advance
7: ' Event 6: Prime Time
8: '
9: ' Usage: cscript Event6.vbs
10: ' Notes:
11: ' Keywords:
12: ' versioning: 1.0 Original release
13: '*********************************************************************
14: Option Explicit
15: Dim StopPoint,StartPoint,i,j
16: Dim Primes
17: StopPoint = 200
18: StartPoint = 2
19: redim Primes(StopPoint + 1)
20: For i = StartPoint to StopPoint
21: Primes(i) = True
22: Next
23: For i = StartPoint to StopPoint
24: If Primes(i) = True then
25: WScript.StdOut.WriteLine i
26: End If
27: for j = i to StopPoint
28: If i*j <=StopPoint then Primes (i*j) = False
29: Next
30: Next
31:
32: