斑竹是女孩嗎?

好悍

喜歡

我所建立的ACCESS2000数据库CL里的CL2表,字段数据类型都是数字,字段大小均为小数;小数位数为6

怎么打出来,还是整数呢?

计算控件代码如下:

Private Sub Command2_Click()

Dim a, aa, b, bb, c, cc, d, dd, f, ff, g, l, gg, m, mm, ss, zz, xx, cj As Long
dd = Val(Text1.Text)
ff = Val(Text2.Text)
mm = Val(Text3.Text)
ss = Val(Text4.Text)
zz = Val(Text5.Text)
xx = Val(Text6.Text)
l = ss - xx

dd = dd / 180
ff = ff / 60 / 180
mm = mm / 3600 / 180
c = dd + mm + ff

g = c * 3.1415926

d = 100 * l * Cos(g) * Cos(g)
Text7.Text = Val(d)
Command1.SetFocus
End Sub