溢出有关问题

2013-01-02

溢出问题本帖最后由 pc528 于 2012-12-10 16:49:10 编辑Dim Modulus, PeripheralForce As SingleModulus

溢出问题
本帖最后由 pc528 于 2012-12-10 16:49:10 编辑   Dim Modulus, PeripheralForce As Single
  Modulus = Val(cboModulu.Text)
  PeripheralForce = 2000 * t(1) / (Modulus * Teeth1)

Dim Teeth1, Teeth2 As Single

通用声明   Public t(1 To 4)                          As Single

请问下怎么溢出
[解决办法]

Option Explicit

Private t(1 To 4) As Single

Private Sub Command1_Click()
    Dim Modulus As Single, PeripheralForce As Single
    Dim Teeth1 As Single, Teeth2 As Single
    
    t(1) = 123.12
    Teeth1 = 1.12345678
    
    Modulus = Val(cboModulu.Text)
    PeripheralForce = 2000 * t(1) / (Modulus * Teeth1)
  
    Debug.Print PeripheralForce '结果是219.1806


End Sub

Private Sub Form_Load()
    cboModulu.AddItem "1000"
    cboModulu.ListIndex = 0
End Sub

热点排行

VB

溢出有关问题