我做了一个小程序,出了点错,就是找不到哪出错了,请教下各位大虾!
Private Sub Form_Activate()
Dim w As Single
Dim f As Currency
w = InputBox("请输入重量:")
If w <= 50 Then f = 50 * 0.2
Print "运费为": f: 元
Else: f = 50 * 0.2 + (w - 50) * 0.1
Print "运费为": f: 元
End Sub

对,对,就是那个地方出错,该怎么改呢?