-1

重複の可能性：
VisualBasicFriendエラー

別のサブを使用して変更を加えるプログラムを作成しようとしています。これまでのところ、私はドルと四半期に取り組んでいますが、いくつかの大きな問題があります。誰か助けてもらえますか？前もって感謝します。

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
4

2 に答える 2

1

Coin見えません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
于 2012-10-17T18:55:03.637 に答える
0

NumberCoin()メソッドでは定義されていません。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
于 2012-10-17T18:55:54.857 に答える