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

2015-2016學(xué)年浙江省溫州市十校聯(lián)合體高二(下)期中信息技術(shù)試卷

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

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

  • 1.6月1日兒童節(jié),一鳴奶吧準備搞促銷優(yōu)惠活動,當天到店可通過手機掃碼進入商家店鋪領(lǐng)取更多的優(yōu)惠券,此掃碼過程屬于( ?。?/h2>

    組卷:4引用:2難度:0.9
  • 2.小明要把信息作業(yè)上傳到教師機上.教師機的服務(wù)器地址為“FTP://10.133.22.110/”,地址中的“FTP”表示( ?。?/h2>

    組卷:7引用:4難度:0.9
  • 3.小麗用OCR軟件識別文件,發(fā)現(xiàn)OCR識別的準確率很低,準備向老師求助,應(yīng)該把下列哪組文件發(fā)送給老師( ?。?/h2>

    組卷:6引用:1難度:0.9
  • 4.某Access數(shù)據(jù)表打開后如圖所示,下列描述中正確的是( ?。?br />菁優(yōu)網(wǎng)

    組卷:3引用:2難度:0.7
  • 5.語句“i=3:s=1/(i-3)”無法執(zhí)行,原因是它違反了算法特征中的( ?。?/h2>

    組卷:18引用:3難度:0.9

二、綜合題(本大題共5小題,其中第13小題7分,第14小題5分,第15小題5分,第15小題5分,第17小題4分,共24分)

  • 16.下列VB程序的功能是:程序運行時,單擊命令按鈕Commandl后,產(chǎn)生10個[1,999]范圍內(nèi)互不相同的隨機整數(shù),依次顯示在列表框List1中,然后將它們按從小到大的順序排序,排序結(jié)果顯示在列表框List2中.
    數(shù)組a用于存儲產(chǎn)生的10個隨機整數(shù),函數(shù)f(x)用于判斷隨機整數(shù)x與已生成的整數(shù)是否有重復(fù),若有重復(fù)則返回True,否則返回False.
    (1)虛線框內(nèi)程序段所采用的排序算法名稱是
     
    .(填:冒泡排序/選擇排序)
    (2)在程序①和②橫線處,填入適當?shù)恼Z句或表達式,把程序補充完整.
    Dim a(1To 10)As Integer
    Function f(x As Integer) As Boolean’代碼略
    End Function
    Private Sub Commandl_Click ( ?。?br />Dim n As Integer’n用于統(tǒng)計已經(jīng)產(chǎn)生的隨機整數(shù)個數(shù)
    Dim i As Integer.j As Integer
    Dim x As Integer.k As Integer
    Randomize’初始化Rnd函數(shù)
    n=0
    List1.Clear’清除列表框中內(nèi)容
    List2.Clear
    Do While n<10
    x=          ①’產(chǎn)生[1,999]范圍內(nèi)的隨機整數(shù)
    If Not f(x) Then
    n=n+1
    a(n)=x
    List1.AddItem Str(a(n))
    End If
    Loop
    菁優(yōu)網(wǎng)
    For i=1To 10
    List2.AddItem Str(a(i))
    Next i
    End Sub.

    組卷:6引用:1難度:0.3
  • 菁優(yōu)網(wǎng)17.市民卡是由人民政府授權(quán)發(fā)放給市民用于辦理個人相關(guān)事務(wù)和享受公共服務(wù)的集成電路卡(IC卡),具有信息儲存、身份識別、電子支付等功能.每位市民都可以擁有一張唯一卡號的市民卡,卡內(nèi)會記錄每位市民的姓名、電話、金額等信息.
    假設(shè)共有500個市民,市民的相關(guān)信息都存儲在“information.accdb”的data表中,”xm,ye,kh”字段放市民的姓名,余額,卡號.查詢程序界面如圖所示.工作人員在文本框Text1中輸入卡號,單擊“查詢”按鈕,如果找到,就在Label1中顯示卡內(nèi)市民姓名和卡內(nèi)余額;否則顯示“查無此人”.程序如下,請按要求將程序補充完整.
    Private Sub command1_click ( ?。?br />Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
    Dim strSQL As String
    Dim a,b,c as string
    Dim n as integer
    conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\       ①
    conn.Open
    strSQL=“select*from data”
    Set rs.ActiveConnection=conn
    rs.Open strSQL
    Label1.Caption=“”
    c=val(text1.text)
    n=0
    rs.movefirst
    Do while not rs.EOF
    n=n+1
    a=rs.Fields(“xm”)
              ②
    If c=rs.Fields(“kh”) then
    Label1.caption=a+“的卡內(nèi)余額為“+b+“元”
    Exit if
    else
    rs.movenext
    end if
    loop
    if n=500then Label1.caption=“查無此人”
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing
    End Sub
    (1)程序中①橫線處應(yīng)填入
     

    (2)程序中②橫線處應(yīng)填入
     

    組卷:3引用:1難度:0.1
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)改正