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

2017-2018學(xué)年浙江省五校聯(lián)考高三(上)第一次聯(lián)考信息技術(shù)試卷

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

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

  • 1.以下說(shuō)法正確的是( ?。?/h2>

    組卷:8引用:2難度:0.9
  • 2.以下軟件中,不屬于瀏覽器的是( ?。?/h2>

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

    組卷:1引用:3難度:0.9
  • 4.已知英文小寫(xiě)字母比對(duì)應(yīng)的大寫(xiě)字母ASCII碼大32(十進(jìn)制),某數(shù)據(jù)加密方法描述如下:
    (1)將字符的ASCII碼值加20(十進(jìn)制);
    (2)以字節(jié)為單位進(jìn)行加密處理;
    (3)將1個(gè)字節(jié)的8位二進(jìn)制數(shù)左移一位,最低位用左移出的最高位填充;
    (4)將處理后的8位二進(jìn)制數(shù)分割成前4位與后4位兩個(gè)二進(jìn)制數(shù);
    (5)分別將上述兩個(gè)4位二進(jìn)制數(shù)轉(zhuǎn)換為十六進(jìn)制數(shù);
    (6)所得兩個(gè)十六進(jìn)制數(shù)碼交換順序后連接,即為該字節(jié)的密文.
    用UltraEdit-32軟件觀察“i-hangzhou”這幾個(gè)字符的內(nèi)碼,如圖所示

    則字符H加密后的密文是( ?。?/h2>

    組卷:10引用:2難度:0.5
  • 5.關(guān)于Access數(shù)據(jù)表的操作,下列說(shuō)法正確的是( ?。?/h2>

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

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

  • 16.小龍編寫(xiě)了一個(gè)簡(jiǎn)易加法器VB程序,運(yùn)行界面如圖所示.在文本框Text1中輸入一個(gè)數(shù)字后再輸入空格表示一個(gè)加數(shù)輸入完畢,連續(xù)不斷輸入不同的加數(shù),待所有需要相加的數(shù)輸入完畢后,單擊“求和”按鈕Command1后,在標(biāo)簽label1中顯示加數(shù)的個(gè)數(shù)以及總和.(數(shù)字0和空格的ASCII碼分別為48、32)
    實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯(cuò),請(qǐng)改正.
    Private Sub Command1_Click ( ?。?br />Dim a As String
    Dim x As Integer,s As Integer,k As Integer
    a=Text1.Text
    x=1:s=0:k=0
    For i=1To Len(a)
    '如果輸入的不是0到9的數(shù)字或者空格,則給出錯(cuò)誤提示后結(jié)束子程序
    If (Asc(Mid(a,i,1))<48Or Asc(Mid(a,i,1))>57)then’①Label1.Caption=“只能輸入數(shù)字或空格“
    Exit Sub
    End If
    If Mid(a,i,1)=““Then
    s=s+’②
    x=i+1
    k=k+1
    End If
    Next i
    Label1.Caption=“這“+Str(k)+“個(gè)數(shù)的和為:“+Str(s)
    End Sub.

    組卷:2引用:2難度:0.3
  • 17.【加試題】中秋節(jié)時(shí),班級(jí)組織活動(dòng),其中有抽獎(jiǎng)環(huán)節(jié),小龍?jiān)?選3中選考了技術(shù),班主任讓小龍編寫(xiě)一個(gè)VB抽獎(jiǎng)程序,功能如下:窗體裝載過(guò)程從數(shù)據(jù)庫(kù)讀取所有同學(xué)的相關(guān)數(shù)據(jù)并顯示在列表框List1中,抽獎(jiǎng)時(shí)在文本框Text1中輸入要抽出的人數(shù),單擊“搖獎(jiǎng)”按鈕command1,程序進(jìn)行處理,結(jié)果輸出在列表框list2中。程序運(yùn)行界面如圖所示。

    實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)回答下列問(wèn)題:
    (1)分析下面的程序代碼,可知數(shù)據(jù)表名為
     
    。
    (2)請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
    Dim a(1 To 100)As String'數(shù)組大小滿(mǎn)足處理要求,學(xué)生學(xué)號(hào)
    Dim b(1 To 100)As String'數(shù)組大小滿(mǎn)足處理要求,學(xué)生姓名
    Dim i As Integer'學(xué)生總數(shù)
    Dim j As Integer
    Dim dd(1 To 100)As Integer
    Private Sub Form_Load
     


    ‘從數(shù)據(jù)庫(kù)讀取全班同學(xué)的相關(guān)信息,存儲(chǔ)在數(shù)組a、數(shù)組b和變量i中
    Dim n As Integer
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“& App.Path &“\1718.jye.ai“
    conn.Open
    Set rs.ActiveConnection=conn
    strSQL=“SELECT*FROM stuinfo“
    rs.Open strSQL
    '本過(guò)程的其他語(yǔ)句略
    End Sub
    Private Sub Command1_Click ( ?。?br />Dim ShuruNum As Integer,k As Integer,y As Integer,n As Integer
    Randomize
    ShuruNum=Val(Text1.Text)
    Label4.Caption=““
    For k=1 To i
    dd(k)=0
    Next k
    If ShuruNum>0 And ShuruNum<=i Then
    j=1
    Do While j<=ShuruNum
    y=Int(Rnd
     
    *i)+1
    If
     
      Then'①
    dd(j)=y
    j=j+1
    End If
    Loop
    List2-Clear
    For n=1 To ShuruNum
    List2.AddItem 
     
    '②
    Next n
    Else
    Label4.Caption=“錯(cuò)誤:沒(méi)有輸入中獎(jiǎng)人數(shù)或超過(guò)學(xué)生總數(shù)“
    End If
    End Sub
    '核對(duì)重復(fù),避免同一人再次中獎(jiǎng)
    Private Function CheckCF(p As Integer) As Boolean
    Dim m As Integer,x As Boolean
    x=True'初始化
    For m=1 To j
    If 
     
     Then'③
    x=False
    Exit For
    End If
    Next m
    CheckCF=x
    End Function

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