vb等級(jí)考試題目與評(píng)析65-閱讀頁(yè)
2024-09-24 16:51本頁(yè)面
【正文】 稱(chēng)分別是 Command Command2和 Command3，標(biāo)題分別是 顯示 、 統(tǒng)計(jì) 和 保存 。單擊 統(tǒng)計(jì) 按鈕，則統(tǒng)計(jì) Text1中字母 R、 T、 D（不區(qū)分大小寫(xiě)）出現(xiàn)的次數(shù)，統(tǒng)計(jì)結(jié)果分別保存在窗體變量 intR、 intT、intD中，同時(shí)顯示在文本框 Text2中（顯示格式不限）。 要求： 1）去掉 顯示 按鈕事件過(guò)程中的注釋?zhuān)殉绦蛑械?？改為能?shí)現(xiàn)上述要求的正確內(nèi)容。 3）不要改動(dòng)各控件的屬性設(shè)置和程序的其他部分。 本題主要考查了文件中相關(guān)字符的統(tǒng)計(jì)算法，其主要代碼如下： Private str1 As String Private intR, intT, intD As Integer Private tmpStr As String Private Sub Command1_Click() Open For Input As 1 Line Input 1, str1 Close 1 = str1 End Sub Private Sub Command2_Click() Dim i As Integer For i = 1 To Len(str1) Select Case UCase(Mid(str1, i, 1)) Case R: intR = intR + 1 Case T: intT = intT + 1 Case D: intD = intD + 1 End Select Next i = R: amp。 vbCrLf amp。 intT amp。 D:
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1