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

2016-2017學(xué)年浙江省杭州地區(qū)(含周邊)重點中學(xué)高三(上)期中信息技術(shù)試卷

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

一、選擇題(共12小題,每小題2分,滿分24分)

  • 1.下列有關(guān)信息的說法,正確的是( ?。?/h2>

    組卷:3引用:1難度:0.9
  • 2.如圖所示,以下關(guān)于該網(wǎng)頁描述正確的是( ?。?br />

    組卷:3引用:1難度:0.9
  • 3.觀察圖,關(guān)于Word的修訂和批注,以下說法不正確的是( ?。?br />

    組卷:1引用:1難度:0.9
  • 4.某同學(xué)使用OCR軟件進行字符識別,部分界面如圖所示,則下列說法錯誤的是(  )

    組卷:3引用:1難度:0.5
  • 5.某Access數(shù)據(jù)表如圖所示,以下說法中正確的是( ?。?br />

    組卷:5引用:1難度:0.7

二、解答題(共5小題,滿分26分)

  • 16.求兩個數(shù)的最大公約數(shù)可以用輾轉(zhuǎn)相除法,也可以用遞歸算法實現(xiàn).程序運行界面如圖.VB程序如下:
    Private Sub Command1_Click( ?。?br />     Dim m As Integer,n As Integer
         Dim r As Integer
         m=Val(Text1.Text)
         n=Val(Text2.Text)
         r=m Mod n
         Do While r>0
               m=n
               n=r
               r=
     

         Loop
         Label3.Caption=“最大公約數(shù)為:“+Str(n)
    End Sub
    Function gys(x As Integer,y As Integer) As Integer
         Dim z As Integer
         z=x Mod y
         If z=0 Then
           gys=y
         Else
           gys=gys(y,z)
         End If
    End Function
    Private Sub Command2_Click( ?。?br />     Dim m As Integer,n As Integer
         m=Val(Text1.Text)
         n=Val(Text2.Text)
         Label3.Caption=“最大公約數(shù)為:“+
     

    End Sub
    橫線處應(yīng)填入的代碼為①
     
     ②
     

    組卷:1引用:1難度:0.3
  • 17.2017年9月杭州各大樓盤的銷售價格數(shù)據(jù)信息已經(jīng)保存在數(shù)據(jù)庫文件database1.a(chǎn)ccdb的Building數(shù)據(jù)表中,用于顯示樓盤信息的VB程序運行時界面如圖所示.運行程序,單擊“顯示”按鈕,在列表框list1中顯示樓盤信息,單擊“降序排列”按鈕,在列表框list1中按樓盤均價從高到低顯示樓盤信息.按此要求編寫的VB程序如下:
    Dim num(1 To 50)As String
    Dim price(1 To 50)As Single
    Dim infor(1 To 50)As String
    Dim nam(1 To 50)As String
    Dim i As Integer
    Private Sub Form_Load( ?。?br />Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
    conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=“&App.Path &“\database1.a(chǎn)ccdb“
    conn.Open
    Set rs.ActiveConnection=   ①
    rs.Open“select*from Building“
    i=0
    Do While
             i=i+1
             num(i)=rs.Fields(“編號“)
             price(i)=rs.Fields(“均價(元)“)
             infor(i)=rs.Fields(“信息“)
             nam(i)=rs.Fields(“樓盤名“)
             rs.MoveNext
          Loop
          rs.Close
          conn.Close
    End Sub
    Private Sub Command1_Click( ?。?br />   Dim j As Integer
       List1.Clear
       For j=1 To i
           List1.AddItem num(j) &““& Str(price(j)) &““& infor(j) &““& nam(j)
       Next j
    End Sub
    Private Sub Command2_Click( ?。?br />   Dim m As Integer
       List1.Clear
       For
     

           k=m
           For n=m+1 To i
               If
     
     Then k=n
           Next n
           If m<>k Then
             t=price(m):price(m)=price(k):price(k)=t
           End If
           List1.AddItem num(m) &““& Str(price(m)) &““& infor(m) &““& nam(m)
       Next m
       List1.AddItem num(m) &““& Str(price(m)) &““& infor(m) &““& nam(m)
    End Sub
    請回答下列問題:
    (1)程序加框處的代碼有錯,請改正:①
     
     ②
     

    (2)橫線處應(yīng)填入的代碼為①
     
     ②
     

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