主题：利用窗口编辑费用计算程序

投资额 TextChanged 事件

 

If val(e.Sender.Text) >= 500 Then

    e.Form.Controls("TextBox2").Text = 0

    e.Form.Controls("TextBox3").Text = 500

Else

    e.Form.Controls("TextBox2").Text = 500

    e.Form.Controls("TextBox3").Text = 1000

End If

 

计算按钮Click事件

 

e.Form.Controls("Textbox5").Text = (e.Form.Controls("TextBox3").Text-e.Form.Controls("TextBox2").Text-e.Form.Controls("TextBox1").Text)*e.Form.Controls("TextBox4").Text