N の値を入力してもらい、1 から N までの和を求めて、表示する方法がわかりません。

Question

N の値を入力してもらい、1 から N までの和を求めて、表示する方法がわかりません。
ユーザーフォームでNの値を入力してもらい、以下の通りでやってみましたが動きませんでした。
教えていただけるとありがたいです。

Sub prog()
Dim i As Integer
DIm N As TextBox1
Dim s As Long

s = 0

For i = 1 To N
	s = s + i
Next i

MsgBox "sの値は" & s & "です"

End Sub

Answer 1

1からNまでの和は「N*(N+1)/2」です

Comments

[kotaponpon]

詳しく式を教えていただけますでしょうか。

[Spi_muto]

「数列の総和」と調べれば色々出てくると思います。

Answer 2

Sub prog()
Dim i As Integer
Dim N As Integer
Dim s As Long
N = TextBox1.Value
s = 0

For i = 1 To N
s = s + i
Next i

MsgBox "sの値は" & s & "です"
End Sub