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

2017年4月浙江省普通高校招生選考信息技術試卷

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

一、選擇題(在每小題給出的四個選項中,只有一個符合題目要求)

  • 1.關于信息安全與網(wǎng)絡道德,下列做法正確的是( ?。?/h2>

    組卷:40引用:13難度:0.9
  • 2.下列有關瀏覽器與網(wǎng)頁的說法,正確的是( ?。?/h2>

    組卷:47引用:11難度:0.9
  • 3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是(  )
    菁優(yōu)網(wǎng)

    組卷:42引用:5難度:0.9
  • 4.使用UltraEdit軟件觀察字符“挑戰(zhàn)AlphaGo!“的內(nèi)碼,部分界面如圖所示,下列說法正確的是( ?。?br />菁優(yōu)網(wǎng)

    組卷:91引用:9難度:0.7
  • 5.關于Access數(shù)據(jù)表的操作,下列說法正確的是(  )

    組卷:39引用:6難度:0.7

二、非選擇題

  • 16.【加試題】小王編寫了一個實現(xiàn)文字查找替換功能的VB程序,運行界面如圖所示.文本框Text1顯示原文內(nèi)容,Text2中輸入查找內(nèi)容,Text3中輸入替換內(nèi)容,單擊“全部替換”按鈕Command1后,Text4顯示查找替換的結果,Text5中顯示替換的次數(shù),Text6顯示“查找內(nèi)容”在原文中的起始位置.
    菁優(yōu)網(wǎng)
    實現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正.
    Private Sub Command1_Click( ?。?br />Dim s As String,resule As String,pos As String
    Dim count As Integer,i As Integer
    i=1:count=0
    result=““:pos=““
    Do While i<=Len(Text1.Text)
    s=Mid(Text1.Text,i,Len(Text2.Text))
    If s=Text2.Text Then
    result=result+Text3.Text
    count=count+1
    pos=pos+Str(count)
    i=i+Len(Text2.Text)
    Else
    result=result+Text2.Text
    i=i+1
    End If
    Loop
    Text4.Text=result
    Text5.Text=Str(count)
    Text6.Text=pos
    End Sub.

    組卷:6引用:3難度:0.1
  • 17.小王編寫了一個依據(jù)成績計算名次的VB程序,成績?yōu)?到100之間的整數(shù)。算法的基本思想:先統(tǒng)計每個分數(shù)的個數(shù),然后按照分數(shù)從高到低依次計算每個有效分數(shù)(該分數(shù)的個數(shù)不為0)對應的名次,分數(shù)相同時名次并列。最高分為第1名,該分數(shù)的名次與個數(shù)之和為下一個有效分數(shù)的名次,以此類推。程序用數(shù)組A存放每個分數(shù)對應的個數(shù),數(shù)組B存放每個分數(shù)對應的名次。例如,下表中最高分100有2個,并列第1名,則分數(shù)96的名次為分數(shù)100的名次加上分數(shù)100的個數(shù),即第3名。
    分數(shù) 100 99 98 97 96 95 94 0
    個數(shù)(A數(shù)組) 2 0 0 0 1 0 3 0
    名次(B數(shù)組) 1 3 4
    程序運行時,學生數(shù)據(jù)顯示在列表框List1中,單擊“計算”按鈕Command1,計算結果顯示在列表框List2中,程序運行界面如圖所示。
    菁優(yōu)網(wǎng)
    實現(xiàn)上述功能的VB程序如下,請回答下列問題:
    (1)如上表所示,若分數(shù)93的個數(shù)為2,則該分數(shù)對應的名次為
     
    。
    (2)請在橫線處填入合適的代碼。
    Dim sName(1 To 50)As String'存放學生姓名
    Dim sScore(1 To 50)As Integer'存放學生分數(shù)
    Dim recCount As Integer'存放學生人數(shù)
    Private Sub Form_Load ( ?。?br />'本過程從數(shù)據(jù)庫中讀取學生數(shù)據(jù),存儲在相應的變量中,并在List1中顯示
    '代碼略
    End Sub
    '整數(shù)轉換成長度固定的字符串
    Function ads(x As Integer,n As Integer) As String
    Dim sx As String,nx As Integer,i As Integer
    sx=Str(x):nx=Len(sx)
    For i=1 To n-nx
    sx=““+sx
    Next i
     

    End Function
    Private Sub Command1_Click ( ?。?br />Dim A(0 To 100)As Integer'存放每個分數(shù)的個數(shù)
    Dim B(0 To 100)As Integer'存放每個分數(shù)的名次
    Dim mc As Integer,score As Integer,i As Integer
    For i=0 To 100
    A(i)=0
    Next i
    For i=1 To recCount'計算每個分數(shù)的個數(shù)
     

    Next i
    mc=1
    For i=100 To 0 Step-1'計算每個分數(shù)的名次
    If A(i)<>0 Then
    B(i)=mc
     

    End If
    Next i
    List2.Clear
    List2.AddItem“姓名  分數(shù)  名次“
    List2.AddItem“----------------“
    For i=1 To recCount
    score=sScore(i)
    mc=B(sScore(i))
    List2.AddItem sName(i)+ads(score,5)+“第“+ads(mc,3)+“名“
    Next i
    End Sub

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