A、Dim x As Integer Do x = Val(InputBox("请输入数据")) Loop While x < 0 B、Do x = Val(InputBox("请输入数据")) Loop While x > 0 C、Do While x > 0 x = Val(InputBox("请输入数据")) Loop D、x = Val(InputBox("请输入数据")) If x < 0 Then End If E、For x < 0 x = Val(InputBox("请输入数据")) Next
