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

2017-2018學年浙江省臺州市黃巖二中高二(下)期中信息技術試卷

發(fā)布:2024/4/20 14:35:0

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

  • 1.市民首次登錄iNingbo免費WIFI熱點,需要用手機獲取驗證碼并注冊,對驗證碼進行驗證并判定是否注冊成功這一過程屬于( ?。?/h2>

    組卷:9引用:2難度:0.9
  • 2.使用Word軟件編輯某文檔時的部分界面如圖所示,下列說法正確的是( ?。?br/>

    組卷:5難度:0.9
  • 3.某Access數據如圖所示,下列說法正確的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/201710/31/ca74e5f5.png" style="vertical-align:middle" />

    組卷:2難度:0.7
  • 4.下列應用中、體現了人工智能技術的有(  )
    ①使用百度的“識圖”功能對上傳的圖片進行相似圖片查找
    ②使用掃描筆內置的朗讀功能對掃描到的中英文進行實時朗讀
    ③使用指紋解鎖功能能打開手機
    ④Word軟件將輸入的“以身做則”自動更正為“以身作則”
    ⑤使用在線二維碼生成器制作二維碼.

    組卷:6難度:0.7
  • 5.使用Ul traEdit軟件觀察字符“蘋果★apple”十六進制內碼,結果如圖所示.下列說法正確的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/201708/89/4a3b0161.png" style="vertical-align:middle" />

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

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

  • 16.【加試題】如圖a所示,在Excel中使用Rank函數可以快速地返回一個數字在數字列表中的排位,而且是同分同名次,非常方便.小明想用VB編寫一個程序來實現類似Rank排名次的功能,程序運行時,隨機產生10個[60,100]之間的隨機數,并顯示在列表框List1中,單擊“排名”按鈕Command1,在列表框List2中輸出數據及其排名,程序運行界面如圖b所示.

    實現上述功能的VB程序如下,代碼加框處有錯,請改正.
    加框①處代碼應改為:
     
    ;加框②處代碼應改為:
     

    Dim a(1 To 10)As Integer'存放原始數據
    Dim b(1 To 10)As Integer'存放名次
    Private Sub Command1_Click( ?。?br />   Dim i As Integer,j As Integer,n As Integer
       For i=1 To 10
           n=0
           For j=1 To 10
              If Then n=n+1'①

           Next j'②
       Next i
       For i=1 To 10
           List2.AddItem a(i) &““& b(i)
       Next i
    End Sub
    Private Sub Form_Load( ?。?br />'隨機產生10個[60,100]之間的隨機數,并顯示在List1中,代碼略
    End Sub.

    組卷:5難度:0.3
  • 17.n個數據的冒泡升序排序需要經過n-1遍的加工,每一遍加工自下而上比較相鄰兩個數據,把較小者交換到上面,在第i遍加工過程中需要進行n-i對數據的比較,在某些情況下,第i遍加工過程中,在上面部分較小數據已經有序情況下,不需要再進行n-i對數據的比較。如對“17,18,19,24,23,20”這6個數據排序中,第1遍排序結束后數據為“17,18,19,20,24,23”,第2遍排序時不再需要對20及其前面4個數據進行比較。程序界面如圖所示
    以下程序實現了冒泡排序的優(yōu)化,請在橫線處填寫合適的代碼。
    Dim n As Integer
    Dim a (1 to 100)As Integer
    Private Sub Form_Load (  )
    ‘n=10,排序前生成的數據存儲在數組a中,并在列表框List1中顯示
    ‘代碼略
    End Sub
    Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,start As Integer,t As Integer
     

    Do While i<n
    start=n
    For j=n To i Step
     

    If a(j)<a(j-1)Then
    t=a(j):
     
    :a(j-1)=t
    start=j
    End If
    Next j
     

    Loop
    For i=1 To n
    List2.AddItem Str(a(i))
    Next i
    End Sub

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