vb等級(jí)考試題目與評(píng)析84-資料下載頁(yè)
2024-09-04 10:04本頁(yè)面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。"顯示"；如果單擊窗體，則執(zhí)行語(yǔ)句。100，最小值為0。顯示"”，在窗體空白部分雙擊，在彈出的窗口中寫(xiě)入“”，然后以文件名；-32768~32768），Min，Value（該屬性表示滾動(dòng)框在滾動(dòng)條上的。），并將位置調(diào)整后的數(shù)組顯示在文本框Text2中。完善程序使其實(shí)現(xiàn)上述功能?？忌坏眯薷拇绑w文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行前，最后，程序按原文件名存盤(pán)。中僅含有字母和空格）顯示在Text1文本框中；以大寫(xiě)形式顯示在Text2文本框內(nèi)。TextBox控件的SelLength屬性，返回顯示的字符數(shù)，只能在代碼中使用，值為0時(shí)，表示為選中任何字符。MsgBox"請(qǐng)先選擇文本！按要求保存文件即完成本題。讀數(shù)據(jù)"和"統(tǒng)計(jì)"的命令按鈕。畫(huà)二個(gè)名稱(chēng)分別為T(mén)ext1和Text2，初始內(nèi)容為空的文本框，如圖所示。寫(xiě)適當(dāng)?shù)氖录^(guò)程，實(shí)現(xiàn)上述功能。本題主要考查了單詞的統(tǒng)計(jì)算法及循環(huán)語(yǔ)句、文件操作。
【正文】 程已給出）； 2）如果單擊 統(tǒng)計(jì) 按鈕，則自動(dòng)統(tǒng)計(jì)變量 s（ s中僅含有字母和空格，而 空格是用來(lái)分隔不同單詞的）中每個(gè)單詞的長(zhǎng)度，并將所有單詞的平均 長(zhǎng)度（四舍五入取整）顯示在 Text1文本框內(nèi)，將最長(zhǎng)單詞的長(zhǎng)度顯示 在 Text2文本框內(nèi)。 讀數(shù)據(jù) 命令按鈕的 Click事件過(guò)程已經(jīng)給出，請(qǐng)為 統(tǒng)計(jì) 命令按鈕編 寫(xiě)適當(dāng)?shù)氖录^(guò)程，實(shí)現(xiàn)上述功能。 注意： 考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序之前，必 須進(jìn)行統(tǒng)計(jì)，且必須通過(guò)單擊窗體右上角的 關(guān)閉 按鈕結(jié)束程序，否 則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。 本題主要考查了單詞的統(tǒng)計(jì)算法及循環(huán)語(yǔ)句、文件操作。 統(tǒng)計(jì) 按鈕主要代碼如下： Private Sub Command2_Click() Dim j As Integer, sum As Integer, max As Integer Dim k As Integer Dim strArr() As String strArr = Split(s, ) For j = 0 To UBound(strArr) LBound(strArr) If Trim(strArr(j)) Then sum = sum + Len(Trim(strArr(j))) If max Len(Trim(strArr(j))) Then max = Len(Trim(strArr(j))) End If Next j = Round(sum / j) = max End Sub 按要求保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1