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

来源：学生作业帮助网 编辑：作业帮 时间：2024/07/10 17:20:31
Visual Basic private sub command1_clickDim s as integer,k as integer S=0For k=2 to 100 step 2s=s+kNext kprint
x) ,.MQpJ,LV((,K,IU(.MRHMK1OLvU(VH,V+IMO-F()d)+((kgV(d+Q*V.QVvKQ.MI*GuXC]Vt. q`ą0Q Ufpس˟]r';v?žV=[oVw3p3===!jy1鄾&?mUtROY-O@{{ys@-V0255PF 1.<5i

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