The CLEAR
CTALK=SET (" TALK ")
The SET TALK OFF
CChoice="Y"
The DO WHILE UPPER (cChoice)="Y"
The CLEAR
INPUT "porosity=" TO b
INPUT "hole radius=" TO m
INPUT "wetting radius="
TO wINPUT "diameter=" TO d
INPUT "liquid pressure=" TO n
INPUT "water injection pressure=" TO v
INPUT "viscous coefficient=" TO k
? A=1 + 0.41 * LOG10 (1/b)
? C=d/4 * [SQRT (2 b/(1 - b)) + SQRT (2 * PI ()/SQRT ((3) * (1 - b))) - 2]
? E=d * SPRT (3 1/2)/PI () -
? H=(3 - logb)/LOG10 (e/c)
? J=(1 - b)/(b * PI () * h * c ^ 2)/4 * h (2 -)
? T=64 * (a ^ 2 * k * * j * LOG10 (4 h) (m))/(PI () * h * c ^ 4 * (n - v)) * [w ^ 2 * LOG10 (m) - w ^ 2 * LOG10 (w) + 1/2 * w ^ 2]
?" Give=",
a?" The maximum pore diameter=",
c?" The minimum pore diameter=",
e?" Fractal dimension=",
h?" Yuan="unit, j
?"
="water injection time, tWAIT "to continue operation? (Y/N) "TO cChoice
ENDDO
The SET TALK & amp; CTalk
RETURN
CodePudding user response:
You put the "problem" to VB section, but: you this "code" is the VB, VB.NET, or VBA, VBS!!!!!
From your "problem" perspective:
1. Prompt "error" is what???????
2. This kind of "language" is required variable is "statement, before the use of"?
(if "yes", you this code doesn't seem to have any "variable declarations" place!)
CodePudding user response:
Reward for consulting which language DO cycle is the DO WHILE... ENDDO