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

2017年10月浙江省十校聯(lián)盟選考信息技術試卷

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

一、選擇題(每小題2分,共24分.在每小題列出的4個選項中,只有一項是符合題目要求的)

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

    組卷:10引用:2難度:0.9
  • 2.下列說法不正確的是( ?。?/h2>

    組卷:14引用:2難度:0.9
  • 3.使用Word軟件編輯某文檔,部分界面如圖所示:
    菁優(yōu)網(wǎng)
    下列說法正確的是( ?。?/h2>

    組卷:4引用:2難度:0.9
  • 4.關于Access數(shù)據(jù)表的操作,說法正確的是(  )

    組卷:7引用:2難度:0.5
  • 5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,下列說法正確的是( ?。?br />菁優(yōu)網(wǎng)

    組卷:3引用:3難度:0.7

二、非選擇題

  • 菁優(yōu)網(wǎng)16.小林編寫了一個實現(xiàn)英文句子每個單詞首字母大寫功能的VB程序,運行界面如圖所示.文本框Text1顯示原文內(nèi)容,單擊“首字母大寫”按鈕Command1后,Text2顯示首字母大寫的結果.
    實現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正.
    Private Sub Command1_Click ( ?。?br />Dim a(1 To 1000)As String
    Dim s As String  result As String
    s=Text1.Text:n=Len(s)
    For i=1 To n
    a(i)=Mid(s,i,l)
    Next i
    If a(i)>''a''And a(1)<=“z“Then a(1)=Chr(Asc(a(1))-32)
    result=a(1)
    For i=2 To  n-1
    If 菁優(yōu)網(wǎng)Then'(1)
    If a(i+1)>=''a''And a(i+1)<=''z''Then
    a(i+1)=Chr(Asc(a(i+1))-32)
    result=result+a(i)
    End If
    Eslse
    result=result+a(i)
    End If
    Next i
    菁優(yōu)網(wǎng)'(2)
    End Sub.

    組卷:4引用:1難度:0.1
  • 菁優(yōu)網(wǎng)17.小林編寫了一個統(tǒng)計高三16個班級選考技術人數(shù)占比的VB程序.運行界面如圖所示,窗體加載時,從數(shù)據(jù)庫中調(diào)用數(shù)據(jù),統(tǒng)計各班選考技術的人數(shù)占比,并在列表框List1中顯示“班級”和“選技術占比”.單擊“排序”按鈕Command,數(shù)據(jù)按選技術占比降序排序,在List2中顯示排序結果.實現(xiàn)上述功能的VB程序如下,請回答下列問題:
    (1)分析程序,可知調(diào)用的數(shù)據(jù)表的名稱為
     

    (2)請在橫線處填入合適的代碼.①
     
    、②
     
    、③
     

    Dim n As Integer,i As  Integer,j As Integer'變量n用于統(tǒng)計學生總數(shù)
    Dim rate(l  To 16)As Integer,num(1 To 16)As Integer,class (1 To 16)As  Integer
    Dim tech (1 To 50)As Integer,cinfo(1 To 5000)As lnteger,subj(1 To 5000)As String
    Private Sub Command1_Click (  )
    Dim i As Integer,As Integer,s As Integer
    For i=1 To 15
    For j=
     

    If rate(j)>rate (j-1)Then
    t=rate (j):rate(j)=rate(j-1):rate(j-1):=t
    s=class(j):class(j)=class(j-1):class(j-1)=s
    End If
    Next j
    Next i
    List2:AddItem''班級''+''''+''選技術占比''
    For i=1 To 16
    List2.AddItem ads(class(i),3)+''''+ads(rate(i),7)+''%''
    Next i
    End Sub
    Private Sub Form-Load( ?。?br />Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    conn.ConnectionString=''Provider=Microsoft.ACE.OLEDB.12.0DATA Source=''&
    App.Path&''\stuimfo.jye.ai''
    conn.open
    Set rs.ActiveConnection=conn
    rs.open''SELECT*FROM xkqk''
    此處代碼略,代碼實現(xiàn)將學生班級信息存儲到數(shù)組cinfo中,選考科目存儲到數(shù)組subj中
    For i=1 To n
     
    ’將各班人數(shù)存儲到數(shù)組num中
    Next i
    For  i=1 To 16
    class (i)=i
    If
     
    Then
    If subj(j)=''技術''Then
    tech(i)=tech(i)+1
    End If
    End If
    Next  j
    rate(i)=Round(tech(i)/num(i)*100,2)
    ’Round( ?。┓祷刂付ㄎ粩?shù)進行四舍五入的數(shù)值
    List 1.AddItem ads(class(i),3)+''''+ads(rate(i),7)+''%''
    Next i
    ’ads( ?。┱麛?shù)轉(zhuǎn)換長度固定的字符串
    Function ads (x As Integer,n  As Integer)As String
    代碼略
    End Function.

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