vb2010 for迴圈 做菱形

最近我剛學VB2010

然後碰到了一個題目

就是利用星號做出一個菱形

菱形是1 3 5 3 1

我不曉得該如何利用for迴圈來做這題目

想請教一下各位大大

1 個解答

評分
  • ccc
    Lv 6
    6 年前
    最佳解答

    '程式寫法有很多種,以下範例是比較常用的方式Dim n As Long

    n = Val(InputBox("輸入菱形高度值"))

    n = n / 2 '//要分兩段來做所以先 除 2 '//菱形上半部

    For i = 1 To nFor j = 1 To n - i

    Print " ";

    Next jFor j = 1 To i * 2 - 1

    Print "*";

    Next j

    Print '換行Next i '//菱形下半部

    For i = n - 1 To 1 Step -1For j = 1 To n - i

    Print " ";

    Next jFor j = 1 To i * 2 - 1

    Print "*";

    Next j

    PrintNext i

    2015-01-10 09:57:05 補充:

    如果在excel 使用就要

    Debug.Print"*";

    2015-01-10 09:58:53 補充:

    也有些 vb 要寫成下面這樣

    Print("*");

還有問題?馬上發問,尋求解答。