vb编程求累加101+102+103+…+x的值,用水平滚动条

可以参考下面的代码：

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参考函数

CStr 函数： 返回已被转换为字符串子类型的变体的表达式。 

日期和时间常数： 在日期和时间运算中用来定义星期几和其他常数的常数列表。 

日期格式常数 用于日期和时间格式的常数列表。 

Date 函数： 返回当前系统日期。 

DateAdd 函数： 返回加上了指定的时间间隔的日期。 

DateDiff 函数： 返回两个日期之间的间隔。 

DateValue 函数： 返回日期子类型的变体 。 

参考资料来源：百度百科-Visual Basic

Option Explicit

Private Sub HScroll1_Change()
Dim n, sum
Label2.Caption = HScroll1.Value
n = 100
Do While (n < HScroll1.Value)
n = n + 1
sum = sum + n
Loop
Label4.Caption = sum
End Sub

水平滚动条用来干什么？