'1 '1 2 '1 2 3 '1 2 3 6 '1 2 3 6 12 '1 2 3 6 12 24
Num = 3 for i =1 to Num nextnum = 0 if i = 1 then Res = 1 elseif i = 2 then PrstPattern = 1 & " " & 2 else PreviousOccuranceSplit = Split(PrstPattern," ") for j =0 to ubound(PreviousOccuranceSplit) nextnum = nextnum + PreviousOccuranceSplit(j) next PrstPattern = PrstPattern & " " & nextnum end if Res= Res & vbcrlf & PrstPattern msgbox Res Next -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
