设有如下事件过程: Private Sub Command1_Click() Dim a a = Array(12, 3, 8, 5, 10, 3, 5, 9, 2, 4) For k = 1 To 9 Print fun(a(k - 1), a(k)); " "; Next k End Sub Private Function fun(x, y) As Integer Do While x >= y x = x - y Loop fun = x End Function 程序运行时的输出结果是