如何将函数过程变成子过程（带实例）

要求：由滚动条的位置来决定n的值，求1～n的整数和
下面这个是我用了函数过程的

Private Function sum(n As Integer) As Long
Dim t As Long
n = HScroll1.Value
For i = 1 To n
    t = t + i
Next i
sum = t
End Function

Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
Text2.Text = sum(Text1.Text)
End Sub

Private Sub HScroll1_Scroll()
Text1.Text = HScroll1.Value
Text2.Text = sum(Text1.Text)
End Sub

问题是，现在我想用子过程来实现，该怎样改动？

1 个解决方案

#1

汗。。习惯性的点开SQL，发错板块，版主可以帮忙转移下么？