說明
Sub Main() Dim Result As Float Result = ATAN2(1,2) 'the Result is 0.46365 Debug "ATAN2(1,2) = ", Result,"In radians.", CREnd Sub