Question

我的语句为什么提示我 case 没有 select case

Private Sub exit_Click()

Unload Me

'RemoveMenu GetSystemMenu(MDIMain.hWnd, 0), SC_COLSE, MF_REMOVE
'username = "0001"
DataEnv.Con.ConnectionString = connstring
Dim aa As String
Case "admin"
aa = "超级管理员"
Case "ptyh"
aa = "普通用户"

End Select

StatusBar1.Panels(4).Text = "状态： " & aa
End Sub

Answer 1

如果使用Select Case语句时出现了这个错误，可能是用Select Case语句的时候出现了语法错误引起的。Select Case是Visual Basic中的一种判定结构。
Select Case分支结构的语法是：
Select Case 表达式
Case 表达式1
语句块1
Case 2
语句块2
Case 3
语句块3
Case Else
语句块
End Select
Select Case可以在几个语句块中有选择地执行其中的一个。
Select Case在结构的上方处理一个测试表达式，并只计算一次，然后Visual Basic把表达式的值与结构中的每个值进行比较，能够很好地完成多重判定的任务。

Answer 2

很明显啊，你这段代码就是没有select case嘛！
select case分支结构的语法是：

select case x
case 1
'do something
case 2
'do something
case 3
'dosomething
case else
'do something
end select

追问

这个代码要怎么修改。

追答

你这个admin、ptyh是通过哪个变量得来的？

Select Case x '添加这一行，那个x改成我上面说的变量
Case "admin"
aa = "超级管理员"
Case "ptyh"
aa = "普通用户"