Behöver lite hjälp!

Får bara använda IF satser INTE select case! I denna uppgift.

Uppgiften:

5.5 Gör så att programmet läser in två tal och sedan väljer räknesätt (plus, minus, gånger, dela med) via en combobox. Programmet skall sedan presentera svaret via en label eller en messagebox.

Detta är koden:

Private Sub Command4_Click()
If Combo1 = "+" Then
MsgBox Int(Text1) + Int(Text2)
Else
If Combo1 = "-" Then
MsgBox Text11 - Text12
Else
If Combo1 = "*" Then
MsgBox Text11 * Text12
Else
If Combo1 = "/" Then
MsgBox Text11 / Text12
End If
End Sub

Behövs inga else....

Private Sub Command4_Click() 
If Combo1 = "+" Then 
    MsgBox Int(Text1) + Int(Text2) 
End If 
If Combo1 = "-" Then 
    MsgBox  Int(Text11) - Int(Text12)
End If
If Combo1 = "*" Then 
    MsgBox  Int(Text11) * Int(Text12)
End If
If Combo1 = "/" Then 
    MsgBox Int( Text11) / Int(Text12) 
End If 
End Sub

Behövs inga else....

Private Sub Command4_Click() 
If Combo1 = "+" Then 
    MsgBox Int(Text1) + Int(Text2) 
End If 
If Combo1 = "-" Then 
    MsgBox  Int(Text1) - Int(Text2)
End If
If Combo1 = "*" Then 
    MsgBox  Int(Text1) * Int(Text2)
End If
If Combo1 = "/" Then 
    MsgBox Int( Text1) / Int(Text2) 
End If 
End Sub

Men det är definitivt bättre:
Behövs inga else....

Private Sub Command4_Click() 
If Combo1 = "+" Then 
    MsgBox Int(Text1) + Int(Text2) 
ElseIf Combo1 = "-" Then 
    MsgBox  Int(Text1) - Int(Text2)
ElseIf Combo1 = "*" Then 
    MsgBox  Int(Text1) * Int(Text2)
ElseIf Combo1 = "/" Then 
    MsgBox Int( Text1) / Int(Text2) 
End If 
End Sub

Hej,

Sedan kan man fundera pa om man verkligen vill anvanda sig av default properties. Visst, det funkar, men det ar inte sjalvklart vad man vill astadkomma nar man laser koden och det kan bli problem om defaultproperties andras i framtiden. Jag rekommenderar explcit anvandande av properties:

Text1.Text

osv

// Johan