我剛剛上傳了BASIC的程式碼

結果他顯示CE

有人知道要怎麼辦嗎?

我上傳的程式碼如下

Private Sub Form_Load()
Open App.Path & "/test.txt" For Input As #1
Open App.Path & "/result.txt" For Output As #2
Do Until EOF(1)
    Input #1, x, y
    ReDim a(x, y) As Long
    For i = 1 To x
        For j = 1 To y
            Input #1, a(i, j)
        Next j
    Next i
    For i = y To 1 Step -1  '做到第幾行
        For j = x - 1 To 1 Step -1
            For k = 1 To j
                If a(k, i) > a(k + 1, i) Then
                    For l = 1 To y
                        t = a(k, l)
                        a(k, l) = a(k + 1, l)
                        a(k + 1, l) = t
                    Next l
                End If
            Next k
        Next j
    Next i
    For i = 1 To x
        str1 = ""
        For j = 1 To y
            str1 = str1 & a(i, j) & " "
        Next j
        Print #2, str1
    Next i
Loop
Close
End
End Sub

是有哪裡要改的嗎?

輸出入資料嗎?

你好

我給你幾點建議

1)    請先去下載 Free Basic 來配合這個平台。

        Free Basic 可用的 Function 比 VB 少很多。

        replace 、split  等等都不能用  連 boolean 都沒有，

        不過這麼陽春的東西，如果你能用的習慣，且都不會 TLE 的話，

        基礎應該可練得很扎實吧。

2)    這裡沒有 Form 這個東西。

3)    變數要宣告，而且要明確。

4)    輸入的部份是  open cons for input as #1 

       cons 會連結測資。

5)    output 的部份只需 Print 你的答案，不需輸出到任何檔案。 

6)    別放棄，學習 Basic 的人，難得有這種練習的平台。