设有如下事件过程：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 kEnd SubPrivate Function fun(x， y)As Integer Do While x>＝y x＝x－y Loop fun＝xEnd Function程序运行时的输出结果是( )。