高分求助：VB。。。

用VB编：使用者输入六个数，然后通过加减乘除和乘方得出结果为N（N为正整数）。。。
要VB6.0的完整代码。。。
输入：六个数和N
输出：一个等式，使六个数经过特定的运算后等于N
最好能给个大致的编程思路。。。

另：输入的六个数也是正整数
只要是VB6.0 默认的符号都能直接使用。。。

6个数用了6层循环不是很好！100个数还不100层循环了，我不是这个思路。
　　我做过现成的程序，有非常友好的界面，别说6个数，任何个数都可以，N也你设置，还可以勾选是否允许加减乘除乘方乃至括号，这些设置都在程序里通过界面实现。把你邮箱告诉我我给你发过去：我邮箱：yichuha@sina.com

　　我把核心代码粘贴到这里（我的程序功能较多这里的代码用到了很多其他自己写的函数我不能都粘过来了，需要的可以给我发邮件联系）：

　　'DataArray为几个数的数组，FromLevel为对应数来自第几层计算(当整数用)，开始调用时都为0，然后递归时自动用
　　'第几层是指，递归时运算到第几个层次，如开始运算为第1层，当用到前两个数的和与其他数算时，此和为第2层（来自第1层，第1层中放求和信息）,其他数还为原始来源（层数为0）

　　Function TryCaculate(DataArray() As Single, FromLevel() As Byte, DataNum As Integer) As Boolean
　　Dim lDataArray() As Single, lFromLevel() As Byte
　　Dim RetuCacu As Single '计算返回结果
　　Dim TempSin1 As Single, TempSin2 As Single, TempFrom1 As Byte, TempFrom2 As Byte

　　Dim i As Integer, j As Integer, k As Integer, l As Integer

　　ReDim lDataArray(DataNum - 1) As Single, lFromLevel(DataNum - 1) As Byte '新数组第一个数放计算后的数值，其他位置放其他数据

　　For i = 1 To DataNum - 1 '这两行将几个数进行组合，任意抽出两个数i,j
　　For j = i + 1 To DataNum