Question

vb单击“开始”按钮时,文本框便每隔一秒钟交替显示文字

你们编写的有点复杂，不过我已经自己弄出来了。谢了

Answer 1

Public Class Form1
Dim word(2) As String
Dim yn As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
word(0) = "中国人民解放军"
word(1) = "政治协商会议"

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
yn = Not yn
TextBox1.Text = word(CInt(yn) + 1)
End Sub
End Class

Answer 2

Private Sub Command1_Click()
Dim str As String
str = Text1.Text
Text1.Text = Text2.Text
Text2.Text = str
End Sub

Answer 3

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static f As Boolean
f = Not f
If f Then Text1.Text = "A" Else Text1.Text = "B"
End Sub

Answer 4

xlzzc 回答的是vb.net的代码。
下面是vb6的代码。
form1 添加 timer1， text1， command1

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = "我爱你"
End Sub

Private Sub Timer1_Timer()
Text1.Text = IIf(Text1.Text = "我爱你", "你爱我", "我爱你")
End Sub

Answer 5

你要显示什么都不说，怎么帮你啊

Answer 6

Private Sub Command1_Click()
Dim str As String
str = Text1.Text
Text1.Text = Text2.Text
Text2.Text = str
End Sub