Visual Basic 从键盘读取

Question

我正在尝试实现一个简单的计算以使用 Visual Basic.NET

输出总价

我想查看原价和运费然后在计算中使用它。问题是，当我输入任何值时，两个变量都将 return 只有第一个数字

例如，如果输入 23 它将 return 2

    Dim originalPrice As Double
    Dim commissionPrice As Double
    Dim shippingWeight As Double
    Dim totalPrice As Double   

    Console.Write("Enter Original Price: ")
    originalPrice = Double.Parse(Console.ReadLine(originalPrice))

    Console.Write("Enter Shipping Weight: ")
    shippingWeight = Double.Parse(Console.ReadLine(shippingWeight))   
    shippingWeight = shippingWeight * 7

    If (originalPrice + shippingWeight >= 200) Then
        commissionPrice = (originalPrice + shippingWeight) * 0.03
    Else
        commissionPrice = 5
    End If

    totalPrice = commissionPrice + originalPrice + shippingWeight

    Console.WriteLine(originalPrice)
    Console.WriteLine(commissionPrice)
    Console.WriteLine(shippingWeight)       
    Console.WriteLine(totalPrice)

Answer 1

我认为你的问题是你将变量传递给 Console.read()

这种方式应该可行。

    Dim originalPrice As Double
    Dim commissionPrice As Double
    Dim shippingWeight As Double
    Dim totalPrice As Double

    Console.Write("Enter Original Price: ")
    originalPrice = Double.Parse(Console.ReadLine())

    Console.Write("Enter Shipping Weight: ")
    shippingWeight = Double.Parse(Console.ReadLine())
    shippingWeight = shippingWeight * 7

    If (originalPrice + shippingWeight >= 200) Then
        commissionPrice = (originalPrice + shippingWeight) * 0.03
    Else
        commissionPrice = 5
    End If

    totalPrice = commissionPrice + originalPrice + shippingWeight

    Console.WriteLine(originalPrice)
    Console.WriteLine(commissionPrice)
    Console.WriteLine(shippingWeight)
    Console.WriteLine(totalPrice)

    Console.Read()

Visual Basic 从键盘读取

Visual Basic Read from Keyboard

vb.net

keyboard