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

2017-2018學年浙江省溫州新力量聯盟高二(下)期末信息技術試卷

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

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

  • 1.下列關于信息的說法,正確的是( ?。?/h2>

    組卷:8難度:0.6
  • 2.關于瀏覽器和網頁的說法,正確的是( ?。?/h2>

    組卷:8引用:1難度:0.4
  • 3.用 Word 軟件編輯某文檔,部分界面如圖所示。 菁優(yōu)網
    下列有關圖中批注與修訂的說法,正確的是( ?。?/h2>

    組卷:7難度:0.2
  • 4.某水果商創(chuàng)建的 Access 文件,其數據表視圖如圖所示,下列說法中正確的是 ( ?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201807/133/baecff92.png" style="vertical-align:middle" />

    組卷:5引用:1難度:0.4
  • 5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程圖,依次輸入 3,2,1,變量 i,s 的值 分別是( ?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201807/133/b7110229.png" style="vertical-align:middle" />

    組卷:0難度:0.4

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

  • 16.某次考試的流程為先筆試再面試,筆試成績達到面試資格線的可以入圍參加面試。入圍面試 的資格線根據計劃錄取人數的 200%劃定,即如果考試最終錄取 x 人,則第 2*x 名選手的筆試分 數為面試資格的分數線(該分若有同分者可一同參與面試)?,F在編寫 VB 程序功能如下:自動 讀取數據庫中考生考號和筆試成績,依次存儲在數組 kh(i)、cj(i)中,并顯示在 List1 列表框中。單 擊“入圍劃線”按鈕 Command1,面試分數線顯示在文本框 Text2 中,入圍面試最終人數顯示在 Text3 中,進入面試的考生的考號和筆試成績顯示在 List2 列表框中,如果成績相同,則按考號由小到 大的順序顯示。程序界面如圖所示。
    菁優(yōu)網
    Dim kh(1to 500)As string,cj(1to 500)As Integer Dim n As Integer‘參加考試總人數
    Private Sub Form_Load(  )
    Dim conn as new ADODB.connection:Dim rs As New ADODB.Recordset conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=”
    +App.Path+”\BSCJ.accdb”conn.Open
    set rs.activeconnection=conn rs.Open“select*FROM scoreinfo”
    ‘本過程其他代碼略 End Sub
    Private Sub Command1_Click (  )
    Dim m As Integer,i As Integer,j As Integer Dim t1As Integer,t2As String,flag As Boolean For i=1To n-1‘排序
    For j=
     
    If
     cj(i)<cj(j) Then
    t1=cj(i):cj(i)=cj(j):cj(j)=t1t2=kh(i):kh(i)=kh(j):kh(j)=t2
    Elseif cj(i)=cj(j) And kh(i)>kh(j) Then t2=kh(i):kh(i)=kh(j):kh(j)=t2
    End If Next j
    Next i
    m=
     

    If m<=n Then‘統(tǒng)計進入面試人數 i=m
    flag=False
    Do While
     

    If cj(i)=cj(i+1)Then
    i=i+1Else
    flag=True End If
    Loop
    Text2.text=Str(cj(m)) Text3.text=Str(i)
    For j=1To i
    List2.AddItem kh(j)+“”+Str(cj(i)) Next j
    Else
    Text2.Text=”面試人數超過總人數了”End If
    End Sub
    (1)讀取的數據表名為
     
    。
    (2)(單選)可以填在①處的代碼是
     

    A.i+1To n   B.n To i+1C.1To n-i
    (3)請在②、③橫線處填入適當的代碼。
     

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