宿題でビジュアルベーシックを使ってプログラムを作るものがでました。
Do Loopステイトメントを使って、Nを入力して１からNまでの和を求めるものです。
Sum=1+2+3+....+N　です。
下のはFor.....Nextを使ったものです。
Dim I As Integer
Dim N As Integer
Dim Sum As Long

N = Val(TextBox1.Text)

For I = 1 To N
Sum = Sum + I
Next

TextBox2.Text = Sum

MessageBox.Show("1+2+3+...+" & N & "= " & Sum, "Total")
時間が迫っていますのでどうかお早めにお願いします！