欧美另类久久久精品|欧美 日韩 免播放器|国产真实伦对白在线播放|亚洲精品亚洲人成在线播放|亚洲中文字幕无码爆乳av|亚洲精品国产第一综合99|国产寡妇婬乱A毛片视频中文|久久99久久无码毛片一区二区

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

2017-2018學年浙江省紹興市諸暨市牌頭中學高二(下)月考信息技術試卷(5月份)

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

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

  • 1.下列有關移動設備的使用行為,安全隱患最小的是( ?。?/h2>

    組卷:17引用:2難度:0.9
  • 2.如圖所示為撰寫電子郵件時的部分操作界面。下列描述正確的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/201806/196/8eecfa9e.png" style="vertical-align:middle" />

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

    組卷:0難度:0.4
  • 4.使用Access軟件創(chuàng)建某數據表,并在該數據表中錄入了部分數據。下列說法正確的是( ?。?/h2>

    組卷:10引用:2難度:0.5
  • 5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量s的值是(  )

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

【加試題】

  • 16.某一條形碼是由13位數字組成的編碼,其末位是校驗碼。條形碼校驗的方法如下:
    ①除校驗碼之外,求其余12位編碼中的奇數、偶數的數字之和;
    ②將偶數的數字之和乘以3,加上奇數的數字之和;
    ③取第②步得到結果的個位數字,用10減去該數字,將得到的結果存入變量m;
    ④若m的值為10,則將m的值修改為0,否則不變;
    ⑤若m和校驗碼相等則輸出“校驗碼正確!”,否則輸出“校驗碼錯誤!”。
    現編寫一個VB程序,實現如下功能:在文本框Text1中產生條形碼數字序列,單擊“校驗”按鈕Command1,在標簽Label1中輸出對應的校驗信息,界面如圖所示。
    實現上述功能的VB程序如下,但加框處代碼有錯,請改正。
    Private Sub Command1_Click ( ?。?br />Dim s As String,x As Integer
    Dim n As Integer,jsAs Integer,os As Integer,m As Integer
    Js=0:Os=0
    s=Text1.Text

    If n<>13Then
    Label1.Caption=“條形碼位數錯誤!“
    Else
    For i=1To 12

    If x Mod 2<>0Then
    js=js+x
    Else
    os=os+x
    End If
    Next i
    m=os*3+js
    m=10-m Mod 10
    Ifm=10  Then m=0
    If m=Val(Mid(s,n,1)) Then
    Label1.Caption=“校驗碼正確!“
    Else
    Label1.Caption=“校驗碼錯誤!“
    End If
    End If
    End Sub

    組卷:2引用:2難度:0.5

【加試題】

  • 17.小明編寫了一個統(tǒng)計成績的VB程序:編寫一個過程,該過程從數據庫讀取學生的物理,化學,生物科目成績,分別存儲到數組a、b、c中;另又編寫一個過程,該過程依據數組a,b,c中的相關數據統(tǒng)計班級物理、化學、生物三門成績大于等于85分的學號。部分學號的成績統(tǒng)計如圖所示。
    門數 學號 說明
    只有一門>=85分 1,10 d(i)存放每個學號對應的大于等于85分科次
    只有兩門>=85分 2,3,4,6,12
    只有三門>=85分 7,8,9,11
    程序功能如下:單擊“統(tǒng)計”按鈕Command2,程序進行統(tǒng)計處理,結果輸出在列表框
    List1、List2、List3中。程序運行界面如圖所示。
    (1)在Command1_Click
     
    過程中變量n的作用是
     
    。
    (2)請在橫線處填入合適的代碼。
    Dim a(1to 600)as integer'數組a存放物理成績
    Dim b(1to 600)as integer'數組b存放化學成績
    Dim c(1to 600)as integer'數組c存放生物成績
    Dim n as integer
    Private Sub Command1_Click (  )
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Conn ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;data source=“+“Score.jye.ai“
    Conn.Open
    Set rs.ActiveConnection=conn
    rs.Open“SELECT*FROM whs“
    n=0
    Do While Not rs.EOF'從數據表中讀取各科的數據賦值到相應數組
    n=n+1
    a(n)=rs.Fields(“物理“)
    b(n)=rs.Fields(“化學“)
    c(n)=rs.Fields(“生物“)
    rs.MoveNext
    Loop
    '本過程的其他語句略
    End sub
    Private Sub Command2_Click ( ?。?br />'依據數組a中的相關數據統(tǒng)計各學生每門課大于等于85分的學號
    Dim i As Integer
    Dim d(1to n) As Integer
    For i=1to n
     

    Next i
    List1.AddItem“三門學科>=85分的學號有:“
    List2.AddItem“兩門學科>=85分的學號有:“
    List3.AddItem“一門學科>=85分的學號有:“
    For i=1To n
    If a(i)>=85Then
    d(i)=d(i)+1
    End If
    If b(i)>=85Then d(i)=
     

    If
     
     Then
    d(i)=d(i)+1
    End If
    Next i
    For i=1To n
    If d(i)=3Then List1.AddItem Str(i)
    If d(i)=2Then List2.AddItem Str(i)
    If d(i)=1Then List3.AddItem Str(i)
    Next i
    End Sub

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