Tugas 4

Private sub Command1_click ()
Text9 = val (text1)+val (text2)
Text10= val (text4)*val (text6)
Text11= val ( text3)- val (text7)
Text12= val (text2)/ val (text8)
End  sub

Private sub command2_click ()
End
End sub

Private sub command3_click ()
Text1.setfocus
Text1=" "
Text2=" "
Text3=" "
Text4=" "
Text5=" "
Text6=" "
Text7=" "
Text8=" "
Text9=" "
Text10=" "
Text11=" "
End sub

Private sub text1_keypress (keyascii as integer)
If keyascii=13 then
Text5.setfocus
End if
End sub

Prive sub text2_keypress (keyascii As I nteger)
If keyascii=13
Text8.setfocus
End if
End sub

Private sub text3 _keypress (keyascii As Integer)
If keyascii=13 then
Text7.setfocus
End if
End sub

Private sub text4_keypress (keyascii As integer)
If keyascii= 13 then
Text6.setfocus
End if
End sub