求解释一段代码

Private Sub Cmd1_Click()
Static i As Integer         '定义 i 为静态变量
Dim s As String             '定义 s
Select Case i               '根据 i 的值进行多分支选择
Case 0                      '=0
    s = "为了你开心，我把不开心按钮给去了。。。但我想你也不会不开心吧!!!"
    Case 1                  '=1
    s = "告诉你一句悄悄话,"  '给 s 赋值 以下类似
    Case 2
    s = "你听了不要激动哦，"
Case 3
    s = "....."
Case 4
    s = "知道了吗？"

Case Else      '没有符合条件时
s = ""         's 为空
End Select
Label1.Caption = s    '把 s 的值显示在 label1 中。
i = i + 1      ' i 自加 1

End Sub