Private Sub Command1_Click(Index As Integer)
Dim prompt, tittle, default As String
Dim xpos, ypos As Single
Select Case Index
Case 0
prompt = Text1(0).Text
tittle = Text1(1).Text
default = Text1(2).Text
If poschk Then
xpos = Text1(3).Text
ypos = Text1(4).Text
a$ = InputBox(prompt, tittle, default, xpos, ypos)
Else
a$ = InputBox(prompt, tittle, default, xpos, ypos)
Label1(5).Caption = "谢谢您的投票，您的选择是" & a$ & "！"
Case 1
Unload Me
End Select
End Sub
运行提示，case 1没有 select case
參考答案:case 1 前面少一行 end if