考试用的vb代码 急需

来源：百度知道 编辑：UC知道 时间：2024/06/05 10:44:04
添加一个text和一个command及一个lable 在text中输入n n为随便一个自然数 点击command 在lable 中显示出1+2+3+....+n的结果
帮忙写出这个代码
谢谢 速度

你用两个文本框,假设第一个是你要输入的N值,第二个是显示总和.
dim n as integer ,dim sum as long
dim i as interger
n=val(text1.text)
sum=0
for i=1 to n
sum=sum+i
next i
text2.text=str(sum)