這是代碼
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
uj5u.com熱心網友回復：
你把這個“問題”發到VB版塊， 可是：你這“代碼”是VB、VB.NET、或者VBA、VBS的嗎！！！
從你的“問題”角度來說：
1. 提示“錯誤”的是哪行？？？
2. 這種“語言”是否要求變數要“先宣告、后使用”？
（如果“是”，你這段代碼似乎沒有任何“變數宣告”的地方吧！）
uj5u.com熱心網友回復：
懸賞咨詢哪種語言DO回圈是DO WHILE ... ENDDO轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/48468.html
標籤：網絡編程