在线现看午夜福利片|女人16久久免费视频|鲁丝片一区鲁丝片二区鲁丝|一区二区三区欧美在线

  1. 
    
    <b id="glvx9"></b>
        1. <blockquote id="glvx9"><meter id="glvx9"></meter></blockquote>
            首頁 考試吧論壇 Exam8視線 考試商城 網(wǎng)絡(luò)課程 模擬考試 考友錄 實用文檔 求職招聘 論文下載
            2011中考 | 2011高考 | 2012考研 | 考研培訓(xùn) | 在職研 | 自學(xué)考試 | 成人高考 | 法律碩士 | MBA考試
            MPA考試 | 中科院
            四六級 | 職稱英語 | 商務(wù)英語 | 公共英語 | 托福 | 雅思 | 專四專八 | 口譯筆譯 | 博思 | GRE GMAT
            新概念英語 | 成人英語三級 | 申碩英語 | 攻碩英語 | 職稱日語 | 日語學(xué)習(xí) | 法語 | 德語 | 韓語
            計算機(jī)等級考試 | 軟件水平考試 | 職稱計算機(jī) | 微軟認(rèn)證 | 思科認(rèn)證 | Oracle認(rèn)證 | Linux認(rèn)證
            華為認(rèn)證 | Java認(rèn)證
            公務(wù)員 | 報關(guān)員 | 銀行從業(yè)資格 | 證券從業(yè)資格 | 期貨從業(yè)資格 | 司法考試 | 法律顧問 | 導(dǎo)游資格
            報檢員 | 教師資格 | 社會工作者 | 外銷員 | 國際商務(wù)師 | 跟單員 | 單證員 | 物流師 | 價格鑒證師
            人力資源 | 管理咨詢師考試 | 秘書資格 | 心理咨詢師考試 | 出版專業(yè)資格 | 廣告師職業(yè)水平
            駕駛員 | 網(wǎng)絡(luò)編輯
            衛(wèi)生資格 | 執(zhí)業(yè)醫(yī)師 | 執(zhí)業(yè)藥師 | 執(zhí)業(yè)護(hù)士
            會計從業(yè)資格考試會計證) | 經(jīng)濟(jì)師 | 會計職稱 | 注冊會計師 | 審計師 | 注冊稅務(wù)師
            注冊資產(chǎn)評估師 | 高級會計師 | ACCA | 統(tǒng)計師 | 精算師 | 理財規(guī)劃師 | 國際內(nèi)審師
            一級建造師 | 二級建造師 | 造價工程師 | 造價員 | 咨詢工程師 | 監(jiān)理工程師 | 安全工程師
            質(zhì)量工程師 | 物業(yè)管理師 | 招標(biāo)師 | 結(jié)構(gòu)工程師 | 建筑師 | 房地產(chǎn)估價師 | 土地估價師 | 巖土師
            設(shè)備監(jiān)理師 | 房地產(chǎn)經(jīng)紀(jì)人 | 投資項目管理師 | 土地登記代理人 | 環(huán)境影響評價師 | 環(huán)保工程師
            城市規(guī)劃師 | 公路監(jiān)理師 | 公路造價師 | 安全評價師 | 電氣工程師 | 注冊測繪師 | 注冊計量師
            繽紛校園 | 實用文檔 | 英語學(xué)習(xí) | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲
            您現(xiàn)在的位置: 考試吧(Exam8.com) > 計算機(jī)等級考試 > 計算機(jī)二級 > VB > 復(fù)習(xí)資料 > 正文

            計算機(jī)等級考試二級VB常用算法(10):字符處理

            2、實戰(zhàn)練習(xí)
            1)        補(bǔ)充代碼(2003秋二(8))
                     下面程序的功能是統(tǒng)計文件中英文字母(不區(qū)分大小寫)出現(xiàn)的個數(shù)。
                              Option Base 1
                              Private Sub Command1_Click()
                            Dim alpha(26) As Integer,n As Integer
                            Dim i As Integer,s As String
                            Open "c:\kav2003\readme.txt" For Input As #11
                            Do While Not EOF(11)
                                     s=  (1) 
                         s=UCase(s)
                         If s>="A" And s<="Z" Then
                            n=  (2) 
                            alpha(n)=alpha(n)+1
                         End If
                            Loop
                            For i=1 To 26
                               If alpha(i)<>0 Then
                                  List1.AddItem Chr(i+64)&":"&CStr(alpha(i))
                               End If
                            Next i
                            Close
                              End Sub
             
             
            2)        補(bǔ)充代碼(2000秋二(6))
                     下面程序的功能是:統(tǒng)計當(dāng)前盤當(dāng)前文件夾中的順序文件data.txt中共有多少個單詞,約定連續(xù)出現(xiàn)的字母定義為一個單詞。
                            Option Explicit
             
             
                              Private Sub Form_Click()
                                       Dim Char() As String, St As String, Tem As String
                                       Dim Idx As Integer, Js As Long, Flen As Long
                                       Dim F As Boolean, W As String * 1
                                         (1) 
                                       Flen = LOF(10)
                                       St = Input(Flen, #10)
                                       Js = 1
                                       Do While Js <= Flen+1
                                                W = Mid(St, Js, 1)
                                                If   (2)   Then
                                                         Tem = Tem + W
                                                         F = True
                                                ElseIf F = True Then
                                                         Idx = Idx + 1
                                                         ReDim Preserve Char(Idx)
                                                         Char(Idx) = Tem
                                                         Tem =  (3) 
                                                         F = False
                                                End If
                                                  (4) 
                                       Loop
                                       Print "共有"; Idx; "個單詞"
                                       For Js = 1 To Idx
                                                Print Char(Js)
                                       Next Js
                              End Sub

            希望與更多計算機(jī)等級考試的網(wǎng)友交流,請進(jìn)入計算機(jī)等級考試論壇

            更多信息請訪問:考試吧計算機(jī)等級考試欄目

            上一頁  1 2 3 4  下一頁
            文章搜索
            計算機(jī)等級考試欄目導(dǎo)航
            版權(quán)聲明:如果計算機(jī)等級考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益,請與我們聯(lián)系800@exam8.com,我們將會及時處理。如轉(zhuǎn)載本計算機(jī)等級考試網(wǎng)內(nèi)容,請注明出處。