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

2018-2019學年浙江省名校新高考研究聯(lián)盟高三(上)第一次聯(lián)考信息技術(shù)試卷

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

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

  • 1.下列關(guān)于信息和信息技術(shù)的說法錯誤的是( ?。?/h2>

    組卷:2引用:1難度:0.5
  • 2.瀏覽某網(wǎng)頁的部分界面如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201906/123/0b7befb9.png" style="vertical-align:middle" />

    組卷:2引用:1難度:0.5
  • 3.下列關(guān)于字處理的說法,錯誤的是( ?。?/h2>

    組卷:4引用:1難度:0.6
  • 4.下列關(guān)于數(shù)據(jù)庫的說法,正確的是( ?。?/h2>

    組卷:4引用:1難度:0.3
  • 5.用 UltraEdit軟件查看字符的內(nèi)碼,界面如圖所示,下列分析正確的是( ?。?br />菁優(yōu)網(wǎng)

    組卷:0引用:2難度:0.5

【加試題】

  • 16.某種紙牌游戲,三人一起玩一幅牌,每人17張,5張及以上的連續(xù)單牌(不分花色)稱為順子,順子最大到K,如“A,2.3,4,5,6”是長度為6的順子。編寫程序,判斷游戲剛開始時某玩家有沒有順子,最長的順子是幾張實現(xiàn)上述功能的B程序代碼如下,但加框處代碼有錯,請改正
    Const n=17
    Dim a(n) As Integer
    Private Sub Command1_ Click(  )
    Dim max As Integer,count As Integer
    Dim i As Integer,Ag Integer
    count=0:max=0
    i=1
    Do While i<=n-1
    菁優(yōu)網(wǎng)′①
         j=i+1
    Do While j<=n
        If菁優(yōu)網(wǎng)Then′②
             j=j+1
            count=count+I

        Elself a(j)=a(j-1)Then
            j=j+1
        Else
            Exit Do
         End If
      Loop
        i=j
         If count>max Then max“count
    Loop
        If mxa<5 Then
           Label2.Caption=“無順子“
      Else
           Label2.Caption=“最長順子長度:“+Str(max)
         End If
      End Sub
    Private Sub Fora Load ( ?。?br />'獲取17張牌的牌面數(shù)值(J、Q、K,A分別對應11、12、13,1),升序存儲在數(shù)組a中
    ‘代碼略
    End Sub

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

【加試題】

  • 菁優(yōu)網(wǎng)17.回文數(shù)是從左向右讀和從右向左讀結(jié)果一樣的數(shù)字串,例如:1和363都是回文數(shù)編寫VB程序,構(gòu)造一個大于給定正整數(shù)n的最小回文數(shù)p,構(gòu)造方法如下
    (1)根據(jù)數(shù)字串n的左半部分子串st,構(gòu)造對稱的右半部分,生成回文數(shù)p
    (2)若p>n,則p即為最小回文數(shù),如:98712→98789
    (3)若p<=n則需重新構(gòu)造p,方法是:從右向左查找字符串st中第一個“9”的字符;若不存在,則生成形如“10…01”的回文數(shù)p,p的長度比n的長度多1位,如:9999→10001若存在,則將第一個非“9”字符加1,并將該字符后面部分用字符“0“填充,最后構(gòu)造對稱的右半部分,生成回文數(shù)p。如:98992→99099,
    實現(xiàn)上述功能的VB程序如下,請回答下列問題:
    (1)如果n為69999,則p為
     
    。
    (2)請在橫線處填入合適的代碼
    Private Sub Command1_Click(  )
    Dim n As String,st As String.p As String
    Dim In As Integer.i As Integer.j As Integer
    n=Text1.text
    ln=Len(n)
    st=Mid(n,1,<ln+1>\2)
    p=st
    For i=ln\2To1 Stop-1
      p=p+Mid(n,i,1)
    Next i
    If
     
    Then
       i=(ln+1)\2
    Do While i>0
    If Mid(st,i,1)=“9“Then
     
    EIse Exit Do
    Loop
    If i<1 THen
        p=“1“
        For i=2 To In
           p=p+“0“
        Next i
       p=p+“1“
    Else
       p=Mid(st,1,i-1)
       p=p+Chr(Asc(Mid(st,i,1))+1)
       For j=i+1 To ln-i
         p=p+“0“
       Next j
          If
     
    Then p=p+Mid(p,i,1)
          For j=i-1 To Step-1
          p=p+Mid(p,j,1)
          Next j
         End If
      End If
    End If
    Text2.Text=p
    End Sub

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