Ok i need the user to be asked for a number by an inputbox (Using VB 6) and have this number checked. If its prime i want them to be told via msgnox , if not i want them to be given another attempt

Any ideas?

Recommended Answers

All 7 Replies

You'll have to pick a maximum input number. Then work out all the prime numbers up to that number and put them in an array to check the user's input against. There isn't a shorthand method of finding out if a number is prime (though using base 6 can narrow the options down).

you think this woul work?

option explicit
dim prime as boolean
dim number as integer
dim x as integer
num = inputbox("Enter a whole number up to 100")
for x = 1 to 100
(code here)
next x

I just need the ocde here bit i think, but how do i get it to know whether a number is whole or not?

U can try this

Do while true

   Dim x as Long
   Dim myNum as long
   myNum = val(InputBox ("Enter A Number"))

   Dim mFlag as Byte
   mFlag = 0

   For x = 1 to Clng(myNum/2)
      If myNum Mod x = 0 then
         mflag = 1
         exit for
      end if
   if mflag = 0 then
      Msgbox "Prime Number"
      Exit sub
   end if

This works in an infinite loop, asking the user for a number, until the user has entered a prime number. To ensure it is a whole number, I typecasted it to a long. I avoided integer in case the user enters a number greater than 32676 (max value for an integer, IIRC). In this was you can also avoid having a maximum limit for the user input

Sorry for the howler in the code. The For Loop should be

For x = 2 to Clng(myNum/2)

The above code is a great example, but there is a way to make it faster. Consider the following:

Input number: 100
100 / 2:      50
Sqr(100):     10

Once you hit the square root of a number, you can stop, as it is likely to be a great deal smaller than the same number halved. Here's how I would do this (this is in fact an update of the program I used to learn QBASIC, which some of you may remember from the days of MS-DOS):

First, the IsPrime Function:

Function IsPrime(checkValue As Long) As Boolean
     For testValue = 2 To CLng(Sqr(checkValue)) Step 1
         If checkValue Mod testValue = 0 Then
             IsPrime = False
             Exit Function
         End If
     IsPrime = True
 End Function

And now for the code which will use the IsPrime function to solve your problem:

Sub Main()
        userValue = CLng(InputBox("Enter a value to test.  I will tell you if it is prime or not.", "Prime Tester", userValue))
        If IsPrime(userValue) Then
             If MsgBox(userValue & " is a prime number!  Congratulations!  Would you like to try another?", vbYesNo, "Number is Prime!") = vbNo Then
            End If
        End If
End Sub

Just for kicks and giggles (and since the program I'm redoing to bring you this solution did it this way too), I'll provide the code to list every number LESS THAN the user's input that is a prime number, taking advantage of the IsPrime Function again:

Sub Main()
        userValue = CLng(InputBox("Enter a value to test.  I will tell you every prime up to (and possibly including) it.", "Prime Tester", userValue))
        primesList = "1"
        For countValue = 2 To CLng(userValue) Step 1
                If IsPrime(CLng(countValue)) Then
                    primesList = primesList & ", " & CStr(countValue)
                End If
        If MsgBox("The prime numbers up to (and possibly including) " & userValue & " are:" & vbCrLf & primesList & vbCrLf & vbCrLf & "Would you like to try another?", vbYesNo, "Your Prime Numbers") = vbNo Then
        End If
End Sub

Other variations include the smallest prime >= <input number>, the largest prime <= <input number>, the first <input number> prime numbers, or any number of other things you might use the IsPrime function to do. This is a (relatively) quick function, and takes a mere fraction of the time you would use checking every number up to <input number> / 2 - especially for larger numbers.

As always, enjoy!

- Sendoshin

yes, checking till Square root is quicker

thats great it runs fine here in vb6. couldnt get it to run in net but fixed that, its just the sqr function is in system.math instead

Thanks for helping me i really needed to do it for school

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.