Visual Basic控制台应用全局向上取整及小数位数统一设置功能开发问询

Got it, let's work through these two features for your Visual Basic console app—they’re straightforward to implement and will integrate cleanly with your existing math tools like quadratic solving and prime factorization.

Since you need a ceiling function that works seamlessly with your existing math features, we’ll build overloaded functions to handle both Double and Decimal types (covering most numeric outputs from quadratic solvers, etc.). This keeps things flexible and consistent across your app.

' Overloaded global ceiling function for Double values
Function GlobalCeiling(ByVal value As Double) As Double
    Return Math.Ceiling(value)
End Function

' Overloaded version for more precise Decimal values
Function GlobalCeiling(ByVal value As Decimal) As Decimal
    Return Math.Ceiling(value)
End Function

How to use it with your existing functions: #

For example, if your quadratic equation solver returns a Double root, just pass it through GlobalCeiling before output:

' Assume SolveQuadraticEquation is your existing function
Dim root1 As Double = SolveQuadraticEquation(1, -3, 2, 1) ' Returns 2.0
Dim root2 As Double = SolveQuadraticEquation(1, -4, 3, 2) ' Returns 1.0

' Apply global ceiling (works even if results are non-integers)
Dim ceilingRoot1 As Double = GlobalCeiling(root1)
Dim ceilingRoot2 As Double = GlobalCeiling(root2)

Console.WriteLine($"Ceiling of root 1: {ceilingRoot1}")
Console.WriteLine($"Ceiling of root 2: {ceilingRoot2}")

To set a universal decimal place count for all math feature outputs, we’ll use a module-level variable to track the current precision, plus a setup function and a formatting helper to apply it everywhere.

Step 1: Add a module-level variable #

First, declare this at the top of your module (outside any function) to keep the precision setting global:

' Default to 2 decimal places if no value is set
Private currentDecimalPlaces As Integer = 2

Step 2: Build the decimalPoint setup function #

This function lets you update the global precision, with a quick check to avoid invalid negative values:

' Set the global number of decimal places for all outputs
Sub decimalPoint(ByVal places As Integer)
    If places >= 0 Then
        currentDecimalPlaces = places
        Console.WriteLine($"Global decimal precision set to {places} places")
    Else
        Console.WriteLine("Error: Decimal places can't be negative. Keeping current setting.")
    End If
End Sub

Step 3: Build a universal formatting function #

This helper will take any numeric result and format it according to the global setting. We’ll add logic to handle integers cleanly (avoiding .00 for whole numbers if you prefer):

' Format a Double result using the global decimal precision
Function FormatMathResult(ByVal value As Double) As String
    If currentDecimalPlaces = 0 Then
        ' Return as integer if precision is 0
        Return CStr(Math.Round(value))
    ElseIf value = Math.Round(value) Then
        ' Return whole number without trailing decimals
        Return CStr(CInt(value))
    Else
        ' Format to specified decimal places
        Return String.Format($"F{currentDecimalPlaces}", value)
    End If
End Function

' Overload for Decimal values (if you need higher precision)
Function FormatMathResult(ByVal value As Decimal) As String
    If currentDecimalPlaces = 0 Then
        Return CStr(Math.Round(value))
    ElseIf value = Math.Round(value) Then
        Return CStr(CInt(value))
    Else
        Return String.Format($"F{currentDecimalPlaces}", value)
    End If
End Function

How to use it across your app: #

Now every time you output a result from your math functions, use FormatMathResult instead of direct conversion. Here’s an example with quadratic solving and changing precision:

' Initial output (default 2 decimal places)
Dim quadraticRoot As Double = SolveQuadraticEquation(2, 5, 1, 1) ' ~-0.22
Console.WriteLine($"Quadratic root (2 decimals): {FormatMathResult(quadraticRoot)}")

' Update precision to 4 decimal places
decimalPoint(4)
Console.WriteLine($"Quadratic root (4 decimals): {FormatMathResult(quadraticRoot)}")

' Set back to 0 decimals (integer output)
decimalPoint(0)
Console.WriteLine($"Quadratic root (integer): {FormatMathResult(quadraticRoot)}")

This setup ensures all your math features use the same decimal precision once you set it—no need to update each function individually!

内容的提问来源于stack exchange，提问作者sago