帮我解决一个关于vbs的问题

还是我重新帮你写吧 Dim UserMsgDim lngName1, lngName2, lngName3lngName1 = "0001" : lngName2 = "0002" : lngName3 = "0003"Do boolLoopAgain = False UserMsg = InputBox("输入您的姓名", "找学号") Select Case UserMsg