数组用户自定义类型练习题三.docxVIP

数组和自定义类型（三） 填空题 　　1. 输出大小可变的正方形图案，如图5.2所示，最外圈是第一层，要求每层上用的数字与层数相同。 　　Option Base 1 　　Private Sub Form_Click() 　　Dim a() 　　n = InputBox(输入 n) 　　ReDim a(n, n) 　　For i = 1 To (n + 1) / 2 　　For j = i To n - i + 1 1 1 1 1 1 1 1 1 11 2 2 2 2 2 2 2 11 2 3 3 3 3 3 2 11 2 3 4 4 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 4 4 3 2 11 2 3 3 3 3 3 2 11 2 2 2 2 2 2 2 11 1 1 1 1 1 1 1 1 　　For k = i To n - i + 1 　　____________ 　　Next k 　　Next j 　　Next i 　　For i = 1 To n 　　For j = 1 To n 　　______________ 　　Next j 　　___________