设计过程计算1到100的数之和并输出到窗体上 VB

显示全部楼层 · 2012-12-5 23:29:14

Sub Sum100() Dim i As Long, s As Long For i = 1 To 100
s = s + i Next Print sEnd SubPrivate Sub Form_Click() Sum100End Sub...

千问 · 2012-12-5 23:29:14

Private Sub Form_Click()Dim sum As Integer, n As IntegerFor i = 1 To 100sum = sum + iNext iPrint "“1+2+3+......+100”的和为："; sumEnd Sub...

千问 · 2012-12-5 23:29:14

代码如下：Private Sub Command1_Click()
For i = 1 To 100
s = s + i
Next i
Print sEnd Sub...