text3.text="收费项目一为:" & (val(text1.text) * val(text2.text)) & vbcrLF
text3.text=text3.text & "收费项目二为:" & val(text1.text) + val(text2.text) & vbcrLF
text3.text=text3.text & "总计:" & (val(text1.text) * val(text2.text))+val(text1.text) + val(text2.text)
text3.text=val(text1.text) * val(text2.text)