把BASIC语言用vb语言来实现,求救!高分!

Question

1  COLOR 6，7，4
5  pi=3.1415926#
10  REM 旋风分离器
20  CLS
30  LOCATE 6，20：PRINT“ __________旋风分离器____________”
40 LOCATE 8, 30:PRINT”1. 分离极限粒径“
50 LOCATE 10, 30:PRINT”2. 处理风量“ 
60 LOCATE 12, 30:PRINT”3. 旋风分离器直径“
65 LOCATE 14，20:PRINT” __________“
70 LOCATE 18, 3:INPUT”输入，NO.=“；I：CLS
80 IF  I〈1 OR I〉3 THEN 20
90 IF  I〈〉1 THEN 130 
100 LOCATE 10，25：INPUT “50%分离极限粒径，mm=”；d5
110 IF d5 〉 .02 THEN 610
120 IF d5〈  .001 TEHN 610
130 IF I 〈〉2 THEN 150
140 LOCATE 10，25：IINPUT “风量，m3/min=“；q
150 IF I 〈〉3 THEN 170
160  LOCATE 10，25：INPUT “旋风分离器直径，mm=“；d
170 LOCATE 12，25：INPUT “入口风速，m/s=“；u
180 LOCATE 14，25：INPUT “入口空气温度，℃=“；t
190 LOCATE 16，25：INPUT “入口压力，Pa=”；P：CLS
200 LOCATE 14，25：INPUT “量子亲密度，kg/m3=”；rs
210 CLS ：LOCATE 14，28：PRINT “计算中，按任一键输出结果”
211 V$=INKEY$：IF V$=“” THEN 211
？？？220  GOSUB 320 ：BEEP：CLS
230 IF I =1 THEN 250  
240 LOCATE 8，25：PRINT “50%分离极限粒径，mm=”；d5
250 LOCATE 10，25：PRINT “95%分离极限粒径，mm=”；d9
260  IF I=2  THEN 280 
270 LOCATE 12，25：PRINT“风量，m3/min=”；q
280 IF I =3 THEN 300
290 LOCATE 14，25：PRINT“旋风分离器直径，mm=“；d
300 LOCATE 16，25：PRINT “压力损失，Pa=”；pl
301 LOCATE 20，35：INPUT “是否继续计算？（Y/N）”；K$
302 I F  K$=“Y” OR K$=“y” THEN  20
310 END 
320 rh=1.29*273/（273+t）*（101000！+p）/101000！
330 IF rs 〈rh THEN  590 
340 mu=2.78E +0.7*（273+t）＾.734
350 d=.001 d:d5=10000!d5
360 IF I <>1 THEN 380
370 D=rs*(d5/3.2)
380 IF I 2 THEN 410
390  q=6*u*d＾2
400  IF  I=3 THEN  420
410 d=SQR（q/（6*u））
420 IF  I=1 THEN  440
430 d5=1000*（9*mu*（.2*d）/（2*pi*4*u*（rs-rh）））＾.5
440 d9=(4000* d5)*(I=1)+(4*d5)*(I<>1)
450 pl=3.5*rh*u^2
460 f=10^INT(logq-2)
470 q=f*INT (q/f+.5)
480 IF d>=1 THEN 510 
490 I F d<.05 THEN  510 
500 d=5*INT(200*d+.5):GOTO 530
510 d=10*INT(100*d+.5):GOTO 530
520 d=INT (1000*d+.5):GOTO 530
530 g=10^INT(logd5-1)
540 d5=g*INT(d5/g+.5)/1E+07
545 d5=1/10000*INT(d6*10000+.5)
550 h=10^INT(logd9-1)
560 d9=-h*INT(d9/h+.5)/1E+07
565 d9=1/1000*INT(d9*1000+.5)
570  pl=10*INT(.1*pl+.5)
580 RETURN
590 CLS :LOCATE 14,25:PRINT “粉尘真密度太小,不能分离!”
600 LOCATE 16,29:PRINT”按任一键重新输入”
601 V$=INKEY V$:IF V$””THEN 621
610 CLS :LOCATE 14,30:PRINT”风量输入(NO.=2)”
620 LOCATE 16,34:PRINT “请操作”
621 V$=INKEY$:IF V$=”” THEN 621
622 GOTO 20
630 CLS :LOCATE 14,29:PRINT”量子径,分离缩小量!”
640 LOCATE 16,30:PRINT” 按任一键重新输入”
650 V$=INKEY$:IF V$=””THEN 650
651 GOTO 20就是这个程序,是要实现一个旋风分离器的功能,请各位帮忙,很急的,用别的语言实现也可以,有高分送,在线等待!

Answer 1

各位GGJJDDMM,快帮忙啊,不然我过不了年了,不然给点思路也可以啊
里面的语句我有的还不懂呢？？？220  GOSUB 320 ：BEEP：CLS
                              V$=INKEY V$:IF V$””THEN 621谁帮我过年我请谁吃饭了

Answer 2

转换很容易,但是比较烦^_^,说一下几个语句的作用,你自己应该可以转换
Locate x,y 是将光标定位到X行Y列
Cls 清屏,Basic是直接在屏幕上输出的,所以要显示一个好的界面,先清屏
Gosub 320 调用行号320开始的子程序,Return 从子程序中返回,这里是返回到Beep:cls这里,就是让电脑响一下,然后清屏
Beep 让你的电脑发出"Bee"的一声..^_^
Input 获得用户输入的字符并赋给一个变量,用回车结束输入
V$=INKEY 获得一个按键,比如你按下"K",则V$="K"
if v$="" then 621  if V$为空,执行行号621处的语句,这里实际是上等待用户输入要转到VB中,你只需要关注算法就行了,输入输出就不用转换了,用VB写吧.算法应该是320到580行这一段.

Answer 3

220  GOSUB 320 ：BEEP：CLS跳到320那行的子程序执行 beep 响一声 cls 清屏V$=INKEY V$:IF V$””THEN  这句应该是错的应该改成V$=INKEY$:IF V$="" THEN 621
意思是：如果没有按键则跳到621,等待用户输入

Answer 4

建立一个队列当KeyPress事件发生的时候进队当需要读取键盘数据的时候出队在GetKeyPress过程重要加上While queue.Eof
  DoEvents
Loop

Answer 5

晕，，，第380句：380 IF I 2 THEN 410
I是<>2还是＝2啊？？？？？

Answer 6

呵呵!今天又复习了一下BASIC呀,谢谢楼主!

Answer 7

搂住，，你的第350
350 d=.001 d:d5=10000!d5
d=0.001 d 什么东西啊？？？

Answer 8

Dim b As Integer '旋风分离器空气入口宽度[m]
Dim D As Integer '旋风分离器直径[m]
Dim d As Integer '旋风分离器排气筒的直径[m]
Dim d50 As Integer '50%分离器排气筒的直径[m]
Dim g As Integer  '重力加速度9.81[m/sec2]
Dim h As Integer  '旋风分离器的圆锥体长度[m]
Dim l As Integer  '旋风分离器同体长度[m]
Dim n As Integer  '旋风分离器中空气有效转数 4~5
Dim p As Integer  '旋风分离器入口空气压力[Pa]
Dim pl As Integer '旋风分离器的压力损失[Pa]
Dim q As Integer  '进入旋风分离器的风量（处理风量）[m3/min]
Dim r As Integer  '旋风分离器粒子旋转半径[m]
Dim t As Integer  '进入旋风分离器的空气温度[0c]
Dim v As Integer  '旋风分离器的入口风量[m/sec]
Dim z As Integer  '离心效果
Dim u As Integer  '进入旋风分离器的空气粘度[pa se]
Dim ρ As Integer '进入旋风分离器的空气密度[kg/m2]
Dim ρ0 As Integer '粒子的真密度[kg/m3]
Dim w As Integer  '粒子的旋转角速度
公式中的各参数如上,大家帮忙,不用管具体的数值，先好用就可以,准确的数值我可以再改了，谢谢大家帮忙了!

Answer 9

离心效果 用1式求得 z=rw&sup2;/g=v&sup2;/g   （1）
同体直径D是由风量Q以及入口风速v决定的。根据入口截面（b·h）和风速v之积为Q 得到（2）式
Q=60bhv=60（0.5v）（0.2Dv）=6vD&sup2;  （2）
为求直径D，将（2）式变形变形得出（3）式，一般v取10~20m/sec
D=根号下Q/6v                      （3）
旋风分离器的压力损失 pl 由（4）式求出
pl=（30bh/d&sup2;根号下D/L+H）·ρv&sup2;/2 （4）
在（4）式中，b=2D，h=0.5D，d=0.5D，L=D 而且当H=2D，则得到（5）式 pl=3.5ρv&sup2;   （5）
在（5）式中，如果比例相同的话，在压力损失与旋风分离器的饿大小没关系，设其值约是ρv&sup2;/2的1.7倍，
许允压力损失越大，则入口风速v越大，旋风分离器越小，则捕集效率越好。
（5）式中低压空气密度ρ（温度t[℃]）用理想气体（6）式可得到近似值。
ρ=1.29 ⅹ （273/273+t）ⅹ [（1.01ⅹ10的5次幂+P）/1.01ⅹ10的5次幂]            （6）
旋风分离器的直径由必要的分离极限粒径和处理风量两者协调决定。
部分分离效率为50%时，分离极限粒径d50，对于   可用（7）式求得近似值。
d50=[9μb/2лNv（ρ0 ρ）]的0.5次幂                （7）
根据实验，95%分离极限粒径d95约是d50的4倍。
在（7）式中，代入b=0.2D，变形得到（8）式，如果提供了必要的分离极限粒径d50，能用此式求得出旋风
分离器的直径D
D=лd50&sup2;Nv（ρ0 -ρ）/（0.9μ）（注：50是d 的下标）  （8）
（8）式中空气粘度μ用（9）式推算出。
μ=2.78 ⅹ 10 的-7次幂（273+t） 的0.734次幂         （9）提供的公式都在这了,有什么不明白的我在查了,大家帮忙啊

Answer 10

写好了，，不过具体算法肯定有问题，，，搂住自己改一下好了
俺的EMail:[email protected]