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

2015-2016學年浙江省紹興一中高二(下)期末信息技術試卷

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

一、選擇題(本大題共9小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)

  • 1.備受中外矚目的上海迪士尼內部測試啟動后有一些帖子在微博微信上熱轉,有聲稱來自浙江、南京、重慶等全國近20個省市的“第一批體驗上海迪士尼的人”發(fā)文吐嘈迪士尼消費太高,表示“哭暈在廁所”.有人梳理對比發(fā)現(xiàn),這些文章使用的是同一組照片,文章內容幾乎相同,僅僅只是客源地不同.下列說法正確的是
    ( ?。?/h2>

    組卷:9難度:0.9
  • 2.把校園卡放在食堂讀卡機上馬上會顯示出當前卡內余額,此時一卡通系統(tǒng)對數據庫進行的操作是( ?。?/h2>

    組卷:7引用:1難度:0.9
  • 3.劉明在使用OCR軟件進行文字識別時出現(xiàn)如圖所示情況,為提高識別正確率,在重新識別前他應該先進行的操作是( ?。?/h2>

    組卷:6引用:2難度:0.9
  • 4.小明要創(chuàng)作一個主題為“讓文明成為習慣”的多媒體作品.在創(chuàng)作之前對這個作品的使用頻度、所需資金及產生的經濟效益進行分析,這屬于( ?。?/h2>

    組卷:11引用:4難度:0.9
  • 5.如果a,b,c均為整型變量,其中a=3,b=4,執(zhí)行以下語句,變量a,b的結果與其他幾項不同的是(  )

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

四、加試題

  • 16.小劉想編寫一個字符串轉換程序,在文本框Text1中輸入原始字符串,單擊“轉換”按鈕Command1后,將其中的小寫英文字母轉換為大寫,并在文本框Text2中顯示.程序運行效果如圖所示.

    實現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正.
    Private Sub Command1_Click ( ?。?br />Dim a As String,b As String
    Dim i As Integer,c As String
    a=Text1.Text
    For i=1To Len(a)
    c=Mid(a,i,1)

    b=upcase(c)+b'(1)
    Next i

    Text2.Text=Str(b)'(2)
    End Sub
    '將小寫字母轉換為大寫字母
    Private Function upcase(c As String) As String
    If c>=“a“And c<=“z“Then
    upcase=Chr(Asc(c)-32)
    Else
    upcase=c
    End If
    End Function.

    組卷:2引用:1難度:0.1

加試題

  • 17.下列VB程序的功能是:程序運行時,單擊命令按鈕Commandl后,產生10個[1,999]范圍內互不相同的隨機整數,依次顯示在列表框List1中,然后將它們按從小到大的順序排序,排序結果顯示在列表框List2中.數組a用于存儲產生的10個隨機整數,變量f用于標記隨機整數x與已生成的整數是否有重復,如有則為True,沒有則為False.
    為實現(xiàn)上述功能,請在橫線處填入合適的代碼.
    Dim a(1To 10)As Integer
    Private Sub Command1_Click ( ?。?br />Dim n As Integer'n用于統(tǒng)計已經產生的隨機整數個數
    Dim i As Integer,j As Integer
    Dim x As Integer,k As Integer
    Dim f As Boolean
    Randomize
    n=0
    List1.Clear
    List2.Clear
    Do While n<10
    x=
     
    '產生[1,999]范圍內的隨機整數
    f=False
    For i=1To n
    If
     
    Then f=True
    Next i
    If f=False Then
    n=n+1
    a(n)=x
    List1.AddItem Str(a(n))
    End If
    Loop
    For i=1To 9
    For j=10To i+1Step-1
    If
     
    Then
    k=a(j):a(j)=a(j-1):a(j-1)=k
    End If
    Next j
    Next i
    For i=1To 10
    List2.AddItem Str(a(i))
    Next i
    End Sub.

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