填空题 执行下列程序后立即窗口中的输出结果是 1。
   Private Sub a2()
     Dim i As Integer,j As Integer
     For i=1 To 5
       For j=1 To i
        If i Mod 2=0 Then
          Debug.Print"*";
        E1se
          Debug.Print"#";
        End If
     Next j
        Debug.Print
     Next i    
   End Sub
  • 1、
【正确答案】 1、#
           **
           ###
           ****
           #####    
【答案解析】本题用循环嵌套在立即窗口中画出一个直角三角形。其中的偶数行为“*”，奇数行为“#”。