دستور شرطی if , else , elseif

[Soroush6120]

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





دوستان لطفا بگید مشکل برنامه از کجا است فردا امتحان دارم:افسرده:
ممنون:قلب:

[xxxxx_xxxxx]

اگر مي خواهيد از Elseif استفاده كنيد بايد اونو تو يك خط و بدون فاصله بنويسيد.
اينطوري:



Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
op = Text3.Text
If op = "+" Then
Text4.Text = Val(a) + Val(b)
ElseIf op = "-" Then
Text4.Text = a - b
ElseIf op = "*" Then
Text4.Text = a * b

End If

End Sub


موفق باشيد/