有关vb的小问题，请指教一下，谢啦！

显示全部楼层 · 2008-10-12 17:18:17

Public Class Form1

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

Dim i As Integer

For i = 0 To 9

Select Case i

Case i > 1 And i8

MessageBox.Show("都行了，ok！")

If i = 5 Then

MessageBox.Show("好数字")

End If

End Select

Next

End Sub
End Class
问什么输出结果是：大于一咯，结果！都行了，ok！而没有好数字
（运行结果不理想呀！唉！）

千问 · 2008-10-12 17:18:17

你把 If i = 5 Then MessageBox.Show("好数字") End If 写在Case Is > 8 这种情况里，既然大于8当然不会再等于5. 所以第三种结果不会出现了。你可以把上面这段程序写在End Select 后面，三种结果就可以都出现了。...

千问 · 2008-10-12 17:18:17

好像不是vb6.0代码,不过原理应该一样的! 你把 if i=5 嵌套在case is>8 里面,当然不会执行 if i=5这句既然大于8了,就不会等于5 啊因此你可以把 if i=5 改成 if i=15...