【正文】
= p Then iMax = iMin二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)13. 小王收集了2016年第四季度部分移動(dòng)應(yīng)用APP的相關(guān)數(shù)據(jù),并使用Excel軟件進(jìn)行數(shù)據(jù)處理,如第13題圖a所示。(4)根據(jù)第13題圖a中數(shù)據(jù),制作了一張反映所有APP的10月份活躍人數(shù)的圖表。小李編寫了一個(gè)計(jì)算奇校驗(yàn)位值得VB程序,功能如下:在文本框Text1中輸入1~255十進(jìn)制待校驗(yàn)數(shù),單擊“計(jì)算”按鈕Command1后,在文本框Text2中顯示該數(shù)對(duì)應(yīng)的二進(jìn)制值,并在標(biāo)簽Label3中顯示該數(shù)的校驗(yàn)位值。Private Sub Command1_Click() Dim a As Integer, s As String Dim n As Integer, t As Integer, v As Integer n = Val() t = 0 s = Do While n 0 a = n Mod 2 n = n \ 2 t = ① s = Str(a) + s Loop v = t Mod 2 = s = 校驗(yàn)位值: + ② End Sub(3)運(yùn)行該程序,在文本框Text1中輸入22,單擊“計(jì)算”按鈕,則顯示的校驗(yàn)位值是 。(注:全部選對(duì)的得2分,選對(duì)但不全的得1分,不選或有選錯(cuò)的得0分)第15題圖b(2)如第12題圖b所示,“錄”圖層第25幀到第36幀實(shí)現(xiàn)了由象棋子“帥”變化為漢字“錄”的動(dòng)畫效果,該動(dòng)畫類型為 (填字:動(dòng)畫補(bǔ)間 / 形狀補(bǔ)間 / 逐幀動(dòng)畫)。16.【加試題】小王編寫了一個(gè)實(shí)現(xiàn)文字查找替換功能的VB程序,運(yùn)行界面如圖所示。算法的基本思想:先統(tǒng)計(jì)每個(gè)分?jǐn)?shù)的個(gè)數(shù),然后按照分?jǐn)?shù)從高到低依次計(jì)算每個(gè)有效分?jǐn)?shù)(該分?jǐn)?shù)的個(gè)數(shù)不為0)對(duì)應(yīng)的名次,分?jǐn)?shù)相同時(shí)名次并列。分?jǐn)?shù)100999897969594…0個(gè)數(shù)(A數(shù)組)2000103…0名次(B數(shù)組)134…程序運(yùn)行時(shí),學(xué)生數(shù)據(jù)顯示在列表框List1中,單擊“計(jì)算”按鈕Command1,計(jì)算結(jié)果顯示在列表框List2中,程序運(yùn)行界面如圖所示。Dim sName(1 To 50) As String 39。本過程從數(shù)據(jù)庫中讀取學(xué)生數(shù)據(jù),存儲(chǔ)在相應(yīng)的變量中,并在List1中顯示 39。存放每個(gè)分?jǐn)?shù)的名次 Dim mc As Integer, score As Integer, i As Integer For i = 0 To 100 A(i) = 0Next iFor i = 1 To recCount 39。}16.(1)pos+str(i)(2)result=result+Mid(,i,1)17.(1)7(2)①ads=sx ②A(sScore(i))=A(sScore(i))+1 ③mc=A(i)+B(i) 或 mc=mc+A(i)