Question

我在Visual Basic控制台应用程序中工作。

我创造了许多数学特征，如二次方程和素因子分解。

但是，我的下一个任务是创建一个您能够输入的数学特征，并选择希望获得其他数学特征答案的小数位数。

例如，让我们调用此函数decimalPoint：

您输入小数点 - 您会被问到您希望答案的小数位数。你选择2。您返回主菜单并选择二次方程式，输入系数后，二次方程的输出必须以2.d.p输出。

我能够向用户询问输入并将其转换为我需要的任何d.p，但我不知道如何将其链接到其他子功能。

到目前为止，我有一些事情：

Sub decimalPoint
dim Input As Integer
Console.WriteLine("Welcome")
Console.WriteLine("Enter amount of decimal place you wish to save to 1-5", 1-6) 'max 5dp.
input = Console.ReadLine()
End Sub

＆＃39;＆＃39;现在我可以做一些像Console.WriteLine（Round（Convert.ToDecimal（input），2）），但这只是基于他们输入的内容和与之无关的内容我需要它的其他函数/ subs。知道如何将其链接到其他潜艇吗？

注释：它是一个带菜单的程序。

更新：我现在已经掌握了这些内容，但它仍无效。

Module Module1
    Public Property MyResult As ...
    Public Property MyDecimalInput As ...
    Sub QuadraticFunction()
    ....Calculations
    Console.WriteLine("Chose a decimal input: 1-5")
    If ... = ... Then
    Call decimalPoint()
    MyResult =  (....)
    End Sub
    Sub decimalPoint()
    If MyDecimalInput = ...
    Math.Round(MyResult) ...
    ...
    End Sub
End Module

Answer 1

我不知道这是否是您正在寻找的，但这是我解释您的问题的方式，但这是否回答了您的问题？如果不让我知道，我会尽力帮助：）

    'converts text in textbox to integer 
    Dim decimalPoint As Integer = Convert.ToInt64(addTB.Text)

    'stores newly rounded function into a number of user specified decimal places
    Dim answer As Double = Math.Round(13.17435, decimalPoint)

    'displays rounded answer
    MsgBox(answer)

用于其他数学特征的Visual Basic全局舍入函数

1 个答案: