Question

改变caption属性 vb

当点击command1时，label1的caption属性改为指定的文字，如“你好”
当再次点击command1时，label1的caption属性改为指定文字，如“晚安”
第3次依然如旧，每次改变的caption都不同，大概会去到20次。

那我应该在command1里输入什么？？（回答第一段即可）

Answer 1

'晕倒，我这个完全可以实现。
'新建一工程，再添加一个Command1和一个Label1，把下面的代码复制到你的程序中，把其他原有代码一律删除，运行看看
dim s(1 to 20) as string
dim m as integer

private sub form_load ()
m=0
s(1)="你好"
s(2)="晚安"
randomize
for i=3 to 20 '不行写了，生成随机数吧
s(i)=int(100*rnd)
next
end sub

private sub command1_Click()
m=m mod 20+1
label1.caption=s(m)
end sub

Answer 2

private sub command1_click()
if label1.caption<> "你好" then
label1.caption="你好"
else
label1.caption= "晚安"
end if
end sub

Answer 3

Option Explicit
Dim a As Integer
Private Sub Command1_Click()
a = a + 1
Select Case a
Case 1
Label1.Caption = "你好"
Text1.Text = "你好"
Case 2
Label1.Caption = "晚安"
Text1.Text = "晚安"
'…………
End Select
End Sub

Answer 4

Private Sub Command1_Click()
static lngN as long

select case lngN
case 0
label1.caption="你好"
case 1
label1.caption="晚安"
end select

lngN=lngN+1
if lngN>2 then lngN=0
end sub