Response to: little help needed in this problem vb 2010
Latest Revision
Try creating a function that will add the values. You can change the code below to what you want.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Day As String = "1"
Dim Month As String = "3"
Dim Year As String = "1986"
Dim Holder As Integer = 0
For Each num As Char In (Day + Month + Year)
Holder += Val(num)
Next
MessageBox.Show(AddString(Holder))
End Sub
Function AddString(number As String) As String
Dim i As Integer = 0
For Each num As Char In number
i += Val(num)
Next
If i >= 10 Then
Return AddString(i)
End If
Return i.ToString()
End Function
Posted 28-Dec-12 6:14am
by
Akinmade Bond.