我有一段BASIC编写的程序，如何在VB中实现？

显示全部楼层 · 2010-6-9 14:21:28

2580IFH1=-100OR H2=-100OR H3=-100THENL1=-100: GOTO2620
2590IFH1<H2ANDH1<H3THENL1=H1: GOTO2620
2600IFH3<H2ANDH3<H1THENL1=H3: L2=-100: L3=-100: GOTO2670
2610L1=H2:L2=-100: GOTO2650
2620IFH4=-100ORH5=-100THENL2=-100: GOTO2650
2630IFH4<H5THENL2=H4: GOTO2650
2640L2= H5:L3=-100: GOTO2670
2650IFH6=-100THENL3=-100: GOTO2670
2660L3=H62670LPRINT “临界档距1=”；L1；“临界档距2=”；L2；“临界档距3=”；L3；

千问 · 2010-6-9 14:21:28

这段程序是用古老的BASIC语言编写的，2660句的LPRINT语句表示在打印机输出.在VB里,必须改为PRINT,其他语句可以不改,因为VB兼容以前版本的BASIC,如果提示变量没定义,你再用DIM语句定义一下变量.

千问 · 2010-6-9 14:21:28

直接可以运行。只要把其中的全角符号改成半角的，输出也改成VB的。2580If H1 = -100 Or H2 = -100 Or H3 = -100 Then L1 = -100: GoTo 26202590If H1 < H2 And H1 < H3 Then L1 = H1: GoTo 26202600If H3 < H2 And