[VB6 ] 請問使用數量龐大的迴圈該如何精簡

comduf...@ptt.cc

unread,

Jan 1, 2010, 7:45:29 PM1/1/10

to

�� [�� Visual_Basic �ݪO]

�@��: comduffer () �ݪO: Visual_Basic
��D: [VB6 ] �аݨϥμƶq�e�j��j��Ӧp��²
�ɶ�: Sat Jan 2 08:23:29 2010

�O�o�˪��ڭn��@�Ӱj��̪��j��
for i1= 1 to x
for i2= 1 to x
................
for i22 = 1 to x
�аݦ��ƻ��k�i�H��L��²�O
�ڦbgoogle�W�]�d��
�o��h��j��
�i�H�ΰƵ{��ӸѨM��
��H�I�L�o�˪��D��

--
�� o�H��: ��~�{(ptt.cc)
�� From: 115.81.151.46

��

unread,

Jan 1, 2010, 9:31:34 PM1/1/10

to

��D�A�{��X�n�F��...
�@��w�良��α��L��j��O�λ��^�C

==> �� "comduf...@ptt.cc"
> �� news:4jcfWe%247SH%40ptt.cc �o��

> �� [�� Visual_Basic �ݪO]
> �@��: comduffer () �ݪO: Visual_Basic
> ��D: [VB6 ] �аݨϥμƶq�e�j��j��Ӧp��²
> �ɶ�: Sat Jan 2 08:23:29 2010
> �O�o�˪��ڭn��@�Ӱj��̪��j��
> for i1= 1 to x
> for i2= 1 to x
> ................
> for i22 = 1 to x
> �аݦ��ƻ��k�i�H��L��²�O
> �ڦbgoogle�W�]�d��
> �o��h��j��
> �i�H�ΰƵ{��ӸѨM��
> ��H�I�L�o�˪��D��
>

--
��Ҧ��q ASP.NET Web News Reader 0.2.9 UTF-8 Beta
��a�� http://tlcheng.twbbs.org/wwwmap.htm
�y�쨾�x/�ϰ��귽/�}�@��/��/�y��q�T �峹�P�{��
Basic/Fortran/Windows API/.Net/��U�� l�X�B�峹�P�Q��
�L�n�{��]�p�B�t�κ޲z�ϥηs�޳N�׾°Q�װϡA��ͦ^�Ы�Y��²�T�B�q�l�l��q��G
MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/
TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/
--
ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx
RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language

�X��

unread,

Jan 1, 2010, 9:47:27 PM1/1/10

to

�� ޭz�mcomduffer ()�n��ʨ��G
: �� [�� Visual_Basic �ݪO]

: �@��: comduffer () �ݪO: Visual_Basic
: ��D: [VB6 ] �аݨϥμƶq�e�j��j��Ӧp��²
: �ɶ�: Sat Jan 2 08:23:29 2010
: �O�o�˪��ڭn��@�Ӱj��̪��j��
: for i1= 1 to x
: for i2= 1 to x
: ................
: for i22 = 1 to x

��ݧA�n�o�˪��j�鰵��I�o�ˤ~��D��򤰻��
��A�X�A��D��ѨM��k�C

�򥻤W�ݨ�o�ذj��A�N�N��A�{��[�c�κt��k�n�屼��m�F�K�K

�q�`�ڰj��Υu�n�ݨ�ĤT�h�A�N�|�ݬO��O�i�H�屼��m�F�A
�|�h�H�W��j��O�@�w��C

--
~ [1;34m�հ��a�ۦo�@�B�B�a�^�줤��C�հ��w�g�ѤF�A�u��C�C�a��A [m
'v' [1;33mBrian Hsu [m [1;34m��׬O��^�줤�쪺�C��n��h�B��A��P�l�B��K�K [m
// \\ [1;33m( �X �� ) [m
/( )\ [1;34m��o�Ӭ��R��h�Q�N��j��H��˩T��C [m [1;30m�i�հ��S�護�j [m
^`~'^
[1;30mhttp://bone.twbbs.org.tw/blog [m [1;35m�y��O�ܦn�ܦn��A�i�ڰ��w�C�z [m [m

--
�� o�H��: ��~�{(ptt.cc)

�� From: 59.120.199.114

Alien

unread,

Jan 1, 2010, 9:54:38 PM1/1/10

to

�� ޭz�mcomduffer ()�n��ʨ��G

: --
: �� o�H��: ��~�{(ptt.cc)
: �� From: 115.81.151.46
: �� wa120:��j@@? 140.133.9.113 01/02 09:51
: �� bigpigbigpig:�A�i�H�Τ@�� array �M�@�� level 118.160.70.193 01/02 10:13
: �� bigpigbigpig:�ܼơA�N��̥]�˦��@�Ӫ��A�M�� 118.160.70.193 01/02 10:14
: �� bigpigbigpig:�@�� (increment) ��A�N�i�H�o�� 118.160.70.193 01/02 10:15
: �� bigpigbigpig:�ثe�պA�A�Y�Ǧ^ false �N�?��A 118.160.70.193 01/02 10:15
: �� bigpigbigpig:�N�� STL �� next_premutation �@�� 118.160.70.193 01/02 10:16
: �� bigpigbigpig: next_permutation 118.160.70.193 01/02 10:25
: �� comduffer:��p�ڵ{�פӮt ť�� 115.81.151.46 01/02 10:33
: �� comduffer:�ڪ��{�ץu��ǵ{��ǥͨ��˧a 115.81.151.46 01/02 10:33

�L��N��A�A�i�H�o�˲z�ѡG
��]�A�n�� (�H�U��O psuedo code)
for i = 1 to a
for j = 1 to b
for k = 1 to c
// do something

�s��F�h�֦� "do something"?
��N�O a*b*c ��h��A��⥦�令�G

for x = 1 to (a*b*c)
// do something

��A�n��򪾹D�C�� iteration �� x �N�? i j k �O��?
��N�O
for x = 1 to (a*b*c)
i = x / a + 1
j = (x mod a) / b + 1
k = x mod c + 1
// do something

��o�˼g a*b*c �i��j��ƤW��A�ҥH��p�N�G

int vars[3] = {1,1,1} // �T�� element �� array, �N�� i,j,k
int varLimits[3] = {a,b,c} // �O��C�Ӫ��W��

while (increment(vars, varLimits) != false)
// do something

function boolean increment(int[] vars, int[] varLimits) {
// �ۤv�Q�Q��g
// �j��O�� increment vars ��Ĥ@�ӼƦr (k)�A�n�O�F��
// �W��A�N�]�^ 1, �� increment �U�@�ӼƦr�A�p��
}

�N��N�O�o��

--
�� o�H��: ��~�{(ptt.cc)

�� From: 219.77.15.226