用VB编一个累加的小程序，给我代码

Private

Sub

Command1_Click()

Dim

a,

s

As

Integer

a

=

Val(Text1.Text)

s

=

0

For

i

=

1

To

a

Step

1

'从1加到文本框中输的数字,重复执行i=i+1

s

=

s

+

i

's=s+i

Next

i

Label1.Caption

=

s

'输出结果

End

Sub

好的，以下是一个简单的python计算器小程序，可以满足您的需求：

# 初始化总和为0

total = 0

while True:

# 获取用户输入

num = int(input("请输入数字（输入0结束计算）："))

# 如果输入的是0，则退出循环

if num == 0:

break

# 否则将输入的数字累加到总和中

total += num

# 输出计算结果

print("计算结果为：", total)

在这个程序中，我们首先初始化了一个变量total表示累加的总和，然后进入一个循环中，在循环中，我们使用input函数获取用户输入的数字，如果输入的数字是0，则使用break语句退出循环，否则将输入的数字累加到总和中。

当循环结束后，输出计算结果即可。

---