Question

vb6编程，引用excel单元格数据，异常。

代码如下：
Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open(Form2.Text19.Text)
xlApp.Visible = False
Dim mjysg As Single
Dim mjysc As Single
mjysg = xlbook.worksheets(1).Cells(10, 7)
mjysc = xlbook.worksheets(1).Cells(42, 7)
jysg.Text = mjysg
jysc.Text = mjysc
xlbook.Close
Set xlApp = Nothing
其中xlbook.worksheets(1).Cells(10, 7)单元格数字为161231.22，在jysg.Text却显示为161231.20
xlbook.worksheets(1).Cells(42, 7)单元格数字为352988.45，在jysc.Text显示为352988.40，请帮助解决，谢谢！！！

Answer 1

将single改为double试试

Answer 2

试试：
Dim mjysg As Double
Dim mjysc As Double