Last week of VB learning-four-digit integer Reverse Order

Four-digit integer Reverse Order:

Public class form1 private sub textbox1_keypress (byval sender as object, byval e as system. windows. forms. keypresseventargs) handles textbox1.keypress dim N, A, B, C, D, M as integer if ASC (E. keychar) = 13 then n = Val (textbox1.text) A = n mod 10' single digit B = n \ 10 mod 10' ten digits c = n \ 100 mod 10' hundred digits d = n \ 1000 m = A * 1000 + B * 100 + C * 10 + D label2.text = "the backward integer is: "& M end if end sub private sub textbox1_textchanged (byval sender as system. object, byval e as system. eventargs) handles textbox1.textchanged if not isnumeric (textbox1.text) Then msgbox ("enter a non-numeric character, please enter again", "Data check") textbox1.text = "" textbox1.focus () end if end sub private sub form1_load (byval sender as system. object, byval e as system. eventargs) handles mybase. load end subend class