Script :
Command1 : Tambah
MsgBox (Val(Text1.Text) + (Text2.Text))
Command2 : Kali
MsgBox (Val(Text1.Text) * (Text2.Text))
Command3 : Bagi
MsgBox (Val(Text1.Text) / (Text2.Text))
Command4 : Kurang
MsgBox (Val(Text1.Text) - (Text2.Text))
Command5 : Pangkat
MsgBox (Val(Text1.Text) * (Text1.Text))
Command6 : CE
Text1.Text = ""
Text2.Text = ""
Command7 : End
End
Tidak ada komentar:
Posting Komentar