【正文】
打開代碼窗口,輸入如下的代碼: Dim temp As Integer Private Sub Calc_Click() = For i = 1 To 100 If Arr(i) = 50 Then = amp。語法為: Input 文件號,變量列表 Print 語句 用來把數據寫入順序文件。 Open語句 Open語句用來打開或建立一個文件,其語法為: Open 文件名 [for 存取方式 ] [Access 操作方式 ] [鎖定 ] As []文件號 [Len=記錄長度 ] 參數說明: “存取方式”指文件的輸入輸出方式,可以是以下操作之一: Output 指定順序輸出方式 Input 指定順序輸入方式 Append 指定順序輸出方式 ,與 Output不同的是,用 Append方式打開文件時,文件指針定位于文件尾部,如對文件執(zhí)行寫操作,則寫入數據附加到原來文件的后面。打開代碼窗口,補充如下的代碼: Private Sub Add_Click() = InputBox(請輸入要添加的項目 ) End Sub Private Sub Delete_Click() = InputBox(請輸入要刪除的項目 ) For i = 0 To If (i) = Then i End If Next i End Sub 按要求保存文件即完成本題。 圖 1 圖 2 ********************************************************************** ( 2)在考生文件夾下有一個工程文件 (相應的窗體文件名為 ),其功能是通過調用過程 Sort將數組按升序排序。 2. 簡單應用( 2小題,每題 20分,計 40分) 注意:下面出現(xiàn)的“考生文件夾”均為 C:\WEXAM\00000000\ *********************************************************************** ( 1)在考生文件夾下有一個工程文件 ,請在窗體上建立一個菜單,主 菜單項為“項目”(名稱為 Item),它有兩個子菜單項,其名稱分別為 Add 和 Delete,標題分別為“添加項目