Программа вывода результатов Visual Basic

Private Sub Command1_Click()
Dim n As Integer, k As Integer 'n и k - стоимость первых двух телефонов
 
If Text3.Text < n Then
Label3.Caption = n
End If
n = 2000
If Text3.Text < k Then
Label3.Caption = k
End If
k = 5000
End Sub

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
c = Text3.Text
a = 5000
b = 2000
If c > a Then
Label3.Caption = a
Label4.Caption = b
End If
If c > b Then
Label3.Caption = b
End If
End Sub

Private Sub Command1_Click()
Dim n(9) As Single, st As String, i As Integer
st = ""
For i = 0 To 9
n(0) = 1000
n(1) = 4000
n(2) = 3800
n(3) = 8200
n(4) = 2900
n(5) = 8740
n(6) = 5200
n(7) = 4000
n(8) = 4800
n(9) = 7500
st = st & Format(n(i), "0.00") & Space(8)
Next i
Label1.Caption = st
Dim k(9), vl As String, m As Integer
For i = 0 To 9
k(0) = "Òåëåôîí1" 'Телефон 1
k(1) = "Òåëåôîí2" 'Телефон 2
k(2) = "Òåëåôîí3" 'Телефон 3
k(3) = "Òåëåôîí4" '....
k(4) = "Òåëåôîí5"
k(5) = "Òåëåôîí6"
k(6) = "Òåëåôîí7"
k(7) = "Òåëåôîí8"
k(8) = "Òåëåôîí9"
k(9) = "Òåëåôîí10"
vl = vl & Format(k(i), "Òåëåôîí ") & Space(4)
Next i
Label2.Caption = vl
End Sub
 
Private Sub Command2_Click()
Label2.Caption = ""
For q = 0 To 9
If q > i Then
Print i < q
q = Text1.Text
End If
Next q
Label2.Caption = i
End Sub

Private Sub Command1_Click()
Dim n(9) As Single, st As String, i As Integer, q As Integer
st = ""
For i = 0 To 9
n(0) = 1000
n(1) = 4000
n(2) = 3800
n(3) = 8200
n(4) = 2900
n(5) = 8740
n(6) = 5200
n(7) = 4000
n(8) = 4800
n(9) = 7500
st = st & Format(n(i), "0.00") & Space(8)
Next i
Label1.Caption = st
Dim k(9), vl As String, m As Integer
For i = 0 To 9
k(0) = "Òåëåôîí1"
k(1) = "Òåëåôîí2"
k(2) = "Òåëåôîí3"
k(3) = "Òåëåôîí4"
k(4) = "Òåëåôîí5"
k(5) = "Òåëåôîí6"
k(6) = "Òåëåôîí7"
k(7) = "Òåëåôîí8"
k(8) = "Òåëåôîí9"
k(9) = "Òåëåôîí10"
vl = vl & Format(k(i), "Òåëåôîí ") & Space(4)
Next i
Label2.Caption = vl
End Sub
 
Private Sub Command2_Click()
Dim u As Integer
u = Text1.Text
Label3.Caption = ""
For i = 0 To 9
If i >= u Then
Label3.Caption = i
Else
Label3.Caption = 0
End If
Next i
st = st & i & Space(4)
Label3.Caption = st
End Sub

u = Val(Text1.Text)