試卷征集
          加入會員
          操作視頻
          當(dāng)前位置: 試卷中心 > 試卷詳情

          2020-2021學(xué)年浙江省紹興市諸暨中學(xué)高二(上)期中信息技術(shù)試卷

          發(fā)布:2024/12/18 15:0:2

          一、選擇題(本大題共12小題,每小題0分,共24分。每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)

          • 1.下列有關(guān)信息與信息處理的說法,正確的是(  )

            組卷:2引用:1難度:0.6
          • 2.下列有關(guān)網(wǎng)頁與瀏覽器的說法,正確的是(  )

            組卷:0引用:3難度:0.6
          • 3.用 Access 軟件設(shè)計某學(xué)生管理系統(tǒng)的數(shù)據(jù)庫,“學(xué)生表”中需儲存如圖所示的數(shù)據(jù),其中學(xué)籍號是每位學(xué)生唯一的 12 位編碼。
            學(xué)號 姓名 性別 出生年份 戶籍所在地 注冊日期 是否住校
             201802001  張立  男 2003  杭州市江干區(qū) 2018/8/31  是
             201901001  李紅  女  2004  杭州市西湖區(qū)  2019/9/1  否
             …  …  …  …
            下列對“學(xué)生表”表結(jié)構(gòu)設(shè)計合理的是(  )

            組卷:0引用:1難度:0.4
          • 4.現(xiàn)要計算出 a、b 之間(包含 a、b)3 的倍數(shù)的個數(shù),下列 VB 表達式正確的是(  )

            組卷:0引用:2難度:0.5
          • 5.某算法的部分流程圖如圖所示,若要循環(huán)體執(zhí)行 3 次,則判斷框處應(yīng)填寫(  )

            組卷:0引用:1難度:0.4

          二、非選擇題(本大題共4小題,其中第13小題4分,第14小題7分,第15小題7分,第15小題8分,共26分)

          • 15.最大整數(shù)問題:設(shè)有 n 個隨機生成的正整數(shù),將它們連接成一排,組成一個最大的多位整數(shù)。其求解 思想是:先把整數(shù)轉(zhuǎn)換成字符串,然后再比較 a+b 和 b+a,如果 a+b>b+a,就把 a 排在 b 的前 面,反之則把 b 排在 a 的前面。
            例如:n=3 時,3 個整數(shù) 13,312,343,連成的最大整數(shù)為 34331213。
            靜靜編寫了一個 VB 程序,功能如下:在列表框 List1 中隨機生成 n 個 1~1000 之間的整數(shù),單擊“求解”按鈕 Command1 后,最大整數(shù)輸出在文本框 Text1 中。當(dāng) n 等于 4 時,程序運行界面如圖所示。

            實現(xiàn)上述功能的 VB 程序如下,請回答下列問題:
            (1)當(dāng) n=3 時,3 個數(shù):517,571,57,由這三個數(shù)組成的最大整數(shù)為
             

            (2)請在橫線處填入合適的代碼。
            Const n=4
            Dim a(1 To n) As Integer
            Dim i As Integer,j As Integer Dim t As Integer,k As Integer Private Sub Form_Load
             

            Randomize
            For i=1 To n
            a(i)=①
             
            '生成 1~1000 之間的隨機整數(shù)
            List1.AddItem“a(“+CStr(i)+“)=“+CStr(a(i))
            Next i End Sub
            Function cmp(a As Integer,b As Integer) As Boolean
            If CStr(a)+CStr(b)<CStr(b)+CStr(a) Then
            cmp=True
            Else
            cmp=False
            End If
            End Function
            Private Sub Command1_Click
             

            For i=1 To n-1
            k=i
            For j=i+1 To n
            If  ②
             
             Then k=j
            Next j
            If  ③
             
             Then t=a(k):a(k)=a(i):a(i)=t
            Next i
            For i=1 To n
            Text1.Text=Text1.Text+CStr(a(i))
            Next i End Sub

            組卷:0引用:1難度:0.3
          • 16.某班級學(xué)生為畢業(yè)晚會的一個男生節(jié)目設(shè)計一個仿“V”字隊形,先篩選出班級里所有男生,然后將 參演的所有男生按照身高,擺出中間低兩邊高(先右后左)的隊形,如圖 1 所示。

            小孟同學(xué)用 VB 編寫模擬“節(jié)目隊形”程序,功能如下:從數(shù)據(jù)庫中導(dǎo)入所有學(xué)生的編號、性別和 身高數(shù)據(jù);單擊“篩選并排序”Command1 按鈕,篩選出所有男生的身高并按照從低到高的順序進行排序,結(jié)果顯示在文本框 Text1 中;單擊“設(shè)計隊形”Command2 按鈕,隊形的編號結(jié)果顯示在文本框 Text2 中。程序運行界面如圖 2 所示。

            舉例說明如下:
            實現(xiàn)上述功能的 VB 程序如下,請回答下列問題:
            (1)請在橫線處填入合適的代碼。
             

             

             

            (2)程序代碼中,加框處有錯,請改正。
            改正:
             

            Const n=8
            Dim h(1 To n) As Integer,num1(1 To n) As Integer,num2(1 To n) As Integer Dim sex(1 To n) As Boolean'男生 sex=True,女生 sex=False
            Dim i As Integer,j As Integer,m As Integer Private Sub Form_Load _____
            'n 名學(xué)生(包括男生和女生)的編號、性別和身高由數(shù)據(jù)庫導(dǎo)出,分別存儲在數(shù)組 num1、h 和 sex 中,代碼略!End Sub
            Private Sub Command1_Click ____ For i=1 To n-1
            For j=n To i+1 Step-1
            If sex(j)=True Then
            If  ①Then
            t=h(j):h(j)=h(j-1):h(j-1)=t
            t=sex(j):sex(j)=sex(j-1):sex(j-1)=t
            t=num1(j):num1(j)=num1(j-1):num1(j-1)=t
            End If
            End If
            Next j Next i
            For i=1 To n
            If sex(i) Then
            Text1.Text=Text1.Text+““+Str(h(i))
            End If
            If Not sex(i) Then m=i:Exit For'改錯
            Next i
            End Sub
            Private Sub Command2_Click _____
            Dim L,R As Integer,mid As Integer
            mid=Int((1+m)/2)L=0:R=0
            ②For i=2 To m Step 2
            R=R+1
            num2(mid+R)=num1(i)
            L=L+1
            ③Next i
            For i=1 To m
            Text2.Text=Text2.Text+“男“+CStr(num2(i))+“號“Next i
            End Sub

            組卷:0引用:1難度:0.3
          APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
          本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正