火曜日, 9月 01, 2020

Visual Studio Basic_14 
繰り返し処理にはFor~Next

定番の繰り返し処理(for〜next)のサンプルです。数値Aから数値Bまての合計計算です。
VS Basicを起動したら[新しいプロジェクトの作成]にて新規プログラム作成モードに入ります。最初にTextBox2つ、Button2つ、Label3つを配置します。
プロパティーにて文字やパーツのサイズを調整して上の様なレイアウトとしました。次にソースです。TextBox1、2とLabel3の文字サイズは12ポイントとしています。
最終的にButton(Button3)を1つ追加しました。

で、実際のソースは・・・

「-----------------」は区切り線なので記述の必要はありません。
青字は自動入力部分で修正の必要はありません。
黒字が入力部分です。
赤字はコメント文なので記述の必要はありません。

-----------------
Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim p, r, w, sum As Long
        ' p, r, w, sum は長整数型変数とする
        p = Val(TextBox1.Text)
        ' TextBox1 に入力した文字を数値に変換して p に代入 
        r = Val(TextBox2.Text)
        ' TextBox2 に入力した文字を数値に変換して r に代入 
        sum = 0
        ' 合計を入れる記憶場所 sum を 0 にする
        For w = p To r Step 1
        ' 変数wをpからrまで1つずつ変えながら
        ' 次行のステートメントを繰り返し実行する
           sum = sum + w
           ' sumにwを加えた結果をsumに代入する
           ' これにより sum の値がwだけ増加する
        Next
        ' For ステートメントの実行範囲の終わりを示す
        Label3.Text = Format(sum, "###,###")
        ' Label3 に sum の値を桁数表記で表示する
    End Sub
-----------------
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        End
        ' Button2 がクリックされたらプログラムは終了
    End Sub
-----------------
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.ResetText()
        TextBox2.ResetText()
        Label3.ResetText()
        ' Button3 がクリックされたらTetBox1、2及びLabel3をリセット
    End Sub
End Class
-----------------

ソース記述中にエラーがなければデバッグです。

1から456789までの合計を計算しします。

答えが合っているかは解りませんが、実際のデバッグでは、3から5までの合計といた暗算でも出来る範囲で処理すれば確実ですね。

Visual Studio Basic 2019