Tugas Praktikum1 no.2

Syntax
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim tot, tot_pinjam, tot_tahun As Single
        tot_pinjam = CSng(TextBox1.Text)

        If ComboBox1.SelectedIndex = 0 Then
            tot_tahun = CSng(TextBox1.Text) * 0.05
        ElseIf ComboBox1.SelectedIndex = 1 Then
            tot_tahun = CSng(TextBox1.Text) * 0.1
        Else
            tot_tahun = CSng(TextBox1.Text) * 0.15
        End If

        TextBox2.Text = CStr(tot_tahun)

        If RadioButton1.Checked = True Then
            tot = tot_tahun * 5
        ElseIf RadioButton1.Checked = True Then
            tot = tot_tahun * 10
        Else
            tot = tot_tahun * 15
        End If

        TextBox3.Text = CStr(tot)

    End Sub