私がやろうとしているのは、単純な給与計算機を作成することだけです。ユーザーは baseSalary、totalSales、commissionRate を入力します。プログラムは正常に実行されますが、totalPay が正しく表示されません。どんな助けでも素晴らしいでしょう。これはおそらく簡単な修正ですが、これは私のVBクラスの2日目に過ぎないので、これを修正する方法がわかりません. 与えられた助けを前もってありがとう!
' Total Pay Calculator
' By: Jeremy Flaugher
' 01/17/2013
Module myPay
Sub Main()
' Declare the variables
Dim baseSalary As Integer
Dim totalSales As Integer
Dim commissionRate As Decimal
Dim totalPay As Integer
' Title and By line
Console.Out.WriteLine("Welcome to the Paycheck Calculator")
Console.Out.WriteLine("Created by Jeremy Flaugher" & vbCrLf)
' User Prompts
Console.Out.Write("Please enter your Base Salary: $")
baseSalary = Console.In.ReadLine()
Console.Out.Write("Please enter your number of sales: ")
totalSales = Console.In.ReadLine()
Console.Out.Write("Please enter your Commission Rate in decimal form: ")
commissionRate = Console.In.ReadLine()
' Processes
totalPay = (totalSales * commissionRate) + baseSalary
Console.Out.WriteLine("Your paycheck will total: " & (FormatCurrency(totalPay)))
Console.ReadKey()
End Sub
End Module
プログラムを実行した後、電卓で出力を確認しています。基本給として 100 ドル、販売数として 5、手数料率として 0.5 を入力するとします。電卓では合計で 102.5 ドルですが、プログラムを実行すると 102.00 ドルになります。どうすればこれを修正できますか。