填空题 执行下列程序，在文本框Text1中输入数据13579后，单击Command1按钮，窗体上显示的第一行是 1，第二行是 2，最后一行是 3。
Option Explicit
Private Sub Command1_Click()
Dim x As Integer
x=Text1.Text
Print p(x)
End Sub
Private Function p(x As Integer) As Integer
If x＜100 Then
p=x Mod 100
Else
p=p(x/100)*10+x Mod 10
Print p
End If
End Function