2016-2017學(xué)年浙江省臺州中學(xué)高三(上)第四次統(tǒng)練信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)
-
1.電視臺每晚播放的新聞,有很多人同時在觀看,而新聞節(jié)目主持人卻不會因為播放這些信息而失去它們.這主要體現(xiàn)了( )
組卷:16引用:2難度:0.9 -
2.電子郵件從發(fā)送方傳送到接收方的基本流程如圖所示.郵件從“發(fā)送方郵件服務(wù)器”傳送到“接收方郵件服務(wù)器”(即圖中所示的步驟④)的過程中使用的協(xié)議是( ?。?br />
組卷:9引用:2難度:0.9 -
3.下列操作中沒有用到光學(xué)字符識別(OCR)技術(shù)的是( ?。?/h2>
組卷:10引用:2難度:0.9 -
4.下列關(guān)于數(shù)據(jù)庫的表述中正確的是( ?。?/h2>
組卷:5引用:1難度:0.7 -
5.“水仙花數(shù)”就是一個 n(n≥3)位的自然數(shù),它的每個位上的數(shù)字的 n 次冪之和等于它本身.如 153=13+53+33.在編寫 VB 程序驗證某個三位數(shù) x 是否是“水仙花數(shù)”的過程中要提取出這個數(shù)的個位、十位、百位分別存儲在變量 a、b、c 中,以下語句能夠用來提取十位上的數(shù)的是( )
組卷:8引用:1難度:0.7
二、非選擇題(本大題共5小題,其中第13小題5分,第14小題4分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.設(shè)有n盞燈,放在一排.從1到n依次順序編號.有n個人也從1到n依次編號.第1個人(1號)將燈全部關(guān)閉,第2個人(2號)將2的倍數(shù)的燈打開,第3個人(3號)將編號為3的倍數(shù)的燈做相反處理(該燈如果已打開,則將它關(guān)閉;如為關(guān)閉則將它打開),以后的人和3號一樣,將編號為自己號數(shù)倍數(shù)的燈做相反處理.問當(dāng)n個人操作后,哪幾盞燈是亮的(亮燈為0,關(guān)閉為1).程序代碼如下:
Private Sub Command1_Click( ?。?br /> Const n=20
Dim i As Integer,j As Integer
Dim a(1 To n) As Integer
For j=1 To n
a(j)=0
Next j
For i=1 To n
For j=1 To n
If ①then
②
End If
Next j
Next i
For j=1 To n
If a(j)=0 Then list1.AddItem Str(j)
Next j
End Sub
為了實現(xiàn)程序該功能,在橫線處填寫正確代碼.
①組卷:4引用:2難度:0.1 -
17.某班級學(xué)生為畢業(yè)晚會的一個節(jié)目設(shè)計一個仿“V”字造型,先篩選出班級里所有男生,然后將參演的n名男生按照身高,擺出中間低兩邊高(先右后左)的造型,如圖1所示.王林同學(xué)用VB編寫模擬“節(jié)目造型”程序,功能如下:從數(shù)據(jù)庫中導(dǎo)出所有學(xué)生編號、性別和身高數(shù)據(jù);單擊“篩選排序”按鈕Command2,根據(jù)身高仿“V”字和造型進行有序排列,并將結(jié)果顯示在文本框Text2中.程序運行界面如圖2所示.舉例說明如下:
Const n=7原1-7號男生身高 171 172 180 174 176 179 178 篩選排序后序列 171 172 174 176 178 179 180 “造型設(shè)計”后序列 180 178 174 171 172 176 179
Dim h2(1 To n) As Integer
Dim height1(1 To n) As Integer
Dim height2(1 To n) As Integer
Dim i As Integer,j As Integer,temp As Integer
Dim sex(1 To n) As Boolean'男生sex=true
Private Sub Form_Loa d( ?。?br />'n名學(xué)生的身高和性別由數(shù)據(jù)庫導(dǎo)出,分別存儲在數(shù)組height1 和sex中,代碼略!
End Sub
Private Sub Command1_Click( ?。?br /> For i=1 To n-1
For j=n To i+1 Step-1
If
temp=height1(j):height1(j)=height1(j-1):height1(j-1)=temp
End If
Next j
Next i
For i=1 To n
Text1.Text=Text1.Text+““+Str(height1(i))
Next i
End Sub
Private Sub Command2_Click( )
Dim left,right As Integer,i As Integer,mid As Integer
mid=Int((1+n)/2)
left=0:right=0
For i=2 To n Step 2
right=right+1
height2(mid+right)=height1(i)
left=left+1
Next i
For i=1 To n
Text2.Text=Text2.Text+““+Str(height2(i))
Next i
End Sub.組卷:2引用:1難度:0.1