計算機二級VB上機試題及答案

計算機二級VB上機試題及答案
注意：
不得修改已經存在的內容和控制項屬性，最後將修改後的文件按原文件名存檔。
解題思路：
啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為sjt4.frm。
由於所提供的窗體程序不完整，在Private Sub Command2_Click()事件過程中，有五處地方需要修改。
1) 將語句
'Select Case ?
改為
Select Case s
2) 將語句
'?
改為
f = 10
3) 將語句
'f = 10 + ?
改為
f = 10 + (s - 4) * 1.2
4) 將語句
'?
改為
Case Else
5) 將語句
'f = 10 + ? + (s - 15) * 1.8
改為
f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw
請把這些文件複製到c:\wexam\26990001中，然後打開sjt4.vbp文件並運行。
　　3. 綜合應用(1小題，計30分)
注意：下面出現的“考生文件夾”均為%USER%
在考生文件夾下有一個工程文件sjt5.vbp，窗體上有二個標題分別是“讀數據”和“統計”的命令按鈕。請畫二個標籤，名稱分別為Label1和Label2，標題分別為“出現次數最多的字母是”和“它出現的次數為”;再畫二個名稱分別為Text1和Text2，初始值為空的文本框，如圖所示。
程序功能如下：
1)單擊“讀數據”按鈕，則將考生文件夾下in5.dat文件的內容讀到變量s中(此過程已給出);
2)單擊“統計”按鈕，則自動統計in5.dat文件中所含各字母(不區分大小寫)出現的次數，並將出現次數最多的字母顯示在Text1文本框內，它所出現的次數顯示在Text2文本框內。
“讀數據”按鈕的Click 事件過程已經給出，請為“統計”按鈕編寫適當的事件過程實現上述功能。
注意：
考生不得修改窗體文件中已經存在的控制項和程序，在結束程序運行之前，必須進行統計，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最後，程序按原文件名存檔。
解題思路：
啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。
由於所提供的窗體控制項不完整，需畫二個標籤控制項，通過其屬性窗口將名稱分別設為Label1和Label2，標題(Caption屬性)分別設為“出現次數最多的字母是”和“它出現的次數為”。畫二個文本框控制項，通過其屬性窗口將名稱分別設為Text1和Text2，初始內容(Text屬性)均設為空。
由於所提供的窗體程序不完整，需在“統計”命令按鈕的Click事件過程中加入語句：
Private Sub Command2_Click()
' 考生編寫
Dim a(26) As Integer
n = Len(s)
For i = 1 To n
c = UCase(Mid(s, i, 1))
If c >= "A" And c <= "Z" Then
j = Asc(c) - Asc("A") + 1
a(j) = a(j) + 1
End If
Next i
Max = a(1)
t = Chr(Asc("A"))
For i = 2 To 26
If a(i) > Max Then
Max = a(i)
t = Chr(Asc("A") + i - 1)
End If
Next i
Text1.Text = t
Text2.Text = Max
End Sub
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat
請把這些文件複製到c:\wexam\26990001中，然後打開sjt5.vbp文件並運行。