1. 阅读下列程序，写出运行结果。程序如下：

程序运行后，单击命令按钮Command13，窗体上输出结果是？

2. 阅读下列程序，写出运行结果。程序如下：

程序运行后，单击Command15，窗体上显示的最终结果？

4. 阅读下列程序，写出运行结果。程序如下：

程序运行后，三次单击命令按钮，输入的数据分别为31，42，53，窗体上显示的最终结果？

.1. 下列Command1的单击事件过程用于打印一个5行5列的数字方阵，并使两对角线上元素均为1，其余均为2。要求打印的数字方阵两列数字之间空3格，两行之间空一行。程序中有三处错误，请改正过来。
Private Sub Command1_Click()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
If i <> j Or i <> 6 - j Then  '------错误1     
a(i, j) = 2
Else
a(i, j) = 1
End If
Print a(i, j) + Space(3); '-------错误2     
Next j
Print  '------错误3
Next i
End Sub

2. 下列Command1的单击事件过程用于计算在m个数据中取出n个数据的排列组合值，计算公式为Cmn=m!/(n!*(m-n)!)。程序中有三处错误，请改正过来。
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
Dim Cmn As Long
Do
m = Val(InputBox("请输入一个整数m"))
n = Val(InputBox("请输入一个整数n(n<=m)")) '必须保证输入的两个数m>=n
Loop While m >= n     '--------错误1
Cmn = nFactor(m) / nFactor(n) * nFactor(m - n)  '-------错误2 
Print "排列组合数为"; Cmn
End Sub
Public Function nFactor(ByVal n As Integer) As Double
Dim i As Integer
Dim temp As Double
temp = 1
For i = 1 To n
temp = temp * i
Next i
nFactor(n) = temp    '------ 错误3 
End Function

1.
错误1改正为：If i <> j And i <> 6 - j Then
错误2改正为：Print str(a(i, j)) + Space(3);
错误3改正为：Print: Print

2.
错误1改正为：Loop While m <= n
错误2改正为：Cmn = nFactor(m) / nFactor(n) / nFactor(m - n)
错误3改正为：nFactor = temp

1. 输出大小可变的正方形图案，如下图所示，最外圈是第一层，要求每层上用的数字与层数相同。

2. 编程统计文件“C:\file1.dat”中字母出现的次数（不区分大小写）。提示：每次从文件中读取一个字符，判断是否是字母。若是字母，计数器加1。

1.（代码部分）：
Private Sub Form_Click()
Dim a()
Cls
n = InputBox("输入N")
ReDim a(n, n)
For i = 1 To (n + 1) \ 2             '每一层图案上要显示的数字
For j = i To n - i + 1  '从外到里将数组中元素存放对应的数字
For k = i To n - i + 1
a(j, k) = i
Next k
Next j
Next i
For i = 1 To n
For j = 1 To n
Print Tab(j * 3); a(i, j);
Next j
Print
Next i
End Sub