Question

请问在一个VB程序中，有一个label和一个command，怎样使command按一下，label

请问在一个VB程序中，有一个label和一个command，怎样使command按一下，label显示「你」，再按一下，label显示「们」？

Answer 1

Private sub Command1_Click()
Static n As Integer
Dim s As String
s = "你们"
Label1.Caption = Mid(s, n + 1, 1)
n = (n + 1) Mod Len(s)
End Sub

追问

。。。有注释吗

追答

都是最简单最基本的VB语句。就是点一下Command1，Label1显示“你”，再点一下显示“们”，再点一下又显示“你”，依此循环下去。改变s的值就可以显示其他不同的内容，而且字数不限。

Answer 2

if label1.caption="" then
label.caption="你"
else
label.caption="你们"
end if

追问

不，第二步只显示「们」。。

追答

if label1.caption="" then
label.caption="你"
else
label.caption="们"
end if