填空题

[原创]下面的程序执行时在Text1文本框中输入一个数，鼠标点击按钮后，在Text2文本框中显示相应的数。
Private Sub Command1_Click( )
Dim k as integer
k=Val(Text1.text)
Text2.text=Str(k mod 5\2)
End Sub
当在Text1文本框中输入9，则在Text2文本框中显示的值是：______。