单项选择题

阅读程序：
Private Sub Form Click ____
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num\10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。