Question

VB语法错误

private sub command1_click
if (isnumeric(val(text1.text) and isnumeric(val(text2.text)) then
label1.caption=val(text1.text)+val(text2.text)
label2.caption=val(text1.text)-val(text2.text)
label3.caption=val(text1.text)*val(text2.text)
label4.caption=val(text1.text)/val(text2.text)
else
msgbox"请输入数字"
end if
end sub

提示是这段if (isnumeric(val(text1.text) and isnumeric(val(text2.text)) then
谁帮忙解决下
我知道是if (isnumeric(val(text1.text) and isnumeric(val(text2.text)) then 错误 想要的是怎么改正 谢谢

Answer 1

应该是这样的

if isnumeric(val(text1.text)) and isnumeric(val(text2.text)) then