找零在VB

Question

可能重複：
Visual Basic Friend Error

我試圖創建一個程序來做出改變使用不同的子。到目前爲止，我只是在努力研究美元和季度，但即時通訊有一些重大問題。誰能幫忙？提前致謝。

Option Explicit On 
'Option Strict On 

Imports System 

Module Conversion 
    Sub Coin() 
    Number = (Number mod 1.00) 
    Console.Writeline(Number) 
    Number = (Number mod 0.25) 
    Console.Writeline(Number) 
    End Sub 

    Sub Main() 
    Console.Write("Enter the Canadian dollar amount: ") 
    Dim input As Decimal = Console.ReadLine() 
    Dim Number As Decimal = Input 
    Coin() 
    End Sub 

End Module 

Answer 1

​​看不到Number。你必須通過Number作爲參數傳遞給Coin()這樣的：

Sub Main() 
    Console.Write("Enter the Canadian dollar amount: ") 
    Dim input As Decimal = Console.ReadLine() 
    Dim Number As Decimal = Input 
    Coin(Number) 
End Sub 

Sub Coin(Number as Decimal) 
    Number = (Number mod 1.00) 
    Console.Writeline(Number) 
    Number = (Number mod 0.25) 
    Console.Writeline(Number) 
End Sub 

Answer 2

Number在Coin()方法是不明確的。你必須要麼使Coin()帶一個參數或進行Number你的模塊訪問的成員Coin()

例如：

Sub Coin(Byval Number as Decimal) 
    Number = (Number mod 1.00) 
    Console.Writeline(Number) 
    Number = (Number mod 0.25) 
    Console.Writeline(Number) 
End Sub