计算机考试二级VB常用算法(9)：排序

1.算法描述
1)初等数学
递归法
又称“迭代法”，其基本思想是将一个复杂的计算过程转化为一个简单过程的多次重复。每次都是在旧值的基础上推导出新值，用新值替换旧值。
问题:猴子吃桃子
小猴子有一些桃子，第一天吃了一大半；第二天，吃剩下的一半以上...；就这样，到了第七天早上，只剩下一个桃子了。小猴子一开始有几个桃子？
解析:最后一天的桃子数可以由最后一天的桃子数推导出来；然后从倒数第二天减去倒数第二天的桃子数xn-1，打印第七天的桃子数

问题:一百块钱一只鸡。
假设鸡是5毛钱一只；每只公鸡2元；每只母鸡3元。现在有100元，需要买100只鸡。编程列出了所有可能的买鸡方案。
分析:
设分别有x、y、z只母鸡、公鸡和小鸡，则有:
x+y+z = 100
3x+2y+0.5z = 100
方案一:[ z%
对于x = 0到100
对于y = 0到100
对于z = 0到100
如果x+y+z = 100 z
End If
Next z
Next y
Next x
End Sub
程序二(优化)
private子命令1 _ click ()
dim x%，y%
For x = 0到33
For y = 0到50
If 3 * x+2 * y+0.5 *(100-x-y)= 100然后

2)高等数学
求积分
近似计算积分:s=∫13(x3+2x+5)dx
代码如下:
公共函数f(ByVal x！)'被积函数
f = x *(x * x+2)+5
end function
public function trap ez(byval a！，ByVal b！，ByVal n%)作为Single
'b和a分别是积分的上下限，n是等分数
点心！，h！，x！
h =(b-a)/n
sum =(f(a)+f(b))/2
For I = 1到n-1
x = a+I * h
sum = sum+f(x)
Next I
Trapez = sum * h
end function
call:
private子命令1 _ click ()
print trapez (1，3 准倒数、回文数、一元完全数、完全数、幸运数、逆数、无瑕素数、超级素数、因子和等。

2.实践练习
1)补充码(2002年10月2日)
求两个不同数字组成的平方数，并按图中所示格式在列表框List1中显示结果。

Option Explicit
Private Sub命令1_Click()
Dim I As Long，N As Long
For I = 11到300
(1)
If Verify(N)Then
(2)
End If
Next I
End Sub
Private函数Verify((3))As Boolean
Dim A(0到9) As Integer，I As 10
loop
For I = 0 to 9
JS = JS+A(I)
Next I
(5)
End Function
1)编程问题(2004年秋)例如，
1 2 ^ 2 = 144，21 ^ 2 = 441，12和21是倒数，144和441是倒数，12是魔方数。 找出1-300内所有精彩的平方数。