vb代码~~

Case m <= 500: r = m * 0.05 Case m <= 2000: r = m * 0.1 - 25 Case m <= 5000: r = m * 0.15 - 125 Case m <= 20000: r = m * 0.2 - 375 Case m <= 40000: r = m * 0.25 - 1375 Case m <= 60000: r = m * 0.3 - 3375 Case m <= 80000: r = m * 0.35 - 6375 Case m <= 100000: r = m * 0.4 - 10375 Case m > 1000000: r = m * 0.45 - 15375 End Select

Text2.Text = Format(r, \"0.00\")

End Sub

Private Sub Command1_Click()

If Command1.Caption = \"启动闹钟\" Then Command1.Caption = \"暂停闹钟\" Timer2.Enabled = True Else

Command1.Caption = \"启动闹钟\" Timer2.Enabled = False End If

End Sub

Private Sub Form_Load() Timer2.Enabled = False Text1.Text = Time Text2.Text = Time

End Sub

Private Sub Timer1_Timer() Text1.Text = Time

End Sub

Private Sub Timer2_Timer() If Text1.Text > Text2.Text Then Beep End If end sub