555~~急嘛，50分哦。我只懂一点vb，现在想把一个basic程序改写成vb，该怎么办啊

Question

第一个程序是数据处理——主成分分析；
其结果是第二个程序——模糊聚类的原始数据。
将这两个程序合成一个程序
。/
大家能不能给点意见啊，看看下面的vb 代码是什么格式的啊？
还有象下面的basic代码应该用什么工具调试啊？？？具体代码如下，
主成分分析程序10  REM ***********************************************************************
20  REM *                                                                     *
30  REM *    ***              PRIMARY COMPONENT ANALYSIS              ***     *
40  REM *                                                                     *
50  REM *                     PROGRAM NAME :      PRIMARY                     *
60  REM *                                                                     *
70  REM *                           AUTHOR :                                  *
80  REM *THE COMPUTER CENTRE OF THE PLANNING AND ECONOMIC COMMITTEE OF SICHUAN*
90  REM *           THE GROUP OF MULTI-VARIATE STATISTICAL ANALYSIS           *
100 REM *                     WRITTEN DATA :        1984                      *
110 REM *                                                                     *
120 REM *  1. MAIN FUNCTION :                                                 *
130 REM *                                                                     *
140 REM *     THIS PROGRAM IS DESIGNED TO FIND VOUT THE P PRIMARY COMPONENTS  *
150 REM *  OF N OBSERVATION SAMPLES WHICH POSSESS THE M DIMENSION COORDINATE  *
160 REM *  ADOPTING THE ROTATION TRANSFORMATION FOR COORDINATE AXIS, SO THAT  *
170 REM *  THE SUM OF SQUARES OF ERROR CAUSED BY DESCENDING THE DIMENSION OF  *
180 REM *  THE SAMPLE SET WILL BE LEAST.                                      *
190 REM *                                                                     *
200 REM *  2. MAIN IDENTIFIEN DECLARATIONS :                                  *
210 REM *                                                                     *
220 REM *     M -- NUMBER OF VARIABLES.                                       *
230 REM *     N -- NUMBER OF SAMPLES.                                         *
240 REM *     P -- NUMBER OF PRIMARY COMPONENTS.                              *
250 REM *     XN(N,M) -- ORIGINAL DATA OF OBSERVATION SAMPLES.                *
260 REM *     XP(N,P) -- PRIMARY COMPONENTS OF OBSERVATION SAMPLES.           *
270 REM *                                                                     *
280 REM *  3. THE METHOD SUPPLYING PARAMETERS :                               *
290 REM *                                                                     *
300 REM *     PLEASE ENTER FOLLOWING PARAMETERS ON THE SCREEN ACCORDING TO THE*
310 REM *  PROMPT WHEN YOU ARE RUNNING THIS PROGRAM:                          *
320 REM *     NUMBER OF SAMPLES N , NUMBER OF VARIABLES M.                    *
330 REM *                                                                     *
340 REM *  4. THE ARRANGEMENT OF ORIGINAL DATA :                              *
350 REM *                                                                     *
360 REM *     THE ORIGINAL DATA ARE PLACED IN THE DATA STALEMENTS AT THE END  *
370 REM *  OF THE PROGRAM. THEIR ARRANGEMENT ORDER IS AS FOLLOWS:             *
380 REM *         X11, X12, ..., X1M                                          *
390 REM *         X21, X22, ..., X2M                                          *
400 REM *         ..................                                          *
410 REM *         XN1, XN2, ..., XNM                                          *
420 REM *                                                                     *
430 REM *  5. MAIN COMPUTATION RESULTS :                                      *
440 REM *                                                                     *
450 REM *     NUMBER OF SAMPLES , N.                                          *
460 REM *     NUMBER OF VARIABLES , M.                                        *
470 REM *     NUMBER OF PRIMARY COMPONENTS , P.                               *
480 REM *     VALUES OF P PRIMARY COMPONENTS , XP(N,P).                       *
490 REM *                                                                     *
500 REM *  6. NOTE :                                                          *
510 REM *                                                                     *
520 REM *     THIS PROGRAM COMPUTES THE EIGENNNVALUES AND EIGENVECTORS OF     *
530 REM *  MATRIX BY THE METHOD OF JACOBI.                                    *
540 REM **********************************************************************
550 WIDTH "LPT1: ",132
560 DEFDBL A-H,M-P,R-Z
570 DIM YY(200,15),T(15)
580 CLS :BEEP :KEY OFF:PRINT :PRINT :PRINT :PRINT
590 PRINT TAB(20);"PLEASE ENTRY PARAMETER :" :PRINT
600 PRINT TAB(19);"SAMPLE PARAMETER N = # # # " :PRINT
610 PRINT TAB(17);"VARIABLE PARAMETER P = # # # "
620 FOR II=7 TO 9 STEP 2 :B$=""
625       LOCATE II,40 : PRINT "_"
630       FOR JJ=40 TO 44 STEP 2
640       A$=INKEY$ :IF A$="" THEN 640
645       IF A$=CHR$(13) THEN 670
650       B$=B$+A$ :LOCATE II,JJ:PRINT A$
660       NEXT JJ
670 IF II=7 THEN N=VAL(B$) ELSE P=VAL(B$)
680 NEXT II
690 IF N=0 OR P=0 THEN 580
700 DIM X(N,P),C(P,P),S(P,P),XK(P),DK(P)
710 DIM H(P),LH(P),LH1(P),A(P,P)
720 LPRINT TAB(40);"***** PRIMARY COMPONENT ANALYSIS RESULT *****"
730 LPRINT
740 LPRINT TAB(40);"SAMPLE NUMBER N=";N;
750 LPRINT TAB(70);"VARIABLE NUMBER P=";P
760 LPRINT
770 FOR I=1 TO N
780     FOR J=1 TO P
790     READ X(I,J)
800     NEXT J
810 NEXT I
820 FOR J=1 TO P
830 XK(J)=0
840 DK(J)=0
850     FOR I=1 TO N
860     XK(J)=XK(J)+X(I,J)
870     NEXT I
880 XK(J)=XK(J)/N
890    FOR I=1 TO N
900    DK(J)=DK(J)+(X(I,J)-XK(J))^2
910    NEXT I
920 DK(J)=SQR(DK(J)/(N-1))
930    FOR I=1 TO N
940    X(I,J)=(X(I,J)-XK(J))/DK(J)
950    NEXT I
960 NEXT J
970 REM *********************************************************************
980 REM *             PCA ------ PRIMARY CONPONENT ANALYSIS                 *
990 REM *********************************************************************
1000 LPRINT
1010 LPRINT TAB(20);"***** CORRELATION COEFFICIENT MATRIX *****"
1020 LPRINT
1030 FOR I=1 TO P
1040     FOR J=1 TO P
1050     IF J>=I THEN 1060 ELSE 1120
1060     C(I,J)=0
1070         FOR K=1 TO N
1080         C(I,J)=C(I,J)+X(K,I)*X(K,J)
模糊ISODATA聚类分析程序（BASIC语言）5: Rem FUZZY ISODATA CLUSTER ANALYZING METHOD PROGRAM
10: Print "INPUT N,M,C"
15:INPUT"N="; N,"M="; M,"C="; C
20: Dim X(N, M), V(C, M), R(C, N), D(N, C), g(C, N), w(M), z(C)
25: Print "INPUT MATRIX X"
30: For I = 1 To N
35: For J = 1 To M
40: Print "X("; I; ","; J; ")"
45:INPUT X(I,J)
50: Next J
55: Next I
60: Print "INPUT 0RIGINAL MATRIX R"
65: For I = 1 To C
70: For J = 1 To N
75: Print "R("; I; ","; J; ")"
80:INPUT R(I，J)
85: Next J
90: Next I
95: Print "INPUT E"
100:INPUT"E=";E
105: Print "INPUT P ARAMETER Q"
110:INPUT"Q=";Q
115: Print "INPUT D ISTANCE TYPE D"
120:INPUT"D=";D
121: If D <> 4 Then GoTo 125
122: Print "INPUT P"/////那些行号是什么意思啊？什么990。940的是什么意思啊，是标志符号么？
搞的象汇编似的。/// 代码有于内容太长了，没有贴完。。

Answer 1

具体代码可以见这里：）
http://www.lbschina.com.cn/forum/UpLoadFile/20041081084290267.txt

Answer 2

要转到VB，首先把行号去掉（就是每一行前面的数字），然后把GOTO语句修改一下，最好改成循环、自定义函数、自定义过程等等，INPUT语句改成 inputbox 对话框内容,对话框标题。窗体的autoredraw属性设为TRUE，应该可以了。

Answer 3

INPUT"N="; N,"M="; M,"C="; C
像这样的代码可以专门为他们设计一个输入数据用的对话框！此外，print：这样的代码也可以忽略掉！其实，你只要将算法的核心代码转换成vb的就行了，关于数据的输入与输出的问题，你可以自己来编写相应的界面！

Answer 4

对。
basic很多语法在vb中都没有见过哎，看来得去下basic的教程看看了，倚~~~~~~~~~~~~~~~```大哥们能说说应该注意点什么啊？就修改basic代码的时候，

Answer 5

QB是结构化的语言，VB是面向对象的语言，虽然语法、函数等都差不多，但是它们的执行方式不同，编写代码时也不同，你需要了解它们的共同点和不同点才能将QB转为VB。

Answer 6

楼上说的都很有道理
DOS下就是goto多，windows下基本绝迹了

Answer 7

兄弟好好的看看书吧
basic和VB还是很不一样的
其中的语法不尽相同的
大家一起努力吧

Answer 8

Basic和VB:
  概念也不一样，机制也不一样，编程方法也不一样
  我看基本一样的也只有语法了。当然，语句是大大地不一样……

Answer 9

应该不难。
主要是把输入输出部分改了就行。
好多函数都是可以通用的。
比如chr(13)和chr$(13)在VB里好像都可以正常执行。功能是一样的。