数値の割合を計算中にvb.netエラーが発生しました

Question

こんにちは私は数字の割合を作成しようとしています。

ユーザーが番号を入力すると、その番号の18％が見つかります。

コード：

If ComboBox2.SelectedIndex = 0 Then 

      tax += saleprice/100 * 0.18 
     End If 

私はvb.netでの価格の18％をFINTする方法????任意の数式？ しかし、私はそれを入力すると正しくデータベースに入力されていないので、私は結果のヘルプを得ることはありません。注：販売価格と税金は、クラスのトップに宣言されています。ここで

コードの残りの部分である：

Dim Query As String 
     Query = "insert into pos.artikli(kod,ime,mera,kol,nabavna,profit,prodazna,tax,dolgopis,dolgopis2,proizvoditel,mkproizvod) values ('" & TextBoxKod.Text & "','" & TextBoxNaziv.Text & "','" & edmera & "','" & kolicina & "','" & TextBoxNabavna.Text & "','" & procentdobivka & "','" & TextBoxProdazna.Text & "','" & tax & "','" & TextBoxOpis.Text & "','" & TextBoxOpis2.Text & "','" & TextBoxProizvoditel.Text & "','" & mkpr & "')" 
     COMMAND = New MySqlCommand(Query, konekcija) 
     READER = COMMAND.ExecuteReader 

Answer 1

ヒント/例：

'http://www.convertit.com/Go/ConvertIt/Calculators/Finance/Sales_Tax_Calc.ASP 
    Dim tax As Decimal 
    Dim test() As Decimal = {1D, 100D, 1000D} 
    Dim taxrate As Decimal = 18D/100D '18% 

    For Each saleprice As Decimal In test 
     tax = saleprice * taxrate 
    Next