vb等級考試題目與評析82-wenkub.com
2024-08-31 13:01 本頁面
【正文】 Mid(s, i, 1) End If Next i End Sub Private Sub Command3_Click() = 文本文件 |*.txt|所有文件 |*.* = 1 On Error GoTo openerr = = = 2 Open For Output As 1 Print 1, Text1 Close 1 openerr: End Sub 按要求保存文件即完成本題。語法為： LCase（字符串） 解題方法： 打開 ，修改后的代碼如下： Private Sub Command1_Click() Dim s As String = 所有文件 |*.*|文本文件 |*.txt = 2 On Error GoTo openerr = Open amp。 分號表示后續(xù)寫入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫入；逗號表示在當(dāng)前寫入的數(shù)據(jù)后換行。 Input 語句 用來讀取順序文件的數(shù)據(jù)。在這種方式下，可以用 Get和 Put語句對文件中任意字節(jié)位置的信息進行讀寫。 如要調(diào)用系統(tǒng)的 打開 對話框，可以用如下語句： ，并可以通過 。最后，按原文件名把程序存盤。選中 （如圖 1所示），單 擊 打開 按鈕，則把文件中的內(nèi)容讀入并顯示在文本框（ Text1）中 ；單 擊 修改內(nèi)容 按鈕，則可把 Text1中的大寫字母 E、 N、 T改為小寫， 把小寫字母 e、 n、 t改為大寫；單擊 保存文件 按鈕，則彈出 另存 為 對話框，默認(rèn)文件類型為 文本文件 ，默認(rèn)目錄為考生目錄，默認(rèn)文件 為 （如圖 2所示），單擊 保存 按鈕，則把 Text1中修改后的內(nèi) 容存到 。使用 List屬性在列表框中添加項目， Text屬性設(shè)置文本框初始值， Max、 Min屬性分別設(shè)置滾動條位置的最大、最小值。 jt amp。最 后把修改后的文件按原文件名 存盤。 *********************************************************************** （ 2）在考生目錄下有一個工程文件 ，包含了所有控件和部分程序，如 圖所示。程序運行后， 選擇不同單選按鈕并單擊文本框后在文本框內(nèi)顯示結(jié)果 見下表 : 程序的運行情況如圖所示。在 F1中畫兩 個單選按鈕，名稱分別為 Op1和 Op2，標(biāo)題分別為 汽車 和 輪船
公司管理相關(guān)推薦
鄂ICP備17016276號-1