Tugas 2 b.program

Private sub text1_keypress (keyascii as Integer)
If keyascii=13 then
Text2.setfocus
End if
End sub

Private sub label4_(click)
Text3=val (text1)*val (text2)
End sub

Private sub label5_(click)
Text1.set focus
Text1=" "
Text2=" "
Text3=" "
End sub

Private sub label6_(click)
End
End sub