Noaa

'第一題、展開10*10的雷達陣列
Private Sub Command4_Click()
    Randomize
    For i = 1 To 99
        Load Image1(i)
        Load Label1(i)
        If i Mod 10 = 0 Then '向上對齊
            Label1(i).Left = Label1(i - 10).Left
            Label1(i).Top = Label1(i - 10).Top + Image1(i - 10).Height
            Image1(i).Left = Image1(i - 10).Left
            Image1(i).Top = Image1(i - 10).Top + Image1(i - 10).Height
        Else '向左對齊
            Label1(i).Left = Label1(i - 1).Left + Image1(i - 1).Width
            Label1(i).Top = Label1(i - 1).Top
            Image1(i).Left = Image1(i - 1).Left + Image1(i - 1).Width
            Image1(i).Top = Image1(i - 1).Top
        End If
        Label1(i).Caption = Format(15 - Rnd * 20, "00.00")
        Label1(i).ZOrder vbBringToFront
        Label1(i).BackStyle = 0
        Label1(i).ForeColor = vbWhite
        Label1(i).Visible = True
        Image1(i) = LoadPicture("1.jpg")
        Image1(i).Visible = True

    Next
    Label1(0).Caption = Format(15 - Rnd * 20, "00.00")
End Sub
'第二題、找出最大者
Private Sub Command1_Click()
    m = 0
    m_index = 0
    For i = 0 To 99
        If Label1(i).Caption > m Then
            m = Label1(i)
            m_index = i
        End If
    Next
    Image1(m_index).Picture = LoadPicture("3.jpg")
    Image1(m_index).Tag = "1"

End Sub
'第三題，找出前三大者
Private Sub Command2_Click()
    m = 0
    m_index = 0
    For i = 0 To 99
        If Label1(i).Caption > m Then
            m = Label1(i)
            m_index = i
        End If
    Next
    Image1(m_index).Picture = LoadPicture("3.jpg")
    Image1(m_index).Tag = "1"
    n = 0
    n_index = 0
    For i = 0 To 99
        If Label1(i).Caption > n And Image1(i).Tag <> "1" Then
            n = Label1(i)
            n_index = i
        End If
    Next
    Image1(n_index).Picture = LoadPicture("3.jpg")
    Image1(n_index).Tag = "2"
    o = 0
    o_index = 0
    For i = 0 To 99
        If Label1(i).Caption > o And Image1(i).Tag <> "1" And Image1(i).Tag <> "2" Then
            o = Label1(i)
            o_index = i
        End If
    Next
    Image1(o_index).Picture = LoadPicture("3.jpg")
    Image1(o_index).Tag = "3"
End Sub

'第四題，用亂數模擬noaa雷達數值並追蹤太空船的位置
Private Sub Command3_Click()
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    Randomize
    For i = 0 To 99
        Label1(i).Caption = Format(15 - Rnd * 20, "00.00")
        Image1(i).Picture = LoadPicture("1.jpg")
        Image1(i).Tag = ""
    Next
        Command2_Click
End Sub