Public Class Form1
Function modl(ByVal a As Integer, ByVal b As Integer) As Integer
Dim c As Integer
c = a
Do While c >= b
c = c - b
Loop
Return c
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = modl(TextBox1.Text, TextBox2.Text)
End Sub
End Class
Function modl(ByVal a As Integer, ByVal b As Integer) As Integer
Dim c As Integer
c = a
Do While c >= b
c = c - b
Loop
Return c
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = modl(TextBox1.Text, TextBox2.Text)
End Sub
End Class
