Question

使用VB怎么写这个代码

Answer 1

基本方法：

Public Function CalcMe(ByVal Turnover As Single, _
                       Optional ByVal PercentageOfTurnover As Single = 0.05, _
                       Optional ByVal BasicSalary As Single = 2000) As Single
    
    On Error Resume Next
    
    CalcMe = BasicSalary * (1 + PercentageOfTurnover)
End Function

窗体自己去设计，调用的时候传入给 CalcMe 这个函数即可

比如 Text1 为基本工资输入，Text2 为本月营业额输入

MsgBox "基本工资为：" & Text1.Text & vbCrLf & "本月营业额为：" & Text2.Text & vbCrLf & "实发工资为：" & CStr(CalcMe(Text2.Text, , Text1.Text))

Answer 2

Private Sub Form_Click()
Dim gz As Single, yye As Single
gz = Val(InputBox("请输入基本工资", , 2000))
yye = Val(InputBox("请输入本月营业额"))
MsgBox "基本工资：" & Format(gz, "0.00元") & vbCrLf & "本月营业额：" & Format(yye, "0.00元") & vbCrLf & "实发工资：" & Format(gz + yye * 0.05, "0.00元")
End Sub