vb等級(jí)考試題目與評(píng)析84(參考版)
2024-09-08 10:04本頁面
【正文】 統(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 按要求保存文件即完成本題。最后，程序按原文件名存盤。 讀數(shù)據(jù) 命令按鈕的 Click事件過程已經(jīng)給出，請(qǐng)為 統(tǒng)計(jì) 命令按鈕編 寫適當(dāng)?shù)氖录^程，實(shí)現(xiàn)上述功能。請(qǐng)畫二個(gè)標(biāo)簽，其名稱分別是 Label1和 Label2，標(biāo)題分別為 單詞的平均長(zhǎng)度為 和 最長(zhǎng)單詞的長(zhǎng)度為 ；再 畫二個(gè)名稱分別為 Text1和 Text2，初始內(nèi)容為空的文本框，如圖所示。其語法為： 解題方法： 打開 ，修改后的代碼如下： Private Sub Command2_Click() Dim a(26) As Integer sl = st = = If sl = 0 Then MsgBox 請(qǐng)先選擇文本！ Else F
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1