vb 简单小问题 在线等

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:07:36
我要做一个标签互换的小程序（很初级 很简单的那种） 请教一下 如何才能让两个标签的内容 不同时显示呢
具体情况是这样的 我想做一个程序 在窗口里像是一句话 当我单击时这句话会变成另一句话 如此反复循环

我明白你的意思了，重新给你写了一段：（只有一个标签就够了）

Dim words(3) As String, i As Integer

Private Sub Form_Load()
words(1) = "第一句话"
words(2) = "第二句话"
words(3) = "第三句话"
i = 1
Label1.Caption = words(i)
End Sub

Private Sub Label1_Click()
i = i + 1
Label1.Caption = words(i)
If i = 3 Then i = 0
End Sub

只要稍作修改，你可以写任意多句话

Private Sub Form_Load()
Label1.Caption = "abc"
End Sub

Private Sub Label1_Click()
Static n As Integer
Select Case n
Case 1
Label1.Caption = "abc"
Case 2
Label1.Caption = "dfdsfd"
Case 3
Label1.Caption = "332323"
End Select
n = n + 1
If n > 3 Then n = 1
End Sub

static i as interval(随机数啊，可能是这个）
i=i+1
i=i mod 2
if i = 1 then
label1.caption=。。。
else .....
end if
在comma