Napisz w excelu i jezyku vba kalkulator naukowy (co najmniej taki jak w windowsie).

Dim n, i, k As Integer Dim x As Double Dim l As String x = TextBox1.Text While 2 ^ n <= x n = n + 1 End While TextBox2.Text = n For i = 0 To n - 1 k = x - (x 2) * 2 x = x 2 l = CStr(k) + l Next TextBox3.Text = l End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = " " TextBox2.Text = " " TextBox3.Text = " " zapis wprowadzajacy 1 liczby w systemie 1-owym. Liczenie!!! Dim wynik as decimal, liczba1 as double = textbox1.text Dim liczba2 as double = textbox2.text Select Case działanie Case dodawanie wynik = liczba1 + liczba2 Case odejmowanie wynik = liczba1 - liczba2 Case dzielenie If liczba2 = 0 then msgbox("nie ma dzielenia przez zero") : Exit Sub wynik = liczba1/liczba2 case mnożenie wynik=liczba1*liczba2 End Select Textbox3.text = wynik End Sub