請用”VB” 畫下,以下的圖～～拜託了

Question

請幫我用VB畫出下面的圖～～謝謝
http://www.geocities.jp/ziyi0416/441.jpg

希望大家可以幫我一下~~~謝謝

我是要有含格子的,那方法是什麼呢?
我沒有指定要用什麼條件和迴圈!!
謝謝

Answer 1

Private Sub Command1_Click()Dim W&, H&, X&, Y&, I%, J%'字體 * 高度及寬度W = TextWidth("*"): H = TextHeight("*")For X = W To 15 * W Step 3 * W   For Y = H To 15 * H Step 3 * H       '畫方格       Line (X, Y)-(X + 3 * W, Y + 3 * H), , B       '畫 * 號       If I = J Or 4 - J = I Then          CurrentX = X + W: CurrentY = Y + H          Print "*"       End If       I = I + 1   Next   I = 0: J = J + 1NextEnd Sub