下图为美国加利福尼亚州西南部的圣安德列斯断层，该断层每年以大约5厘米的速度滑动。可用于监测该断层移动速度的地理信息技术是（）

A.遥感（RS）

B.全球定位系统（GPS）

C.地理信息系统（GIS）

D.遥感（RS）和地理信息系统（GIS）

阅读下面程序：
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】 。