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

          2017年浙江省普通高校高考信息技術模擬試卷(6)

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

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

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

            組卷:8引用:1難度:0.9
          • 2.使用瀏覽器軟件打開某網頁文件如圖所示.

            下列說法正確的是(  )

            組卷:5引用:4難度:0.9
          • 3.在某款電腦游戲中,游戲者通過特用設備與游戲角色合二為一,游戲者自己的動作就是游戲主角的動作,這種游戲趣味性、交互性強,使玩家體驗到“身臨其境”的感覺.該游戲主要用到的技術是(  )

            組卷:10引用:4難度:0.9
          • 4.某學生的Win10自帶郵件客戶端軟件如圖所示,某次使用過程中能正常接收郵件但無法發送郵件,下列說法正確的是(  )

            組卷:5引用:6難度:0.9
          • 5.下列各數中,數值最大的數是(  )

            組卷:11引用:2難度:0.7

          【加試題】

          • 16.如果兩個質數的差為2,則這兩個質數稱為孿生質數對;編寫VB程序,實現如下功能:單擊“顯示孿生質數對”按鈕Command1,在列表框list1中顯示100以內的所有孿生質數對(運行效果如圖所示)。
            實現上述功能的VB代碼如下,但加框處代碼有錯,請改正。
            Dim a(1To 50)As Integer
            Private Sub Command1_Click (  )
            Dim i As Integer
            k=0:i=3
            Do While i<=100
            If Then‘(1)
            k=k+1
            a(k)=i
            End If
            i=i+2
            Loop
            For i=2To k
            If Then‘(2)
            List1.AddItem Str(a(i-1))+“和“+Str(a(i))
            End If
            Next i
            End Sub
            Function prime(x As Integer) As Boolean
            prime=False
            For i=2To Int(Sqr(x))
            If x Mod i=0Then
            prime=True
            Exit For
            End If
            Next i
            End Function。

            組卷:15引用:4難度:0.1
          • 17.編寫VB程序,實現程序功能:當單擊“顯示”按鈕Command1后,隨機產生n個不相同的、1到100之間的隨機整數,并在列表框List1中顯示;單擊“排序”按鈕Command2后,在列表框List2中顯示排序后的結果.
            程序設計界面如圖所示,請回答下列問題:
            (1)請在橫線處填入合適的代碼.
            Const n=10
            Dim i As Integer
            Dim a(1To 10)As Integer
            Private Sub Command1_Click (  )'產生10個不相同的隨機整數
            For i=1To n
            a(i)=Int(Rnd*100)+1
             

            If a(j)=a(i) Then
            i=i-1
            Exit For
            End If
            Next j
            Next i
            For i=1To 10
            List1.AddItem a(i)
            Next i
            End Sub
            Private Sub Command2_Click (  )'排序
            Dim k as Integer
            i=1

            k=i
            For i=1To k
            List 2.AddItem a(i)
            Next i
            End Sub
            (2)程序加框處的代碼采用的是
             
            (選填:選擇排序/冒泡排序).
            (3)程序運行時,單擊“排序”按鈕Command2后,在列表框List2中顯示排序后的結果.請仔細閱讀上面這段程序,并參照如圖所示的列表框List1顯示的結果,寫出List2中顯示的排序結果
             

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