求助(职工的工资总和)

Question

本帖最后由 bcrun 于 2010-04-18 20:00:21 编辑

Answer 1

我只是除去了上段代码中的非法字符：
Option ExplicitDim temp As String
Dim payroll(5) As String
Private Sub cmdInput_Click()
  Dim payroll(5) As String
  Dim sum As Single
  For i = 0 To 6 '清空接收输入数据的标签
 Label2(i).Caption = ""
  Next i
  ch$ = Chr(13) + Chr(10)
  Title$ = "工资输入框"
  For i = 0 To 5
  massage$ = ch$ + ch$ + ch$ + ch$ + ch$ + Label3(i).Caption
  flag = 1
  Title$ = Label3(i).Caption + "输入框"
  Do While flag = 1 '输入数据
temp$ = InputBox$(massage$, Title$, , 100, 4500)
If temp$ <> "" Then '输入不为“空”
  flag = 0
  info = MsgBox("数据正确吗？", 36, "数据核对框")
If info = 7 Then '选择No，数据不正确
info1 = MsgBox("你想重新输入这个数据吗？", 36)
If info1 = 6 Then flag = 1 '选择 Yes，重新输入
  End If
Else
  Exit For '输入“空串”时结束
End If
payroll(i) = temp$
  Loop
  Label2(i).Caption = payroll(i) + "元" '将正确数据显示在标签栏
  sum = sum + Val(payroll(i)) '累计
  Next i
  Label2(6).Caption = Str$(sum) + "元"
End Sub

Answer 2

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP