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

2017年浙江省高考信息技術檢測試卷(一)

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

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

  • 1.下列關于信息的說法不正確的是(  )

    組卷:18引用:2難度:0.9
  • 2.有如下Visual Basic程序段:
    A=“Happy new year!”
    B=Len(A)\2
    C=63 Mod 10
    Text1.Text=Mid(A,B,C)
    該程序運行后文本框text1顯示的內容為( ?。?/h2>

    組卷:11引用:2難度:0.9
  • 3.下列過程沒有涉及到人工智能技術的是( ?。?/h2>

    組卷:10引用:3難度:0.9
  • 4.若將視頻文件“片頭.mpg”的聲音分離并保存成一個獨立的聲音文件,下列軟件中能實現(xiàn)該功能的是(  )

    組卷:4引用:2難度:0.7
  • 5.如圖所示的部分流程圖中,“s←s+i”被執(zhí)行次數(shù)為( ?。?br />菁優(yōu)網(wǎng)

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

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

  • 菁優(yōu)網(wǎng)16.統(tǒng)計單詞個數(shù).小明要參加英語等級考試,正在苦練寫作,為了快速統(tǒng)計文章中單詞的個數(shù),他設計了如下VB程序,只要在文本框Text1中輸入短文,單擊統(tǒng)計按鈕,單詞的個數(shù)就在Text2中顯示(假定每個單詞中不包含英文字母以外的其他字符).
    算法的基本思路:按位取出字符,如果是字母,并且flag=False,說明是一個單詞的開始,則單詞個數(shù)增加1,flag置為True,余下的連續(xù)字母不再計數(shù).如果讀入非字母,則表示一個單詞已經(jīng)完成,flag重新置為False,繼續(xù)循環(huán).
    程序界面如圖所示,按此要求編寫程序如下,但加框處代碼有錯,請改正.
    Private Sub Command1_Click ( ?。?br />Dim x As String,y As String
    Dim n As Integer,m As Integer,flag As Boolean
    x=Text1.Text
    m=0:flag=False
    For i=1To Len(x)
    y=xtod(Mid(x,i,1))
    If y>=“A”And y<=“Z”Then
    If菁優(yōu)網(wǎng)Then’①
    m=m+1
    flag=True
    End If
    Else
    flag=False
    End If
    Next
    Text 2.Text=Str(m)
    End Sub
    Function xtod(ch As String) As String’將小寫字母轉化為大寫字母.
    If ch>=“a”And ch<=“z”Then
    xtod=菁優(yōu)網(wǎng)’②
    Else
    xtod=ch
    End If
    End Function
    (1)加框處①有錯,應改為
     

    (2)加框處②有錯,應改為
     

    組卷:5引用:2難度:0.3
  • 17.小王利用VB及ACCESS數(shù)據(jù)庫制作了一個解密程序,具體使用過程如下:
    在VB項目文件夾目錄中有一個ACCESS數(shù)據(jù)庫文件data.accdb,其中有一張數(shù)據(jù)表如圖1所示ask字段中存放的是密文字符,對應ans字段中存放的是明文字符.
    VB程序界面如圖2所示,其中一個按鈕Command1的Caption屬性值設置為“讀取密碼本”,另一個按鈕Command2的Caption屬性值設置為“解密”.程序運行后先點擊Command1,程序將從ACCESS數(shù)據(jù)庫中讀取明文密文對照表并顯示在列表框List1中.然后在密文文本框Texe1中輸入加密文字,點擊Command2解密后的明文將顯示在Text2中.
    菁優(yōu)網(wǎng)
    程序代碼部分如下,請回答后面的問題:
    Dim a (  )As String
    Dim b ( ?。?nbsp;As String
    Dim length As Integer
    Private Sub Command1_Click ( ?。?br />List1.Clear
    Dim i As Integer
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    conn.ConnectionString=“provider=microsoft.ace.oledb.12.0;data source=”& App.Path &
    “\
    conn.Open
    rs.ActiveConnection=conn
    rs.CursorLocation=adUseClient
    rs.Open (“select*from code”)
    length=rs.RecordCount
    ReDim a(1To length)
    ReDim b(1To length)
    rs.MoveFirst
    For i=1To length
    a(i)=rs.Fields(“ask”)
    b(i)=rs.Fields(“ans”)
    List1.AddItem (a(i)&“
     
    ”&b(i))
    rs.
    Next i
    End Sub
    Private Sub Command2_Click ( ?。?br />Text2.Text=“”
    Dim s As String
    Dim i As Integer
    s=Text1.Text
    For i=1To Len(s)
    Text2.Text=Text2.Text&translate(Mid(s, ))
    Next i
    End Sub
    Function translate(ask As String) As String
    Dim i as Integer
    Dim flag as Boolean
    i=1
    flag=True
    Do While i<=length And flag
    If a(i)=ask Then

    End If
    i=i+1
    Loop
    If flag=True Then
    translate=“”
    Else
    translate=b(i-1)
    End If
    End Function
    (1)程序代碼①處應該填入
     

    (2)程序代碼②處應該填入
     

    (3)在程序代碼③處補全Mid函數(shù):
     

    (4)程序代碼④處應該填入
     

    (5)translate函數(shù)使用的查找算法是
     
    (填對分查找/順序查找).

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