Public Class Form1
'//////////////CREATED BY ZEKI OZYILMAZ for CST112
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Computes costs of diskettes
        'Step0. Declarations
        Dim disks As Integer
        Dim total As Double

        'Step1. Input
        disks = Val(TextBox1.Text)
        'Step2. Process
        If disks < 100 Then
            total = disks * 0.25
        Else
            total = disks * 0.2
        End If

        'Step3. Output
        If total > 1 Then
            Me.ListBox1.Items.Add("Your total is $" & total)
        ElseIf total = 1 Then
            Me.ListBox1.Items.Add("Your total is one dolar")
        Else
            Me.ListBox1.Items.Add("Your total is " & total & "¢")
        End If

    End Sub
End Class