这是代码
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
?"最大孔隙直径=",c
?"最小孔隙直径=",e
?"分形维数=",h
?"单位元=",j
?"注水时间=",t
WAIT "继续运算吗?(Y/N)" TO cChoice
ENDDO
SET TALK &cTalk
RETURN
解决方案 »
- 大家好,小弟想一问,QQ挂机系统的如何实现的(比如QQ也疯狂),希望大家给于指点,谢谢!
- !!!急!!!要让IMAGE完全显示我规定大小得图片
- 谁有《COM原理与应用》一书的配套源代码
- 请问使用VB如何从excel中读取数据
- 一直写ARM上的C/C++,入门VB,帮忙推荐一下入门书,另是选VB6.0还是VS2008
- 简单问题:用Printer.print如何实现这样的打印?
- 十分重要,请各位大虾帮帮小弟吧!!300分相送
- 如何建立一个到dbase数据库的连接?连接字符串该怎么写??(ado)
- 请问如何在ODBC中注册我的数据库(用代码实现)?
- 各位高手们,转行吧!VB没搞头!
- VB如何实现自动填写(在第三方软件的文本框中填写)
- vb6 (入门小白) 找出三个数中最大值,为何我的程序运行出错?
从你的“问题”角度来说:
1. 提示“错误”的是哪行???
2. 这种“语言”是否要求变量要“先声明、后使用”?
(如果“是”,你这段代码似乎没有任何“变量声明”的地方吧!)