Question

Помогите сделать программы в vba срочно! 2. Дано целое число. Если оно нечетное, то вычислить сумму синуса и косинуса этого числа, в противном случае вычислить модуль этого числа. 3.найти сумму двадцати членов последовательности: 0,3,6,9... 4.Дано натуральное число n. Вычислить sin x+sin^2x+...+sin^n x

Answer 1

Dim s As Integer, sum As Single

s = 44

If s Mod 2 = 1 Then

sum = Sin(s * 3.14 / 180) + Cos(s * 3.14 / 180)

Else

sum = Abs(s)

End If

MsgBox sum

'задач 3

Dim s As Integer, sum As Integer, i As Integer, j As Integer

  Do While i < 21

  sum = sum + j

Cells(i + 1, 1) = i

Cells(i + 1, 2) = j

Cells(i + 1, 3) = sum

i = i + 1

j = j + 3

Loop

'задач 4

Dim x As Integer, sum As Single, i As Integer, n As Integer

x = 30

n = CInt(InputBox("Введите n"))

For i = 1 To n

sum = sum + Sin(i * x * 3.14 / 180)

Next i

MsgBox sum

Answer 2

Для создания программ на VBA для решения данных задач, вам потребуется использовать редактор кода в программе Excel. Вот решения каждой из задач:

1. Вычисление суммы синуса и косинуса, если число нечетное, и модуля числа, если число четное:

vbaCopy code
Function CalculateValue(number As Integer) As Double
    If number Mod 2 <> 0 Then
        CalculateValue = Sin(number) + Cos(number)
    Else
        CalculateValue = Abs(number)
    End If
End Function

2. Найти сумму двадцати членов последовательности: 0, 3, 6, 9...

vbaCopy code
Function SumSequence() As Integer
    Dim sum As Integer
    Dim i As Integer
    sum = 0
    
    For i = 0 To 19 Step 3
        sum = sum + i
    Next i
    
    SumSequence = sum
End Function

3. Вычислить сумму sin(x) + sin^2(x) + ... + sin^n(x) для данного натурального числа n:

vbaCopy code
Function SumOfSines(n As Integer, x As Double) As Double
    Dim sum As Double
    Dim i As Integer
    sum = 0
    
    For i = 1 To n
        sum = sum + Sin(x) ^ i
    Next i
    
    SumOfSines = sum
End Function

После того, как вы создали эти функции в редакторе VBA, вы можете использовать их в вашем файле Excel. Например, в ячейке A1 вы можете ввести число для задачи 1 и затем в ячейке B1 написать формулу =CalculateValue(A1) для вычисления результата.

Аналогично, для задачи 2 и 3 вы можете использовать функции SumSequence() и SumOfSines(n, x) соответственно.

Надеюсь, это поможет вам с вашими программами на VBA! Если у вас возникнут дополнительные вопросы или затруднения, не стесняйтесь спрашивать. Удачи вам!