Кто умеет решите пожалуйста. Номера 34, 44, 54 надо в VBA

+ 0 -

GonowItoIs

17 февр. 2017 г., 23:37:05 (7 лет назад)

Решение во вложенном файле

Для тех, у кого затруднения макросы прочитать с листа Эксель, выкладываю сюда их дубликат:

Option Explicit

Sub v44()
    Dim a() As Integer
    Dim M As Integer, i As Integer, n As Integer
    Dim avg As Single
    M = InputBox("Введите число М (не больше 1000)")
    n = Int(Sqr(M))
    ReDim a(1 To n)
    avg = 0
    For i = 1 To n
        a(i) = i ^ 2
        avg = avg + a(i)
    Next i
    avg = avg / n
    MsgBox "Среднее значение равно" + Str(avg)
End Sub

Sub v34()
    Dim a() As Integer
    Dim M As Integer, i As Integer, n As Integer
    Dim prod As Double
    M = InputBox("Введите число М (не больше 500)")
    n = Int((Sqr(1 + 8 * M) - 1) / 2)
    ReDim a(1 To n)
    prod = 1
    For i = 1 To n
        a(i) = i
        prod = prod * a(i)
    Next i
    MsgBox "Число элементов в массиве:" + Str(n) + ", их прозведение равно" + Str(prod)
End Sub

Sub v54()
    Dim a() As Single
    Dim i As Integer, n As Integer, i1 As Integer, i2 As Integer, i3 As Integer
    Dim e As Single, m1 As Single, m2 As Single, m3 As Single, e1 As Single, e2 As Single
    i = 1
    Do While Cells(i, 1).Value <> 0
        i = i + 1
    Loop
    n = i - 1
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = Cells(i, 1).Value
    Next i
    m1 = -1000
    m2 = -1000
    m3 = -1000
    For i = 1 To n
        e = a(i)
        If m1 < e Then
            m3 = m2: i3 = i2
            m2 = m1: i2 = i1
            m1 = e: i1 = i
        ElseIf m2 < e Then
            m3 = m2: i3 = i2
            m2 = e: i2 = i
        ElseIf m3 < e Then
            m3 = e: i3 = i
        End If
    Next i
    Cells(1, 2).Value = "Max(" & Str(i1) & ")=" & Str(m1)
    Cells(2, 2).Value = "Max(" & Str(i2) & ")=" & Str(m2)
    Cells(3, 2).Value = "Max(" & Str(i3) & ")=" & Str(m3)
End Sub