A=inputbox("请输入数据A=","输入框“)
=...............................if isIsNumeric(A) then
label1.caption=A
label2.caption=B
............
end if

解决方案 »

  1.   

    补充:
    on error resume next
    A=inputbox("请输入数据A=","输入框“)
    =...............................if isIsNumeric(A) then
    label1.caption=A
    label2.caption=B
    ............
    end if
      

  2.   

    更改:
    on error resume next
    A=inputbox("请输入数据A=","输入框“)
    =...............................if isIsNumeric(A) then
    label1.caption=A
    label2.caption=B
    ............
    end if
      

  3.   

    再改:
    dim s as string
    s=inputbox("请输入数据A=","输入框“)
    =...............................if IsNumeric(s) then
    a=csng(s)
    label1.caption=A
    label2.caption=B
    ............
    end if
      

  4.   

    方法一、自己做一个输入的窗体
    方法二、直到输入内容为止,如
        a=inputbox("请输入数据A=","输入框")
        do while a=""
              a=inputbox("请重新输入数据A=","输入框")
        loop