vb等級考試題目與評析43(文件)
【正文】 Print Tab(5 * j)。 。 Next j Print Next i Sum = 0 For j = 1 To M Sum = Sum + Mat(3, j) Next j Print Print 第三行各項的和為 ： 。語法為： Close 文件號 解題方法： 打開 ，修改后的代碼如下： Option Base 1 Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(5, 5) Dim Sum, i, j Open amp。語法為： Print 文件號， [[Spc（ n)|Tab（ n)] [表達式列表 ] [。鎖定類型包括： Lock Shared 允許機器上任何進程讀寫該文件 Lock Read 不允許其他進程讀該文件 Lock Write 不允許 其他進程寫該文件 Lock Read Write 不允許其他進程讀寫該文件 “文件號”是 1到 511之間的某個整數(shù)，對打開文件的各種操作要靠文件號來與文件發(fā)生關(guān)系。 Random 隨機存取方式，也是默認存取方式。在窗體的代碼窗口中，已給出了部分 程序，這個程序不完整，請把它補充完整，并能正確運行。 第 1小題： 打開工程文件 ，打開代碼窗口，修改后的代碼如下： Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomize For i = 1 To 20 arrN(i) = Int(Rnd * 1000) Next i Sum = 0 For i = 1 To 20 If arrN(i) 500 Then Sum = Sum + arrN(i) End If Next i Print Sum End Sub 按要求保存文件
公司管理相關(guān)推薦
鄂ICP備17016276號-1