我做的代码和运行图示如下图，看一看是不是你想要的结果。
这是vbs版 和vb的语法是一样的 算法是这样的
dim sum,i
sum=0
for i=1 to 100
sum=i+sum
next
msgbox(sum)
i = 0
s = 0
While i <= 1000
i = i + 1
s = s + i
end
Print "s="; s
dim i as integer
dim sum as integer
private sub loder()
{
for(i=1;i<101;i++)
{
sum=sum+i;
}
print("sum=%d\n",sum);
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024