...
gyumolcs = "alma"
If gyumolcs = "alma" Then
MsgBox ("Szeretem")
Else
MsgBox ("Nem szeretem")
End If
...
...
Dim aszoveg, bszoveg As String
Dim aszam, bszam As Integer
aszoveg = "b"
If (aszoveg = "0") Or (aszoveg = "1") Then
MsgBox (aszoveg)
Else
MsgBox ("c")
End If
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If aszam > bszam Then
c = 2 * aszam + bszam
Else
c = 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If aszam < bszam Then
c = 2 * aszam + bszam
Else
c = 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam < bszam) And ((5 * aszam) = bszam) Then
c = 2 * aszam + bszam
Else
c = 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(aszoveg)
bszam = CInt(aszoveg)
If (aszam < bszam) And ((5 * aszam) = bszam) Then
c = 2 * aszam + bszam
Else
c = 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(bszoveg)
bszam = CInt(aszoveg)
If (aszam < bszam) Or ((5 * aszam) = bszam) Then
c = 2 * aszam + bszam
Else
c = aszam * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(bszoveg)
bszam = CInt(aszoveg)
If 5 * aszam = 25 Then
c = 2 * aszam + bszam
Else
c = aszam * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(bszoveg)
bszam = CInt(aszoveg)
If 5 * aszam = 25 Then
c = 2 * aszam + bszam
Else
c = aszam * (aszam + bszam)
End If
MsgBox (aszoveg)
...
...
aszoveg = "1"
bszoveg = "5"
aszam = CInt(bszoveg)
bszam = CInt(aszoveg)
If 5 * aszam = 25 Then
c = 2 * aszam + bszam
Else
c = aszam * (aszam + bszam)
End If
MsgBox (bszoveg)
...
...
aszoveg = "2"
bszoveg = "3"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam < bszam) And (2 * aszam > bszam) Then
c = aszam + bszam ^ 2
Else
c = aszam ^ 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "2"
bszoveg = "3"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam < bszam) And (aszam > bszam) Then
c = aszam + bszam ^ 2
Else
c = aszam ^ 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "2"
bszoveg = "3"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam < bszam) Or (aszam > bszam) Then
c = aszam ^ 2 + bszam ^ 2
Else
c = aszam ^ 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "2"
bszoveg = "4"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam < bszam) Or (aszam > bszam) Then
c = aszam ^ 2 + bszam ^ 2
Else
c = aszam ^ 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "2"
bszoveg = "4"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam > bszam) Or (aszam > bszam) Then
c = aszam ^ 2 + bszam ^ 2
Else
c = aszam ^ 2 * (aszam + bszam)
End If
MsgBox (c)
...
...
aszoveg = "2"
bszoveg = "4"
aszam = CInt(aszoveg)
bszam = CInt(bszoveg)
If (aszam > bszam) Or (aszam > bszam) Then
c = aszam ^ 2 + bszam ^ 2
Else
c = aszam ^ 2 * (aszam + bszam)
End If
MsgBox (2 * c)
...