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
求解释一下代码名词的意思谢了
另外哥鄙视日本哥!!!别脏了哥的贴

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

2楼解释的很好。