一束光线由空气斜射入水中，当入射角逐渐增大时，折射角的大小将：[ ]

A．不变

B．逐渐减小

C．逐渐增大，但总小于入射角

D．逐渐增大，可能大于入射角

阅读下面程序：
Private Function a(load As Integer) As Single
If load ＜20 then
money = load/2
else
money =20 + load
end if
a = money
End Function
Private Sub Form_Click( )
Dim load As Integer, fee As Single
Load = InputBox("请输入一个数:")
fee= a(loaD)
Print fee
End Sub
输入20，运行后的输出结果是 【6】 。