Question

vb设计中 r=val(text1.text)是什么意思

Answer 1

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