Question

单击同一个按键（button）显示时文本框（textbox）显示不通过的内容

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Me.TextBox1.Text = "信息" Then Me.TextBox1.Text = "社会" Else Me.TextBox1.Text = "信息" ///后面该如何继续写入？， Me.Button10.Text = "下一步" ///我要使用这一个按钮表示很多内容 End Sub ///求指导

Answer 1

请把要求说详细一点，你一共显示多少内容？什么样的内容？

追问

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Me.TextBox1.Text = "信息" //都是文本内容，单纯的汉字显示，请用**代替
Me.Button10.Text = "下一步" //不变
End Sub //一共需要循环十次，
请您指教， 谢谢

追答

这十次始终是两个轮流显示，还是每次都不一样？

追问

每次都不一样，点一下换个内容，按钮始终是“下一步”，文本框内的字符可以根据意愿在代码中修改

追答

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
static i as integer=0, s as string
select case i
case 0 : s="000"
case 1 : s="111"
case 2 : s="222"
case 3 : s="333"
case 4 : s="4440"
case 5 : s="55"
case 6 : s="6660"
case 7 : s="777"
case 8 : s="888"
case 9 : s="999"
case 10 : s="1010"
end select
i=i+1 : if i>10 then i=0
Me.TextBox1.Text = s
Me.Button10.Text = "下一步"
End Sub