Private Sub Form_Load()M = InputBox("请输入m的值")Z = InputBox("请输入Z的值")α = InputBox("请输入α的值")A = M * Z * Cos(α * 3.14 / 180)MsgBox "A的值为" & AEnd Sub其中你要注意在vb中所有的三角函数的参数必须用弧度来表示,比如说20°你要转换弧度