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

          2017年浙江省名校信息技術仿真試卷(二)

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

          一、選擇題(共12小題,每小題2分,滿分24分)

          • 1.某用戶使用手機“導航”軟件,從 A 地駛向 B 地,規劃路線后開始行駛,途中“導航”提醒前 方道路擁堵,建議改變路線,并實時提供新的導航路徑,該事例體現信息的(  )

            組卷:23引用:7難度:0.9
          • 2.某同學利用百度搜索得到的部分界面如圖所示,以下說法錯誤的是(  )

            組卷:10引用:5難度:0.9
          • 3.Word字處理軟件編輯某文檔后,部分界面如圖所:

            對于圖中所示部分的文檔,下列說法不正確的是(  )

            組卷:12引用:2難度:0.9
          • 4.某數據表的設計視圖如圖所示,下列說法正確的是(  )

            組卷:6引用:2難度:0.7
          • 5.某算法的流程圖如圖所示,執行該算法,輸出y的值為(  )

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

          二、解答題(共5小題,滿分26分)

          • 16.用VB編寫程序,在文本框Text1中輸入任意字符串s,統計s中數字字符串的數值和(如輸入字符串“ab123dr34fg9de”則輸出166,即123+34+9=166.)并在Labe13輸出結果.程序設計界面如下:
            根據算法將下列程序補充完整.
            Private Sub Command1_Click(  )
            Dim s As String,ch As String,s As Integer
            Dim ch2 As String,sum As Double
            Dim n As Integer,i As Integer
            s=Text1.Text
             

            i=1;sun=0
            Do While i=n
            ch=Mid(s,i,1)
            If ch>=“0“And ch<=“9“Then
            j=i
            ch2=Mid(s,j,1)
            Do While ch2>=“0“And ch2“9“
            j=j+1
            ch2=Mid(s,j,1)
            Loop
            sum=sum+
             

            i=j
            End If
            i=i+1
            Loop
            Label3.Caption=Str(sum)
            End Sub.

            組卷:15引用:3難度:0.1
          • 17.某字符串(字節數為3的倍數)編碼規則如下:
            (1)將該字符串內碼分成3個字節一組,順次連接后得到24位二進制數;
            (2)將得到的24位二進制數字分成4組,每組6位;
            (3)在每組數字前補上兩個0,得到4個字節的二進制數;
            (4)將(3)中得到的四個二進制數分別轉換為十進制數;
            (5)將每個十進制數轉換為1個加密字符,對應的“密碼表”按數值由小到大依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”
            小明按照上述方法,設計了一個字符串(僅包含ASCⅡ字符)加密的VB程序,功能如下:單擊“加密按鈕”Command1,程序依次將文本框Text1中每3個字符ASCⅡ碼值按編碼規則轉換為四個加密字符,連接這些加密字符,最后在文本框Text2中輸出加密結果.程序運行效果如下所示.
            實現上述功能的VB程序如下:
            (1)在上述加密算法步驟(4)中,得到的十進制數最大是
             

            (2)實現上述功能的VB程序如下.請在橫線處填入合適代碼.
            Function Code2Char(c As Integer)As String
               Dim s As String
               s=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/“
               Code2Char=
             

            End Function
            Private Sub Command1_Click(  )'加密過程
               Dim n As Integer,s As String,i As Integer,ss As String
               Dim a1 As Integer,a2 As Integer,a3 As Integer'存儲加密前字符的ASCII碼
               Dim b1 As Integer,b2 As Integer'分別存儲分割、轉換后的前兩個十進制數
               Dim b3 As Integer,b4 As Integer'分別存儲分割、轉換后的后兩個十進制數
               s=Text1.Text
               n=Len(s)
               ss=““
               For i=1 To n
             

                  a1=Asc(Mid(s,i,1))
                  a2=Asc(Mid(s,i+1,1))
                  a3=Asc(Mid(s,i+2,1))
                  b1=a1\4
                  b2=(a1 Mod4)*16+(a2\16)
                  b3=
             

                  b4=a3 Mod 64
                  ss=ss+Code2Char(b1)+Code2Char(b2)+Code2Char(b3)+Code2Char(b4)
               Next i
               Text2.Text=ss
            End Sub.

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