Val函数是将数值型字符串转换为数值型变量,一般用来赋值。'你上面的语句在TEXT1的内容为空或不是数值时就会出错,最好加上数值检测函数:ISNUMERIC ,如下:Private Sub Text1_Change()IF ISNUMERIC(TEXT1.TEXT)=FALSE THEN MSGBOX "请输入数值!", vbExclamation, "提示" Exit SubENDIFx = Val(Text1.Text)。