Prime number calculation

[aditya2304]

Can anyone write the VB script code for QTP for the following problem -

Declare an array of size 4, increase its side to 7 and then find out which of the elements are prime numbers using functions

[sshukla12]

would you please elaborate your requirement.

Regards,
Sankalp

[ravi.gajul]

Try this

Code:

Dim arr()
ReDim arr(4)
arr(0)=1
arr(1)=1
arr(2)=2
arr(3)=3
arr(4)=4
ReDim Preserve arr(7)
arr(5)=5
arr(6)=6
arr(7)=7
For i=0  to ubound(arr)
    For j=2 to ubound(arr)
        If arr(i)  mod j=0 Then
           If  arr(i) = j Then
                msgbox "Prime" & arr(i)
            
             Else
            msgbox "Not Prime" & arr(i)
            
            Exit for
                            End If
          End If
           Next
Next

[aditya2304]

@ Ravi gajul
Thanks a lot ravi for ur solution ... this wil work fine but u haven't used functions...i want the same program to be coded using functions

---

@sankalp

I think the requirements are very clear..
A program needs to be coded using functions which have 7 elements(after increasing array size from 4 to 7) and then to find out which of the elements are prime out of the 7 elements.

If program is coded in such a manner that using functions it can find out all the prime numbers present in an array,,, then i think we can get a perfect program

Awaiting ur reply

[ravi.gajul]

Use the same code starting from for loop in the function and pass array(by ref) as the argument to the function.I thought you will do that.