vb6取josn串中的值时，怎么实现取数值类型的长串时不变成科学计数法的形式

在 VB6 中，可以通过以下方法来避免将数值类型的长串转换为科学计数法的形式：

1. 使用 `CStr` 函数将数值转换为字符串类型。这将确保数值保持其原始形式，而不会转换为科学计数法。例如：

Dim number As Double
number = 1234567890.123456789
Dim strNumber As String
strNumber = CStr(number)
MsgBox strNumber ' 显示 "1234567890.12346"

2. 使用 `FormatNumber` 函数来格式化数值并指定所需的小数位数。这将确保数值以指定的格式显示，而不会使用科学计数法。例如：

Dim number As Double
number = 1234567890.123456789
Dim formattedNumber As String
formattedNumber = FormatNumber(number, 2) ' 指定小数位数为2
MsgBox formattedNumber ' 显示 "1,234,567,890.12"

3. 如果你需要在 JSON 中保持数值的原始形式，可以将其作为字符串处理。在解析 JSON 时，将值作为字符串提取，并使用 `Val` 函数将其转换为数值类型。例如：

Dim jsonString As String
jsonString = "{""number"": ""1234567890.123456789""}"
Dim json As Object
Set json = CreateObject("ScriptControl")
json.Language = "JScript"
json.Eval "var obj = " & jsonString
Dim strNumber As String
strNumber = json.eval("obj.number")
Dim number As Double
number = Val(strNumber)
MsgBox number ' 显示 "1234567890.1234567"

这些方法可以帮助你在 VB6 中处理数值类型的长串时避免使用科学计数法的形式。