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

          2018-2019學年浙江省臺州市臨海市白云高級中學高三(下)月考信息技術試卷(3月份)

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

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

          • 1.下列有關信息的說法,不正確的是(  )

            組卷:63引用:3難度:0.6
          • 2.阿里首家未來酒店菲住布渴(FlyZoo Hotel)于2018年12月開業,是全球首家支持全場景刷臉住宿的酒店,刷臉辦理入住,智能機器人服務,“各顯神通”的智能門鎖,“天貓精靈”智慧客房體驗,手機一鍵退房,都給客人帶來了無上的體驗。以上材料中不屬于人工智能的是(  )

            組卷:39引用:3難度:0.6
          • 3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是(  )

            組卷:40引用:3難度:0.5
          • 4.以下關于數據庫的說法正確的是(  )

            組卷:11引用:2難度:0.4
          • 5.某算法的部分流程圖如圖所示。輸入n的值為100執行這部分流程后,輸出的值為(  )

            組卷:10引用:2難度:0.4

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

          • 16.數組nam (  )、sex (  )、math (  )、su (  )分別存放學生的姓名、性別、數學和總分成績,現要求編寫一個程序使得數據按照男生“總分”的降序和女生“總分”的升序排列,其中男生在前女生在后,程序界面如圖所示:

            實現該功能的VB程序如下,但加框處代碼有錯,請改正。
            Dim nam(100)As String'存放學生姓名
            Dim sex(100)As String'存放學生性別
            Dim math(100)As Long'存放學生數學成績
            Dim su(100)As Long'存放學生總分成績
            Dim k As Integer'k變量用來存學生人數
            Private Sub Form_Load (  )
            ‘將數據庫中的數據分別存儲在相應的變量中并在列表框中顯示出來
            ‘代碼略
            End Sub
            Private Sub Command1_Click (  )
            Dim mmax As Integer,gmax As Integer,flagm As Boolean,flagg As Boolean
            i=1:flagm=True:flagg=True
            Do While 
            mmax=0:gmax=0
            flagm=False:flagg=False
            For j=i To k-i+1
            If sex(j)=“男“And su(j)>su(mmax) Then mmax=j
            If sex(j)=“女“And su(j)>su(gmax) Then gmax=j
            Next j
            If mmax<>0 Then
            flagm=True
            t=nam(mmax):nam(mmax)=nam(i):nam(i)=t
            t=sex(mmax):sex(mmax)=sex(i):sex(i)=t
            t=math(mmax):math(mmax)=math(i):math(i)=t
            t=su(mmax):su(mmax)=su(i):su(i)=t
            End If
            If gmax<>0 Then
            flagg=True
            If Then②
            gmax=mmax
            t=nam(gmax):nam(gmax)=nam(k-i+1):nam(k-i+1)=t
            t=sex(gmax):sex(gmax)=sex(k-i+1):sex(k-i+1)=t
            t=math(gmax):math(gmax)=math(i):math(i)=t
            t=su(gmax):su(gmax)=su(k-i+1):su(k-i+1)=t
            Else
            t=nam(gmax):nam(gmax)=nam(k-i+1):nam(k-i+1)=t
            t=sex(gmax):sex(gmax)=sex(k-i+1):sex(k-i+1)=t
            t=math(gmax):math(gmax)=math(k-i+1):math(k-i+1)=t
            t=su(gmax):su(gmax)=su(k-i+1):su(k-i+1)=t
            End If
            End If
            i=i+1
            Loop
            For i=1 To k
            List2.AddItem nam(i)+““+sex(i)+““+Str(math(i))+““+Str(su(i))
            Next i
            End Sub
            程序中①處改為
             

            程序中②處改為
             

            組卷:6引用:1難度:0.2
          • 17.某數據加密方法描述如下:
            ?先將字符轉化為二進制的位數據并顯示在文本框text2中,數據位數顯示在標簽Label1中
            ?以16個數據為一段,將k個待加密數據依次分割成若干個數據段,剩余數據(個數小于16)為獨立數據段。
            ?數據加密規則:
            數據個數等于16的數據段,在段內進行位置變換,得到加密數據段。
            數據個數小于16的數據段,直接得到加密數據段。
            ?依次合并加密數據段,即為最后的加密數據。
            位置變換的規制,方法如下:

            具體界面如圖所示:

            (1)已知k=38,則數組元素b(26)對應值是數組a中的。
            (2)實現該功能的VB程序如下,請在橫線處填入合適的代碼:
            Private Sub Command1_Click (  )
            Dim a(1 To 1000)As Integer,b(1 To 1000)As Integer
            Dim n As Integer,m As Integer
            Dim s As String,s1 As String,c As Integer,ch As String
            s=Text1.Text:Text2.Text=““
            n=Len(s)
            k=1
            For i=1 To n'獲取字符的二進制數據存放在數組a
             

            n=Asc(Mid(s,i,1))
            Do While n<>0
            a(k)=n Mod 2
            n=n\2
            Text2.Text=Text2.Text+Str(a(k))
            k=k+1
            Loop
            Next i
                          ①

            List1.Clear
            For m=1 To (k-1)\16'對字符二進制按規則進行位變換,變換后的數據存放在數組b
             
            中并輸出
            For i=1 To 4
            b(16*(m-1)+4*(i-1)+1)=a((m-1)*16+i)
                       ②

            Next i
            For i=1 To 3
            b(16*(m-1)+4*(i-1)+3)=a((m-1)*16+10+i)
            b(16*(m-1)+4*(i-1)+2)=a((m-1)*16+17-i)
            Next i
            For i=1 To 2
            b(16*(m-1)+13+i)=a((m-1)*16+4+i)
            Next i
            For i=1 To 4
            s1=““
            For j=1 To 4
            s1=s1+Str(b(16*(m-1)+(i-1)*4+j))
            Next j
            List1.AddItem s1
            Next i
            List1.AddItem““
            Next m

            s1=““
            For i=((k-1)\16)*16+1 To k-1
            b(i)=a(i)
            If         ③
            Then
            s1=s1+Str(a(i))
            List1.AddItem s1
            s1=““
            Else
            s1=s1+Str(a(i))
            End If
            Next i
            List1.AddItem s1
            Text3.Text=““
            For i=1 To k-1
            Text3.Text=Text3.Text+Str(b(i))
            Next i
            End Sub
            (1)實現上述功能,請在橫線處填入適當的代碼:
            程序中①處填入的是
             

            程序中②處填入的是
             

            程序中③處填入的是
             

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