Помогите написать калькулятор в Visual studio

А язык-то какой? Их в Студии три.. .
И какой калькулятор, они же разные!

C# самый простой вариант. Не нравится - совершенствуйте

на форму label1, textBox1, textBox2, textBox3, button1, button2, button3, this.button4, this.button5, this.button6

в Form1.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

double a, b, result;
private void button1_Click(object sender, EventArgs e)
{
a = Convert.ToDouble(textBox1.Text);
b = Convert.ToDouble(textBox2.Text);
label1.Text = "Сумма";
result = a + b;
textBox3.Text = Convert.ToString(result);
}

private void button2_Click(object sender, EventArgs e)
{
a = Convert.ToDouble(textBox1.Text);
b = Convert.ToDouble(textBox2.Text);
label1.Text = "Разность";
result = a - b;
textBox3.Text = Convert.ToString(result);
}
private void button3_Click(object sender, EventArgs e)
{
label1.Text = "Произведение";
textBox3.Text = Convert.ToString(Convert.ToDouble(textBox1.Text) * Convert.ToDouble(textBox2.Text));
}
private void button4_Click(object sender, EventArgs e)
{
a = Convert.ToDouble(textBox1.Text);
b = Convert.ToDouble(textBox2.Text);
label1.Text = "Частное";
result = a / b;
textBox3.Text = Convert.ToString(result);
}

private void button5_Click(object sender, EventArgs e)
{
textBox3.Text = Convert.ToString(Convert.ToDouble(textBox1.Text) * Convert.ToDouble(textBox1.Text));
}

private void button6_Click(object sender, EventArgs e)
{
textBox3.Text = Convert.ToString(Math.Sqrt(Convert.ToDouble(textBox1.Text)));
}

}
}

вот код на основе Python
x = float(input('First number: '))
y = float(input('Second nember: '))
operation = input('Operation: ')

result = None

if operation == '+':
result = x + y
elif operation == '-':
result = x - y
elif operation == '*':
result = x * y
elif operation == '/':
result = x / y
else:
print('Unsupported operation')

if result is not None:
print('Result', result)

Public Class Form1
Dim clearDisplay As Boolean
Dim Operand1 As Double
Dim Operand2 As Double
Dim MathOperator As String
Private Sub Digit_Click(sender As Object, e As EventArgs) Handles bttn0.Click, bttn1.Click, bttn2.Click, bttn3.Click, bttn4.Click, bttn5.Click, bttn6.Click, bttn7.Click, bttn8.Click, bttn9.Click
If clearDisplay Then lblDisplay.Text = ""
clearDisplay = False
lblDisplay.Text = lblDisplay.Text + CType(sender, Button).Text
End Sub
Private Sub bttnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnClear.Click
lblDisplay.Text = ""
End Sub
Private Sub bttnPeriod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPeriod.Click
If clearDisplay Then lblDisplay.Text = ""
clearDisplay = False
If (lblDisplay.Text.IndexOf(".") > 0) Then
bttnEquals.Focus()
Exit Sub
Else
End If
End Sub
Private Sub bttnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPlus.Click
Operand1 = Convert.ToDouble(lblDisplay.Text)
MathOperator = "+"
clearDisplay = True
End Sub
Private Sub bttnEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnEquals.Click
Dim result As Double
Operand2 = Convert.ToDouble(lblDisplay.Text)
Select MathOperator
Case "+"
result = Operand1 + Operand2
Case "-"
result = Operand1 - Operand2
Case "*"
result = Operand1 * Operand2
Case "/"
If Operand2 <> "0" Then result = Operand1 / Operand2
End Select
lblDisplay.Text = result.ToString
clearDisplay = True
End Sub
Private Sub bttnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnMinus.Click
Operand1 = Convert.ToDouble(lblDisplay.Text)
MathOperator = "-"
clearDisplay = True
End Sub
Private Sub bttnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnMultiply.Click
Operand1 = Convert.ToDouble(lblDisplay.Text)
MathOperator = "*"
clearDisplay = True
End Sub
Private Sub bttnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnDivide.Click
Operand1 = Convert.ToDouble(lblDisplay.Text)
MathOperator = "/"
clearDisplay = True
End Sub
Private Sub bttnNegate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnNegate.Click
lblDisplay.Text = -Convert.ToDouble(lblDisplay.Text).ToString
clearDisplay = True
End Sub
Private Sub bttnReverse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnReverse.Click
If Convert.ToDouble(lblDisplay.Text) <> 0 Then
lblDisplay.Text = (1 / Convert.ToDouble(lblDisplay.Text)).ToString
clearDisplay = True
End If
End Sub
Private Sub CalculatorForm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
Select e.KeyChar
Case "1" : bttn1.PerformClick()
Case "2" : bttn2.PerformClick()
Case "3" : bttn3.PerformClick()
Case "4" : bttn4.PerformClick()
Case "5" : bttn5.PerformClick()
Case "6" : bttn6.PerformClick()
Case "7" : bttn7.PerformClick()
Case "8" : bttn8.PerformClick()
Case "9" : bttn9.PerformClick()
Case "0" : bttn0.PerformClick()
Case "." : bttnPeriod.PerformClick()
Case "C", "c" : bttnClear.PerformClick()