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

          2018-2019學年浙江省寧波市慈溪市三山高級中學高二(下)第一次月考信息技術試卷

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

          一、選擇題(本大題12小題,每小題2分,共24分.)

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

            組卷:18引用:1難度:0.6
          • 2.小明用IE瀏覽一個圖文并茂的網頁,地址欄信息為http://www.nb.gov.cn/index.jye.ai“.下列描述不正確的是(  )

            組卷:12引用:1難度:0.5
          • 3.使用Word軟件進行圖文處理,下列說法正確的是(  )

            組卷:14引用:1難度:0.4
          • 4.關于 Access數據庫和數據表,下列說法正確的是(  )

            組卷:12引用:1難度:0.5
          • 5.使用 UltraEdit軟件查看字符內碼,部分界面如圖所示:下列說法正確的是(  )

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

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

          • 15.編寫“簡單密碼篩選”程序,實現如下功能:在文本框Textl中輸入連續多組數字密碼,之間以空格符分隔,篩選出簡單密碼(即一組密碼中所有數字均相同),單擊“篩選密碼”按鈕 Commandl,將簡單密碼顯示在列表框List1中,簡單密碼個數顯示在文本框Text2中。程序運行界面如圖a所示。
            (1)程序運行時,提示如圖b所示的出錯信息,導致出錯的是下列哪條語句
             
            (單選,填字母:A.s=Text1.text  B.List.jye.ai  C.Text2.Text=Str(cnt))
            (2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。
            Private Sub Commandl_Click (  )
            Dim s As String,c As String,tmp As String
            Dim i As Integer,cnt As Integer
            Dim flag as boolean
            cnt=0:flag True
            List.Clear:s=Text1.Text:Text1.text=″″
            For i=1 To Len(s)
            ch=Mid(s,i,1)
            If ch>=″0″And ch<=″9″Then
            tmp=tmp+ch
            If Len (tmp)>1 Then
            If
             
            Then flag=False
            End If
            Else
            If flag Then
            Listl.AddItem tmp:cnt cnt+1
            flag=True
            tmp=″″
            End if
            Next  i
            If flag Then List1.AddItem tmp:cnt cnt+1
            If
             
            Then Text2.Text=“找不到“Else text2.Text=Str(cnt)
            End Sub
            (3)成功修改第1題中錯誤的程序代碼后,若文本框Text中輸入的內容為
             
            “11 456 7 4443 488 666666”,單擊“篩選密碼”按鈕,文本框Text2中顯示的內容是
             

            組卷:0引用:1難度:0.2
          • 16.編寫VB應用程序,當用戶輸入的一串由字母、數字等字符組成的字符串,統計其中每個字母出現的次數(不分大小寫).程序運行時界面如圖1所示.

            (1)設計應用程序界面時,為添加標簽對象“輸入字串:”,應使用圖2所示的“控件工具箱”中的
             
            (填寫相應編寫),并在圖3所示的“屬性窗口”中,將
             
            屬性設置為“輸入字串:”.

            (2)程序運行時,在Text1中輸入字符串,單擊“統計”按鈕,在List1中顯示統計結果.請在橫線處填入合適代碼.
            ‘函數IsLetter(x)功能,若x是字母,則返回值為字母x在字母序列“A”~“Z”中的序號,如字母“A”的序號為0,字母“D”的序號為3.若x不是字母,則返回值為-1.
            Function IsLetter(x As String) As Integer
            If“A“<=x And x<=“Z“Then
            IsLetter=Asc(x)-Asc(“A“)
            ElseIf“a“<=x And x<=“z“Then
            IsLetter=Asc(x)-Asc(“a“)
            Else
             

            End If
            End Function
            Private Sub Command1_Click
             

            Dim f(25)As Integer,m As Integer,n As Integer
            Dim s As String,c As String
            List1.Clear
            For m=0To 25‘初始化數組f
            f(m)=0
            Next m
            s=Text1.Text
            For m=1To Len(s)‘依次讀取字符串中的每個字符進行判斷
            c=Mid(s,m,1)
            n=IsLetter(c)
            If n<>-1Then f(n)=f(n)+1
            Next m
            For m=0To 25‘輸出統計結果,沒有出現的字母不輸出
            If
             
            Then
            List1.AddItem (Chr(m+Asc(“a“)) &“:“& f(m))
            End If
            Next m
            End Sub.

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