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

2016-2017學年浙江省臺州中學高三(上)第四次統練信息技術試卷

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

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

  • 1.電視臺每晚播放的新聞,有很多人同時在觀看,而新聞節(jié)目主持人卻不會因為播放這些信息而失去它們.這主要體現了( ?。?/h2>

    組卷:16引用:2難度:0.9
  • 2.電子郵件從發(fā)送方傳送到接收方的基本流程如圖所示.郵件從“發(fā)送方郵件服務器”傳送到“接收方郵件服務器”(即圖中所示的步驟④)的過程中使用的協議是( ?。?br />

    組卷:9難度:0.9
  • 3.下列操作中沒有用到光學字符識別(OCR)技術的是(  )

    組卷:10引用:2難度:0.9
  • 4.下列關于數據庫的表述中正確的是(  )

    組卷:5引用:1難度:0.7
  • 5.“水仙花數”就是一個 n(n≥3)位的自然數,它的每個位上的數字的 n 次冪之和等于它本身.如 153=13+53+33.在編寫 VB 程序驗證某個三位數 x 是否是“水仙花數”的過程中要提取出這個數的個位、十位、百位分別存儲在變量 a、b、c 中,以下語句能夠用來提取十位上的數的是( ?。?/h2>

    組卷:8引用:1難度:0.7

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

  • 16.設有n盞燈,放在一排.從1到n依次順序編號.有n個人也從1到n依次編號.第1個人(1號)將燈全部關閉,第2個人(2號)將2的倍數的燈打開,第3個人(3號)將編號為3的倍數的燈做相反處理(該燈如果已打開,則將它關閉;如為關閉則將它打開),以后的人和3號一樣,將編號為自己號數倍數的燈做相反處理.問當n個人操作后,哪幾盞燈是亮的(亮燈為0,關閉為1).程序代碼如下:
    Private Sub Command1_Click( ?。?br />  Const n=20
      Dim i As Integer,j As Integer
      Dim a(1 To n) As Integer
      For j=1 To n
         a(j)=0
      Next j
      For i=1 To n
         For j=1 To n
            If ①then
                 ②
            End If
        Next j
      Next i
      For j=1 To n
         If a(j)=0 Then list1.AddItem Str(j)
      Next j
    End Sub
    為了實現程序該功能,在橫線處填寫正確代碼.
     
     ②
     

    組卷:4引用:2難度:0.1
  • 17.某班級學生為畢業(yè)晚會的一個節(jié)目設計一個仿“V”字造型,先篩選出班級里所有男生,然后將參演的n名男生按照身高,擺出中間低兩邊高(先右后左)的造型,如圖1所示.王林同學用VB編寫模擬“節(jié)目造型”程序,功能如下:從數據庫中導出所有學生編號、性別和身高數據;單擊“篩選排序”按鈕Command2,根據身高仿“V”字和造型進行有序排列,并將結果顯示在文本框Text2中.程序運行界面如圖2所示.舉例說明如下:
    原1-7號男生身高171 172 180 174 176 179 178
    篩選排序后序列171 172 174 176 178 179 180
    “造型設計”后序列180 178 174 171 172 176 179
    Const n=7
    Dim h2(1 To n) As Integer
    Dim height1(1 To n) As Integer
    Dim height2(1 To n) As Integer
    Dim i As Integer,j As Integer,temp As Integer
    Dim sex(1 To n) As Boolean'男生sex=true 
    Private Sub Form_Loa d( ?。?br />'n名學生的身高和性別由數據庫導出,分別存儲在數組height1 和sex中,代碼略!
    End Sub
    Private Sub Command1_Click( ?。?br />   For i=1 To n-1
          For j=n To i+1 Step-1
              If
     
    Then
                temp=height1(j):height1(j)=height1(j-1):height1(j-1)=temp
              End If
         Next j
      Next i
      For i=1 To n
         Text1.Text=Text1.Text+““+Str(height1(i))
      Next i
    End Sub
    Private Sub Command2_Click( ?。?br />  Dim left,right As Integer,i As Integer,mid As Integer
      mid=Int((1+n)/2)
      left=0:right=0
     

      For i=2 To n Step 2
         right=right+1
         height2(mid+right)=height1(i)
         left=left+1
     

      Next i
      For i=1 To n
       Text2.Text=Text2.Text+““+Str(height2(i))
      Next i
    End Sub.

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