© 1999-2048 dssz.net 粤ICP备11031372号
[网络管理] VB计算员工工资代码
说明: Dim salary As Single, salary1 As Single Dim salary2 As Single, salary3 As Single salary1 = Val(Text3.Text) salary = salary1 - 3500 If Text4.Text = "" Then MsgBox "请输入其他扣款!", vbOKOnly + vbExclamation, "警告" Else salary3 = Val(Text4.Text) '其他扣款 Select<vbcsdn1994> 上传 | 大小:17kb