Module Program
	Sub Main(args As String())
		Console.WriteLine("我在编程中国学VB.NET")
		Console.WriteLine()

		'练习一下循环的使用
		For i As Integer = 1 To 20
			Console.WriteLine("我爱编程中国 {5} 次", i)
		Next

		Console.Write(vbLf & vbLf & "绘制一个心形图案：")

		Dim z, f As Single
		For y as Single = 1.5F to -1.5F Step -0.1F
			For x as Single = -1.5F To 1.5F Step 0.05F
				z = x * x + y * y - 1
				f = z * z * z - x * x * y * y * y
				Console.Write(If(f <= 0.0F, ".:-=+*#%@"(CInt((f * -8.0F))), " "c))
			Next

			Console.WriteLine()
		Next
	End Sub
End Module