Question

VB中怎样实现如下功能：点击同一个按钮，每点一次都能在屏幕上输出不同内容，请各位高手指教，谢谢

Answer 1

Private Sub Command1_Click()
Static n As Integer
n = n + 1
If n > 5 Then n = 1
Select Case n
Case 1
Print "内容1"
Case 2
Print "内档唤容2"宽蠢蠢
Case 3
Print "内容3"
Case 4
Print "内容4"
Case 5
Print "内容5"慎陪
End Select
End Sub

Answer 2

规范大哥发的

Answer 3

内容是数字吗
Private Sub Command1_Click()
Print Rnd * 6
End Sub