Question

怎么用vb 编写：当text1="1" 或者 text1="b" then text2="2" 当text1再次="1" 时 or ="b" 则 text3="3"

Answer 1

n=0 '变量n，记录出现次数
if text1="1" or text1="b" then

if n=0 then '第一次
text2="2"
n=1
else if n=1 then '第二次
text3="3"
n=2
end if

end if

这样，我初学，希望能用 -0-

Answer 2

if text1.text ="1" or text1.text= "b" then
if text2.text="2" then
text3.text="3"
else
text2.text="2"
end if
end if

Answer 3

Private isNotFirst As Boolean '全局

Private Function SetText()
If text1="1" Or text1="b" Then
If Not isNotFirst Then
text2="2"
Else
text3="3"
End if
End If
End Function

Answer 4

if text1.text=1 then
text2.text=2
end if
if text1.text="1" or "b"then
text3="3"
end if

end sub

Answer 5

dim i as integer
private sub command1_click()
if text1="1 or text1="b" then
if i<1 then
text2="2
else
text2="3"
endif
i=i+1

endif

end sub