Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) z = x * y Label1.Caption = z End Sub Private Sub Command2_Click() x = Val(Text1.Text) y = Val(Text2.Text) z = x / y Label1.Caption = z End Sub Private Sub Command3_Click() x = Val(Text1.Text) y = Val(Text2.Text) z = x + y Label1.Caption = z End Sub Private Sub Command4_Click() x = Val(Text1.Text) y = Val(Text2.Text) z = x - y Label1.Caption = z End Sub Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Label1.Caption = "" End Sub Private Sub Command6_Click() End End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น