Question

用VB程序编写一个过程来计算1＋2＋3＋4＋……＋100的值。

要求编程过程

Answer 1

Dim a As Integer '首项
Dim b As Integer '末项
Dim c As Integer '项数
Dim d As Integer '结果
Public Sub Add()
a = InputBox("首项", "")
b = InputBox("末项", "")
c = InputBox("项数", "")
d = (a + b) * c / 2
MsgBox d
End Sub

Private Sub Form_Load()
Call Add
End Sub

针对这个问题首项=1，末项=100，项数=100
end sub

Answer 2

Private Sub Command1_Click()
Dim sum As integer '定义变量sum，i为整形
Dim i As integer
sum=0'给sum赋值
For i = 1 To 100 ’for循环
sum = sum + i '循环过程每次给sum加一
Next i
Print sum ’输出sum和
End Sub

Answer 3

Private Sub Button1_Click()
Dim i As Integer, j As Integer
j = 0
For i = 1 To 100
j += i
Next i
MsgBox(j)
End Sub

Answer 4

Private Sub Command1_Click()
Dim sum As Long
Dim i As Long

For i = 1 To 100
sum = sum + i
Next i
Print sum

End Sub