a = InputBox(”你愛我媽?”)
Do While a <> ”愛”
MsgBox ”你欠扁媽?不愛!?”
a = InputBox(”你愛我媽?”)
Loop
If a = ”愛” Then

MsgBox ”可是我不愛你耶”

End If














































x = InputBox(”　”, ”　”, 0)

If x Mod 2 = 1 Then

For a = 1 To (x + 1) / 2
For b = 1 To (x + 1) / 2 - a
Print ”　”;
Next b
For c = 1 To a * 2 - 1
Print ”＊”;
Next c
Print
Next a

For d = 1 To (x - 1) / 2
For e = 1 To d
Print ”　”;
Next e

For f = 1 To x - 2 * d
Print ”＊”;
Next f
Print
Next d

Else
MsgBox ”輸入單數”
End If