Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Mathematical Error

unicanuslupusunicanuslupus Member Posts: 1
I am trying to complete a class project in which we have to create a pet store. The problem I'm having is creating a formula which will figure out how take the number of pets (provided) and figure in the number of carriers. Below is a piece of my code. I'm not asking anyone to rewrite it, just tell me what I'm doing wrong.

Dim N As Integer
Dim C As String


N = HamsterQtyTxt.Text
C = 3
Call HamsterCarCount(N, C)
' HamsterCarTxt.Text = U

U = 0


Private Sub HamsterCarCount(ByVal W As Integer, ByVal B As String)


'C is per container value
' W is number of pets

Do Until N <= 0
N = N - B
U = U + 1

Loop

DogCarTxt.Text = N


Thanks for any assistance offer.
Sign In or Register to comment.