- Kayıt
- 13 Temmuz 2009
- Mesajlar
- 3.500
- Beğeniler
- 0
Kod:
'www.EXTRALOOB.com / Unforgiven
Module Module1
Sub Main()
Dim s1, s2, sonuc As Double
Dim islem As String
Dim evetHayir As String
x: Console.Write("1. Sayıyı girin: ")
s1 = Console.ReadLine
Console.Write("İşlemi girin: ")
islem = Console.ReadLine
If islem = "+" Then
Console.Write("2. Sayıyı girin: ")
s2 = Console.ReadLine
sonuc = s1 + s2
Console.WriteLine("Toplam = " & sonuc)
End If
If islem = "-" Then
Console.Write("2. Sayıyı girin: ")
s2 = Console.ReadLine
sonuc = s1 - s2
Console.WriteLine("Fark = " & sonuc)
End If
If islem = "*" Then
Console.Write("2. Sayıyı girin: ")
s2 = Console.ReadLine
sonuc = s1 * s2
Console.WriteLine("Çarpım = " & sonuc)
End If
If islem = "/" Then
Console.Write("2. Sayıyı girin: ")
s2 = Console.ReadLine
sonuc = s1 / s2
Console.WriteLine("Bölüm = " & sonuc)
End If
Console.Write("devam etmek istiyor musunuz? evet/hayır: ")
evetHayir = Console.ReadLine
If evetHayir = "evet" Then
GoTo x
End If
If evetHayir = "hayır" Then
Console.WriteLine("Görüşmek üzere...")
Return
End If
End Sub
End Module