vb等級(jí)考試題目與評(píng)析53(文件)
【正文】 As 1 For i = 1 To N For j = 1 To M Input 1, Mat(i, j) Next j Next i Close 1 Print Print 初始矩陣為： Print For i = 1 To N For j = 1 To M Print Tab(5 * j)。 End If Next j Next i End Sub 按要求進(jìn)行操作并保存文件即完成本題。 Next j Print Next i Print: Print Print 右上 左下對(duì)角線上的數(shù)為 ： For i = 1 To N For j = 1 To M If i + j = 6 Then Print Tab(5 * i)。語法為： Close 文件號(hào) 解題方法： 打開工程文件 ，輸入如下的代碼： Option Base 1 Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(1 To N, 1 To M) As Integer Dim i, j Open amp。語法為： Print 文件號(hào)， [[Spc（ n)|Tab（ n)] [表達(dá)式列表 ] [。鎖定類型包括： Lock Shared 允許機(jī)器上任何進(jìn)程讀寫該文件 Lock Read 不允許其他進(jìn)程讀該文件 Lock Write 不允許其他進(jìn)程寫該文件 Lock Read Write 不允許其他進(jìn)程讀寫該文件 “文件號(hào)”是 1到 511之間的某個(gè)整數(shù)，對(duì)打開文件的各種操作要靠文件號(hào)來與文件發(fā)生關(guān)系。 Random 隨機(jī) 存取方式，也是默認(rèn)存取方式。 要求： 去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功 能，但不能修改程序中的其他部分。 第 2小題： 打開一個(gè)工程文件 ，窗體上放有一個(gè)命令按鈕和一個(gè)文本框，要求單擊命令按鈕，計(jì)算 出 0～ 100范圍內(nèi)所有偶數(shù)的平方和，并在文本框中顯示出來。最后把修改后的文件按原文件名存盤。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1