Private Sub Command1_Click()
num = Val(Text1.Text)
remi = num Mod 10
'Print remi
cnt = Len(num)
'Print cnt
For i = 1 To cnt Step 1
If i < cnt Then
num = num \ 10
End If
Next
Sum = num + remi
Label1.Caption =
"Answer" & Sum
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
No comments:
Post a Comment
Note: only a member of this blog may post a comment.