本来点击取消是关闭inputbox的，但因为你放在循环体里面，所以其实做了两个操作，当你点击取消时，它真的已经关闭，但又执行一次循环，又把inputbox打开了，你看上去好像是没有关闭一样。
Private Sub Command1_Click()a1 = InputBox("请输入一个数")End Sub点击取消后会自动关闭的，并且A1不会有值，不存在你说的情况。
