danya

Option Explicit
Private Type HOSTEL
 name As String
 c(3) As Integer
 sr As Long
 min As Integer
 max As Integer
 End Type
 Dim a1 As HOSTEL
Dim s As String
Dim l As Integer
Dim cout As String
Dim endl As String
Dim N As Integer
Dim sum As Long
Dim ind As Integer
Dim st As String
Dim num As Integer
Dim k As Integer
Dim c As String


Private Sub cmdDelete_Click()
ind = List1.ListIndex
List1.RemoveItem ind
cmdDelete.Enabled = False
cmdIZMEN.Enabled = False
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdinput_Click()
Lblmax = ""
Label14 = ""

TextBoxNAME.Enabled = True
TextBoxOC1.Enabled = True
TextBoxOC2.Enabled = True
TextBoxOC3.Enabled = True
cmdOK.Enabled = True

TextBoxNAME.Text = ""
TextBoxOC1.Text = ""
TextBoxOC2.Text = ""
TextBoxOC3.Text = ""



End Sub

Private Sub cmdIZMEN_Click()
Dim j As Integer

TextBoxNAME.Enabled = True
TextBoxOC1.Enabled = True
TextBoxOC2.Enabled = True
TextBoxOC3.Enabled = True
cmdOK.Enabled = True

j = List1.ListIndex
st = List1.List(j)
Form2.Caption = st

cmdDelete.Enabled = True

num = 1
s = ""
For k = 1 To Len(st)
c = Mid(st, k, 1)
If c = " " And s <> " " Then num = num + 1: s = " "
If c <> " " Then s = s + c
Select Case num
Case 1: TextBoxNAME = s
Case 2: TextBoxOC1 = Val(s)
Case 3: TextBoxOC2 = Val(s)
Case 4: TextBoxOC3 = Val(s)
Case 5: Labelsred = s
Case 6: Labelmin = s
Case 7: Labelmax = s
End Select
Next k

List1.RemoveItem j
cmdIZMEN.Enabled = False
cmdDelete.Enabled = False


End Sub

Private Sub cmdobrsp_Click()
Dim srC1 As Long
Dim srC2 As Long
Dim srC3 As Long
Dim srSR1 As Long
Dim maxIND As Integer
Dim max As Long
Dim i As Integer
Dim j As Integer

'Lblmax = "Îòåëü ñ ìàêñ. ñð. öåíîé"


N = List1.ListCount
max = 0
maxIND = 0
srSR1 = 0



For i = 0 To N
ind = i
If i = N Then ind = maxIND
st = List1.List(ind)
num = 0
s = ""
For k = 1 To Len(st)
c = Mid(st, k, 1)
If c <> " " Then s = s + c
If c = " " And s <> "" Then
num = num + 1
Select Case num
Case 1: TextBoxNAME = s
Case 2: TextBoxOC1 = Val(s)
Case 3: TextBoxOC2 = Val(s)
Case 4: TextBoxOC3 = Val(s)
End Select
s = ""
End If
Next k


'If a1.sr > max Then
'max = a1.sr
'maxIND = ind
'End If

a1.sr = 0
For j = 1 To 3
a1.sr = a1.sr + a1.c(j)
Next j
a1.sr = a1.sr / 3

If i < N Then
srC1 = srC1 + a1.c(1)
srC2 = srC2 + a1.c(2)
srC3 = srC3 + a1.c(3)
srSR1 = srSR1 + a1.sr
End If
Next i

If N > 0 Then
srC1 = srC1 / N
srC2 = srC2 / N
srC3 = srC3 / N
srSR1 = srSR1 / N
End If

s = "Ñðä. çíà÷  -  "
l = Len(Str(srC1))
s = s + Str(srC1) + Space(8 - l)
l = Len(Str(srC2))
s = s + Str(srC2) + Space(8 - l)
l = Len(Str(srC3))
s = s + Str(srC3) + Space(7 - l)
s = s + Str(srSR1)
Label14.Caption = s
End Sub

Private Sub cmdOK_Click()
Dim i As Integer
TextBoxNAME.Enabled = False
TextBoxOC1.Enabled = False
TextBoxOC2.Enabled = False
TextBoxOC3.Enabled = False


Labelsred.Visible = True
Labelmin.Visible = True
Labelmax.Visible = True

endl = Chr(13) + Chr(10)
a1.sr = 0
For i = 1 To 3
a1.sr = a1.sr + a1.c(i)
Next i
a1.sr = a1.sr / 3



a1.min = a1.c(1)
If a1.c(2) < a1.min Then a1.min = a1.c(2)
If a1.c(3) < a1.min Then a1.min = a1.c(3)
a1.max = a1.c(1)
If a1.c(2) > a1.max Then a1.max = a1.c(2)
If a1.c(3) > a1.max Then a1.max = a1.c(3)




cout = "Ñðåä.öåíà: " + Str(a1.sr) + endl
Labelsred.Caption = cout
cout = "Ìàêñ.öåíà: " + Str(a1.max)
Labelmax.Caption = cout
cout = "Ìèí.öåíà: " + Str(a1.min) + endl
Labelmin.Caption = cout



cmdinput.Caption = "Äîáàâèòü çàïèñü"
cmdSPISOK.Enabled = True


End Sub

Private Sub cmdSPISOK_Click()
Dim i As Integer


l = Len(a1.name)
s = a1.name + Space(7 - l)

For i = 1 To 3
l = Len(Str(a1.c(i)))
s = s + Str(a1.c(i)) + Space(5 - l)
Next i


l = Len(Str(a1.sr))
s = s + Str(a1.sr) + Space(8 - l) 'ðàçîáðàòüñÿ ñ ïðîáåëàìè
l = Len(Str(a1.min))
s = s + Str(a1.min) + Space(6 - l)
l = Len(Str(a1.max))
s = s + Str(a1.max) + Space(6 - l)
List1.AddItem s


cmdSPISOK.Enabled = False

TextBoxNAME.Text = ""
TextBoxOC1.Text = ""
TextBoxOC2.Text = ""
TextBoxOC3.Text = ""
Labelsred.Visible = False
Labelmin.Visible = False
Labelmax.Visible = False
cmdobrsp.Enabled = True

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label11_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Label14_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub ListBox1_Click()


End Sub

Private Sub Label6_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub Label9_Click()

End Sub

Private Sub LabelOBR_Click()

End Sub

Private Sub Labelmax_Click()

End Sub

Private Sub Labelsred_Click()

End Sub

Private Sub Lblmax_Click()

End Sub

Private Sub List1_Click()
Dim j As Integer


j = List1.ListIndex
st = List1.List(j)
Form2.Caption = st
cmdDelete.Enabled = True
cmdIZMEN.Enabled = True


End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBoxNAME_Change()
a1.name = TextBoxNAME

End Sub

Private Sub TextBoxOC1_Change()
a1.c(1) = Val(TextBoxOC1)
End Sub

Private Sub TextBoxOC2_Change()
a1.c(2) = Val(TextBoxOC2)
End Sub

Private Sub TextBoxOC3_Change()
a1.c(3) = Val(TextBoxOC3)
End Sub

Private Sub UserForm_Click()

End Sub