Soroush6120
دوشنبه 07 بهمن 1387, 19:16 عصر
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
op = Text3.Text
If op = "+" Then
Text4.Text = Val(a) + Val(b)
Else
If op = "-" Then
Text4.Text = a - b
Else
If op = "*" Then
Text4.Text = a * b
End If
End Sub
دوستان لطفا بگید مشکل برنامه از کجا است فردا امتحان دارم:افسرده:
ممنون:قلب:
a = Text1.Text
b = Text2.Text
op = Text3.Text
If op = "+" Then
Text4.Text = Val(a) + Val(b)
Else
If op = "-" Then
Text4.Text = a - b
Else
If op = "*" Then
Text4.Text = a * b
End If
End Sub
دوستان لطفا بگید مشکل برنامه از کجا است فردا امتحان دارم:افسرده:
ممنون:قلب: