求用VB做的 1-100 累加法 寫上算法、流程、程序.

在窗體上增加壹個command控件Private Sub Command1_Click()

Dim i As Integer '定義壹個循環變量i

Dim sum As Long '定義壹個存放和的變量

sum = 0 '初始化變量值為0

For i = 1 To 100 '采用For循環

sum = sum + i '第壹次循環，采用和+循環變量值的方法累加

Next '下壹次，相當於i=i+1，即i=2，再返回到For循環，判斷i值是否滿足<100，滿足再次執行累加和操作，將前壹次的和加上本次循環變量值後存放sum中

Print sum '循環完成後在窗體打印累加的和值

End Sub

上一篇:電信寬帶20兆，壹臺電視壹臺電腦。了解壹下網速是怎麽4兆的。

下一篇:赤峰市大富山石雕有限公司怎麽樣？