Function InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context]) As String
看到没有,as string ,用val转一下就行了Dim x As Long
x = Val(InputBox(""))
Print x