Interested to Buy Any Domain ? << Click Here >> for more details...
Write VB script to test given number is Prime Number
- 5 Answers
- 50631 Views
- Oracle, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / vijay kumar
Dim n
count=0
n=inputbox("enter a number")
For i=2 to n-1
If n mod i=0 Then
count=count+1
End If
Next
If (count/2)<> 0 Then
print "given number is normal number"
else
print "given number is prime number"
End If
| Is This Answer Correct ? | 42 Yes | 14 No |
Answer / apoorva
bresult = False
Num = 907
For i = 2 To Num / 2
If Num Mod i = 0 Then
bresult = True
Exit For
End If
Next
If bresult = True Then
MsgBox "Prime"
Else
MsgBox "Not Prime"
End If
| Is This Answer Correct ? | 7 Yes | 3 No |
Answer / kishore
Dim n
count=0
n=inputbox("enter a number")
For i=2 to n-1
If n mod i=0Then
count=count+1
End If
Next
If count>3 Then
print "given numer is normal number"
else
print "given number is prime number"
End If
| Is This Answer Correct ? | 31 Yes | 37 No |
Answer / prasanth
Dim n
count=0
n=inputbox("enter a number")
For i=2 to n-1
If n mod i=0Then
count=count+1
End If
Next
If count>1 Then
print "given numer is normal number"
else
print "given number is prime number"
End If
| Is This Answer Correct ? | 8 Yes | 15 No |
Answer / rvanamala
'--------- "n" is a given number
n = 101
retval= PrimeNo(n)
If strComp(retVal,"1",1) =0 Then
MsgBox n &" is a Prime Number"
Elseif strComp(retVal,"0",1) =0 Then
MsgBox n &" is not a Prime Number"
Else
MsgBox n &" is -ve Number"
End If
'-------------------
Function PrimeNo(x)
k=0
z=0
If strComp(n,"0",1) = 0 Then
PrimeNo = 0
Exit Function
Elseif n < 0 Then
PrimeNo = -1
Exit Function
End If
For i = 1 to x
IsPrime = 0
If strComp(x,"1",1)= 0 Then
PrimeNo = 0
Exit Function
End If
z = x mod i
If eval("z = 0") and strComp(i,x,1) <>0 and
strComp(i,"1",1) <> 0 Then
PrimeNo = 0
Exit Function
Else
IsPrime= 1
End If
Next
PrimeNo = IsPrime
End Function
'-----------------------------------
| Is This Answer Correct ? | 0 Yes | 10 No |
Hi frnds, for ex.. we got a job in wipro, they will give me one mail id.. "Rameshkumar@wipro.com", where to open this mail id..in which sw ? or outlook?
Can we test the Word Document using QTP Tool? We should test the page size,page set up, paragraph indentation and spacing, font size of the the character int the page.
what is the difference between the modular framework and datadriven frame work
What is the process for creating an automated test script using QTP assuming you have reviewed the manual test case and understand the requirements?
what and how to answer for the question "tell me about yourself ?" for 3 years experience. can anyone say inj detail please... its urgent
What is the Automation Process followed in your company?
Mention what are the different types of recording modes in qtp? Which will be used when?
How can we do Data driven testing Using For loop in QTP?
Explain the concept of how quicktest professional identifies object?
Hi friends, In a particular test how many maximum call to new actions we can call?It reusable or normal actions what ever it is .
What is TOM in QTP?
What is difference between shared and local object repository?
WinRunner 
