[local]1[/local][local]2[/local]

看代码

这下面是代码，执行起来提示找不到变量A
CLEAR
cTALK=SET("TALK")
SET TALK OFF
cChoice="Y"
DO WHILE UPPER(cChoice)="Y"
  CLEAR
  INPUT"孔隙率="TO b
  INPUT"钻孔半径="TO m
  INPUT"湿润半径=" TO w
  INPUT"直径="TO d
  INPUT"液体压力="TO n
  INPUT"注水压力="TO v
  INPUT"粘性系数="TO k
  ?a=1+0.41*LOG10(1/b)
  ?c=d/4*[SQRT(2b/(1-b))+SQRT(2*PI()/SQRT((3)*(1-b)))-2]
  ?e=d*sprt(3/PI()-1/2)
  ?h=(3-logb)/LOG10(e/c)
  ?j=(1-b)/(b*PI()*h*c^2)/4*(2-h)
  ?t=(64*a^2*k*(4-h)*j*LOG10(m))/(PI()*h*c^4*(n-v))*[w^2*LOG10(m)-w^2*LOG10(w)+1/2*w^2]
  ?"迂曲度=",a
  ?"最大孔隙直径=",c
  ?"最小孔隙直径=",e
  ?"分形维数=",h
  ?"单位元=",j
  ?"注水时间=",t
  WAIT "继续运算吗？（Y/N）" TO cChoice
   ENDDO
  SET TALK &cTalk
  RETURN

我又看了看觉得程序第四行变量不对，但不知道怎么弄

没有实际的数据和结果测试，只能改一些逻辑错误。
注释掉是原代码
CLEAR
cTALK=SET("TALK")
SET TALK OFF
cChoice="Y"
DO WHILE UPPER(cChoice)="Y"
  CLEAR
  INPUT"孔隙率="TO b
  INPUT"钻孔半径="TO m
  INPUT"湿润半径=" TO w
  INPUT"直径="TO d
  INPUT"液体压力="TO n
  INPUT"注水压力="TO v
  INPUT"粘性系数="TO k
**      ?a=1+0.41*LOG10(1/b)
**      ?c=d/4*[SQRT(2b/(1-b))+SQRT(2*PI()/SQRT((3)*(1-b)))-2]
**      ?e=d*sprt(3/PI()-1/2)
**      ?h=(3-logb)/LOG10(e/c)
**      ?j=(1-b)/(b*PI()*h*c^2)/4*(2-h)
**      ?t=(64*a^2*k*(4-h)*j*LOG10(m))/(PI()*h*c^4*(n-v))*[w^2*LOG10(m)-w^2*LOG10(w)+1/2*w^2]
  a=1+0.41*LOG10(1/b)
**      c=d/4*[SQRT(2b/(1-b))+SQRT(2*PI()/SQRT((3)*(1-b)))-2]
  c=d/4*(SQRT(2*b/(1-b))+SQRT(2*PI()/SQRT((3)*(1-b)))-2)
**      e=d*sprt(3/PI()-1/2)
  e=d*SQRT(3/PI()-1/2)
**      h=(3-logb)/LOG10(e/c)
  h=(3-LOG(b))/LOG10(e/c)
  j=(1-b)/(b*PI()*h*c^2)/4*(2-h)
  t=(64*a^2*k*(4-h)*j*LOG10(m))/(PI()*h*c^4*(n-v))*[w^2*LOG10(m)-w^2*LOG10(w)+1/2*w^2]
  ?"迂曲度=",a
  ?"最大孔隙直径=",c
  ?"最小孔隙直径=",e
  ?"分形维数=",h
  ?"单位元=",j
  ?"注水时间=",t
  WAIT "继续运算吗？（Y/N）" TO cChoice
   ENDDO
  SET TALK &cTalk
  RETURN

凡是输入量都是随意数，没有具体的数，另外我想问是不是前面需要变量声明吗，我改了之后还不对。

我在第4行加入这一部分，想变量声明，执行显示找不到孔隙率了
STORE 孔隙率 TO b
STORE 钻孔半径 TO m
STORE 湿润半径 TO w
STORE 直径 TO d
STORE 液体压力 TO n
STORE 注水压力 TO v
STORE 粘性系数 TO k

“输入量都是随意数”，输入后要判断是否是有效的输入，否则跟着的运算结果或调用的函数有可能出现数值范围不合法异常。

变量的声明、定义和赋值，这些都是最基础的东西，可参考VFP的帮助。