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

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

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

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

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

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

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

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

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

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

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

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

  • 菁優(yōu)網(wǎng)18.下列程序的功能是對(duì)某校2011年3月份技術(shù)高考成績(jī)進(jìn)行排名分析,數(shù)組a中保存學(xué)生技術(shù)考試的成績(jī),數(shù)組b中保存學(xué)生的姓名,第i個(gè)學(xué)生的技術(shù)成績(jī)保存在a(i)中,對(duì)應(yīng)的學(xué)生姓名保存在b(i)中,最后按技術(shù)成績(jī)從高到低進(jìn)行排序。程序界面如圖所示,左邊列表框List1中顯示的是所有學(xué)生到的原始數(shù)據(jù),單擊“排序“按鈕(Command1)后,在右邊的列表框List2中顯示排序完成后的結(jié)果(按成績(jī)從高到低排列)。
    (1)虛線內(nèi)程序段所采用的排序算法名稱是
     
    。
    (2)程序加框處代碼有錯(cuò),請(qǐng)改正。
    Dim a(1 To n) As Single'設(shè)共有n名學(xué)生
    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中存儲(chǔ)的是左右交替上升的n個(gè)正整數(shù),如表所示:
    a(1) a(2) a(3) …… a(n-2) a(n-1) a(n)
    3 25 38 …… 55 31 12
    依據(jù)對(duì)分查找思想,設(shè)計(jì)一個(gè)在數(shù)組a中查找數(shù)據(jù)key的程序。實(shí)現(xiàn)該功能的VB程序如下,但加框處代碼有錯(cuò),請(qǐng)改正。
    Private Sub Command1_Click ( ?。?br />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īng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.6 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正