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

2015年浙江省普通高校招生選考信息技術(shù)試卷(9月份)

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

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

  • 1.很多用戶為手機(jī)設(shè)定了屏幕鎖,如密碼、手勢圖案、指紋等,目的是提升信息的( ?。?/h2>

    組卷:10引用:7難度:0.9
  • 2.某同學(xué)的電腦系統(tǒng)收到了微軟公司免費(fèi)升級Windows10系統(tǒng)的通知,其中一個(gè)界面如圖所示:
    菁優(yōu)網(wǎng)
    分析圖中信息可知,對于“Microsof t Edge”軟件的功能,下列軟件中與其相似的是( ?。?/h2>

    組卷:8引用:3難度:0.9
  • 3.某用戶撰寫電子郵件時(shí),部分界面如圖所示:
    菁優(yōu)網(wǎng)
    單擊“發(fā)送”按鈕,下列說法正確的是( ?。?/h2>

    組卷:9引用:2難度:0.9
  • 4.某單位職工基本信息表如下:
    職工基本信息表
    編號姓名性別出生年月基本工資是否黨員
    S1034王力鋒1965-3-233896.00
    S1057張帆1972-5-83278.00
    S2032孫利群1968-10-123628.00
    若用Access數(shù)據(jù)表來存儲職工信息,下列部分字段設(shè)計(jì)最合理的是( ?。?/h2>

    組卷:5引用:1難度:0.7
  • 5.對輸入的二個(gè)整數(shù)a和b,找出其中的較大者賦給c并輸出。解決該問題的算法流程圖如圖所示,該流程圖中虛線框部分的內(nèi)容可為(  )
    菁優(yōu)網(wǎng)

    組卷:4引用:6難度:0.9

【加試題】

  • 16.編寫VB程序,實(shí)現(xiàn)如下功能:在文本框Text1中輸入一個(gè)整數(shù),單擊“查找刪除”按鈕Command1,采用對分查找法在數(shù)組A中刪除該數(shù)(該數(shù)后面的數(shù)組元素都前移一位),并在標(biāo)簽Label2中顯示刪除后的結(jié)果(運(yùn)行效果如圖所示);否則,在標(biāo)簽Label2中顯示“該數(shù)沒有找到”.
    菁優(yōu)網(wǎng)
    實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請改正.
    Dim A(1To 10)As Integer′用于保存10個(gè)按從小到大順序排列的整數(shù)
    ′Form-Load事件過程產(chǎn)生10個(gè)整數(shù),按升序保存在數(shù)組A中,并在標(biāo)簽Label1中顯示
    Private Sub Form-Load (  )
    ′代碼略
    End Sub
    Private Sub Command1-Click ( ?。?br />Dim I As Integer,j As Integer,m As Integer,k As Integer
    Dim x As Integer,f As Boolean′變量f用于標(biāo)記是否在數(shù)組中找到x
    x=Val(Text1.Text)
    i=1:j=10
    f=False
    Do While (i<=j)And (f=False)
    m=Int((i+j)/2)
    If A(m)=x Then f=True
    If 菁優(yōu)網(wǎng)Then i=m+1Else j=m-1′(1)
    Loop
    If f=True Then
    For k=m To 9
    菁優(yōu)網(wǎng)′(2)
    Next k
    Label2.Caption=””
    For k=1to 9
    Label2.Caption=Label2.Caption+Str(A(k))+””
    Next k
    Else
    Label2.Caption=”該數(shù)沒有找到”
    End If
    End Sub.

    組卷:3引用:3難度:0.1

【加試題】

  • 17.用VB編寫一個(gè)字符串分行程序,功能如下:單擊“分行”按鈕Command1將文本框Text1中的英文文本在列表框List1中分行顯示(分行時(shí)單詞不得跨行,每行字符盡可能多但不超過40個(gè))并在標(biāo)簽Label1中輸出總行數(shù),運(yùn)行效果如圖所示.分行算法如下:
    (1)將文本框中的字符串保存到變量s中;
    (2)當(dāng)s中字符個(gè)數(shù)超過40時(shí),循環(huán)執(zhí)行下列①、②、③步,否則跳轉(zhuǎn)到(3):
    ①如果第41個(gè)字符不是英文字母,則分行位置p=40;否則,向左逐個(gè)查找,直至找到第一個(gè)非英文字母,將其位置作為分行位置p;
    ②截取s的前p個(gè)字符,作為新增行顯示在列表框List1中,同時(shí)總行數(shù)加1;
    ③將s中未分行部分重新賦值給變量s.
    (3)將s作為新增行顯示在列表框List1中,同時(shí)總行數(shù)加1.
    菁優(yōu)網(wǎng)
    實(shí)現(xiàn)上述功能的VB程序如下,請?jiān)诳崭裉幪钊牒线m代碼.
    Private Sub Commandl_Click ( ?。?br />Dim s As String,c As String
    Dim r As Integer,total As Integer,p As Integer
    total=0
    s=①
     

    Do While Len(s)>40
    r=41
    c=Mid(s,r,1)
    If  Not((c>=“a“And c<=“z“) Or (c>=“A“Andc<=“Z“)) Then
    p=40
    Else
    ’從第41個(gè)字符開始向左找到第1個(gè)非英文字母,并將其位置值賦給p
    Do While (c>=“a“And c<=“z“) Or (c>=“A“
    And c<=“Z“)
    r=②
     

    c=Mid(s,r,1)
    Loop
    p=r
    End If
    List1.Addltem  Mid(s,1,p)
    total=total+1
    s=③
     

    Loop
    List1.AddItem  s
    total=total+1
    Labell.Caption=“共“+Str(total)+“行“
    End Sub.

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