close
如何做VB的迴圈數字菱形
１１２１１２３２１１２３４３２１１２３４５４３２１１２３４３２１１２３２１１２１１想做出這樣的形狀用VB2008的迴圈做網路上有找到很多相關的但答案都不完整且有些根本沒關聯性求解答更新:求VB的語法
' ' 顯示"菱形" ' ' 1 ' 121 ' 12321 ' 1234321 ' 123454321 ' 1234321 ' 12321 ' 121 ' 1 ' ' Dim I As Decimal Dim J As Decimal Dim V_L, V_R, V_No, V_L_Tmp As Decimal Dim Dsp_STR_L, Dsp_STR_R As String Dsp_STR_L = "" Dsp_STR_R = "" V_L = 0 V_R = 0 V_No = 1 TextBox1.Text = "" For I = 0 To 8 For J = 0 To 6 - V_No TextBox1.Text = TextBox1.Text & " " Next Dsp_STR_L = "" V_L_Tmp = 1 For J = 1 To V_No Dsp_STR_L = Dsp_STR_L & CType(V_L_Tmp, String) V_L_Tmp += 1 Next V_R = V_No Dsp_STR_R = "" If V_R > 1 Then V_R -= 1 For J = 1 To V_R Dsp_STR_R = Dsp_STR_R & CType(V_R, String) V_R -= 1 Next End If TextBox1.Text = TextBox1.Text & Dsp_STR_L & Dsp_STR_R TextBox1.Text = TextBox1.Text & vbCrLf If I > 3 Then V_No -= 1 Else V_No += 1 End If Next End Sub 使用VB2005
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20120329000015KK08002