VB数学题，在线等

来源：百度知道 编辑：UC知道 时间：2024/05/12 05:09:07
就是1+2+3+4+5+6......+100

讲下原理 再给个代码 谢谢啊

Private Sub Form_Load()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i '累计循环
Next i
Print sum
End Sub

需要一个command键 和一个text 键

Private Sub Form_Load()
Dim i As Integer, sum As Integer
sum = 0 ' 给 sum一个初始值
For i = 1 To 100
sum = sum + i ' 根据累加的原理
Next i

Text1.Text = sum
End Sub