資源簡介 浙江省普通高校招生選考科目考試信息技術試題(一)一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中,只有一個符合題目要求)1.下列有關信息的說法,不正確的是( )A.Python程序設計語言也是一種信息B.給微信朋友圏點贊也是一種信息評價方式C.信息在傳輸過程中,必須遵循一定的規則D.對相關數據進行加工處理,使數據之間建立相互聯系,從而形成信息解析 信息是一種具體的含義,語言是信息的載體。答案 A 2.下列有關網頁與瀏覽器的說法,不正確的是 ( )A.網頁的三種基本元素是文字、圖形圖像和超鏈接B.網頁內容是用HTML(超文本標記語言)進行描述的C.瀏覽器中收藏的網頁,在沒有接入網絡的狀態下也能進行瀏覽D.瀏覽器中以“*.txt”格式另存網頁,網頁中的超鏈接不能被保存 解析 本題主要考查網上信息獲取的相關知識。瀏覽器中收藏網頁只是保存了網頁的URL,在未聯網的狀態下不能進行瀏覽。答案 C3.使用Access軟件編輯數據表,部分界面如圖所示。 下列說法正確的是( )A.“ID”字段名不能進行修改B.第1條記錄被刪除后不能撤銷C.在當前視圖下,“票價”字段被刪除后可用撤銷來恢復D.將數據導出到Excel電子表格后,“3D”列的內容將顯示為“是”或“否”解析 本題主要考查Access數據庫相關知識。“ID”字段名能進行修改,字段類型不能進行修改。當前為數據表視圖,數據表視圖下刪除字段不能撤銷。字段類型”是否”導出到Excel電子表格后,將顯示為”True”或”False”。答案 B4.使用UltraEdit軟件查看字符“如果 A<>0 then b=b/A”內碼,部分界面如圖所示。下列說法正確的是 ( )A.存儲上述字符需要20個ByteB.“a-z”字符內碼值都比“A-Z”字符的內碼值小C.字符“D”的內碼用二進制表示為“01100100”D.使用UltraEdit軟件查看字符,字符個數超過15個的時候會自動換行 解析 本題主要考查內碼與進制轉化相關知識。“a-z”字符內碼值都比“A-Z”字符的內碼值大。字符“D”的內碼用二進制表示為“01000100”。 使用UltraEdit軟件查看字符,占用字節數超過16個的時候會自動換行。答案 A5.下列關于多媒體技術的說法,正確的是( )A.多媒體技術中的媒體是指承載信息的載體.如文字、聲音、圖形和圖像等B.多媒體數據壓縮標準中,MPEG是靜態圖像壓縮標準C.某軟件能根據文本內容自動朗讀,該功能主要應用了多媒體技術中的語音識別技術D.智能手機的指紋識別功能,主要應用了多媒體技術中的OCR技術解析 本題考點多媒體技術等知識點。多媒體技術中的媒體是指數字、文字、聲音、困形和耳是靜態圖像壓縮標準,MPEG是動態圖像壓縮標準,語音識別技術屬于人工智能技術。答案 A6.使用GoldWave軟件編輯某音頻文件,選擇其中一段音頻后的部分界面如圖所示。下列說法錯誤的是( )A.從當前位置開始播放5秒,只能聽到一個聲道的聲音B.選中部分在中間的位置,不能作淡入處理C.復制其他文件的聲音,執行“粘貼”命令,會替換當前部分聲音D.在當前狀態下,執行刪除或剪裁命令,兩次分別保存后的文件容量是相同的解析 該聲音的左聲道沒有聲波圖形,因而沒有聲音。淡入只是把音量從小到大處理,不管聲音在哪個位置。粘貼命令會替換選中部分聲音。答案 B7.某算法流程圖如下圖所示。執行該算法,下列說法正確的是( )A.變量i的值是21 B.語句i=i+1執行了5次C.變量s的值為10 D.語句i<=20被執行了5次解析 當i=5時,退出循環,因此共循環5次,i的值為5,s的值為1+2+3+4+5。答案 B8.產生一個在[10,99]中隨機奇數的VB表達式是( )A.11 + Int(Rnd * 99) B.11 + Int(Rnd * 45)*2C.11 + Int(Rnd * 89) D.10 + Int( Rnd * 90)解析 本題主要考查VB的函數。在[10,99]中隨機奇數范圍應為[11,99],可以轉換為[0,88]+11,且[0,88]只能為偶數。而[0,88]可以表達為[0,44]*2,即[0,45) *2。綜合可得選項B正確。答案 B9.有如下VB程序段:a(1) = 1For i = 2 To 6a(i)=a(i-1)+Int(Rnd*5+1)If a(i) Mod 2 = 1 Thena(i) = a(i) 2 + 1Elsea(i) = a(i) / 2End IfNext i執行程序后,a數組各元素可能是( )A.1 3 4 6 7 9 B.1 2 0 3 5 6C.1 2 3 4 5 4 D.1 3 4 5 1 1解析 Int(Rnd*5+1)的范圍在[1,5]之間,a(2)范圍在[2,6]之間,進行運算后,a(2)范圍在[1,3];當a(2)=2時,a(3)范圍在[3,7]之間,進行運算后,a(3)范圍在[2,4],排除選項B,再加[1,5],屬于[3,9],進行運算后,a(4)范圍在[2,5],再加[1,5],屬于[3,10],進行運算后,a(5)范圍在[2,5]。答案 C10.有如下 VB 程序段:For i = 4 To 3 Step -1If a(i) < a(i - 1) Then tmp = a(i) For j = i - 1 To 1 Step -1If tmp > a(j) Then Exit Fora(j + 1) = a(j) Next j a(j + 1) = tmpEnd IfNext i數組元素 a(1)到 a(6)的值依次為“19,8,96,92,85,88”,經過該程序段“加工”后,數組元素 a(1)到 a(6)的值依次為( )A.8,19,92,96,85,88 B.8,19,85,88,92,96C.19,8,92,96,85,88 D.19,8,85,92,96,88解析 該題分i=4和i=3兩種情況,i=4時,進行插入排序,將92移動96前。I=3時,不滿足a(i) < a(i - 1)。答案 C11.某同學編寫了一個VB程序,功能為在文本框Text1中輸入英文字符串,單擊“轉換”按鈕Command1,文本框Text1中的大寫英文字母轉換為小寫,結果顯示在文本框Text2中。部分程序段如下:s1 = Text1.Texts2=” ”For i=1 To Len(s1) ch=Mid(s1, i, 1) If ch>=”A” And ch<=”Z” Then′提示:“A”的ASCII碼值為65,“a”的ASCII碼值為97 End If s2=s2 & chNext iText2.Text = s2要使程序實現上述功能,則方框中的代碼是( )A.ch = Chr(Asc(ch) + 32)B.ch = Asc(Chr(ch) + 32)C.ch = Chr(Asc(ch) - 32)D.ch = Str(Val(ch) - 32)解析 根據程序注釋語句中的提示,可知同一個字母小寫ASCII碼值比大寫ASCII碼值大32,排除C、D選項。函數Chr(X)的功能為查看十進制ASCII碼值對應的字符,函數Asc(X)的功能為查看字符的十進制ASCII碼值。因此A正確。答案 A12.已知直角三角形的斜邊長度,利用對分査找算法計算其他兩條整數邊長的VB程序段如下:flag = True : p = 0Key = 5For i = 1 To Key - 1L = i____①____Do While____②____M = (L + R) 2p = p + 1If i * i + M * M < Key * Key Then L = M + 1ElseIf i * i + M * M > Key * Key Then R = M - 1Else Text2.Text = Str(i) + ” ” + Str(M) + ” ” + Str(key) flag = False i = KeyEnd IfLoopNext iIf flag Then Text2.Text = ”沒有符合條件的整數勾股數對!”上述程序段 2 個劃線處的代碼分別為( )A.①R=Key-1 ②L<=R And flagB.①R=Key ②L<=R And flagC.①R=Key – 1 ②L<=R Or flagD.①R=Key – 1 ②L<=R And flag=False解析 L 和R表示兩條直角邊長,R只能比較斜邊短。Flag表示是否找到的標志。 答案 A二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)13.學校對各班級的文藝匯演成績做了評分,并利用Excel 軟件進行數據處理,部分界面如圖a所示。圖a(1)用公式計算出各班級得分,可在I3 單元格輸入公式,再利用自動填充得到其他班級得分,則I6 單元格上的公式為__________。(2)將各年級最后得分最高的班級設為該年級的一等獎,下列方法可得到高二年級一等獎班級的是__________(多選,填字母)。A.選擇區域B8:I12,再按“列I”為關鍵詞進行降序排序后,該區域的第1 條記錄為高二年級一等獎班級B.先篩選出“班級”開頭是“高二”的記錄,再篩選出“最后得分”為最大1 項的記錄,篩選結果即為高二年級一等獎班級C.先篩選出“最后得分”為最大1 項的記錄,再篩選出“班級”包含“高二”的記錄,篩選結果為高二年級一等獎班級D.先按“最后得分”升序排序,再篩選出“班級”包含“高二”的紀錄,最后一條記錄為高二年級一等獎班級(注:全部選對的得2 分,選對但不全的得1 分,不選或有選錯的得0 分)圖b(3)根據數據表中的數據制作的圖表如圖b所示,創建該圖表的數據區域為__________。答案 (1)=(SUM(C6:H6)-MAX(C6:h6)-MIN(C6:H6) (2)AD (3)B2,B8:B12,I2:I8:I1214.小林創作多媒體作品,請回答下列問題。(1)使用Photoshop軟件制作一張背景圖片,如下圖所示。若要使圖a“湖.psd”中“gz”圖層中鴿子出現在夏日.psd中,下列操作可行的是________。圖a(多選,填字母:A.使用“復制圖層”命令將“gz”圖層復制到夏日.psd中 /B.將 “gz”圖層直接通過鼠標拖到夏日.psd中 /C.使用魔棒工具(容差為5)選中“gz”圖層中的圖像并進行拷貝后復制粘貼到夏日.psd中 /D.選中 “gz”圖層后,執行“全部”選擇操作,進行拷貝,在夏日.psd中粘貼。)(2)使用Flash軟件制作動畫,時間軸如圖b所示。圖b小林在“鴿子”圖層第50幀設置了動作腳本“stop()”若要使“聲效”圖層中的聲音在動畫播放到第50幀后,仍能持續播放完畢,可設置該聲音的同步為________(選填:事件/數據流)。(3)在“鴿子”圖層制作鴿子文字漸變成一只鴿子的補間動畫,該動畫屬于________(選填字母:A.逐幀/ B.動畫補間/ C.形狀補間)動畫。(4)如圖b所示,當前在“按鈕”圖層第50幀應用了“靜音”按鈕,若要使該按鈕始終在當前場景呈現,可進行的操作是__________________________________。(5)若單擊“靜音”按鈕,停止所有聲音的播放,則在該按鈕上需添加的動作腳本是__________________________________________________________________。答案 (1)BD (2)事件 (3)C (4)將按鈕圖層第50幀拖曳到第1幀、清除按鈕圖層第1幀的空白關鍵幀(或等效操作) (5)on (release) {stopAllSounds();}15.如果兩個質數的差為2,則這兩個質數稱為孿生質數對;編寫VB程序,實現如下功能:單擊“顯示孿生質數對”按鈕Command1,在列表框List1中顯示100以內的所有孿生質數對(運行效果如圖所示)。實現上述功能的VB代碼如下。Dim a(1 To 50) As IntegerPrivate Sub Command1_Click()Dim i As Integerk = 0:i = 3Do While i <= 100 If Not prime(i) Then k = k + 1 End If i = i + 2LoopFor i = 2 To k If ____①____ Then List1.AddItem Str(a(i-1)) +”和” + Str(a(i)) End IfNext iEnd SubFunction prime(x As Integer) As Booleanprime = FalseFor i = 2 To Int(Sqr(x)) If x Mod i = 0 Thenprime = TrueExit For End IfNext iEnd Function(1)語句“List1.AddItem Str(a(i-1))+”和”+Str(a(i))”中的AddItem是________(單選,填字母:A.對象名/B.屬性名/C.事件名/D.方法名)。(2)程序代碼中,加框處有錯,請改正。(3)程序代碼中,將①處語句補充完整。(4)在自定義函數中,函數返回值prime=Flase表示的含義是______。答案 (1)D (2)a(k)=i (3)a(i) = a(i -1)+2(4)數x是質數16.給出只包含加、減、乘、除中一個運算符的算術等式,求該算術等式中的最小進制。如等式6*9=42,該等式中的數字均屬于13進制。推算的算法是:1)找出等式中單個數字的最大值;2)從最大值加1的數制開始,按該數制的運算規則,把等式中所有數字轉換成十進制數;3)如果等式兩邊的結論是成立的,那么該數制就是符合上述等式的最小數制,否則從下一個數制重新計算,直到十六進制為止。小明為此編寫了一個VB程序,程序運行時,在文本框Text1中輸入一個等式,單擊“計算”按鈕Command1,在文本框Text2中顯示該等式中數字所屬的數制。程序運行界面如下圖所示。(1)根據上述算法,則等式“5+7=13”成立,則該等式中的數屬于________進制數。(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。Private Sub Command1_Click()Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As StringDim ch As String, t As String, max As Integer, jz As Integer, i As Integers1=Text1.Textt1=0: max=0For i=1 To Len(s1)ch=Mid(s1, i, 1)If ch=”+” Or ch=”-” Or ch=”*” Or ch=”\” Then ysf=ch: t1=t: t=” ”ElseIf ch=”=” Then t2=t: t=” ”ElseIf ch >= ”A” And ch <= ”F” Then t=t+ch temp=____①____ If max < temp Then max=tempElse t=t+ch If max < Val(ch) Then max=Val(ch)End IfNext it3=t: jz=0_____②____Do While i <= 16If ysf=”+” Then If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoElseIf ysf=”-” Then If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoElseIf ysf=”*” Then If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoElse If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoEnd Ifi=i+1LoopIf jz <> 0 ThenText2.Text=”該數屬于” +Str(jz)+”進制”ElseText2.Text=”沒有找到合適的進制”End IfEnd SubFunction XtoD(x As Integer, s As String) As IntegerDim j As Integerj=0For i=Len(s) To 1 Step -1XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j ____③____Next iEnd Function答案 (1)9或九 (2)①Asc(ch) - Asc(”A”)+10 ②i=max+1 ③j=j+1浙江省普通高校招生選考科目考試信息技術試題(一)一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中,只有一個符合題目要求)1.下列有關信息的說法,不正確的是( )A.Python程序設計語言也是一種信息B.給微信朋友圏點贊也是一種信息評價方式C.信息在傳輸過程中,必須遵循一定的規則D.對相關數據進行加工處理,使數據之間建立相互聯系,從而形成信息2.下列有關網頁與瀏覽器的說法,不正確的是 ( )A.網頁的三種基本元素是文字、圖形圖像和超鏈接B.網頁內容是用HTML(超文本標記語言)進行描述的C.瀏覽器中收藏的網頁,在沒有接入網絡的狀態下也能進行瀏覽D.瀏覽器中以“*.txt”格式另存網頁,網頁中的超鏈接不能被保存 3.使用Access軟件編輯數據表,部分界面如圖所示。 下列說法正確的是( )A.“ID”字段名不能進行修改B.第1條記錄被刪除后不能撤銷C.在當前視圖下,“票價”字段被刪除后可用撤銷來恢復D.將數據導出到Excel電子表格后,“3D”列的內容將顯示為“是”或“否”4.使用UltraEdit軟件查看字符“如果 A<>0 then b=b/A”內碼,部分界面如圖所示。下列說法正確的是 ( )A.存儲上述字符需要20個ByteB.“a-z”字符內碼值都比“A-Z”字符的內碼值小C.字符“D”的內碼用二進制表示為“01100100”D.使用UltraEdit軟件查看字符,字符個數超過15個的時候會自動換行 5.下列關于多媒體技術的說法,正確的是( )A.多媒體技術中的媒體是指承載信息的載體.如文字、聲音、圖形和圖像等B.多媒體數據壓縮標準中,MPEG是靜態圖像壓縮標準C.某軟件能根據文本內容自動朗讀,該功能主要應用了多媒體技術中的語音識別技術D.智能手機的指紋識別功能,主要應用了多媒體技術中的OCR技術6.使用GoldWave軟件編輯某音頻文件,選擇其中一段音頻后的部分界面如圖所示。下列說法錯誤的是( )A.從當前位置開始播放5秒,只能聽到一個聲道的聲音B.選中部分在中間的位置,不能作淡入處理C.復制其他文件的聲音,執行“粘貼”命令,會替換當前部分聲音D.在當前狀態下,執行刪除或剪裁命令,兩次分別保存后的文件容量是相同的7.某算法流程圖如下圖所示。執行該算法,下列說法正確的是( )A.變量i的值是21 B.語句i=i+1執行了5次C.變量s的值為10 D.語句i<=20被執行了5次8.產生一個在[10,99]中隨機奇數的VB表達式是( )A.11 + Int(Rnd * 99) B.11 + Int(Rnd * 45)*2C.11 + Int(Rnd * 89) D.10 + Int( Rnd * 90)9.有如下VB程序段:a(1) = 1For i = 2 To 6a(i)=a(i-1)+Int(Rnd*5+1)If a(i) Mod 2 = 1 Thena(i) = a(i) 2 + 1Elsea(i) = a(i) / 2End IfNext i執行程序后,a數組各元素可能是( )A.1 3 4 6 7 9 B.1 2 0 3 5 6C.1 2 3 4 5 4 D.1 3 4 5 1 110.有如下 VB 程序段:For i = 4 To 3 Step -1If a(i) < a(i - 1) Then tmp = a(i) For j = i - 1 To 1 Step -1If tmp > a(j) Then Exit Fora(j + 1) = a(j) Next j a(j + 1) = tmpEnd IfNext i數組元素 a(1)到 a(6)的值依次為“19,8,96,92,85,88”,經過該程序段“加工”后,數組元素 a(1)到 a(6)的值依次為( )A.8,19,92,96,85,88 B.8,19,85,88,92,96C.19,8,92,96,85,88 D.19,8,85,92,96,8811.某同學編寫了一個VB程序,功能為在文本框Text1中輸入英文字符串,單擊“轉換”按鈕Command1,文本框Text1中的大寫英文字母轉換為小寫,結果顯示在文本框Text2中。部分程序段如下:s1 = Text1.Texts2=” ”For i=1 To Len(s1) ch=Mid(s1, i, 1) If ch>=”A” And ch<=”Z” Then′提示:“A”的ASCII碼值為65,“a”的ASCII碼值為97 End If s2=s2 & chNext iText2.Text = s2要使程序實現上述功能,則方框中的代碼是( )A.ch = Chr(Asc(ch) + 32)B.ch = Asc(Chr(ch) + 32)C.ch = Chr(Asc(ch) - 32)D.ch = Str(Val(ch) - 32)12.已知直角三角形的斜邊長度,利用對分査找算法計算其他兩條整數邊長的VB程序段如下:flag = True : p = 0Key = 5For i = 1 To Key - 1L = i____①____Do While____②____M = (L + R) 2p = p + 1If i * i + M * M < Key * Key Then L = M + 1ElseIf i * i + M * M > Key * Key Then R = M - 1Else Text2.Text = Str(i) + ” ” + Str(M) + ” ” + Str(key) flag = False i = KeyEnd IfLoopNext iIf flag Then Text2.Text = ”沒有符合條件的整數勾股數對!”上述程序段 2 個劃線處的代碼分別為( )A.①R=Key-1 ②L<=R And flagB.①R=Key ②L<=R And flagC.①R=Key – 1 ②L<=R Or flagD.①R=Key – 1 ②L<=R And flag=False二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)13.學校對各班級的文藝匯演成績做了評分,并利用Excel 軟件進行數據處理,部分界面如圖a所示。圖a(1)用公式計算出各班級得分,可在I3 單元格輸入公式,再利用自動填充得到其他班級得分,則I6 單元格上的公式為__________。(2)將各年級最后得分最高的班級設為該年級的一等獎,下列方法可得到高二年級一等獎班級的是__________(多選,填字母)。A.選擇區域B8:I12,再按“列I”為關鍵詞進行降序排序后,該區域的第1 條記錄為高二年級一等獎班級B.先篩選出“班級”開頭是“高二”的記錄,再篩選出“最后得分”為最大1 項的記錄,篩選結果即為高二年級一等獎班級C.先篩選出“最后得分”為最大1 項的記錄,再篩選出“班級”包含“高二”的記錄,篩選結果為高二年級一等獎班級D.先按“最后得分”升序排序,再篩選出“班級”包含“高二”的紀錄,最后一條記錄為高二年級一等獎班級(注:全部選對的得2 分,選對但不全的得1 分,不選或有選錯的得0 分)圖b(3)根據數據表中的數據制作的圖表如圖b所示,創建該圖表的數據區域為__________。14.小林創作多媒體作品,請回答下列問題。(1)使用Photoshop軟件制作一張背景圖片,如下圖所示。若要使圖a“湖.psd”中“gz”圖層中鴿子出現在夏日.psd中,下列操作可行的是________。圖a(多選,填字母:A.使用“復制圖層”命令將“gz”圖層復制到夏日.psd中 /B.將 “gz”圖層直接通過鼠標拖到夏日.psd中 /C.使用魔棒工具(容差為5)選中“gz”圖層中的圖像并進行拷貝后復制粘貼到夏日.psd中 /D.選中 “gz”圖層后,執行“全部”選擇操作,進行拷貝,在夏日.psd中粘貼。)(2)使用Flash軟件制作動畫,時間軸如圖b所示。圖b小林在“鴿子”圖層第50幀設置了動作腳本“stop()”若要使“聲效”圖層中的聲音在動畫播放到第50幀后,仍能持續播放完畢,可設置該聲音的同步為________(選填:事件/數據流)。(3)在“鴿子”圖層制作鴿子文字漸變成一只鴿子的補間動畫,該動畫屬于________(選填字母:A.逐幀/ B.動畫補間/ C.形狀補間)動畫。(4)如圖b所示,當前在“按鈕”圖層第50幀應用了“靜音”按鈕,若要使該按鈕始終在當前場景呈現,可進行的操作是__________________________________。(5)若單擊“靜音”按鈕,停止所有聲音的播放,則在該按鈕上需添加的動作腳本是__________________________________________________________________。15.如果兩個質數的差為2,則這兩個質數稱為孿生質數對;編寫VB程序,實現如下功能:單擊“顯示孿生質數對”按鈕Command1,在列表框List1中顯示100以內的所有孿生質數對(運行效果如圖所示)。實現上述功能的VB代碼如下。Dim a(1 To 50) As IntegerPrivate Sub Command1_Click()Dim i As Integerk = 0:i = 3Do While i <= 100 If Not prime(i) Then k = k + 1 End If i = i + 2LoopFor i = 2 To k If ____①____ Then List1.AddItem Str(a(i-1)) +”和” + Str(a(i)) End IfNext iEnd SubFunction prime(x As Integer) As Booleanprime = FalseFor i = 2 To Int(Sqr(x)) If x Mod i = 0 Thenprime = TrueExit For End IfNext iEnd Function(1)語句“List1.AddItem Str(a(i-1))+”和”+Str(a(i))”中的AddItem是________(單選,填字母:A.對象名/B.屬性名/C.事件名/D.方法名)。(2)程序代碼中,加框處有錯,請改正。(3)程序代碼中,將①處語句補充完整。(4)在自定義函數中,函數返回值prime=Flase表示的含義是______。16.給出只包含加、減、乘、除中一個運算符的算術等式,求該算術等式中的最小進制。如等式6*9=42,該等式中的數字均屬于13進制。推算的算法是:1)找出等式中單個數字的最大值;2)從最大值加1的數制開始,按該數制的運算規則,把等式中所有數字轉換成十進制數;3)如果等式兩邊的結論是成立的,那么該數制就是符合上述等式的最小數制,否則從下一個數制重新計算,直到十六進制為止。小明為此編寫了一個VB程序,程序運行時,在文本框Text1中輸入一個等式,單擊“計算”按鈕Command1,在文本框Text2中顯示該等式中數字所屬的數制。程序運行界面如下圖所示。(1)根據上述算法,則等式“5+7=13”成立,則該等式中的數屬于________進制數。(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。Private Sub Command1_Click()Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As StringDim ch As String, t As String, max As Integer, jz As Integer, i As Integers1=Text1.Textt1=0: max=0For i=1 To Len(s1)ch=Mid(s1, i, 1)If ch=”+” Or ch=”-” Or ch=”*” Or ch=”\” Then ysf=ch: t1=t: t=” ”ElseIf ch=”=” Then t2=t: t=” ”ElseIf ch >= ”A” And ch <= ”F” Then t=t+ch temp=____①____ If max < temp Then max=tempElse t=t+ch If max < Val(ch) Then max=Val(ch)End IfNext it3=t: jz=0_____②____Do While i <= 16If ysf=”+” Then If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoElseIf ysf=”-” Then If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoElseIf ysf=”*” Then If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoElse If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit DoEnd Ifi=i+1LoopIf jz <> 0 ThenText2.Text=”該數屬于” +Str(jz)+”進制”ElseText2.Text=”沒有找到合適的進制”End IfEnd SubFunction XtoD(x As Integer, s As String) As IntegerDim j As Integerj=0For i=Len(s) To 1 Step -1XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j ____③____Next iEnd Function 展開更多...... 收起↑ 資源列表 浙江省普通高校招生選考科目考試信息技術試題(一).doc 浙江省普通高校招生選考科目考試信息技術試題(一)原卷版.doc 縮略圖、資源來源于二一教育資源庫