把QBASIC的源程序转换成VB下的，有什么好方法？

把QBASIC的源程序转换成VB下的，有什么好方法？
共有240行。
部分代码如下：10 KEY OFF
20 CLS
30 PRINT "SOUNDING CURVE"
40 DIM C(20), F(31), P(12), H(12), R(30), K(30), T(50), A(30), B(30), S(31), N(12)
50 DIM D(12), L(12), Q(12), G(12), N$(12), PX(23)
60 FOR I = 1 TO 20: READ C(I): NEXT I
70 FOR I = 0 TO 30: READ F(I): NEXT I
80 FOR I = 0 TO 22: READ PX(I): NEXT I
90 INPUT "INPUT: C or I ? (C/I)"; A$
100 IF A$ = "C" OR A$ = "c" OR A$ = "I" OR A$ = "i" THEN 110 ELSE 90
110 IF A$ = "I" OR A$ = "i" GOTO 330
120 PRINT "   FORWARD PROBLEM"
130 INPUT "POSITION="; E$: LPRINT "   POSITION     "; E$
140 INPUT "Min(AB/2)="; X: INPUT "Max(AB/2)="; W
150 PRINT "   Min(AB/2)="; X; "M;     Max(AB/2)="; W; "M"
160 X = INT(.1 + 6! * LOG(X) / LOG(10)): W = INT(.9 + 6! * LOG(W) / LOG(10)): M = W - X + 1
170 INPUT "NUMBER OF LAYERS="; N: LPRINT "   N="; N; "LAYERS": LPRINT " "
180 LPRINT : LPRINT "    I   P(I)     H(I)"
190 FOR I = 1 TO N
200 B$ = "P(" + STR$(I) + ")=": C$ = "H(" + STR$(I) + ")="
210 PRINT B$; : INPUT P(I)