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

          2020-2021學年浙江省稽陽聯誼學校高三(下)月考信息技術試卷(4月份)

          發布:2024/4/20 14:35:0

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

          • 1.下列關于信息和信息技術的描述,正確的是(  )

            組卷:14引用:1難度:0.7
          • 2.下列有關網頁和電子郵件的說法,正確的是(  )

            組卷:2引用:1難度:0.7
          • 3.用Access軟件設計一個數據表,存儲下表所示的用戶數據。
            會員編號 姓名 聯系方式 注冊日期 性別 余額
            1 徐文杰 17886262123 2021-1-1 202.30
            2 張樂 2021-1-5 15.86
            3 王燕飛 15957554321 2021-2-3 500.00
            下列表結構設計最合理的是(  )

            組卷:2引用:1難度:0.7
          • 4.利用軟件UltraEdit觀察字符內碼,界面如圖所示,下列說法正確的是(  )

            組卷:3引用:1難度:0.4
          • 5.用photoshop軟件制作“建黨百年”作品,如圖所示。當前狀態下,下列說法正確的是(  )

            組卷:1引用:1難度:0.6

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

          • 15.某店鋪銷售運動類商品,根據銷售單售賣商品,然后更新庫存和統計銷售額。小商同學根據上述算法設計VB程序,讀入銷售清單數據(銷售清單存在數組sale,其中奇數位是商品名,偶數位是購買數量),單擊“計算”按鈕command1,若庫存充足則銷售成功,否則該單號作廢,最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下,回答下列問題:

            Dim goods(1 To 11)As String‘商品名,共11種
            Dim num(1 To 11)As Integer‘庫存數
            Dim prize(1 To 11)As Integer‘商品單價
            Dim sale(1 To 160)As String‘共80個銷售單號
            Private Sub Command1_Click (  )
            Dim i As Integer,j As Integer,t2 As Integer
            Dim total As Integer,s as string,t1 As String
            total=0
            For i=1 To 80
            For j=1 To 11
            If Then Exit For
            Next j
            If
             
              Then
            num(j)=num(j)-Val(sale(i*2))
            total=total+Val(sale(i*2))*prize(j)
            For k=1 To 10
            If
             
                   Then
            t1=goods(k):goods(k)=goods(k+1):goods(k+1)=t1
            t2=num(k):num(k)=num(k+1):num(k+1)=t2
            t2=prize(k):prize(k)=prize(k+1):prize(k+1)=t2
            End If
            Next k
            Else
            List1.AddItem Str(i)+“號單庫存不足“
            End If
            Next i
            ‘在列表框list1輸出各商品剩余庫存,代碼略
            List1.AddItem“總銷售額“+
             
            +“元“
            End Sub
            Private Sub Form_Load
             

            ‘讀入數據,存在各個數組,代碼略
            End Sub
            (1)根據代碼和程序界面,本程序沒有哪類對象
             
            (單選,填字母:A.文本框  B.列表框   C.標簽  D.按鈕 )。
            (2)加框處代碼有錯,請改正
             

            (3)在程序橫線處填入合適代碼,使程序完整。

            組卷:1引用:1難度:0.4
          • 16.有60個人要組建一個聚會,每人的喜好是一個數值,為提升聚會效果,會務組要把參會人員進行分組,分組原則是:
            (1)每組不超過8人
            (2)組內新增人員的喜好值必須與現有組內人員的平均喜好值相差在5以內
            (3)若新增人員無法加入現有小組,則被分入新組建小組
            小V同學根據上述算法設計編寫了VB程序,界面如圖所示,單擊“分組”按鈕后,在列表框list1輸出分組結果,每組一行,回答下列問題:
            Dim a(1 To 60)As Integer'各人的喜好值
            Private Sub Command1_Click (  )
            Dim i As Integer,j As Integer,c As Integer,s as String
            Dim b(1 To 480)As Integer'分組后喜好值
            Dim ave(1 To 60)As Integer,num(1 To 60)As Integer
            For i=1 To 60‘預設60個分組
            num(i)=1
            ave(i)=0
            Next i
            c=1:ave(1)=a(1):b(1)=a(1)
            For i=2 To 60
            For j=1 To c
            If Abs(a(i)-ave(j))<=5 And num(j)<8 Then
            ave(j)=
             

            num(j)=num(j)+1
            b(j*8-8+num(j))=a(i)
            Exit For
            End If
            Next j
            If
             
            Then
            b(c*8+1)=a(i)
            ave(j)=a(i)
            c=c+1
            End If
            Next i
            s=““
            For i=1 To c
            For j=1 To
             

            s=s+Str(b((i-1)*8+j))
            Next j
            List1.AddItem s
            s=““
            Next i
            End Sub
            Private Sub Form_Load
             

            ‘生成60個原始數據,存入數組a,數組b各元素初始化為0,代碼略
            End Sub
            (1)如圖所示,當前數據已被分組,若再新增一個數“64”,會被分在第
             
            組。

            (2)在程序橫線處填入合適代碼,使程序完整。

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