楼主:在该数字框的事件 valuechanged中加入以下代码即可
Dim i As Integer =e.sender.valueIf i >=1 AndAlso i <=10 Then e.sender.value =iElse e.sender.value = NothingEnd If