例题5：计算定积分：
求一个函数f(x)在区间[a，b]上的定积分，其几何意义是求曲线f(x)和直线x=a，y=0，x=b所围成的曲边梯形面积。为近似求出此面积，可将区间[a，b]分成若干个小区间，每个区间的宽度为(b-a)/n，n为区间个数。近似求出每个小的曲边梯形面积，然后将n个小面积加起来，就近似得到总的面积，即定积分的近似值。当n愈大（即区间分得愈小），近似程度就愈高。
近似求小曲边梯形面积的方法，常用的有以下三种：
¡矩形法 ¡梯形法 ¡Sinpson法
矩形法：用小矩形代替小曲边梯形，求出各小矩形的面积，然后累加之。如左图所示，对曲边梯形进行n等份后，第一个小矩形的底h=(b-a)/n，高为f(a)，其面积s=h*f(a)。当然也可以用f(a+h)为高，这时的面积为s=h*f(a+h)。
¡梯形法：用小梯形代替小曲边梯形。如右图所示，第一个小梯形的面积为：s=(f(a)+f(a+h))*h/2。
下面，用梯形法求定积分。对曲边梯形进行n等份后，第一个小梯形的面积为：
s= (f(a)+f(a+h))*h/2
第i个小梯形的面积为：
s= (f(a+(i-1)*h)+f(a+i*h))*h/2
源代码如下：
Private Sub Form_Click()
ConstN = 10
Dim a As Single, b As Single
Dim s As Double, s1 As Double, h As Double
a = 0: b = 1: s=0
h = (b - a) / N
For I = 1 To N
s1 = (Sin(a + (I - 1) * h) + Sin(a + I* h)) * h / 2
s = s + s1
Next I
Print s
End Sub
例题6：某数组有20个元素，分别为1、2、…、20，现在将其前十个元素和后十个元素对调，即将第1个元素和第11个元素对调，第2个元素和第12个元素对调，依次类推。
源代码如下：
Private Sub Form_Click()
Dima(1 To 20) As Integer
Dim iAs Integer, t As Integer
For i= 1 To 20 //将最初的值存放到数组元素中
a(i)= i
Next i
For i= 1 To 10 //交换数组元素的值
t= a(i)
a(i)= a(i+ 10)
a(i+ 10) = t
Next i
For i= 1 To 20 //循环打印每个数组元素
Printa(i)
Next I
End Sub