Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d, z As Integer
a = TextBox1.Text
If (a <= 500) Then
TextBox2.Text = a
ElseIf (a >= 501) And (a <= 1500) Then
TextBox2.Text = "500"
b = a - 500
TextBox3.Text = b
ElseIf (a >=...
Ilmu Komputer 95