Visual Basic

Structure Appearance
	Dim height As Double   'inches
	Dim weight As Double   'pounds 
End Structure

Structure Person
	Dim name As String
	Dim stats As Appearance 
End Structure

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
	Dim personl, person2 As Person
	Dim person1 As String = Michael
	

(missing lines –come from a, b, c, d, & e listed below) 



End Sub
	


	(a)	Give person, the name Michael
	(b)	Set Michael's height and weight to 71 and 190, respectively.
	(c)	Give person2 the name Jacob.
	(d)	Set Jacob's height and weight to 70 and 175, respectively.
	(e)	If one person is both taller and heavier than the other, display a sentence of the form 

Class myClass

private ID as String
private Name as String
private TK as String
private Di as String
private M as String

End Class

Private colClass As Collection
Private clsTheClass As myClass


Set colClass = New Collection
    
    Set clsTheClass = New myClass
    clsTheClass.Name = "A"
    clsTheClass.TKs = "100"
    clsTheClass.Di = "5"
    clsTheClass.ID = "1"
    clsTheClass.M = "9"

    colClass.Add clsTheClass

ID  |Name   |TK     |Di    |M
1    A       100     5      9
2    B       100     3      9
3    C       10      5      9
4    D       10      7      9
5    E       10      1      9
6    F       400     9      5
7    F       400     4      5

ID	|Name	|TK	|Di	|M
6	 F	 400	 9	 5
7	 F	 400	 4	 5
1	 A	 100	 5	 9
2	 B	 100	 3	 9
4	 D	 10	 7	 9
3	 C	 10	 5	 9
5	 E	 10	 1	 9

Public Sub SortCollection(ColVar As Collection)
    Dim oCol As Collection
    Dim i As Integer
    Dim i2 As Integer
    Dim iBefore As Integer
    
    If Not (ColVar Is Nothing) Then
    
        If ColVar.Count > 0 Then
        
            Set oCol = New Collection
            
            For i = 1 To ColVar.Count
            
                If oCol.Count = 0 Then
                    oCol.Add ColVar(i)
                Else
                    iBefore = 0
                    
                    For i2 = oCol.Count To 1 Step -1
                    
                        If CLng(ColVar(i).TK) < CLng(oCol(i2).TK) Then
                            iBefore = i2
                        Else
                            Exit For
                        End If
                        
                    Next
                    
                    If iBefore = 0 Then
                        oCol.Add ColVar(i)
                    Else
                        oCol.Add ColVar(i), , iBefore
                    End If
                    
                End If
                
            Next

	    'WE now have it sorted by TK in Asc order so we need to reverse it

            
            'Reverse the collection
            Dim MyNewCol As New Collection
            Dim obj As Object
            For Each obj In oCol
                If MyNewCol.Count > 0 Then
                    MyNewCol.Add Item:=obj, before:=1
                Else
                    MyNewCol.Add Item:=obj
                End If
            Next
            
            Set ColVar = MyNewCol
            Set oCol = Nothing
            
        End If
        
    End If
    
End Sub