Code Tính Tổng N Số Nguyên Dương Đầu Tiên

Private Sub Command1_Click()
Dim i, n As Integer
Dim S As Long
'nhap so nguyen duong n
n = Text1.Text
S = 0
For i = 1 To n
S = S + i
Next
'tong cua n so nguyen duong dau tien
Text2.Text = S
End Sub