如何用VB求和

编写程序，执行从1到选取任意数字（可设置一个很大的数字上限）之间的整数的累加运算。在窗体上设置一个水平滚动条滑块，可显示并设定要累加的选取数字。拖动滚动条可以选择不同的数字上限。
单击“总计”按钮，执行从1到选取的数字之间的整数的累加运算，并显示在文本框中，该文本框中不允许直接输入数字，单击“结束”按钮，可结束程序的执行。求和程序要求用子过程实现。
2. 在上述程序基础上，添加一个新的计算功能，求出刚才选定上限与1之间所有素数。同样用子过程实现。

中间的算法如下：
Dim sum As Integer
n = 99 '你输入的最大数
i = 1
sum = 0
Do Until i > n
sum = sum + i
i = i + 1
Loop
'求和到此为止，下面的是求素数
k = 1
Do Until k > n
For j = 1 To k / 2
If k Mod j = 0 And j <> 1 Then
Exit For
End If
Next j
If j > k / 2 And k <> 2 Then
MsgBox k
End If
k = k + 1
Loop

嗯...... 这是个基础问题： 求和可用运算符 + 来实现。 运用例子：（清空代码窗口，直接复制以下代码，点“运行”） private sub form_load() dim a,b,c '定义变量 a = 20 '变量 a 的值为20 b = 37 '变量 b 的值为37 c = a + b '变量 c 的值是 a 和 b 的和 print c '将 a 与 b 的和 c 打印到窗体上 end sub 祝你学vb成功！