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

2018-2019學年浙江省杭州市西湖高級中學高二(下)月考信息技術試卷(4月份)

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

一、選擇題:本大題13小題,第小題2分,共26分.在每小題給出的四個選項中,只有一個是符合題目要求的.

  • 1.下列可作為VB變量名的是( ?。?/h2>

    組卷:7引用:1難度:0.5
  • 2.在VB語句dim s(9)as integer中,數(shù)組s的變量個數(shù)和類型是( ?。?/h2>

    組卷:5引用:1難度:0.5
  • 3.將數(shù)學表達式x2≤y+z寫成VB表達式,正確的是( ?。?/h2>

    組卷:6引用:1難度:0.8
  • 4.VB表達式val(mid(str(3.5),2,1))的值是( ?。?/h2>

    組卷:3引用:1難度:0.3
  • 5.VB語句Text1.text=“浙江省“用于在文本框中顯示文字“浙江省”,該語句中的“text“是( ?。?/h2>

    組卷:3引用:1難度:0.7
  • 6.VB語句fix(rnd*6)+1所產(chǎn)生數(shù)的范圍(小括號表示邊界值不能取到,中括號表示邊界值能取到)是(  )

    組卷:1引用:1難度:0.4

二、綜合題:本大題6小題,其中第14題2分,第15題4分,第16題4分,第17題4分,第18題5分,第19題4分共19分.

  • 菁優(yōu)網(wǎng)18.下列程序的功能是對某校2011年3月份技術高考成績進行排名分析,數(shù)組a中保存學生技術考試的成績,數(shù)組b中保存學生的姓名,第i個學生的技術成績保存在a(i)中,對應的學生姓名保存在b(i)中,最后按技術成績從高到低進行排序。程序界面如圖所示,左邊列表框List1中顯示的是所有學生到的原始數(shù)據(jù),單擊“排序“按鈕(Command1)后,在右邊的列表框List2中顯示排序完成后的結果(按成績從高到低排列)。
    (1)虛線內(nèi)程序段所采用的排序算法名稱是
     
    。
    (2)程序加框處代碼有錯,請改正。
    Dim a(1 To n) As Single'設共有n名學生
    Dim b(1 To n) As String
    Private Sub Form_Load
     

    End Sub
    Private Sub Command1_Click
     

    Dim i As Integer,j As Integer
    Dim tmp As 菁優(yōu)網(wǎng),st As String
    菁優(yōu)網(wǎng)
    b(j)=st
    End If
    Next j
    Next i
    For i=1 To n
    st=Str(a(i))+″″+b(i)
    List2.AddItem st
    Next i
    End Sub

    組卷:0引用:1難度:0.6
  • 19.數(shù)組a中存儲的是左右交替上升的n個正整數(shù),如表所示:
    a(1) a(2) a(3) …… a(n-2) a(n-1) a(n)
    3 25 38 …… 55 31 12
    依據(jù)對分查找思想,設計一個在數(shù)組a中查找數(shù)據(jù)key的程序。實現(xiàn)該功能的VB程序如下,但加框處代碼有錯,請改正。
    Private Sub Command1_Click (  )
    Const n=6
    Dim a(1 To n)As Integer,flag As Boolean
    Dim i As Integer,j As Integer,m As Integer,key As Integer
    '讀取一組正整數(shù),按上述規(guī)則存入數(shù)組a中,代碼略。
    key=Val(Text1.Text)
    i=1
    j=(n+1)\2
    flag=False
    Do While  菁優(yōu)網(wǎng)And Not flag'(1)
    m=(i+j)\2
    If key=a(m) Then
    flag=True
    Elself key<a(m) Then
    j=m-1
    Else
    i=m+1
    End If
    Loop
    If Not flag And j>0 Then
    m=菁優(yōu)網(wǎng)'(2)
    If key=a(m) Then flag=True
    End If
    If flag Then
    Text2.Text=Str(m)
    Else
    Text2.Text=“找不到“
    End If
    End Sub

    組卷:1引用:2難度: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)改正