填充題
5.請問以下VB程式執行結果為何？_____
Sub Main()
Dim x, y As Single
For x = 1 To 10 Step 3
y = y * x
Next
Console.WriteLine(y)
Console.Read()
End Sub