在vb6中显示整个数字

时间:2014-10-15 22:11:56

标签: vb6

所以我有一个用Visual Basic 6编写的程序,实际上是Cookie Clicker。当它进入更高的数字时,它显示" 1E + 16"等等。我意识到这是应该发生的事情,但有没有办法真正显示完整的数字?

编辑: 该号码存储为双倍。

Private Sub timerDisplay_Timer()
    lblClicks.Caption = dblClicks
End Sub

正在显示数字和

Private Sub cmdClick_Click()
    If currentItems = 0 Then
        dblClicks = dblClicks + 1
    Else
        dblClicks = (dblClicks + (currentItems * 2))
    End If
End Sub

正在增加数字。

当数字为" 100000000000000" (14个零),标签显示数字。但当数字为" 1000000000000000" (15个零)它会显示1E + 15。我想要的是实际显示数字,而不是" xE + y"格式。

1 个答案:

答案 0 :(得分:0)

也许这样的事情对你有用

dblClicks = 1E+15

Me.lblClicks.Caption = FormatNumber(dblClicks, vbFalse, vbFalse)
Me.lblClicks.Caption = Replace(Me.lblClicks.Caption, ",", vbNullString)