窗体上添加一个按钮，3个文本框，双击按钮，代码如下：Text3.Text = Format((Val(Text1.Text) / 100) * Val(Text2.Text), "0.00") 注意，Text1中输入百分比不要加百分号，比如87%，直接输入87就可以了。
