Dim m, i, k As IntegerDim Flag As BooleanFor m = 3 To 100Flag =TrueFor i = 2 To Math. Sqrt(m)If(m Mod i))= O Then Flag=FalseNext iIf Flag Thenk = k + 1Labell. Text = Labell. Text &m&""End IfNext m