Visual Basic 友元错误

我在使用多个子程序来制作多种货币的转换器时遇到了麻烦。我不断收到错误消息，指出该号码是朋友，因此无法在 jap 转换中使用。有人可以帮忙吗？先感谢您

Option Explicit On
'Option Strict On

Imports System

Module Yahtzed

    Sub CANtoUSD()
        Dim Number , USDConversion as Decimal
        Number = Console.Readline
        USDConversion =( Number * 1.0141)
        Console.Writeline(USDConversion)
    End Sub

    Sub CANtoJAP()
        Dim Number, JAPConversion as Decimal
        Number = Console.Readline
        JAPConversion =( Number * 79.9392)
        Console.Writeline(JAPConversion)
    End Sub

    Sub Main()
        Console.Writeline("Enter the CAN amount: ")
        CANtoUSD()
        CANtoJAP()

    End Sub

End Module

^{Not a direct answer, but this requires more space than would work in a comment.}

您的代码中有一个基本的设计错误。你真的想将其构造得更像这样：

Function CANtoUSD(Number As Decimal) As Decimal
    Dim USDConversion as Decimal = 1.0141
    Return USDConversion * Number
End Function 

Function CANtoJAP(Number As Decimal) As Decimal
    Dim JAPConversion as Decimal = 79.9392
    Return JAPConversion * Number
End Function 

Sub Main()
    Console.Writeline("Enter the CAN amount: ")
    Dim input As Decimal = Console.ReadLine()

    Console.WriteLine(CANtoUSD(input))
    Console.WriteLine(CANtoJAP(input))
End Sub

您不想混合方法的职责。输入/输出应与操作数据的代码严格分开。如果不出意外，这可以更轻松地测试您的特定转换方法是否完全按照预期工作，并且不会成为错误的根源。

稍后，您将学习如何使用一个方法来接受源类型和目标类型的键值，并通过了解通用货币的转换系数来进行表查找以将任何货币转换为任何其他货币。