Hi Team,
I modified the above code check it once in your system...
inum=inputbox("enter number")
for i =1 to inum
If inum mod i =0 or i=1 then
If i=1 Then
i = 1
End If
ivalue = Ivalue& " " & i
End If
MsgBox trim(ivalue)
Next
*O/P:*
1
1 2
1 2 3
1 2 3 6
1 2 3 6 12
On Mon, May 18, 2015 at 5:14 PM, mahesh kumar <[email protected]>
wrote:
> '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.
>
--
Thanks & Regards By,
Surendra Reddy.Kasa
--
--
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.
