![](https://cos-cdn.shuashuati.com/pipixue-web/2020-1231-2005-12/ti_inject-812ce.png)
计算货物运费的公式如下(w为货物重量,y为运费): 当x<=500时,y=0.45×w 当x>500时,y=500×0.45+(w − 500)×0.30 窗体上有两个文本框和一个命令按钮,一个文本框用来输入货物重量,另一个文本框用来输出运费。命令按钮的单击事件如下: Private Sub Command1_Click() Dim w As Single, y As Single w=val(Text1.Text) [1] y=w*0.45 Else [2] End If Text2.Text=y End Sub