我如何制作一个告诉 VB6 的代码，告诉 VB6 你输入的不是整数？

Question

简介：大家好！我是 VB6 的新手！如何编写一个告诉 VB6 的代码，告诉 VB6 你输入的不是整数？

详情：我正在做一个算术级数计算器（我认为不需要代码？但我只是提供以防万一。）这是我的代码：

Option Explicit
Private Sub btCalc_Click()
    Dim A As Long
    Dim N As Long
    Dim D As Long
    Dim R As Long
    Dim F As Long
    
    A = Val(txtInitterm.Text)
    N = Val(txtTermint.Text)
    D = Val(txtFinterm.Text)
    R = Val(txtTermint.Text)
    
    F = N / 2 * (2 * A + (N - 1) * D)
    
    lblOutput.Caption = F
    
End Sub

我想通知或告诉 VB6 我输入的是分数，而不是整数，并使用该分数进行运算。

注意： VBA 中的字符串分数到值这不能回答我的问题...：D

谢谢大家帮助我！非常感谢。

Answer 1

Vb6 中没有 Application.Evaluate(...) 像 VBA 中那样，所以你必须像“VBA 中的字符串分数到值”中的“问题”那样做。将逻辑提取到函数中以供重复使用，并将Val(...) 调用替换为函数以供使用。

尽管您可能希望在明显的数学错误情况下提供更好的错误处理，但以下内容可能会起作用。我只是返回零并用注释标记它们。

Option Explicit
Private Sub btCalc_Click()
    Dim A As Long, N As Long, D As Long, R As Long, F As Long
    
    A = GetFrac(txtInitterm)
    N = GetFrac(txtTermint)
    D = GetFrac(txtFinterm)
    R = GetFrac(txtTermint)
    
    F = N / 2 * (2 * A + (N - 1) * D)
    
    lblOutput.Caption = F
    
End Sub


Public Function GetFrac(ByVal S As String) As Double
  GetFrac = 0         ' default return on error
  If InStr(S, "/") = 0 Then GetFrac = Val(S): Exit Function
  Dim P() As String, N As Double, D As Double
  P = Split(S, "/")
  If UBound(P) <> 1 Then Exit Function  ' bad input -- multiple /'s
  N = Val(P(0))
  D = Val(P(1))
  If D = 0 Then Exit Function ' div by 0
  GetFrac = N / D
End Function