excel vba制作的一个奖金系统:各个计算薪金的窗体;Private Sub FenValueCalculate_Click() Dim MyRow As Integer Dim myrange As Range Dim i As Integer Dim j As Integer Dim temp As Integer 'Dim num As Integer Dim t As Integer Set myrange = Worksheets("10月调度").Range("A1").Cur
工资计算程序(VB6.0代码编写) 工资计算:基本工资+奖金+加班费=实发工资 Dim i As Integer For i = 0 To Text1.UBound Text2.Text = Val(Text2.Text) + Val(Text1(i).Text) Next i QQ223857666勾月