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

2017年浙江省普通高校招生信息技術仿真試卷(選考)(1)(11月份)

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

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

  • 1.某同學將《如何學習高中英語》分享在朋友圈供大家學習參考,這主要體現了信息具有(  )

    組卷:11難度:0.9
  • 2.某同學使用某軟件打開浙江教育考試網查詢學業(yè)水平考試成績時,其界面如圖所示:

    他正在使用的軟件可能是( ?。?/h2>

    組卷:10引用:1難度:0.9
  • 3.小華在淘寶上看到了某賣家的信用評價等信息,其部分頁面如圖所示,圖中好評率為“99.51%”代表的含義是屬于信息評價中的( ?。?br />

    組卷:5引用:1難度:0.9
  • 4.在用光學字符識別(OCR)軟件識別文字時,能被直接識別的源文件有(  )

    組卷:4難度:0.7
  • 5.某學生入學成績信息表如下:

    若用Access數據表來存儲學生信息,下列部分字段設計不合理的是( ?。?/h2>

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

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

  • 16.現有n根棍子,第i根棍子的長度為ai.想要從中選出三根棍子組成周長盡可能長的三角形,輸出最大的周長;若無法組成三角形,則輸出0.如當n=5,a={2,3,4,5,10}時,輸出12,即選擇了3、4、5.當n=4,a={4,5,10,20}時,無法組成三角形,輸出0.加框處代碼有誤,請改正.
    Dim a( 1To 1000)As Integer
    Dim n As Integer
    Private Sub Form_Load ( ?。?br />‘確定n的值和數組a的各個元素值,即每根棍子的長度值,代碼略
    End Sub
    Function max(x As Integer,y As Integer) As Integer
    If x>y Then
    max=x
    Else
    Max=y
    End  If
    End  Function
    Private  Sub Command1_Click ( ?。?br />Dim  i  As Integer,j  As  Integer,k  As  Integer
    Dim  ans  As  Integer,c  As  Integer,longest  As  Integer,rest  As  Integer
    ans=0
    ‘讓i<j<k,保證棍子不會重復選中
    For i=1To n
    For j=i+1  To n
    For  k=j+1  To  n
    c=a(i)+a(j)+a(k)
    longest=‘①
    rest=c-longest‘rest保存最短的兩條邊的和
    If  Then‘②
    ans=max(ans,c)
    End  If
         Next  k
    Next  j
         Next  i
    Print  ans
    End  Sub.

    組卷:4引用:1難度:0.3
  • 17.一個考古學家在尋找外星生物曾到過地球的證據.他偶然發(fā)現一面破損的墻上有一串奇怪的數字,數字長度不超過9位數,左側是完整的,而很多數字的右側部分因石頭被腐蝕而極難辨認.他發(fā)現保存完好的數都是2的冪,于是他猜測所有數都是2的冪.為了證明他的結論,他選取了一份數的清單,每個數中清晰可辨的數字個數總是嚴格小于模糊不清的數字個數.請你為這些數找出一個盡量小的2的冪,使得它左側的數字和清單吻合.
    以下程序,在Text1中輸入一個清單中的數n,單擊按鈕Command1后在Label中輸出一個最小的指數x(若存在),使得2x從最高位開始的若干個數字等于n.如:輸入10,則找到最小的x=20,即220=1048576的前兩位與輸入數相同;而x=10的結果1024長度不符.如果在給定條件內找不到這樣的指數x,則輸出“No Power of 2”.
    'power函數的功能與2^n一致,只不過它的返回值是String類型而不是整數型

    Function  power(n As Integer) As String
    Dim  res  As  Long
    res=2^n
    power=Trim(Str(res))‘trim ( ?。┖瘮档淖饔檬侨サ糇址笥业目崭?br />End  Function
    'check ( ?。┖瘮涤糜跈z測前幾位數和長度是否符合要求,符合要求返回為True
    Function  check(x_power  As  String,n  As  String) As Boolean
    Dim length  As  Integer,x_power_len  As  Integer
    length=Len(n)
    x_power_len=Len( x_power)
    If Mid(x_power,1,length)=n  And
     
     Then
    check=True
    Else
    check=False
    End If
    End Function
    Private  Sub  Commandl_Click ( ?。?br />Dim  n  As  String,i  As  Integer,x As String
    n=Textl.Text
    i=0
    x=power(i)
    Do  While  Len(x)<10And     ②
    i=i+1
    x=power(i)
    Loop
    If Len(x)<10Then
    Labell.Caption=“2的”&  ③ &
    “次方的前幾位是”& n &“,符合要求”
    Else
    Label1.Caption=“No Power of 2”
    End If
    End Sub.

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