设计一个算法求2+4+6+8+.....+100的VB程序

Question

如题所述

Answer 1

private sub sum()
Dim i as integer,s as long
for i = 2 to 100 step 2
s = s + i
Next i
print s
end sub
以上程序就可计算并输出2+4+6+8+.....+100的和

Answer 2

不是吧，这个
dim i as integer
dim s as integer
s=0
for i=0 to 100 step 2
s=s+i
next本回答被提问者采纳

Answer 3

Private Sub CommandButton1_Click()
Dim ival As Long
ival = 100 + 50 + 100 * 24
Debug.Print ival
End Sub

Private Sub CommandButton2_Click()
Dim i As Integer, s As Long
For i = 2 To 100 Step 2
s = s + i
Next i
Debug.Print s
End Sub

Answer 4

private sub form1_click()
for i=2 to 100 step 2
sum=sum+i
next i
print sum
end sub