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

          2020年浙江省寧波十校聯考高考信息技術三模試卷

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

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

          • 1.下列有關信息和信息技術的說法不正確的是(  )

            組卷:3引用:1難度:0.6
          • 2.下列關于網頁和網絡協議的說法,正確的是(  )

            組卷:1引用:1難度:0.6
          • 3.對于數據庫和數據表,下列說法不正確的是(  )

            組卷:0引用:1難度:0.6
          • 4.小趙利用Word軟件編輯了一篇關于2022年杭州亞運會的文檔,文檔中含有圖象“亞運會。jpg”,部分界面如圖所示。下列說法正確的是(  )

            組卷:4引用:1難度:0.5
          • 5.使用 UltraEdit軟件查看字符內碼,部分界面如圖所示。下列說法正確的是(  )

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

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

          • 15.編寫VB程序,實現如下功能:在程序運行時,在文本框1中輸入整數m(1≤m≤10),單擊“生成矩陣”按鈕Command1,生成m2個范圍為[0,9]的隨機整數,隨機存儲在數組a中,并以m行、m列矩陣的形式在列表框List1上顯示。單擊“行排序”按鈕Command2,對矩陣以“行”為單位完成升序排序,并在列表框List2上顯示。運行界面如圖所示,程序代碼如下:
            Dim m As Integer
            Dim a(1 To 100)As Integer
            Private Sub Command1_Click (  )
            ‘輸入整數m,并隨機產生 m2個隨機數
            ‘隨機數以m*m矩陣形式在List1上顯示
            ‘代碼略
            End Sub
            Private Sub Command2_Click (  )
            Dim i As Integer,j As Integer,t As Integer,k As Integer
            Dim s As String
            List2.Clear
            Fori=1 To m*m
            k=i
            For j=i+1 To
            If a(j)<a(k) Then k=j
            Next j
            If k<>i Then t=a(k):a(k)=a(i):a(i)=t

            Ifk 
            List2.AddItem s
            s=““
            End If
            Next i
            End Sub
            (1)代碼“List2.Clear“中的Clear是
             
            。(單選,填字母:A.對象名/B.事件名/C.屬性名/D.方法名)
            (2)程序代碼中,加框處代碼有錯,請改正。
            (3)請在橫線處填入合適代碼。

            組卷:0引用:1難度:0.6
          • 16.在n個(1≤n≤15)一連串的方格內填寫字母A或B,但相鄰兩格內不能都填B,求所有可能的填寫方案數。例如當n=3,可能的方案有AAA、AAB、ABA、BAA、BAB等5種。
            麗華設計如下算法:考慮到方案中只包含了A與B兩個字母,可以用二進制的0和1來代替(0表示A,1表示B)。當全部是0時最小,此數0;當全部是 1 時此數最大。枚舉0到最大數的每一種情況,逐一判斷是否包含B相連(二進制數 1 相連)情況,符合條件的0、1 轉為 A、B后輸出。
            根據以上算法思想,麗華使用 VB程序編寫了一個程序來解決這個問題。在文本框Text1中輸入n的值,點擊“尋找方案”按鈕 Command1后,在列表框 List1中輸出所有的方案,在標簽 Label3 中顯示方案總數。
            (1)如果輸入的n值等于4,那么所有可能的方案有
             
            種。
            (2)實現上述功能的 VB 程序如下,運行結果如圖所示,請在橫線處填入合適的代碼。
            Private Sub Command1_Click(  )
            Dim n As Integer,t As Integer,i As Integer,j As Integer,k As Integer
            Dim flag as Boolean,ans As Integer
            Dim a(1 To 15)As Integer
            n=Val(Text1.Text)
            For i=0 To 2^n-1
            t=i
            For j=1 To n
            a(j)=t Mod 2
            t=t\2
            Next j
            flag=True
            For k=1 To n-1
            IfThen flag=False
            Next k
            If flag Then:ans=ans+1
            Next i
            Label3.Caption=″可能方案共″+Str(ans)+″種″
            End Sub
            Function GetStr(x As Integer,n As Integer) As String
            Dim m As Integer,i As Integer
            GetStr=″″
            m=x
            For i=1 To n
            If m Mod 2=0 Then
            GetStr=″A″+GetStr
            Else
            GetStr=″B″+GetStr
            End If
             ③
            Next i
            End Function

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