Soal no 2(SAFAR RIDUAN PASARIBU)

Listing program

Public Class Form1
npm.Text = Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click""nama.Text = ""jurusan.Text = ""jenjang.Text = ""tahun.Text = ""angka.Text = ""huruf.Text = ""npm.Focus()
End Sub
buattabel()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub


huruf.Text = Private Sub angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles angka.KeyPressSelect Case angka.TextCase Is >= 80"A"
huruf.Text = Case 70 To 79"B"
huruf.Text = Case 60 To 69"C"
huruf.Text = Case 50 To 59"D"
huruf.Text = Case Is <= 49"E"　
End SelectEnd Sub
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.View =
LV.GridLines = Sub buattabel()"NPM", 80, HorizontalAlignment.Center)"Nama", 80, HorizontalAlignment.Left)"Jurusan", 80, HorizontalAlignment.Left)"Jenjang", 70, HorizontalAlignment.Left)"Tahun masuk", 50, HorizontalAlignment.Left)"N angka", 50, HorizontalAlignment.Left)"N huruf", 50, HorizontalAlignment.Left)View.DetailsTrueLV.FullRowSelect = TrueEnd Sub
Sub isitabel()Dim Lst As New ListViewItemLst.Text = npm.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jurusan.Text)
Lst.SubItems.Add(jenjang.Text)
Lst.SubItems.Add(tahun.Text)
Lst.SubItems.Add(angka.Text)
Lst.SubItems.Add(huruf.Text)
LV.Items.Add(Lst)
End Sub

Private Sub tahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tahun.KeyPressDim tombol As Integer = Asc(e.KeyChar)If tombol = 13 Thenangka.Text = huruf.Text
End IfEnd Sub

Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPressDim xnpm As Stringtahun.Text =
Microsoft.VisualBasic.Left(npm.Text, 2)
xnpm = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
"20" &If xnpm = "1" Thenjenjang.Text = "Diploma I"ElseIf xnpm = "3" Thenjenjang.Text = "Diploma III"ElseIf xnpm = "4" Thenjenjang.Text = "Strata I"End Ifxnpm = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If xnpm = "01" Thenjurusan.Text = "Manajemen Informatika"ElseIf xnpm = "02" Thenjurusan.Text = "Sistem Informasi"ElseIf xnpm = "03" Thenjurusan.Text = "Tehnik Informatika"ElseIf xnpm = "04" Thenjurusan.Text = "Akutansi"End IfEnd Sub
isitabel()
npm.Text = Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click""nama.Text = ""jurusan.Text = ""jenjang.Text = ""tahun.Text = ""angka.Text = ""huruf.Text = ""End Sub
LV.Items.Clear()
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.ClickEnd Sub
LV.Items.Remove(LV.SelectedItems(0))
Private Sub btnhapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdipilih.ClickEnd Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.ClickEnd
EndEnd Sub Class　

　Hasil program

http://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-senin/