試卷征集
加入會(huì)員
操作視頻
當(dāng)前位置: 試卷中心 > 試卷詳情

2017-2018學(xué)年浙江省嘉興市七校高二(下)期中信息技術(shù)試卷

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

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

  • 1.下列關(guān)于信息與信息技術(shù)的說法,下列說法不正確的是(  )

    組卷:2引用:1難度:0.8
  • 2.下列關(guān)于瀏覽器及網(wǎng)頁的說法,下列說法正確的是( ?。?/h2>

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

    組卷:23引用:3難度:0.5
  • 菁優(yōu)網(wǎng)4.使用Access軟件打開數(shù)據(jù)庫,部分界面如下所示,下列說法正確的是( ?。?/h2>

    組卷:0引用:1難度:0.6
  • 5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量a的值是( ?。?br />菁優(yōu)網(wǎng)

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

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

  • 16.編寫VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入自然數(shù)n,單擊“生成隨機(jī)數(shù)”命令按鈕Command1,則生成n個(gè)[1,100]區(qū)間內(nèi)的整數(shù),并顯示在列表框List1中,單擊“計(jì)算”按鈕Command2,標(biāo)簽Label4中輸出最大數(shù)及該數(shù)在數(shù)列中的位置,標(biāo)簽Label6中輸出最小數(shù)及該數(shù)在數(shù)列中的位置,運(yùn)行效果如下圖所示,程序代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正。
    菁優(yōu)網(wǎng)
    Dim d(1 To 100)As Integer
    Dim n As Integer
    Private Sub Command1_Click (  )
    Dim i As Integer
    Randomize
    n=Val(Text1.Text)
    For i=1 To n
    菁優(yōu)網(wǎng)
    List1.AddItem Str(d(i))
    Next i
    End Sub
    Private Sub Command2_Click( ?。?br />Dim i As Integer,min As Integer,max As Integer
    Dim maxpos As Integer,minpos As Integer
    max=d(1)
    菁優(yōu)網(wǎng)
    For i=2 To n
    If max<d(i) Then max=d(i):maxpos=i
    If min>d(i) Then min=d(i):minpos=i
    Next i
    Label4.Caption=Str(max)+“位置:“+Str(maxpos)
    Label6.Caption=Str(min)+“位置:“+Str(minpos)
    End Sub

    組卷:1引用:1難度:0.6
  • 17.編寫VB應(yīng)用程序,當(dāng)用戶輸入的一串由字母、數(shù)字等字符組成的字符串,統(tǒng)計(jì)其中每個(gè)字母出現(xiàn)的次數(shù)(不分大小寫).程序運(yùn)行時(shí)界面如圖1所示.
    菁優(yōu)網(wǎng)
    (1)設(shè)計(jì)應(yīng)用程序界面時(shí),為添加標(biāo)簽對(duì)象“輸入字串:”,應(yīng)使用圖2所示的“控件工具箱”中的
     
    (填寫相應(yīng)編寫),并在圖3所示的“屬性窗口”中,將
     
    屬性設(shè)置為“輸入字串:”.
    菁優(yōu)網(wǎng)
    (2)程序運(yùn)行時(shí),在Text1中輸入字符串,單擊“統(tǒng)計(jì)”按鈕,在List1中顯示統(tǒng)計(jì)結(jié)果.請(qǐng)?jiān)跈M線處填入合適代碼.
    ‘函數(shù)IsLetter(x)功能,若x是字母,則返回值為字母x在字母序列“A”~“Z”中的序號(hào),如字母“A”的序號(hào)為0,字母“D”的序號(hào)為3.若x不是字母,則返回值為-1.
    Function IsLetter(x As String) As Integer
    If“A“<=x And x<=“Z“Then
    IsLetter=Asc(x)-Asc(“A“)
    ElseIf“a“<=x And x<=“z“Then
    IsLetter=Asc(x)-Asc(“a“)
    Else
     

    End If
    End Function
    Private Sub Command1_Click
     

    Dim f(25)As Integer,m As Integer,n As Integer
    Dim s As String,c As String
    List1.Clear
    For m=0To 25‘初始化數(shù)組f
    f(m)=0
    Next m
    s=Text1.Text
    For m=1To Len(s)‘依次讀取字符串中的每個(gè)字符進(jìn)行判斷
    c=Mid(s,m,1)
    n=IsLetter(c)
    If n<>-1Then f(n)=f(n)+1
    Next m
    For m=0To 25‘輸出統(tǒng)計(jì)結(jié)果,沒有出現(xiàn)的字母不輸出
    If
     
    Then
    List1.AddItem (Chr(m+Asc(“a“)) &“:“& f(m))
    End If
    Next m
    End Sub.

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