请教高手：VB的整数型变量计算后为何会有小数点

我变了一下小程序，就是将一个整数除以任意数N（比如3）后显示，代码如下：
Private Sub Form_Load()
Dim D As Integer, R As Integer
Text1 = "": Text2 = ""
End Sub

Private Sub Command1_Click()
D = Val(Text1)
R = D / 3
Text2 = R
End Sub

为什么结果却带有小数？如图..

请高手帮忙看看，是哪里出问题了....

相关了解……