Developing.ru

Код: Выделить всё

Sub m_1()
Dim x As Variant
x = InputBox("Введите число")
MsgBox 2 * 1 / Tan(3 * x) - 1 / 12 * x ^ 2 + 7 * x - 5
End Sub

Код: Выделить всё

Public vForm_1 As String
Public vForm_2 As String
Public vForm_3 As String
Sub m_2()
UserForm.Show
If vForm_3 = "Yes" Then Exit Sub
MsgBox "Объём цилиндра " & 3.1415 * vForm_2 ^ 2 * vForm_1 & vbCr & _
    "Объём конуса " & 1 \ 3 * 3.1415 * vForm_2 ^ 2 * vForm_1
End Sub

Код: Выделить всё

Sub m_3()
Dim b As Long
Dim q As Long
Dim vИскомоеЧисло As Long
Dim vЧислоПрогрессии As Long
b = InputBox("Введите первый член Геометрической прогрессии")
q = InputBox("Введите знаменатель програссии")
vИскомоеЧисло = InputBox("Введите 3-х значное число, чтобы определить, является ли оно членом прогрессии")
Do While vИскомоеЧисло > b
    b = b * q
    If b = vИскомоеЧисло Then
        MsgBox "Это число являет членом Геометрической прогрессии"
        Exit Sub
    End If
Loop
MsgBox "Это число не являет членом Геометрической прогрессии"
End Sub