2013年計(jì)算機(jī)二級(jí)VB上機(jī)模擬試題及答案（6）

　　3. 綜合應(yīng)用(1小題，計(jì)30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生目錄下有一個(gè)工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件。其功能是：?jiǎn)螕簟帮@示”命令按鈕，則把考生目錄下的 in5.txt文件中的所有字符放入Text1(可多行顯示)，如圖所示;如果單擊“統(tǒng)計(jì)”命令按鈕，則統(tǒng)計(jì)文本框中字母A、B、C、D各自出現(xiàn)的次數(shù)，并依次放到窗體變量an，bn，cn，dn之中(放在其他變量中將無(wú)成績(jī));如果單擊“保存”命令按鈕，則把統(tǒng)計(jì)結(jié)果存入考生文件夾下的out5.txt文件中。文件中已給出了“顯示”和“保存”按鈕的Click事件過(guò)程。請(qǐng)編寫(xiě)“統(tǒng)計(jì)”按鈕的Click事件過(guò)程。

　　要求：

　　統(tǒng)計(jì)每個(gè)字母出現(xiàn)的次數(shù)時(shí)，不區(qū)分大小寫(xiě)。

　　注意：

　　不能修改已經(jīng)給出的程序部分;在結(jié)束程序運(yùn)行之前，必須單擊“保存”按鈕，把結(jié)果存入out5.txt文件，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開(kāi)考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需添加事件過(guò)程。

　　單擊“統(tǒng)計(jì)”按鈕(即運(yùn)行Click事件過(guò)程)，在該Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command2_Click()

　　n = Len(Text1)

　　For k = 1 To n

　　ch = Mid(Text1, k, 1)

　　If UCase(ch) = "A" Then

　　an = an + 1

　　End If

　　If UCase(ch) = "B" Then

　　bn = bn + 1

　　End If

　　If UCase(ch) = "C" Then

　　cn = cn + 1

　　End If

　　If UCase(ch) = "D" Then

　　dn = dn + 1

　　End If

　　Next k

　　Text1 = an & " " & bn & " " & cn & " " & dn

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.frx、sjt5.vbw、out5.txt

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt5.vbp文件并運(yùn)行。