(defun sayHello(name)
    (format t "Hello ~a" name)
)
(sayHello "编程中国")

(write-line "")
(write-line "")

; 练习一下循环的使用
(loop for a from 1 to 20
    do (format t "我爱编程中国 ~N  次" a)
    (write-line "")
......................

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 & "绘制一个心形图案：")

......................

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 & "绘制一个心形图案：")

......................

Option Explicit
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带   16  20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
    Dim i
    For i = 0 To UBound(Args)
......................