58问答库 > vb编程累加1+2+3....+x的值(101<x<200)x 的值在文本框输入,累加结果显示在“计算结过”框中

vb编程累加1+2+3....+x的值(101<x<200)x 的值在文本框输入,累加结果显示在“计算结过”框中

2025-03-22 10:04:22

推荐回答（2个）

回答（1）：

Private sub command1_click()
    dim i as integer, sum as long
    sum=0
    if val(text1.text)< 101 or val(text1.text)> 200 then
        msgbox("(请输入的值的范围是（101        text1.text =""
        text1.setfocus
        exit sub
    end if
    for i = 1 to val(text1.text)
        sum=sum+i
    next i
    text2.text=sum
end sub

回答（2）：

dim x as integer
dim sum as long
x=int(text1.text) 
sum = 0
for i=1 to x
  sum = sum + i
next i

text2.text = sum '(计算结果)文本框