【正文】
控件, 名稱為 CD1,利用屬性窗口設(shè)置相應(yīng)屬性,即打開對(duì)話框時(shí):標(biāo)題為 打 開文件 ,文件類型為 Word文檔 ,初始目錄為 C盤根目錄。程序中不得使用任何變量。過程代碼如下: Private Sub HScroll1_Change() = End Sub Private Sub Timer1_Timer() = Not () End Sub 按要求保存文件即完成本題。在對(duì)話框的 部件 列表中選擇 MicroSoft Common Dialog 項(xiàng)目,使它前邊的方框?yàn)檫x中。 在給出的窗體文件中已經(jīng)有了全部控件,且 讀數(shù)據(jù) 、 顯示 和 存 盤 按鈕的 Click事件過程已經(jīng)給出,請(qǐng)為 計(jì)算 按鈕編寫適當(dāng)?shù)氖录^ 程以實(shí)現(xiàn)上述 功能。 Open語句 Open語句 用來打開或建立一個(gè)文件,其語法為: Open 文件名 [for 存取方式 ] [Access 操作方式 ] [鎖定 ] As []文件號(hào) [Len=記錄長度 ] 參數(shù)說明: 存取方式 指文件的輸入輸出方式,可以是以下操作之一: Output 指定順序輸出方式 Input 指定順序輸入方式 文件號(hào) 是 1到 511之間的某個(gè)整數(shù),對(duì)打開文件的各種操作要靠文件號(hào)來與文件發(fā)生關(guān)系。語法為: Print 文件號(hào), [[Spc(n)|Tab(n)] [表達(dá)式列表 ] [。語法為: Close 文件 號(hào) 計(jì)算 按鈕的主要代碼如下: Private Sub Command2_Click() For i = 1 To 12 Max = a(i, 1) For j = 1 To 10 s(i) = s(i) + a(i, j) If Max a(i, j) Then Max = a(i, j) End If Next j