还有！！
怎么把成绩贴到电子表格里

控件：一个横向滚动条、一个文本框
private sub Hscroll1_Change()
n = hscroll1.value
sum = 0
for i = 100 to 1000 step n
 sum = sum + i
next i
text1.text = Sum
end sub