I am having trouble with a problem. I started a problem in basic add a button and text box and below is the code I use but when i hit the button it doesn't give me anything and it should give me 2.
Public Class Form1
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
End Sub
Private Sub btnDisplay_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s)
'Calculate the remainder in long division
txtOutput.Text = CStr(Remainder( 3, 17))
End Sub
Function Remainder(ByVal divisor As Double, _
ByVal dividend As Double) As Double
Dim sum As Double = 0
Do While (dividend - sum) >= divisor
sum += divisor
Loop
Return (dividend - sum)
End Function
End Class
What am I missing?
Public Class Form1
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
End Sub
Private Sub btnDisplay_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s)
'Calculate the remainder in long division
txtOutput.Text = CStr(Remainder( 3, 17))
End Sub
Function Remainder(ByVal divisor As Double, _
ByVal dividend As Double) As Double
Dim sum As Double = 0
Do While (dividend - sum) >= divisor
sum += divisor
Loop
Return (dividend - sum)
End Function
End Class
What am I missing?
Comment