VBで三角形を作る

初めに

このぶろぐでは学校で習ったことや自分で勉強したことを
まとめて投稿しています。今回はVBで三角形を作ってみました

開発環境

Visual Studio 2012
Win10 x64

ソースコード

    Private Sub Btn_AST2_Click(sender As Object, e As EventArgs) Handles Btn_AST2.Click
        Dim i, j, Cnt As Integer

        Txt_Ast.Text = ""
        Cnt = Val(Txt_Cnt.Text)
        For i = 1 To Cnt Step 1
            For j = 1 To i Step 1
                Txt_Ast.Text = Txt_Ast.Text & "*"
            Next
            Txt_Ast.Text = Txt_Ast.Text & vbCrLf
        Next

    End Sub

まず最初のDimというところで変数を宣言しています

その後、テキストボックスに入力された値をCnt変数に代入します。
次に１回目の繰り返しで入力された数値までを指定します
二回目の繰り返しでIの数値まで＊を表示します。
これを繰り返すとこんな感じになります。

ASTにしている理由は表示するものがアスタリスクだからというだけです。

---

最後まで読んでいただきありがとうございました