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

2017-2018學(xué)年浙江省紹興市越城區(qū)蕺山外國(guó)語學(xué)校高二(下)期末信息技術(shù)試卷

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

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

  • 1.下列描述中正確的是( ?。?/h2>

    組卷:10引用:1難度:0.6
  • 2.下列應(yīng)用中,體現(xiàn)了人工智能技術(shù)的有( ?。?br />①家里用掃地機(jī)器人掃地
    ②電腦開機(jī)后自動(dòng)播放音樂
    ③通過人臉識(shí)別進(jìn)行住宿登記
    ④通過網(wǎng)絡(luò)與遠(yuǎn)在外地的網(wǎng)友在線對(duì)弈
    ⑤微信聊天時(shí)通過語音進(jìn)行漢字輸入

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

    組卷:7引用:1難度:0.2
  • 4.某算法的部分流程圖如圖所示。執(zhí)行這部分流程,依次輸入 21,6,則下面說法錯(cuò)誤的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201810/188/d6b479fa.png" style="vertical-align:middle" />

    組卷:0引用:2難度:0.3
  • 5.關(guān)于 Access 數(shù)據(jù)表的操作,下列說法正確的是( ?。?/h2>

    組卷:4引用:1難度:0.4

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

  • 16.小李基于冒泡排序算法編寫了一個(gè) VB 程序,功能如下:在文本框 Text1 中輸入產(chǎn)生隨機(jī)數(shù)的個(gè)數(shù) n,單擊“隨機(jī)產(chǎn)生”按鈕 Command1,在列表框 list1 中顯示 n 個(gè)兩位數(shù)(不重復(fù))的排序前數(shù)據(jù),單擊“數(shù)據(jù)排序”按鈕 Command2,在列表框 list2 中顯示數(shù)據(jù)升序排序結(jié)果。程序運(yùn)行界面如圖所示。
    菁優(yōu)網(wǎng)
    實(shí)現(xiàn)上述功能的 VB 程序如下,但加框處代碼有錯(cuò),請(qǐng)改正。
    Dim a(1To 100)As Integer
    Dim n As Integer
    Private Sub Command1_Click(  )
    Dim i As Integer,j As Integer,temp As Integer
    Dim flag As Boolean
    n=Val(Text1.Text)
    Randomize
    For i=1 To n
    菁優(yōu)網(wǎng)‘(1)
    flag=False
    For j=1 To i-1
    If temp=a(j) Then
    i=i-1
    flag=True
    Exit For
    End If
    Next j
    If flag=False Then
    a(i)=temp
    List1.AddItem Str(a(i)
    End If
    Next i
    End Sub
    Private Sub Command2_Click( ?。?br />Dim i As Integer,j As Integer
    i=1
    Do While i<=n-1
    j=i+1
    Do While j<=n
    If  菁優(yōu)網(wǎng)Then‘(2)
    t=a(i):a(i)=a(j):a(j)=t
    End If
    j=j+1
    Loop
    i=i+1
    Loop
    For m=1To n
    List2.AddItem Str(a(m))
    Next m
    End Sub

    組卷:0引用:1難度:0.3
  • 菁優(yōu)網(wǎng)17.小明編寫了一個(gè)尋找奇妙整數(shù)的 VB 程序。此整數(shù)的平方與立方正好用了 0~9 的 10 個(gè)數(shù)且每個(gè)數(shù)只用一次,例如 69 的平方為 4761,69 的立方為 328509,4761 和 328509 剛好用了 0~9的10 數(shù),并且沒有重復(fù)使用?,F(xiàn)需從 1 至 1000 尋找這樣的奇妙整數(shù)并在列表框 list1 中顯示,設(shè)計(jì)界面如第 17 題圖所示。實(shí)現(xiàn)上述功能的 VB 程序段如下:
    (1)請(qǐng)?jiān)跈M線處填入合適代碼
    Dim a(0 To 9)As Boolean'判斷 0-9 的 10 個(gè)數(shù)是否使用
    Private Sub Command1_Click( ?。?br />Dim n As Integer
    Dim k As Integer
    '存儲(chǔ)從字符串 s1
    或 s2中提取的字符
    Dim f As Boolean
    '判斷字符 k 是否重復(fù)出現(xiàn)
    Dim s1As String'存儲(chǔ)字符串(平方數(shù))
    Dim s2As String'存儲(chǔ)字符串(立方數(shù))
    Dim i As Integer,j As Integer
    For n=1To 1000
    For i=0To 9
    a(i)=True
    Next i
    f=True
    s1=CStr(n^2)
    s2=CStr(n^3)'Cstr ( ?。┖瘮?shù)的作用是將數(shù)字型變量改變成字符型變量
    For j=1To Len(s1)
     

    If a(k)=True Then
    a(k)=False
    Else
    f=False
    Exit For
    End If
    Next j
    If
     

    Then
    j=0
    Do While j<=9
    If a(j)=True Then
    f=False
    Exit Do
    End If
    j=j+1
    Loop
    If f=True Then List1.AddItem Str(n)
    End If
    Next n
    End Sub
    Function Judge(s As String) As Boolean
    Dim i As Integer,k As Integer
    i=1:judge=True
    Do While
     

    k=Val(Mid(s,i,1))
    If a(k)=True Then
    a(k)=False
    Else
    Judge=False
    Exit Do
    End If
    i=i+1
    Loop
    End Function
    (2)根據(jù)程序可以判斷數(shù)字 43
     
    ( 填,能/不能)在 List1 列表中顯示。

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