古风动漫帅哥:VB高手来相助最好(此题怎解)~~~

来源:百度文库 编辑:高考问答 时间:2024/05/11 01:06:43
在做编程练习的时候碰到这么个题:

以下所有数字均为正整数
A组数字:A1 A2 A3 A4 A5 A6
B组数字:B1 B2 B3 B4 B5 B6
C组数字:C1 C2 C3 C4 C5 C6
以上3组数字全部由数字1至X中取值(注释:X值在21至40之间。例 当X=39时 三组所有数字均从1至39之间取值,18个数值互不相等)

已知:X
X1;X2;X3;X4;X5;X6
XA12;XA34;XA56
XB16;XB23;XB45
M1;M2
(以上数值在程序运行时输入)

条件:
A1+B1+C1=X1
A2+B2+C2=X2
A3+B3+C3=X3
A4+B4+C4=X4
A5+B5+C5=X5
A6+B6+C6=X6
A1+A2=XA12
A3+A4=XA34
A5+A6=XA56
B1+B6=XB16
B2+B3=XB23
B4+B5=XB45
C1<C2<C4
M1<=(C1+C2+C3+C4+C5+C6+C7)<=M2
C1<C2<C3<C4<C5<C6<C7
A1<A2 (可选项:Yes/Not)
A3<A4 (可选项:Yes/Not)
A5<A6 (可选项:Yes/Not)
求:符合上述条件的C组(C1;C2;C4)组合的全部解(有若干组)
列表TXT文件(文件名:01.TXT)并写入硬盘指定目录下(以小至大排序)

要求:
运算时间越短越好
运算时间进程表(用百分比表示)
在题目无解时有提示
TXT文件中列表格式:横向数字之间用空格表示,竖向数字的个位十位分别对齐,小于10 的数字前面补0,例如:02;05。。。以保持数字界面的工整。

dim a(),b(),c() as string
定义三个数组
做几个条件函数
分别调用每一个函数进行筛选
剩下的输出即可

晕,才10分,这个题好繁呀!!!我可没这个劲