Public Class Form1 Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click Select Case txtName.Text
Case "1"
txtName.Text = "Madras Yellow"
Case "1"
txtName.Text = "Sea Blue"
Case "1"
txtName.Text = "Morning Mist"
Case "1"
txtName.Text = "Passionate Purple"
Case Else
txtName.Text = "Red"
End Select
End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

本人人太少了。凑个热闹

楼主的代码是错误的

Case "1"
相同的值，有什么用呢。

相同的值，只是验证
是执行完一个case 就结束呢，还是同条件的case都执行呢
这个程序没有错，你理解为错误，看来你也不懂select case的执行方式。

这个程序，如何条件是1的话
执行完
Case "1"
txtName.Text = "Madras Yellow"
就直接执行 end select 了
其它相同的条件都不执行。


这段代码有啥用？没看到精解在何处。这种相同case值在C和Vbs下都不能通过编译的，vb里面倒没试过。只是为了测试多线程？

如果case后面的数都不一样，这个例子也就不用写了。

应该多写写case的不同用法 比如 case is > 1

如果我是要他所有条件都判断一次呢？要怎样写？