مساعدة ضرورية وسريعة

[محروم.كوم]

السلام عليكم أرجو منكم مساعدتي في لغة الفجوال بيسك دوت نت هذا الكود جزء من برنامج مكتوب بلغة Visual Basic.net بيئة Microsoft Visual Studio 2008========>Console Application المطلوب تقسيم هذا الكود وجعل كل Case في اجراء أي case الجمع في اجراء لوحده case الطرح في اجراء لوحده ووووو الخ. Public Function y() As Double Dim j As Integer Dim k As Double Dim a, b As Double Dim s As Integer sum = sum + k Console.WriteLine("Enter number OP:") s = Integer.Parse(Console.ReadLine()) Console.Clear() Select Case s Case 1 Console.WriteLine("Enter number OP") a = Double.Parse(Console.ReadLine()) Console.WriteLine("Enter number OP") b = Double.Parse(Console.ReadLine()) k = a + b Console.WriteLine("The result ======>") Console.WriteLine(a & "+" & b & "=" & k) Case 2 Console.WriteLine("The first number") a = Double.Parse(Console.ReadLine()) Console.WriteLine("The second number") b = Double.Parse(Console.ReadLine()) k = a - b Console.WriteLine("The result ======>") Console.WriteLine(a & "-" & b & "=" & k) Case 3 Console.WriteLine("The first number") a = Double.Parse(Console.ReadLine()) Console.WriteLine("The second number") b = Double.Parse(Console.ReadLine()) k = a * b Console.WriteLine("The result ======>") Console.WriteLine(a & "*" & b & "=" & k) Case 4 Console.WriteLine("The first number") a = Double.Parse(Console.ReadLine()) Console.WriteLine("The second number") b = Double.Parse(Console.ReadLine()) If b = 0 Then Console.WriteLine("The result ======>") Console.WriteLine("the number is rong") Else k = a / b Console.WriteLine("The result ======>") Console.WriteLine(a & "/" & b & "=" & k) End If Case 5 Console.Clear() Console.WriteLine("The result ======>") Console.WriteLine("the summiton is =>" & sum) Case 6 j = 5 End Select Return (j) End Function End Module __DEFINE_LIKE_SHARE__