读“地球运动示意图”，完成下列问题．

（1）当地球公转到______（字母）位置时，北半球获得太阳光热最多，这一天为北半球的______日．

（2）当地球公转到A位置时，太阳光直射在______（纬线）上，此时，南、北极圈内将分别出现______和______现象．

（3）9月23日前后，地球公转到______（字母）位置，此时，太阳直射在______（纬线）上．

（4）当地球在公转轨道上由B位置转到C位置时，北半球由______季过渡到______季．

（5）在E上标明地球的公转方向．

（6）当我们在愉快的过暑假时，澳大利亚正处于______季．

在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_click()
Dim arr() As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
an(4)=x
End If
Me.Print(an(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。