Question

用VB求1+2+3+……+n的和，其中变量n的值通过文本框输入。

可以编辑图片一起上传么 谢谢了

Answer 1

跟你那没啥区别，但是您应该不用考虑太多问题，文本框输入的应该就是您想算的整数的，所以偶就不检查它是否是数啊，是否是整数啊什么的了，简简单单地就可以实现了。
dim s as integer=0
dim i as integer=0
dim n as integer=val(text1.text)
do while i<=n '就是当i小于等于n的时候算这个加法
i=i+1 '一定要先算这个，您看上面定义的是i=0哈，如果定义的等于1，那么就要后算了
s=s+i
loop
MsgBox "1+2+3……+n=" & s '弹出框弹出结果了

Answer 2

新建exe工程，在界面中添加text控件两个，button控件1个，如图
什么都不用改，在代码中添加以下内容
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
Text2.Text = n * (n + 1) / 2
End Sub

Answer 3

没分谁帮你！呵呵！

追问

na你会不 我来给你分

追答

兄弟这个是基本！基本！

追问

哥们儿 我刚学VB好不好 老师都不好好教的 你看这个 dim a as integer,b as integer
n=val(text1.text)
do while a>=1
b=b+a
a=a+1
if a>n then
exit do
loop
label1.caption="1+2+3……+n="&b

dim a as interger, b as integer
n=val(text1.text)
do
b=b+a
a=a+1
loopuntil a=n
对不

追答

晕死！这么复杂！
呵呵！==我把货发蜡！给你说！