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