实现数据a和数据b中的值交换。
具体步骤：
实现数据a和b交换，肯定是不能直接赋值。
那么怎么办？应该借助第三者变量。这样
才能实现数据交换。
即 定义一个新的变量c.
把数据a的值赋给c.
再用数据b的值赋给a.
然后，把c的值赋给a.
c=a
a=b
b=c
只有这样才能实现交换。
Private Sub Swap_Click()
 '数据定义
 dim a as integer
 dim b as integer
 dim c as integer
 '数据输入
 a = CInt(inputbox("请输入数据a"))
 b = CInt(inputbox("请输入数据b"))
 '数据加工
 c = a
 a = b
 b = c
 ’数据输出
 Print a,b
 
End Sub

梁老师，帮忙，解一下1到100的累加和，我以前会今天看了下又看不懂了，要详细啊，谢谢老师啊。

private command1_click()
 dim sum as integer
 dim i as integer
 sum = 0
 for i = 1 to 100 
   sum = sum + i
 next i 
 
End Sub