試卷征集
          加入會(huì)員
          操作視頻
          當(dāng)前位置: 試卷中心 > 試卷詳情

          2018-2019學(xué)年浙江省臺(tái)州市臨海市白云高級(jí)中學(xué)高三(上)第一次月考信息技術(shù)試卷

          發(fā)布:2024/4/20 14:35:0

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

          • 1.關(guān)于病毒,下列說法正確的是(  )

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

            組卷:7引用:2難度:0.9
          • 3.使用UltraEdit軟件觀察字符內(nèi)碼,部分界面如圖所示。下列關(guān)于字符組成的說法中,正確的是(  )

            組卷:12引用:2難度:0.5
          • 4.下列關(guān)于Access數(shù)據(jù)表中“自動(dòng)編號(hào)”的說法中,正確的是(  )

            組卷:3引用:2難度:0.5
          • 5.某算法的部分流程圖如圖所示。執(zhí)行這部分流程后s的值是(  )

            組卷:2引用:2難度:0.9

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

          • 16.一個(gè)正整數(shù)(非素?cái)?shù))可以表示成它的質(zhì)因子(“1”與其本身除外)的乘積。給出任一個(gè)整數(shù)N,求出它所有的質(zhì)因子以及每個(gè)因子出現(xiàn)的次數(shù),并顯示乘積表達(dá)式。例如:整數(shù)120=2×2×2×3×5,所以它的質(zhì)因子是2,3,5,次數(shù)分別是3次,1次,1次。
            用Visual Basic編寫一個(gè)程序求質(zhì)因子,功能如下:在文本框Text1中輸入一個(gè)數(shù),單擊“計(jì)算”命令按鈕Command1,在列表框中顯示該數(shù)的質(zhì)因子及相應(yīng)的次數(shù),并顯示乘積表達(dá)式。程序運(yùn)行時(shí)的界面如圖所示。

            實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯(cuò),請(qǐng)改正:
            Private Sub Command1_Click (  )
            Dim a(1 To 100)As Integer'數(shù)組a存放該整數(shù)的質(zhì)因子出現(xiàn)的次數(shù)
            Dim i As Integer,m As Integer,n As Integer,k As Integer,s As String
            n=Val(Text1.Text)
            m=n
            k=Int(Sqr(n))
            For i=2 To k
            a(i)=0
            Next i
            For i=2 To k
            Do While n Mod i=0
             a(k)=a(k)+1'

            n=n\i
            If
              n=1
            Then s=s+Str(i)+″×″Else s=s+Str(i):Exit For'②
            Loop
            Next i
            List1.AddItem“質(zhì)因子″&″″&″次數(shù)″
            For i=2 To k
            If a(i)<>0 Then List1.AddItem Str(i) &″″& Str(a(i))
            Next i
            List1.AddItem Str(m)+″=″+s
            End Sub
            加框①處應(yīng)改為:
             
            ;加框②處應(yīng)改為:
             

            組卷:0引用:1難度:0.5
          • 17.小王準(zhǔn)備編寫一個(gè)依據(jù)技術(shù)學(xué)考、加試成績進(jìn)行賦分的VB程序,需對(duì)成績進(jìn)行預(yù)處理。預(yù)處理算法的基本思想:先從數(shù)據(jù)庫中讀取考生的考號(hào)、學(xué)考、加試成績,然后進(jìn)行排序,排序規(guī)則是按學(xué)考+加試的總分降序,若總分相同按加試成績降序排列。再根據(jù)排序結(jié)果給出名次,同分同名,學(xué)考、加試成績相同,則名次相同。
            程序運(yùn)行時(shí),學(xué)生數(shù)據(jù)顯示在列表框List1中,單擊“計(jì)算”按鈕Command1,計(jì)算結(jié)果顯示在列表框List2中,程序運(yùn)行界面如圖所示。

            實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)回答下列問題:
            (1)如圖所示,學(xué)生總數(shù)為1500人,排名前1%的學(xué)生可賦分為100,則共有
             
            名學(xué)生可賦分為100。
            (2)分析數(shù)據(jù),可知存放學(xué)生成績的數(shù)據(jù)表為
             

            (3)請(qǐng)?jiān)跈M線處填入合適的代碼。
            Dim kh(1 To 1500)As String'存放學(xué)生考號(hào)
            Dim a(1 To 1500)As Integer'存放學(xué)考成績
            Dim b(1 To 1500)As Integer'存放加試成績
            Dim pm(1 To 1500)As Integer'存放排名
            Dim n As Integer'存放總?cè)藬?shù)
            Private Sub Form_Load (  )
            Dim conn As New ADODB.Connection
            Dim rs As New ADODB.Recordset
            conn.ConnectionString=″Provider=Microsoft.ace.OLEDB.12.0;DATA Source=″+App.Path+″\cj.jye.ai″
            conn.Open
            Set rs.ActiveConnection=conn
            rs.Open″select*from stu_cj″
            List1.AddItem“考號(hào)″&″學(xué)考″&″加試″
            n=0
            Do While Not rs.EOF'到記錄集最后一條記錄后退出循環(huán)
            n=n+1'計(jì)數(shù)
            kh(n)=rs.Fields(″考號(hào)″)
            a(n)=rs.Fields(″學(xué)考成績″)
            b(n)=rs.Fields(″加試成績″)
            List1.AddItem kh(n) &″″& a(n) &″″& b(n)
            rs.MoveNext'移動(dòng)到下一條記錄
            Loop
            rs.Close
            conn.Close
            Set rs=Nothing
            Set conn=Nothing
            End Sub
            Private Sub Command1_Click (  )
            Dim i As Integer,j As Integer,t As Integer,k As String
            For i=1 To n-1
            For j=n To i+1 Step-1
            If a(j)+b(j)>a(j-1)+b(j-1)Or ①
             
            Then
            t=a(j):a(j)=a(j-1):a(j-1)=t
            t=b(j):b(j)=b(j-1):b(j-1)=t
            k=kh(j):kh(j)=kh(j-1):kh(j-1)=k
            End If
            Next
            Next
            pm(1)=1
            For i=2 To n
            If a(i)=a(i-1)And b(i)=b(i-1)Then
             

            Else
            pm(i)=i
            End If
            Next
            List2.Clear
            List2.AddItem″排名″&″考號(hào)″&″學(xué)考″&″加試“
            For i=1 To n
            List2.AddItem pm(i) &″″& kh(i) &″″& a(i) &″″& b(i)
            Next
            End Sub

            組卷:0引用:1難度:0.5
          APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
          本網(wǎng)部分資源來源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正