编程中遇到 case没有select case是什么意思

Private Sub Option1_Click(Index As Integer)
Dim n As Integer

n = Val(Text1.Text)
' Select Case n
Case 0
' Text2.Text = f1(n)
Case 1
' Text2.Text = f1(n+2)
End Select
End Sub

Public Function f1(n As Integer) As Long
Dim x As Long
x = 1
' For i = 1 To n
x = x * i
Next
' f1 = x
End Function
哪里有错误啊，就是一直提示case没有select case？？？

' 这个符号是啥？注释吗

根据combo1中选择的不同项目来分别执行不同的操作，比如： 1 2 3 4 5 6 7 8 9 selectcasecombo1.listindex case0     '你选择了第一项，这里放执行第一项操作的代码，下同 case1     '你选择了第二项 case2     '你选择了第三项 ...... endselect

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息