以下（）可以发放农业小企业贷款

A、规模符合国家规定的中型企业

B、某大型企业分拆独立核算的农业小企业

C、在我行其它贷款科目本息尚未结清的企业

D、信用等级在A-级（不含）以下的企业

执行下列程序段后，显示的结果是______。
Dim x
If x Then
Print x
Else
Print x+1
End If