2019-2020浙江省紹興市諸暨中學(xué)高二期中考試技術(shù)試卷(附答案)

1、A.窗體的Caption屬性值是Forml（名稱）ImageAp pcir .ince1 3DjjBackCc lor| &HHIHHKNICF1 Caplion<TnmmandJr：LII. 1 d；il iTtieDcfuulcFalseNdUC 1bodA nP：cltre:No ne iDfisTi nn, N*jiic 2019-2020浙江省紹興市諸暨中學(xué)高二期中考試技術(shù)試卷（附答案）第一部分信息技術(shù)（50分）、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選 項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯選、多 選均不得分）1 .如右圖所示程序界面中共有

2、幾類對象A. 3 B. 4 C. 5 D. 62 . 一個(gè)Visual Basic 工程的部分設(shè)計(jì)界面如圖所示，下列選項(xiàng)中錯誤的是ImugC" CummandBinti” 按字母序技分類序|B.當(dāng)前選中的對象類型是圖像ImageC.當(dāng)前對象顯示的圖片可以通過代碼修改D.當(dāng)前選中對象的名稱是Image）事件過程中3 .第一題圖中為使窗體運(yùn)行時(shí)顯示標(biāo)題“四則運(yùn)算”，可在（添加語句：Form1.caption= "四則運(yùn)算”A. Form1.load B. Form1_load C. Form_load D. Form.loadans的值是4 .某算法的部分流程圖如下圖所示。執(zhí)行

3、這部分流程后，輸出A. 64 B. 128 C. 256 D. 5125 .下列表達(dá)式的運(yùn)算結(jié)果與其他選項(xiàng)不同的是A. 9 mod 18 8B. Abs(Int(-6.8)C. Asc(Mid("789", 1, 1)D. Val("9") - Sqr(4)6.下列表達(dá)式能正確判斷變量a中保存的是數(shù)字字符的是A. not(a<= " 0" or a>= " 9" )B.Val(a)>=0 and val (a)<=9C.a>=0 and a<=9D.a>=" 0&

4、quot; and a<=" 9"7 .有50位同學(xué)排成一列，從第一位同學(xué)開始按1至9循環(huán)報(bào)數(shù)，則能正確表示第n位同學(xué)所報(bào)數(shù)字的VB表達(dá)式是A.n B. n mod 9 C. (n-1) mod 9 +1 D. 9-(n-1) mod 98 .某VB程序段如下：Private Sub Command1_Click()Dim x As Integerx = Val(Text1.Text)Textl.Text = Str(x)End Sub程序運(yùn)行時(shí)，在文本框Textl輸入13時(shí)，連續(xù)兩次單擊命令按鈕 Command1, 文本框Textl中顯示的內(nèi)容是A.6B.7C.4D

5、.59.有如下程序段：Key = 5 : pmin = a(1)Fori = 2 To 6If a(i) > key And a(i) < pmin then pmin = a(i)Next i數(shù)組元素a(1)到a(6)的值依次為"9 , 1, 7, 3, 8, 4”,執(zhí)行程序后，變量pmin 的值為A. 1 B. 4 C. 7 D. 910 .一組同學(xué)的英語聽力成績分別為 24、27、16、15、24、18,下列采用排序算 法及第二遍的排序結(jié)果分別為：原始數(shù)據(jù)242716152418用遍272416152418第二遍第三遍272424151618第四遍272424181

6、615第五遍272424181615A.冒泡排序，27 24 16 15 24 18B.冒泡排序，27 24 18 16 15 24C.選擇排序，27 24 16 15 24 18D.選擇排序，27 24 18 16 15 2411 .有如下程序段：i=1Do while i<=2j=1Do while j<=7-iIf a(j) > a(j+1) Thent = a(j)： a(j) = a(j+1)： a(j+1) = tEnd Ifj=j+1Loopi=i+1Loop數(shù)組元素a(1)到a 的值依次為“ 44, 24, 33, 67, 77, 58, 12”，經(jīng)過該程 序

7、段“加工”后，數(shù)組元素a(1)到a(7)的值依次為B.12,24,33,67,77,58,D.44,24,33,58,12,67,exit do表示退出循環(huán)A. 24, 33, 44, 58, 12, 67, 77 44C. 12, 24, 44, 33, 58, 67, 77 7712 .有如下VB程序段：i = 1 : j = 8 : n = 0Key = Val(Text1.Text)Do While i <= jm=( i+j )2if a(m) = Key then exit doIf a(m) > Key Thenj=m-1 : n=n-1Elsei=m+1 : n=

8、n+1End IfLoop當(dāng)在文本框Text1中輸入不同的值時(shí)，程序段執(zhí)行后，變量n的值有幾種不同 的情況A. 5B. 6 C. 7D. 8.、填空題(13題6分，14題6分，15題7分，16題7分)13 .編寫VB程序，實(shí)現(xiàn)如下功能：在文本框 Text1中輸入十 六進(jìn)制數(shù)，單擊“轉(zhuǎn)換”按鈕 Command，1在列表框List1 中輸出對應(yīng)的十進(jìn)制數(shù)，運(yùn)行界面如圖所示，程序代碼如 下。(1)為實(shí)現(xiàn)上述功能，請?jiān)趧澗€處填入合適的代碼Private Sub Command1_Click()Dim s As String, c As String, t As StringDim i As Integ

9、er, b As Integer, ans As LongDim flag As Booleans =.b = Len(s)flag = Trueans = 0For i = 1 To bc = Mid(s, i, 1)If c >= "0" And c <= "9" Thenans = ans * 16 + val(c)Elself c >= "A" And c <= "F" Thenans =.Else,輸入有誤的情況Exit ForEnd IfNext iIf flag Then t

10、= Str(ans) Else t ="輸入有誤!"List1.AddItem s + ”->" + tEnd Sub(2)由上述算法可知，運(yùn)行時(shí)在 Text1框中輸入“ d8”，歹表框List1中添加 的條目為。(單選，填字母：A. d8->216/ B.d8->輸入有誤！)14 .海龜turtle 從坐標(biāo)系原點(diǎn)出發(fā)開始爬行，每次只能選擇走“上”、“下”、“左”、“右”其中一個(gè)方向 整數(shù)步，經(jīng)過若干次爬行后，要求編程實(shí)現(xiàn)計(jì)算出原點(diǎn) 到爬行終點(diǎn)的直線距離，功能如下：在文本框中Text1中輸入爬行軌跡，單擊“計(jì)算”按鈕后，程序計(jì)算出爬行終點(diǎn)距離原點(diǎn)

11、的直線距 離，并顯示到labell 中。(1)實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)趧澗€處填入合適代碼。Private Sub Comd1_Click()Dim s As String, ch As String, x As Integer, y As Integer, d As Single,t As Strings = Text1.Textx = 0: y = 0: ch =""t = Mid(s, 1, 1)For i = 2 To Len(s)Do While Mid(s, i, 1) >= "0" And Mid(s, i, 1) <=

12、"9"ch = .i = i + 1LoopIf t =" 上"Thenx = x + Val(ch)Elself t ="下"Thenx = x - Val(ch)Elself t ="左"Theny = y - Val(ch)Elself t ="右"Theny = y + Val(ch)End Ifch =""t = Mid(s, i, 1)Next id = .Labell.Caption ="離原點(diǎn)直線距離為"+ Str(d)End Sub(2)

13、窗體中“計(jì)算”按鈕的對象名是(3)在文本框中Textl中輸入“上4左5下1右2”，則離原點(diǎn)直線距離 為 .15.某自助無人圖書館實(shí)現(xiàn)機(jī)器人從書架上取書還書， 以下程序模擬還書過程中機(jī)器人查找歸還書籍插入位 置：書架上已有書籍已按書名拼音簡稱升序排列，當(dāng)用 戶還書時(shí)，機(jī)器人掃描書籍條碼獲得書名簡稱(該過程 模擬程序中由用戶輸入文本框textl ),查找書架上現(xiàn) 有書籍，若找到與歸還書籍相同的書，就把歸還的書插 入該位置，若書架上沒有歸還的書籍，就把歸還的書插 入合適的位置使書架上的書名簡稱還是升序排列。(1)按示例圖中列表框中已有圖書，若要再還一本 “bc”，該書蔣放入第一個(gè)位置(2)完成代碼填

14、空Dim book(1 To 10) As String 存放書名簡稱，窗體加載時(shí)隨機(jī)生存保存Private Sub Command1_Click() Dim key As String key = Text1.Text i = 1: j = 10 Do While i <= j m = (i + j) 2If book(m) = key Then exit do If Then j = m - 1 Else i = m + 1 Loop If Then Label3.Caption =" 放入書架第"+ Str(m) + " 個(gè)位置" Else

15、Label3.Caption =" 放入書架第"+ +" 個(gè)位置" End IfEnd Sub16.雙十一剛過快遞量激增，某電商平臺啟用無人機(jī)進(jìn)行快遞配送，快遞配送時(shí)，首先 根據(jù)快遞倉庫與客戶間距離計(jì)算出距離時(shí)間，快遞被配送到客戶手中的實(shí)際時(shí)間除距離時(shí)間外還要加上客戶等待無人機(jī)完成前面先配送的訂單的時(shí)間。等待時(shí)間是指排在該客戶快遞之前的所有客戶的距離時(shí)間之和。如果某客戶的等待時(shí)間超過他的距離時(shí)間的3倍，他就會不愉快，反之是愉快的。己知每個(gè)客戶的距離時(shí)間，請確定如何分配無人機(jī) 的投遞任務(wù)才能使愉快的人數(shù)最多，并輸出最多的人數(shù)。例如：10個(gè)快遞的距離時(shí)間如下

16、表所示，則最多有8個(gè)客戶是愉快的?？爝f編號23456789l0X離時(shí)間3255671813"到快遞是否愉快是是是是否是是否是是代碼"Private Sub Commandl_Click()”中的Commandl_Click()是 ( 單選, 填字母：A.對象名/B.事件名/C.事件處理過程名)(2)請?jiān)趧澗€處填入合適代碼。 程序代碼中，加框處代碼有錯，請改正。Const n=10Dim a(1 To n) As IntegerPrivate Sub Command1_Click()Dim i As Integer,a As Integer,ans As Integer* As Integer,讀取每個(gè)快遞的距離時(shí)間，依次存儲在數(shù)組a中，代碼略Fori =1 To n 1For j = n To i+1 Step 1If Then k = jNext jIf a(i)<>a(k) Then t = a(i):a(i)=a(k):a(k)=tNext is=0:ans=0For i = 1 To nIf svans Then s=s+a(i):ans=ans+1Next iLabel1.Caption="共有"+Str(ans)+ " 個(gè)人是愉快的，將給予好評諸暨中學(xué)2019學(xué)年高二期中考試信息技術(shù)