计算货物运费的公式如下(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