Private Sub Cmd1_Click()
Static i As Integer
Dim s As String
Select Case i
Case 0
    s = "为了你开心，我把不开心按钮给去了。。。但我想你也不会不开心吧!!!"
    Case 1
    s = "告诉你一句悄悄话,"
    Case 2
    s = "你听了不要激动哦，"
Case 3
    s = "....."
Case 4
    s = "知道了吗？"

Case Else
s = ""
End Select
Label1.Caption = s
i = i + 1

End Sub
求解释一下代码名词的意思谢了
另外哥鄙视日本哥!!!别脏了哥的贴