Question

如何用excel或vb给下面的题目编程,当a和b为何值时结果最大?

800*sina*cosb+2450*sina*cosb+2800*cosa*cosb

Answer 1

显然，等式的最大值与b无关，因为cosb的最大值为1，此时b的值为 0 + 2π*n(n为正整数)

那么用Excel的vba程序来计算结果，代码如下：

Private Sub CommandButton1_Click()
    Dim i As Double, mx As Double, a As Double
    For i = 0 To 2 * WorksheetFunction.Pi Step 0.01
            If mx < 800 * Sin(i) + 2450 * Sin(i) + 2800 * Cos(i) Then
                mx = 800 * Sin(i) + 2450 * Sin(i) + 2800 * Cos(i)
                a = i
            End If
    Next i
    MsgBox "最大值为" & mx & Chr(10) & "此时a的取值为：" & a & "，b的取值为：0"
End Sub

详见附件！

追问

请问wps中能vba编程吗?用MATLAB该如何编程?

追答

Wps专业版也集成了VB编辑器，所以也可以用VBA编程，但我没有用过。但绝对是可以的、。
MATLAB没有用过，俺不会！！目前俺只会VB或者VBA！

追问

如果这样改一下800*sina*cosb+2450*sinb*cosb+2800*cosa*cosb包含了两个未知参数,又如何编写程序求最大值呢?我试了几次没成功,希望你能再帮我一下,谢谢!

追答

Private Sub CommandButton1_Click()
    Dim i As Double, mx As Double, a As Double, b As Double, m As Double
    For i = 0 To 2 * WorksheetFunction.Pi Step 0.01
        For m = 0 To 2 * WorksheetFunction.Pi Step 0.01
            If mx < 800 * Sin(i) * Cos(m) + 2450 * Sin(m) * Cos(m) + 2800 * Cos(i) * Cos(m) Then
                mx = 800 * Sin(i) * Cos(m) + 2450 * Sin(m) * Cos(m) + 2800 * Cos(i) * Cos(m)
                a = i
                b = m
            End If
    Next m, i
    MsgBox "最大值为" & mx & Chr(10) & "此时a的取值为：" & a & "，b的取值为：" & b
End Sub
'800*sina*cosb+2450*sinb*cosb+2800*cosa*cosb

Answer 2

应该是45度吧