动漫一区二区亚洲二三区二,色综合AV激情在线观看

計(jì)算機(jī)二級(jí)VB上機(jī)試題及答案

　　注意：

　　不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體程序不完整，在Private Sub Command2_Click()事件過(guò)程中，有五處地方需要修改。

　　1) 將語(yǔ)句

　　'Select Case ?

　　改為

　　Select Case s

　　2) 將語(yǔ)句

　　改為

　　f = 10

　　3) 將語(yǔ)句

　　'f = 10 + ?

　　改為

　　f = 10 + (s - 4) * 1.2

　　4) 將語(yǔ)句

　　改為

　　Case Else

　　5) 將語(yǔ)句

　　'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

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

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

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

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有二個(gè)標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕。請(qǐng)畫二個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1和Label2，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”;再畫二個(gè)名稱分別為Text1和Text2，初始值為空的文本框，如圖所示。

　　程序功能如下：

　　1)單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中(此過(guò)程已給出);

　　2)單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)in5.dat文件中所含各字母(不區(qū)分大小寫)出現(xiàn)的次數(shù)，并將出現(xiàn)次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)。

　　“讀數(shù)據(jù)”按鈕的Click 事件過(guò)程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)”按鈕編寫適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)上述功能。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行統(tǒng)計(jì)，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需畫二個(gè)標(biāo)簽控件，通過(guò)其屬性窗口將名稱分別設(shè)為L(zhǎng)abel1和Label2，標(biāo)題(Caption屬性)分別設(shè)為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”。畫二個(gè)文本框控件，通過(guò)其屬性窗口將名稱分別設(shè)為Text1和Text2，初始內(nèi)容(Text屬性)均設(shè)為空。

　　由于所提供的窗體程序不完整，需在“統(tǒng)計(jì)”命令按鈕的Click事件過(guò)程中加入語(yǔ)句：

　　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