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

2015-2016學(xué)年浙江省杭州二中高二(下)期中信息技術(shù)試卷

發(fā)布:2024/12/21 7:30:2

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

  • 1.在春節(jié)期間,小李通過手機(jī)微信群給同學(xué)們發(fā)紅包,群中所有人看到后都能爭搶紅包,微信群中這一現(xiàn)象主要體現(xiàn)了信息的( ?。?/h2>

    組卷:7引用:6難度:0.9
  • 2.如圖所示為某動畫序列的4幅相鄰圖象,這些圖象之間存在一定的相關(guān)性,下列說法正確的是( ?。?br />菁優(yōu)網(wǎng)

    組卷:9引用:7難度:0.9
  • 3.王林平時關(guān)注手機(jī)電池的正確使用,有關(guān)鋰電池的文章截圖如圖所示:
    菁優(yōu)網(wǎng)
    下列說法正確的是(  )

    組卷:10引用:7難度:0.9
  • 菁優(yōu)網(wǎng)4.某學(xué)生的Win10自帶郵件客戶端軟件如圖所示,某次使用過程中能正常接收郵件但無法發(fā)送郵件,下列說法正確的是(  )

    組卷:5引用:6難度:0.9
  • 5.小明通過ATM機(jī)進(jìn)行存款等操作,下列說法正確的是(  )

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

四、【加試題】(共2小題,滿分6分)

  • 菁優(yōu)網(wǎng)16.如果兩個質(zhì)數(shù)的差為2,則這兩個質(zhì)數(shù)稱為孿生質(zhì)數(shù)對;編寫VB程序,實(shí)現(xiàn)如下功能:單擊“顯示孿生質(zhì)數(shù)對”按鈕Command1,在列表框list1中顯示100以內(nèi)的所有孿生質(zhì)數(shù)對(運(yùn)行效果如圖所示)。
    實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正。
    Dim a(1To 50)As Integer
    Private Sub Command1_Click ( ?。?br />Dim i As Integer
    k=0:i=3
    Do While i<=100
    If 菁優(yōu)網(wǎng)Then‘(1)
    k=k+1
    a(k)=i
    End If
    i=i+2
    Loop
    For i=2To k
    If 菁優(yōu)網(wǎng)Then‘(2)
    List1.AddItem Str(a(i-1))+“和“+Str(a(i))
    End If
    Next i
    End Sub
    Function prime(x As Integer) As Boolean
    prime=False
    For i=2To Int(Sqr(x))
    If x Mod i=0Then
    prime=True
    Exit For
    End If
    Next i
    End Function。

    組卷:15引用:4難度:0.1
  • 17.編寫VB程序,實(shí)現(xiàn)如下功能:單擊“排序數(shù)組a”按鈕Command1時,對已有數(shù)組a的數(shù)據(jù)進(jìn)行升序排列,并顯示在文本框Label1中;單擊“顯示數(shù)組b”按鈕Command2時,將升序數(shù)組b的數(shù)據(jù)顯示在文本框Label2中;再單擊“合并a和b”按鈕Command3時,對數(shù)組a和數(shù)組b升序合并到字符串中,將合并后的數(shù)據(jù)在文本框Label3中顯示.(運(yùn)行效果如第17題圖所示).實(shí)現(xiàn)上述功能的VB代碼如下,請?zhí)钊牒线m代碼.
    菁優(yōu)網(wǎng)
    Dim a(1To 6)As Integer
    Dim b(1To 6)As Integer
    Private Sub Command1_Click ( ?。?對數(shù)組a中的數(shù)據(jù)進(jìn)行排序
    Dim i As Integer,j As Integer,k as integer
    a(1)=53:a(2)=18:a(3)=62:a(4)=22:a(5)=6:a(6)=25
    s=““
    For i=1To 5
    k=i
    For j=i+1To 6
    If a(k)>a(j) Then
     

    Next j
    If i<>k Then
    t=a(k):a(k)=a(i):a(i)=t
    End If
    Next i
    For i=1 To 6
    s=s+Str(a(i))
    Next i
    Label1.Caption=s
    End Sub
    Private Sub Command2_Click ( ?。?br />b(1)=3:b(2)=8:b(3)=15:b(4)=27:b(5)=38:b(6)=49
    '此處部分代碼省略
    End Sub
    Private Sub Command3_Click (  )
    '將數(shù)組a和b中的數(shù)據(jù)逐個比較后添加到新的字符串s中,并將s在label3中顯示
    i=1:j=1:s=““
    Do While i<=6
     
    j<=6'如果兩數(shù)組都還有數(shù)據(jù)未合并
    If
     
    Then
    s=s+Str(a(i)):i=i+1
    Else
    s=s+Str(b(j)):j=j+1
    End If
    Loop
    Do While i<=6'只有數(shù)組a還有數(shù)據(jù)未合并
    s=s+Str(a(i)):i=i+1
    Loop
    Do While j<=6'只有數(shù)組b還有數(shù)據(jù)未合并
    s=s+Str(b(j)):j=j+1
    Loop
    Label3.Caption=s
    End Sub.

    組卷:11引用:1難度: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)將在三個工作日內(nèi)改正