各位大虾，由于论文需要，搞了几天头都大了都没搞好，跪求怎么把QB的程序转换成VB的程序，QB的程序清单如下： 10: read (N) 15: Dim A(N, N), M(N, N), X(N) 20: B1 = 0 25: read A1 30: If A1 = 0 Then 55 35: read A2, A3 40: A(A1, A3) = A2 45: If A2 > B1 Then B1 = A2 50: GoTo 25 55: GoSUB 630 60: For I = 1 To N 65: A(I, I) = B1 70: Next I 75: For K = I To N 80: For I = 1 To N 85: For J = 1 To N 90: If A(I, K) > A(K, J) Then 105 95: W = A(I, K) 100: GoTo 110 105: W = A(K, J) 110: If W > A(I, J) Then A(I, J) = W 115: Next J 120: Next I 125: Next K 130: GoSUB 630 135: input "K=";KK 140: If KK = 0 Then End 145: Print("K=", KK) 150: For I = 1 To N 155: For J = 1 To N 160: M(I, J) = 0 165: If A(I, J) >= KK Then M(I, J) = 1 170: Next J 175: M(I, 0) = 0 180: M(0, I) = 0 185: X(I) = 0 190: Next I 195: GoSUB 670 200: Q = 0 205: W = 0 210: For K = 1 To N 215: Q = Q + 1 220: For I = 1 To N 225: S = 0 230: If M(I, 0) > 0 Then 295 235: For J = 1 To N 240: If M(J, 0) > 0 Then 250 245: If M(I, J) > M(J, I) Then 295 250: Next J 255: X(I) = K 260: W = W + 1 265: For J = 1 To N 270: If M(J, 0) > 0 Then 285 275: If M(I, J) <> 1 Then 285 280: S = S + 1 285: Next J 290: If S > 1 Then M(0, I) = 1 295: Next I 300: For I = 1 To N 305: If M(I, 0) = 0 Then M(I, 0) = X(I) 310: Next I 315: If W = N Then 325 320: Next K 325: For K = 1 To Q 330: Print("CLASS", K, ":") 335: P = 0 340: For I = 1 To N 345: If M(I, 0) <> K Then 370 350: If M(0, I) = 1 Then 365 355: Print("{", I, "}") 360: GoTo 370 365: P = 1 370: Next I 375: If P = 0 Then 405 380: Print("{") 385: For I = 1 To N 390: If M(I, 0) = K And M(0, I) = 1 Then Print(I) 395: Next I 400: Print("}") 405: Print 410: Print("---------------------") 415: Next K 420: W = 0 425: For I = 1 To N 430: M(I, 0) = -1 435: M(0, I) = 0 440: For J = 1 To N 445: M(I, 0) = M(I, 0) + M(I, J) 450: If M(I, J) = 1 And I <> J Then M(0, I) = M(0, I + A(I, J)) 455: Next J 460: If M(0, I) > W Then W = M(0, I) 465: Next I 470: W = W / 100 475: Print("*****************") 480: For I = 1 To N 485: Print("(", I, ")", M(I, 0), " ") 490: Next I 495: Print 500: Print("*****************") 505: For I = 1 To N 510: Print("(", I, ")", M(0, I) / W, " ") 515: Next I 520: Print 525: Print("*****************") 530: For I = 1 To N 535: For J = 1 To N 540: If M(I, J) * M(J, I) = 0 Then 555 545: M(I, J) = 0 550: M(J, I) = 0 555: Next J 560: Next I 565: For I = 1 To N 570: Print("(", I, ")") 575: For J = 1 To N 580: If M(I, J) = 0 Then 610 585: For K = 1 To N 590: If K = I Or K = J Then GoTo 600 595: If M(I, K) * M(K, J) = 1 Then M(I, J) = 0 : GoTo 610 600: Next K 605: Print(J) 610: Next J 615: Print 620: Next I 625: GoTo 135 630: For I = 1 To N 635: For J = 1 To N 640: Print(A(I, J)) 645: Next J 650: Print 655: Next I 660: Print("*****************") 665: Return 670: For I = 1 To N 675: For J = 1 To N 680: Print(M(I, J)) 685: Next J 690: Print 695: Next I 700: Print("*****************") 705: Return 1000: Data (10) 1010: DATA (1, 4, 4, 2, 4, 8, 4, 4, 1, 4, 5, 3, 5, 5, 3, 5, 3, 4, 6, 2, 8, 7, 4, 10, 8, 1,7，9, 4, 5, 9, 4, 7, 10, 3, 9) 1020: DATA (0) 看书上说VB不能用READ/DATA赋值给变量，我也不知道怎么赋值,而且在VB出现好多错误,实在是搞不定了,请各位大虾指教!在下谢了!

你呀，还是直接编写VB吧》》》》》》》》》》》》》》》》