大家来看一下关于给变量付值的问题，绝对给分。

Dim i As Integer
Dim j As Integer
Dim k As Integer


。。rs.Open "select count(distinct(t_yewuyuandaima)) as 业务员人数 from t_user where t_yewuyuanzhuangtai='在职' and t_riqi >= '" & Trim(Text5.Text) & "' and t_riqi < ='" & Trim(Text9.Text) & "' ", db, adOpenKeyset, adLockReadOnly
i = rs.Fields(0) & ""
Text3.Text = rs.Fields(0) & ""
rs.CloseText7.Text = Text1.Text / i
If rs.State = adStateOpen Then rs.Close
rs.Open "select count(distinct(t_luru.t_yewuyuandaima)) as 业务员人数 from t_luru,t_user where t_luru.t_yewuyuandaima=t_user.t_yewuyuandaima and t_yewuyuanzhuangtai='在职' and t_user.t_riqi >= '" & Trim(Text5.Text) & "' and t_user.t_riqi < ='" & Trim(Text9.Text) & "' and t_guimobaofei> 0 ", db, adOpenKeyset, adLockReadOnly
j = rs.Fields(0)
k = 1
k = j / CInt(Text3.Text)
Text8.Text = Trim(k)
在这里面我让I=5，J=1现在我要让text8里面显示K的内容K=J/I为什么不出来啊？
我查了一下K老显示为0。1/5怎么也得不0啊！
谁能帮我修改一下？只要解决分肯定给！！