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

          2018-2019學年浙江省寧波十校聯考高三(上)月考信息技術試卷(9月份)

          發布:2024/4/20 14:35:0

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

          • 1.二維碼是近年來非常流行的編碼方式,以下關于二維碼的說法正確的是(  )

            組卷:32引用:7難度:0.5
          • 2.以下關于網絡協議和網頁保存類型的描述,正確的是(  )

            組卷:8引用:4難度:0.6
          • 3.以下關于數據庫的說法正確的是(  )

            組卷:6引用:3難度:0.6
          • 4.指紋鎖(如圖所示)是通過提取指紋圖象的特征進行身份識別,其工作流程可以分為:①指紋圖象采集;②指紋圖象處理;③控制門鎖開啟;④指紋圖象特征的匹配;⑤指紋圖象特征提取,正確的順序應該是(  )

            組卷:28引用:3難度:0.7
          • 5.某算法流程圖如圖所示,執行這部分流程,變量 sum 的值為(  )

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

          二、綜合題(本大題共有5大題,其中第13題4分,第14題5分,第15題8分,第16題3分,第17題6分,共26分.)

          • 16.在 VB 的算術運算中,最大的實數類型 double 有效位數也只有 15 位。為了實現除法運算保留任意位數,小明根據除法原理,編寫了如下程序,功能如下:在文本框 Text1 中輸入被除數(正整數),在文本框 Text2 中輸入除數(正整數),在文本框 Text3 中輸入小數位數,單擊按鈕 Command1,在標簽 Label 中顯示除法運算的商。程序運行界面如圖所示,但加框處代碼有錯,請改正:

            Private Sub Command1_Click(  )
            Dim x,y As Integer
            Dim n As Integer
            Dim s As String
            x=Val(Text1.Text):y=Val(Text2.Text)
            n=Val(Text3.Text)
            s=s+Str(x\y)
            s=s+“。“
            k=x Mod y
            For i=1To n
            x=x+k*10 ①
            s=Str(x\y) ②
            k=x Mod y
            Next i
            Label1.Caption=“商為:“+s
            End Sub

            組卷:4引用:1難度:0.6
          • 17.小明編寫了一個 VB 程序對成績數據進行排序。為保證相同分數的同學相對位置(指原數據中的前后關系)不發生改變,他試著采用一種新的排序算法來解決。為便于描述算法的實現過程,假定有如下數組 a:
            下標 1 2 3 4 5
            5 3 3 2 4
            第一步:統計數組 a 中每個值 a(i)出現的次數,存入 b(a(i)),統計完成后數組 b 的情況如下:
            下標 1 2 3 4 5
            0 1 2 1 1
            第二步:從前向后,依次使數組 b 中的每個值等于其與前一項之和,這樣數組 b(a(i))就代表
            了數組 a 中小于或等于 a(i)的元素個數,完成第二步后數組 b 如下:
            下標 1 2 3 4 5
            0 1 3 4 5
            第三步:從后往前,依次將數組 a 中元素填入數組 c 中,將數組元素 a(i)放在數組 c 的第 b(a(i))項,如元素 a(1)=5,應該放在數組 c 的 b(5)位(即 c(5))。每放一個元素就將 b(a(i))遞減;完成第三步后,數組 c 如下所示,已經完成升序排序,且相對位置不變,即原來 a ( 2)的值 3 仍然在 a(3)的值 3 前面。
            下標 1 2 3 4 5
            2 3 3 4 5
            程序運行界面如圖所示:

            實現上述功能的 VB 程序如下,回答以下問題:
            ( 1)從代碼中可以得知,用于連接數據庫的對象名是:
             

            ( 2)請在橫線處填上相應代碼。
            Dim a(1To 50)As Integer'存放學生的成績
            Dim sname(1To 50)As String'存放學生姓名
            Dim n As Integer
            Private Sub Command1_Click(  )
            Dim conn As New ADODB.Connection
            Dim rs As New ADODB.Recordset
            conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+
            App.Path+“\stu.jye.ai“
            conn.Open
            strSQL=“SELECT*From stucj“
            Set rs.ActiveConnection=conn
            rs.Open strSQL
            n=0
            List1.AddItem“姓 名“&““&“成績“
            Do While Not rs.EOF
            n=n+1
            a(n)=rs.Fields(“cj“)
            sname(n)=rs.Fields(“xm“)
            List1.AddItem sname(n) &““& Str(a(n))
             

            Loop
            rs.Close
            conn.Close
            End Sub
            Private Sub Command2_Click(  )
            Dim i As Integer,k As Integer
            Dim b(0To 100)As Integer
            Dim c(1To 50)As Integer,c1(1To 50)As String'c 和 c1 作為臨時數組
            For i=1To n
            b(a(i))=b(a(i))+1
            Next
            For i=1To 100
            b(i)=②
             

            Next
            For i=n To 1Step-1
            c(b(a(i)))=a(i)
            c1(b(a(i)))=sname(i)
             

            Next
            For i=1To n'把臨時數組 c 和 c1 中的數據放入 a 和 sname 數組
            a(i)=c(i)
            sname(i)=c1(i)
            Next
            List2.AddItem“姓 名“&““&“成績“
            For i=1To n
            List2.AddItem sname(i) &““& Str(a(i))
            Next
            End Sub

            組卷:3引用:1難度:0.4
          APP開發者:深圳市菁優智慧教育股份有限公司| 應用名稱:菁優網 | 應用版本:5.0.7 |隱私協議|第三方SDK|用戶服務條款
          本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯系并提供證據,本網將在三個工作日內改正