vb编程求累加101+102+……x的值(x≥101且x≤200)用inputbox

vb编程求累加101+102+……x的值(x≥101且x≤200)可以参考下面的代码：

OptionExplicit

PrivateSubHScroll1_Change()

Dimn,sum

Label2.Caption=HScroll1.Value

n=100

Do While (n < HScroll1.Value)

n=n+1

sum=sum+n

Loop

Label4.Caption=sum

EndSub

扩展资料：

vb参考函数

Filter 函数： 根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。 

FirstIndex 属性： 返回字符串匹配的位置。 

Fix 函数： 返回数的整数部分。 

For...Next 语句： 以指定的次数重复一组语句。 

For Each...Next 语句： 对于数组或集合中的每一个元素，重复一组语句。 

FormatCurrency 函数： 返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。 

FormatDateTime 函数： 返回格式化为日期或时间的表达式。 

FormatNumber 函数： 返回格式化为数的表达式。 

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