zadanie |
cześć, podaję rozpisane polecenia Visual Basic do kalkulatora, który mamy zrobić Pozdrawiam Sub Dodawanie() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a + b Range("C9:E9").Select ActiveCell.Value = c End Sub Sub Odejmowanie() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a - b Range("C9:E9").Select ActiveCell.Value = c End Sub Sub Mnozenie() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a * b Range("C9:E9").Select ActiveCell.Value = c End Sub Sub Dzielenie() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a / b Range("C9:E9").Select ActiveCell.Value = c End Sub Sub Silnia() a = Worksheets("Arkusz1").Cells(7, 3).Value wynik = 1 For n = 1 To a Step 1 wynik = wynik * n Next n Range("C9:E9").Select ActiveCell.Value = wynik End Sub Sub SumaNaturalnych() a = Worksheets("Arkusz1").Cells(7, 3).Value wynik = 0 licznik = 0 Do Until licznik > a wynik = wynik + licznik licznik = licznik + 1 Loop Range("C9:E9").Select ActiveCell.Value = wynik End Sub Sub Pierwiastek() a = Worksheets("Arkusz1").Cells(7, 3).Value wynik = Sqr(a) Range("C9:E9").Select ActiveCell.Value = wynik End Sub Sub Potega() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value wynik = a For licznik = 1 To b - 1 Step 1 wynik = wynik * a Next licznik Range("C9:E9").Select ActiveCell.Value = wynik End Sub Sub ObliczniePierwiastkow() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = Worksheets("Arkusz1").Cells(7, 5).Value delta = (b * b) - 4 * a * c If a = 0 Then Range("c9").FormulaR1C1 = "ERROR" Range("c10").FormulaR1C1 = "" GoTo Koniec End If If delta < 0 Then Range("c25").FormulaR1C1 = "BRAK ROZWIĄZAŃ" Range("c9").FormulaR1C1 = "" Range("c10").FormulaR1C1 = "" ElseIf delta = 0 Then Range("c25").FormulaR1C1 = "JEDNO ROZWIAZANIE" x1 = -(b / (2 * a)) Range("c9").Value = x1 Range("c10").FormulaR1C1 = "" ElseIf delta > 0 Then Range("c25").FormulaR1C1 = "DWA ROZWIĄZANIA" 'x1 = (-b - Sqr(delta)) / 2 * a x1 = (-b - Sqr(delta)) / (2 * a) x2 = (-b + Sqr(delta)) / (2 * a) Range("C9").Value = x1 Range("C10").Value = x2 End If Koniec: End Sub Sub Wyczysc() Range("c7:e7").Select Selection.ClearContents Range("c9:c10").Select Selection.ClearContents Range("c25").Select Selection.ClearContents Range("c7").Select End Sub |