VB_2014_SLIP 11

 

Option Explicit

Option Explicit

Private Sub cmdEven_Click()

Dim number As Integer

number = Val(Text1.Text)

Dim reminder As Integer

Dim sum As Integer

While number > 0

reminder = number Mod 10

number = number \ 10

If reminder Mod 2 = 0 Then

sum = sum + reminder

End If

Wend

lblAnswer.Caption = "Sum of even digisis :" & sum

End Sub

Private Sub Text1_Click()

Text1.Text = ""

End Sub