[多項(xiàng)選擇題] 在考生文件夾下有一個(gè)工程文件sjt5.vbp,相應(yīng)的窗體文件為sjt5.frm,此外還有一個(gè)名為datain.txt的文本文件,其內(nèi)容如下:
[多項(xiàng)選擇題] 在考生文件夾下有一個(gè)工程文件sjt5.vbp,相應(yīng)的窗體文件為sjt5.frm,此外還有一個(gè)名為datain.txt的文本文件,其內(nèi)容如下:
32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37
程序運(yùn)行后單擊窗體,將把文件datain.txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中,在窗體上按5行、5列的矩陣形式顯示出來(lái),然后交換矩陣第二列和第四列的數(shù)據(jù),并在窗體上輸出交換后的矩陣,如圖5所示。在窗體的代碼窗口中,已給出了部分程序,這個(gè)程序不完整,請(qǐng)把它補(bǔ)充完整,并能正確運(yùn)行。
要求:在程序中的橫線(xiàn)處填寫(xiě)正確的內(nèi)容(可以是多行),使其實(shí)現(xiàn)上述功能,但不能修改程序的其他部分。最后把修改后的文件按原文件名存盤(pán)。
[題目提供的源程序]
Option Base 1
Private Sub Form_Click()
Const N=5
Const M=5
Dim (1)
Dim i,j,t
Open App.Path & "" & "datain.txt" (2) As #1
For i=1 To N
For j=1 To M
(3)
Next j
Next i
Close #1
Print "初始矩陣為:"
For i=1 To N&l
正確答案:[操作步驟] 第A步:打開(kāi)工程文件 第B步:分析修改源程序 第C步:調(diào)試、運(yùn)行并保存程序。 [A]Mat(N,M) [B]For Input [C]Input #A, Mat(i,j) [D]Mat(I,D)=t
參考解析:根據(jù)已給出的源程序可以看出,程序中采用數(shù)組來(lái)存儲(chǔ)所有的數(shù)據(jù),因此在[1]處明顯就是要求定義一個(gè)數(shù)組,再根據(jù)循環(huán)體循環(huán)次數(shù)和引用的數(shù)組元素可以確定數(shù)組為Mat(N,M)。有了數(shù)組后,需要從文件中讀取數(shù)據(jù)存入到數(shù)組中,因此打開(kāi)文件的模式應(yīng)該是For Input。[3]處應(yīng)該是讀數(shù)據(jù)。[4]處應(yīng)該是交換兩列的值,根據(jù)兩變量交換的常用寫(xiě)法很容易得出答案。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。