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

          2017-2018學(xué)年浙江省紹興高級(jí)中學(xué)高二(上)期末信息技術(shù)試卷

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

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

          • 1.中國某即時(shí)通信軟件的“紅包”服務(wù)功能,有一項(xiàng)規(guī)定:紅包在發(fā)起后的24小時(shí)內(nèi)沒有被領(lǐng)取,將自動(dòng)退款.這個(gè)規(guī)定主要是保證信息的(  )

            組卷:26引用:6難度:0.9
          • 2.“餓了么”是中國知名的在線外賣訂餐平臺(tái),為中國廣泛地區(qū)的用戶提供豐富多樣的便捷生活服務(wù)。該軟件商家版下載界面部分截圖如圖所示:根據(jù)圖中信息,下列關(guān)于該軟件的說法不正確的是(  )

            組卷:24引用:1難度:0.9
          • 3.某文檔在Word修訂模式下修改后的部分界面如圖所示:

            拒絕其中所有的修訂和刪除所有的批注后文字內(nèi)容將變?yōu)椋ā 。?/h2>

            組卷:23引用:1難度:0.9
          • 4.下列關(guān)于Access數(shù)據(jù)庫的說法錯(cuò)誤的是(  )

            組卷:10引用:1難度:0.5
          • 5.如圖所示是一個(gè)8*8像素的黑白二色位圖,加入使用0表示白色、1表示黑色,按照行從左向右的次序?qū)υ搱D象信息進(jìn)行編碼(不考慮壓縮),將該圖象編碼信息的字節(jié)數(shù)基座X,表示第一行圖象信息的十六進(jìn)制編碼記做Y.下列選項(xiàng)中正確的X,Y組合是(  )

            組卷:25引用:1難度:0.7

          【加試題】

          • 16.小李編寫VB程序模擬“中國福利彩票雙色球”抽獎(jiǎng),實(shí)現(xiàn)如下功能:雙色球投注區(qū)分為紅色球號(hào)碼區(qū)和藍(lán)色球號(hào)碼區(qū),紅色球號(hào)碼區(qū)由1-33共33個(gè)號(hào)碼組成,藍(lán)色球號(hào)碼區(qū)由1-16共16個(gè)號(hào)碼組成。每次隨機(jī)選擇6個(gè)紅色球號(hào)碼(紅球號(hào)碼不能重復(fù)出現(xiàn))和1個(gè)藍(lán)色球號(hào)碼(可以和紅色號(hào)碼相同),界面如圖所示。單擊“產(chǎn)生號(hào)碼”按鈕(Command1)在Text1中產(chǎn)生紅球號(hào)碼,在Text2中產(chǎn)生藍(lán)球號(hào)碼。單擊“退出”按鈕(Command2)結(jié)束程序。

            實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯(cuò)誤,請(qǐng)改正。
            Dim a(1To 6)As Integer
            Private Sub Command1_Click (  )
            Dim y As Integer,i As Integer
            Text1.Text=““
            Randomize
            For i=1To 6
            a(i)=Int(Rnd*33)+1
            Do While And i>1
            a(i)=Int(Rnd*33)+1
            Loop
            Next i
            For i=1To 6
            Text1.Text=Text1.Text+Str(a(i))
            Next i
            y=
            Text2.Text=Str(y)
            End Sub
            Function check(m As Integer,n As Integer) As Boolean
            Dim j As Integer
            check=False
            For j=1To n-1
            If m=a(j) Then
            check=True
            Exit For
            End If
            Next j
            End Function
            Private Sub Command2_Click (  )
            End
            End Sub

            組卷:0引用:1難度:0.5

          【加試題】

          • 17.某農(nóng)科所研究不同品種生豬產(chǎn)肉量比,數(shù)據(jù)利用Visual Basic 進(jìn)行數(shù)據(jù)處理,生豬的品種編號(hào)、產(chǎn)肉比等數(shù)據(jù)存儲(chǔ)在某數(shù)據(jù)庫文件中,程序運(yùn)行界面如下:

            程序運(yùn)行后,在列表框List1中顯示生豬品種編號(hào)以及對(duì)應(yīng)的產(chǎn)肉比,單擊“排序”按鈕(Command1)后,在列表框List2中顯示以產(chǎn)肉比的高低,進(jìn)行降序排列后的生豬品種編號(hào)以及對(duì)應(yīng)的產(chǎn)肉比;單擊“查找”按鈕(Command2)后,在列表框List3中顯示產(chǎn)肉比相同的品種編號(hào)。
            請(qǐng)?jiān)跈M線處填入合適的代碼。
            Dim conn As New ADODB.Connection
            Dim cmd As New ADODB.Command
            Dim rs As New ADODB.Recordset
            Dim NO(1To 20)As String‘品種編號(hào)
            Dim Crb(1To 20)As Single‘產(chǎn)肉比
            Dim n As Integer
            Private Sub Command1_Click (  )
            Dim i As Integer,j As Integer,t1As String,t2As Single
            For i=1To 19
                For j=20To i+1Step-1
            If①
             
             Then
            t1=NO(j):NO(j)=NO(j-1):NO(j-1)=t1
            t2=Crb(j):Crb(j)=Crb(j-1):Crb(j-1)=t2
            End If
            Next j
            Next i
            List2.Clear
            For i=1To 20
            List2.AddItem NO(i) &““& Str(Crb(i))
            Next i
            End Sub
            Private Sub Command2_Click (  )
            Dim s As String,k As Integer,flag As Boolean
            For i=1To 19
            s=““
                k=i
            s=②
             

            flag=False
                For j=i+1To 20
            If ③
             
             Then
            s=s+“和“+NO(j)
            flag=True
            End If
            Next j
            If flag=True Then List3.AddItem s
            Next i
            End Sub
            Private Sub Form_Load (  )
            conn.ConnectionString=“Provider=microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\szcrb.jye.ai“
            conn.Open
            strsql=“select*from crb“
            Set rs.ActiveConnection=conn
            本過程其他代碼略
            End Sub

            組卷:3引用:1難度:0.5
          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)改正