请阅读程序． 　　0ption Base 1 　　Private Sub Fo,m Click() 　　 Dim Arr(4，4)As Integer 　　 For i=1 To 4 　　 For j=1 To 4 　　 Arr(i，j)=(i=1)*2+j 　　 Next j 　　 Next i 　　 For i=3 To 4 　　 For j=3 To 4 　　 Print Arr(j，i)； 　　 Next j 　　 Print 　　 Next i 　　End Sub 　　程序运行后，单。旨窗体，则输出结果是( )。

A．1****
2***
3**
4*
B．4****
3***
2**
1*
C．****
***
**
*
D．*
**
***
****

A．Private Sub Vorm Click()
PopupMenu cut
End Sub
B．Private Sub Command1 Click()
PopupMenu edit
End Sub
C．Private Sub Form Click()
PopupMenu edit
End Sub
D．Private Sub Form Click()
PopupMenu cut
PopupMenu paste
End Sub