Private Function Wei(loadAs Integer),MoneyAs Single If load<20 Then Money=load/2 Else Money=20+load End if Wei=Money End Function Private Sub Form _Click() Dim loadAs Integer,feeAs Single load=InputBox(“请输入一个数:”) fee=Wei(loaD、 Print fee End Sub A.10 B.20 C.30 D.40