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浙江省紹興市諸暨中學高二期中考試技術試卷（附答案）第一部分信息技術（50分）、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選 項中只有一個是符合題目要求的，不選、錯選、多 選均不得分）1 .如右圖所示程序界面中共有

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

3、這部分流程后，輸出A. 64 B. 128 C. 256 D. 5125 .下列表達式的運算結果與其他選項不同的是A. 9 mod 18 8B. Abs(Int(-6.8)C. Asc(Mid("789", 1, 1)D. Val("9") - Sqr(4)6.下列表達式能正確判斷變量a中保存的是數字字符的是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位同學排成一列，從第一位同學開始按1至9循環報數，則能正確表示第n位同學所報數字的VB表達式是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程序運行時，在文本框Textl輸入13時，連續兩次單擊命令按鈕 Command1, 文本框Textl中顯示的內容是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數組元素a(1)到a(6)的值依次為"9 , 1, 7, 3, 8, 4”,執行程序后，變量pmin 的值為A. 1 B. 4 C. 7 D. 910 .一組同學的英語聽力成績分別為 24、27、16、15、24、18,下列采用排序算 法及第二遍的排序結果分別為：原始數據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數組元素a(1)到a 的值依次為“ 44, 24, 33, 67, 77, 58, 12”，經過該程 序

7、段“加工”后，數組元素a(1)到a(7)的值依次為B.12,24,33,67,77,58,D.44,24,33,58,12,67,exit do表示退出循環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當在文本框Text1中輸入不同的值時，程序段執行后，變量n的值有幾種不同 的情況A. 5B. 6 C. 7D. 8.、填空題(13題6分，14題6分，15題7分，16題7分)13 .編寫VB程序，實現如下功能：在文本框 Text1中輸入十 六進制數，單擊“轉換”按鈕 Command，1在列表框List1 中輸出對應的十進制數，運行界面如圖所示，程序代碼如 下。(1)為實現上述功能，請在劃線處填入合適的代碼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)由上述算法可知，運行時在 Text1框中輸入“ d8”，歹表框List1中添加 的條目為。(單選，填字母：A. d8->216/ B.d8->輸入有誤！)14 .海龜turtle 從坐標系原點出發開始爬行，每次只能選擇走“上”、“下”、“左”、“右”其中一個方向 整數步，經過若干次爬行后，要求編程實現計算出原點 到爬行終點的直線距離，功能如下：在文本框中Text1中輸入爬行軌跡，單擊“計算”按鈕后，程序計算出爬行終點距離原點

11、的直線距 離，并顯示到labell 中。(1)實現上述功能的VB程序如下，請在劃線處填入合適代碼。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 ="離原點直線距離為"+ Str(d)End Sub(2)

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

14、空Dim book(1 To 10) As String 存放書名簡稱，窗體加載時隨機生存保存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) + " 個位置" Else

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

16、表所示，則最多有8個客戶是愉快的。快遞編號23456789l0X離時間3255671813"到快遞是否愉快是是是是否是是否是是代碼"Private Sub Commandl_Click()”中的Commandl_Click()是 ( 單選, 填字母：A.對象名/B.事件名/C.事件處理過程名)(2)請在劃線處填入合適代碼。 程序代碼中，加框處代碼有錯，請改正。Const n=10Dim a(1 To n) As IntegerPrivate Sub Command1_Click()Dim i As Integer,a As Integer,ans As Integer* As Integer,讀取每個快遞的距離時間，依次存儲在數組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)+ " 個人是愉快的，將給予好評諸暨中學2019學年高二期中考試信息技術