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

          2017年浙江省普通高校高考信息技術模擬試卷(3)

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

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

          • 1.飛機的模擬駕駛室實現了飛行場景的全程模擬,體驗者可以在模擬駕駛室內體驗操縱飛機進行起、降、機場滑行、空中改變航向等一系列動作.這種飛機模擬駕駛室主要應用(  )

            組卷:6引用:2難度:0.9
          • 2.小張從網上下載某軟件,下載頁面的部分截圖如圖所示.下列說法正確的是(  )

            組卷:11引用:2難度:0.9
          • 3.在Word中使用鍵盤輸入文本時,部分字詞的下方出現了紅色的波浪線,這表明這部分字詞處(  )

            組卷:4引用:5難度:0.9
          • 4.某Access數據表打開后如圖所示,下列說法中正確的是(  )

            組卷:7引用:1難度:0.9
          • 5.以下關于數據庫的說法正確的是(  )

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

          【加試題】

          • 16.某學校開設多樣化選修課程,學生可以根據個人興趣和特長選擇選修課.假設每門選修課的選課人數不超過40,學生選課的相關信息存放在數據庫文件“student.jye.ai”的data表中,選課查詢程序運行時界面如圖所示.
            程序功能:在文本框Text1中輸入課程號,單擊“查詢”按鈕Command1,在列表框List1中顯示選修本課程的各學生信息.如果沒有找到,在列表框中顯示“該課程當前無人報名”.按此要求將程序補充完整.
            Private Sub Command1_Click (  )
            Dim xh(1to 40),xm(1to 40)As String'學號和姓名的數組
            Dim i,num as integer
            Dim conn As New ADODB.Connection,rs As New ADODB.
            Recordset
            Dim strSQL As String
            conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=”+App.Path+“\student.jye.ai”'打開到數據庫的鏈接
            conn.Open
            strSQL=“select xh,xm from data where課程=‘&(Text1.Text)&’”'設置查詢的SQL語句
            Set rs.ActiveConnection=conn'設置rs的ActiveConnection屬性,指定與其關聯的數據庫鏈接
            rs.OpenstrSQL'打開記錄集,將從表data中讀取的結果集保存到記錄集rs中
            List1.Clear
            num=0
            DO while not rs.EOF
             


            xh(num)=rs.Fields(“xh”)
            xm(hum)=rs.Fields(“xm”)
            rs.MoveNext
            loop
            rs.Close
            conn.close
            set rs=nothing
            set conn=nothing
            For i=1to num
             

            Next i
            if num=0then
            List1.additem(“該課程當前無人報名”)
            End Sub
            (1)程序中①橫線處應填入
             

            (2)程序中②橫線處應填入
             

            組卷:8引用:2難度:0.1
          • 17.競選班長.編號分別為1、2、3、4、5的五位候選人參加班長競選,現要設計一個計票程序,根據回收的選票信息統計各位候選人的得票數,得票數最多的被選為班長,并輸出班長的編號.選票信息為一個數字序列,由每張選票的投票結果構成,如某選票序列為101233303,其含義見如表所示.
            選票序列 1 0 1 2 3 3 3 0 3
            含義 第1張選票投給1號 第2張選票棄權 第3張選票投給1號 第4張選票投給2號 第5張選票投給3號 第6張選票投給3號 第7張選票投給3號 第8張選票棄權 第9張選票投給3號
            備注:選票序列101233303,序列中的數字i,表示投票給編號為i的人,即編號為i的人得1票,其中數字0表示不投給任何人,即為棄權.表中選票序列的投票結果為:1號得2票,2號得1票,3號4得票,4號.5號均為0票(沒人投),所以3號得票數最高,被選為班長.
            程序運行時,在文本框Text1中輸入選票信息,單擊“計算”按鈕Command1后,被選為班長的編號顯示在文本框Text2中.程序運行效果如圖所示.
            實現上述功能的VB程序如下,請在橫線處填入合適的代碼.
            Private Sub Command1_Click (  )
            Dima(1To 5)As Integer
            '數組元素a(1)~a(5)依次存放編號為1~5的五位候選人的得票數
            Dim st As String,i As Integer,j As Integer,n As Integer
            Dim ans As Integer'變量ans存放被選為班長的人的編號
            Dim max As Integer'變量max存放最多的得票數
            st=Text1.Text
             

            For i=1To 5
            a(i)=0
            Next i
            For i=1To 5
            For j=1To n
            If
             
            Then a(i)=a(i)+1
            Next j
            Next i
            max=0
            For i=1To 5
            If a(i)>max Then
            max=a(i):ans=i
            Next i
             

            End Sub.

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