vb等級(jí)考試題目與評(píng)析78-資料下載頁(yè)
2025-08-27 20:42本頁(yè)面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。程序的運(yùn)行情況如圖2所示。在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1，其初始內(nèi)容為空；要求在開始運(yùn)行時(shí)不計(jì)數(shù)，單擊"開始計(jì)數(shù)"按鈕后，則使。本題主要考察Form控件和Command控件的屬性設(shè)置。字號(hào)、字體在font屬性中設(shè)置，將命令按鈕的visible屬性設(shè)為False，即不可見。按要求保存文件即完成本題。1000，從而保證文本框的數(shù)字每秒變化。結(jié)果顯示在名稱為L(zhǎng)abel1的標(biāo)簽中。改為正確的內(nèi)容。程序調(diào)試通過后，必須按照如圖所示輸入N=5，x=12，然后計(jì)算z的值，最后把修改后的文件按原文件名。在考生文件夾下有一個(gè)工程文件。其窗體上有一個(gè)圓，相當(dāng)于?？潭赛c(diǎn)，并完成其他初始化工作；另有長(zhǎng)、短2條直線，名稱分別為L(zhǎng)ine1和Line2，表示兩個(gè)指針。釋符，把程序中的？其中調(diào)用函數(shù)時(shí)，可象使用VB庫(kù)函數(shù)一樣使用。本題主要考查Timer控件的Enabled、時(shí)鐘指針旋轉(zhuǎn)算法以及For語(yǔ)句的使用。
【正文】 是 Label1和 Label2，標(biāo)題分別為 最長(zhǎng)單詞的長(zhǎng)度為 和 以該長(zhǎng)度最后一次出現(xiàn)的 單詞是 ；再畫兩個(gè)名稱分別為 Text1和 Text2，初始值為空的文本框，如 圖所示。程序功能如下： 1）如果單擊 讀數(shù)據(jù) 按鈕，則將考生文件夾下 變量 s中（此過程已給出）； 2）如果單擊 統(tǒng)計(jì) 按鈕，則自動(dòng)統(tǒng)計(jì) （該文件中僅含有字 母和空格，而空格是用來分隔不同單詞的）中最長(zhǎng)單詞的長(zhǎng)度，以及 中最后一個(gè)以該長(zhǎng)度出現(xiàn)的單詞，并將該單詞的長(zhǎng)度顯示在 Text1文本框內(nèi)，將該單詞顯示在 Text2文本框內(nèi)。 讀數(shù)據(jù) 命令按鈕的 Click事件過程已經(jīng)給出，請(qǐng)為 統(tǒng)計(jì) 命令按鈕 編 寫適當(dāng)?shù)氖录^程，實(shí)現(xiàn)上述功能。 注意： 考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前， 必須進(jìn)行統(tǒng)計(jì)，且必須通過單擊窗體右上角的 關(guān)閉 按鈕結(jié)束程序， 否則無(wú)成績(jī)。最后，程序按原文件名存盤。 本題主要考查了文件的操作以及文件中字符串長(zhǎng)度的統(tǒng)計(jì)算法。主要代碼如下： Option Base 1 Dim s As String Private Sub Command1_Click() Open amp。 \ For Input As 1 s = Input(LOF(1), 1) Close 1 End Sub Private Sub Command2_Click() Dim i As Integer Dim max As Integer Dim j As Integer Dim arr arr = Split(s, ) max = 0 For i = 1 To UBound(arr) If Len(arr(i)) = max Then max = Len(arr(i)) j = i End If Next = max = arr(j) End Sub Private Sub Form_Unload(Cancel As Integer) Open amp。 \ For Output As 1 Print 1, , Close 1 End Sub 按要求保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1