Softwares Sales Program

[jah1992]

Hi,

I am trying to create this software sales program for class. This is my first programming course. I cannot get my program to calculate correctly. What am i doing wrong ?

Public Class Form1
 
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        'This application should calculate and display the total of the software
 
 
        Const intPackageA As Integer = 99  'Package A
        Const intPackageB As Integer = 199 'Package B
        Const intPackageC As Integer = 299 'Package C
 
 
 
        'Declaring the local variables
        Dim declbl1 As Decimal
        Dim decdiscount As Decimal
        Dim intA As Integer
        intA = CInt(txtA.Text)
        Dim intAmount As Integer
 
 
        Select Case intPackageA
            Case 0 To 9
                decdiscount = 0D
 
            Case Is >= 19
                decdiscount = 0.2D
 
            Case 20 To 49
                decdiscount = 0.3D
 
            Case 50 To 99
                decdiscount = 0.4D
 
            Case Is >= 100
                decdiscount = 0.5D
        End Select
 
        declbl1 = (intA * intPackageA) * decdiscount

[twinnyfo]

We do not assist with homework assignments on this forum.

[onlinetuition]

Case Is >= 19
 

May not be what you want.