Visual Basic private sub command1_clickDim s as integer,k as integer S=0For k=2 to 100 step 2s=s+kNext kprint"s";s,"k";kEnd Sub

Visual Basic private sub command1_clickDim s as integer,k as integer S=0For k=2 to 100 step 2s=s+kNext kprint"s";s,"k";kEnd Sub
Visual Basic
private sub command1_click
Dim s as integer,k as integer
S=0
For k=2 to 100 step 2
s=s+k
Next k
print"s";s,"k";k
End Sub

Visual Basic private sub command1_clickDim s as integer,k as integer S=0For k=2 to 100 step 2s=s+kNext kprint"s";s,"k";kEnd Sub
按照步长为2进行循环:
即k=2,4,6...100
当循环完成后输出s和k的值
最后输出结果为:
s 2550 k 102