第 1 頁:基本操作 |
第 2 頁:簡單應用 |
第 3 頁:綜合應用 |
注意:下面出現(xiàn)的“考生文件夾”均為%USER%
在名稱為Form1的窗體上畫一個文本框,名稱為Text1,允許多行顯示;再畫三個命令按鈕,名稱分別為C1、C2、C3,標題分別為“輸入”、“轉換”、“存盤”(如圖所示)。請編寫適當?shù)氖录^程,使得在運行時,單擊“輸入”按鈕,則從考生文件夾中讀入in5.txt文件(文件中只有字母和空格), 放入Text1中;單擊“轉換”按鈕,則把Text1中的所有小寫字母轉換為大寫字母;單擊“存盤”按鈕,則把Text1中的內容存入out5.txt文件中。
注意:
考生必須把轉換后的內容用“存盤”按鈕存入out5.txt文件,否則無成績?忌墓こ涛募晕募鹲jt5.vbp存盤,窗體文件以文件名sjt5.frm存盤。
解題思路:
啟動Visual Basic系統(tǒng),創(chuàng)建一個Form1窗體。
在該窗體上畫一個文本框,通過其屬性窗口將名稱設為Text1,多行顯示(Multiline屬性)設為True,即允許多行顯示。畫三個命令按鈕,通過其屬性窗口將名稱分別設為C1、C2、C3,標題(Caption屬性)分別設為“輸入”、“轉換”、“存盤”。
單擊“輸入”按鈕(即運行Click事件過程),在Click事件過程中加入語句:
Private Sub C1_Click()
Open App.Path & "\in5.txt" For Input As #1
Input #1, a$
Text1.Text = a$
Close #1
End Sub
單擊“輸入”按鈕(即運行Click事件過程),在Click事件過程中加入語句:
Private Sub C2_Click()
a$ = Text1.Text
b$ = ""
n = Len(a$)
For i = 1 To n
b$ = b$ + UCase$(Mid$(a$, i, 1))
Next
Text1.Text = b$
End Sub
單擊“輸入”按鈕(即運行Click事件過程),在Click事件過程中加入語句:
Private Sub C3_Click()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt
請把這些文件復制到c:\wexam\26990001中,然后打開sjt5.vbp文件并運行。
相關推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |