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

2016年浙江省寧波市高考信息技術(shù)模擬試卷(3月份)

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

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

  • 1.《我是歌手》是廣大觀眾十分喜愛的綜藝節(jié)目,工作人員在節(jié)目現(xiàn)場拍攝視頻,并經(jīng)過后期剪輯,再通過衛(wèi)星信號或網(wǎng)絡(luò)信號傳遞到千家萬戶,那么拍攝視頻的過程屬于(  )
    組卷:11引用:3難度:0.9
  • 2.小張的QQ號被盜,經(jīng)過申訴后取回,為了保障QQ號的安全,下列做法合理的是( ?。?br />①通過申訴取回就表示QQ號是我專用的,不用進行任何操作
    ②把QQ號與自己的常用手機綁定
    ③更改QQ密碼為自己的生日
    ④重新設(shè)置QQ密保問題
    ⑤購買QQ令牌并綁定
    ⑥更新殺毒軟件并進行完全掃描.
    組卷:6引用:2難度:0.9
  • 3.在word文檔中輸入“computeir”時,發(fā)現(xiàn)其立即變?yōu)椤癱omputer”,這是因為Word軟件具有(  )
    組卷:9引用:3難度:0.9
  • 4.字符“A”比“a”的ASCII碼值小32(十進制),已知字符“K”的二進制為1001011,則字符“k”的二進制ASCII碼值是(  )
    組卷:16引用:6難度:0.7
  • 5.小紅從網(wǎng)上下載了一個Wave格式的高保真音頻文件,并用GoldWave軟件轉(zhuǎn)換成了MP3格式,下列說法正確的是( ?。?/div>
    組卷:4引用:2難度:0.5

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

  • 16.【加試題】有一英文單詞處理的Visual Basic程序,程序運行效果如第16題圖所示.在界面上方的文本框 Text1 中輸入英文語句,單擊“統(tǒng)計”按鈕(Command1),在右下方的列表框 List1 中顯示英文單詞及其在語句中出現(xiàn)的位置,并在按鈕上方的標(biāo)簽框 Label2中顯示單詞個數(shù)(假定每個單詞中不包含英文字母以外的其他字符).
    菁優(yōu)網(wǎng)
    實現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正.
    Private Sub Command1_Click( ?。?br />Dim a(1To 1000)As String
    Dim d(1To 1000)As Integer    
     List1.Clear     s=Text1.Text     
    slen=Len(s)     j=0     k=1   
      b=1
    For i=1To slen         
    c=Mid(s,i,1)
    If  菁優(yōu)網(wǎng) Then'(1)
    If j<>0 Then                 
    a(k)=Mid(s,b,j)                 
    d(k)=b
    k=k+1                 
    j=0             
    End If            
     b=i+1         
    Else             
    j=j+1
    End If
    Next i
    For i=1To k-1
    List1.AddItem 菁優(yōu)網(wǎng)+““+a(i)'(2)
    Next
    Label2.Caption=Str(k-1)+“個“
    End Sub.
    組卷:2引用:1難度:0.1
  • 17.【加試題】小張為了處理2015年中國主要城市的GDP數(shù)據(jù),他把2015年中國主要城市的GDP據(jù)存儲在數(shù)據(jù)庫文件gdp.accdb中.他設(shè)計了一個Visual Basic程序,程序運行效果如第17題圖所示.在界面的左側(cè)列表框List1中顯示按各城市GDP數(shù)值,單擊“按人均GDP排序”按鈕(Command1),在右側(cè)列表框List2中顯示排序完成后的結(jié)果
    (按人均GDP值從高到低排序).
    菁優(yōu)網(wǎng)
    實現(xiàn)上述功能的VB代碼如下:
    (1)請在空格處填入合適代碼.
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim n As Integer,i As Integer,j As Integer
    Dim t As Long,ts As String
    Dim a(1To 200)As Integer
    Dim c(1To 200)As String
    Dim g(1To 200)As Long
    Dim p(1To 200)As Long

    Private Sub Form_Load ( ?。?br />conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“_
    & App.Path &“\gdp.accdb“
    '上面語句中的“_“為語句換行符,表示下一行內(nèi)容為本行的繼續(xù)     conn.Open
    Set rs.ActiveConnection=conn     rs.Open“SELECT*FROM dGDP“
    n=0'Ⅰ處代碼                    
    Do While Not rs.EOF         n=n+1                                       a
    (n)=rs.Fields(“GDP排名“).Value         c(n)=rs.Fields(“城市“).Value        
     g(n)=rs.Fields(“GDP“).Value         p(n)=rs.Fields(“人均GDP“).Value
    List1.AddItem Str(a(n))+““+c(n)+““+_                       
    Str(g(n))+““+Str(p(n))
    '上面語句中的“_“為語句換行符,表示下一行內(nèi)容為本行的繼續(xù)
    rs.MoveNext     Loop     rs.Close     conn.Close
    Set rs=Nothing
    Set conn=Nothing
    End Sub
    Private Sub Command1_Click ( ?。?br />For i=1To n-1
    For j=①
     
    To n
    If p(i)<p(j) Then                 
    a(i)=a(i)+a(j)                
     a(j)=a(i)-a(j)                         
     
    P                 
    ts=c(i)                 
    c(i)=c(j)                 
    c(j)=ts                 
    t=g(i)                
    g(i)=g(j)                 
    g(j)=t                
     t=p(i)                 
    p(i)=p(j)                
     p(j)=t
    End If
    Next j
    Next i
    List2.Clear
    For i=1To n
    List2.AddItem Str(a(i))+““+c(i)+““+_                       
    Str(g(i))+““+Str(p(i))
    '上面語句中的“_“為語句換行符,表示下一行內(nèi)容為本行的繼續(xù)
    Next i
    End Sub
    (2)若Ⅰ處代碼n=0改為 n=1程序運行結(jié)果將不正確,其原因是
     
    組卷:3引用:1難度:0.1
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.4 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正