Ипотека дастур коди Private Sub Command1 Click

Ипотека дастур коди
Private Sub Command1_Click()
Dim i, n As Integer
Dim s As Currency
n = Val(Text1.Text)
s = Val(Text2.Text)
For i = 1 To n
s = s + s * 0.02
Next
Label1.Caption = Str(s)
End Sub

Гурух хакидаги дастур

Private Sub Exit_Click()
End
End Sub
Private Sub Form_Load()
List1.AddItem "4.Амиркулов Исломбек"
List1.AddItem "8.Файзуллоева Лола"
List1.AddItem "10.Жураев Кобилжон"
List1.AddItem "11.Жумаева Нозигул"
List1.AddItem "18.Зиёдуллоев Сулаймон"
List1.AddItem "24.Шарифкулов Шахбоз"
End Sub
Private Sub List1_Click()
Label1.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label3.Caption = "Амиркулов Исломбек Сафаралиевич 1993 йил Хисорак кишлогида тугилган миллати тожик 1999 йилда 59 урта таълим мактабининг 1 синфида кабул килинган 2008 йилди ушбу мактабни 9 синфини битирган 2008 йилдан буён Шахрисабз Ахборот технологиялари касб-хунар коллежида АКТ йуналишида таълим олади"
Label3.Caption = "Файзуллоева Лола Муродуллоевна 1992 йил Хисорак кишлогида тугилган миллати тожик 1999 йилда 59 урта таълим мактабининг 1 синфида кабул килинган 2008 йилди ушбу мактабни 9 синфини битирган 2008 йилдан буён Шахрисабз Ахборот технологиялари касб-хунар коллежида АКТ йуналишида таълим олади"
Case 8
Label3.Caption = "Жураев Кобилчон Комилчонович 1992 йил Хисорак кишлогида тугилган миллати тожик 1999 йилда 59 урта таълим мактабининг 1 синфида кабул килинган 2008 йилди ушбу мактабни 9 синфини битирган 2008 йилдан буён Шахрисабз Ахборот технологиялари касб-хунар коллежида АКТ йуналишида таълим олади"
Case 10
Label3.Caption = " Жумаева Нозигул 1993 йил Хисорак кишлогида тугилган миллати тожик 1999 йилда 59 урта таълим мактабининг 1 синфида кабул килинган 2008 йилди ушбу мактабни 9 синфини битирган 2008 йилдан буён Шахрисабз Ахборот технологиялари касб-хунар коллежида АКТ йуналишида таълим олади"
Case 11
Label3.Caption = " Зийодуллоев Сулаймон 1992 йил Тамшуш кишлогида тугилган миллати точик 1999 йилда 62 урта таълим мактабининг 1 синфида кабул килинган 2008 йилди ушбу мактабни 9 синфини битирган 2008 йилдан буён Шахрисабз Ахборот технологиялари касб-хунар коллежида АКТ йуналишида таълим олади"

Label3.Caption = "Шарифкулов Шахбоз Бахромович 1992 йил Хисорак кишлогида тугилган миллати точик 1999 йилда 59 урта таълим мактабининг 1 синфида кабул килинган 2008 йилди ушбу мактабни 9 синфини битирган 2008 йилдан буён Шахрисабз Ахборот технологиялари касб-хунар коллежида АКТ йуналишида таълим олади"

End Select
End Sub