2016-2017學(xué)年浙江省寧波十校聯(lián)考高三(上)期末信息技術(shù)試卷
發(fā)布:2024/10/26 21:30:1
一、選擇題(本題共12個(gè)小題,每小題2分,共24分)
-
1.某同學(xué)將“如何學(xué)好技術(shù)”的文章發(fā)表在校報(bào)上供大家參考,這主要體現(xiàn)了信息具有( )
組卷:7引用:1難度:0.9 -
2.下列行為符合網(wǎng)絡(luò)道德規(guī)范的是( ?。?/h2>
組卷:7引用:1難度:0.9 -
3.光學(xué)字符識(shí)別(OCR)技術(shù),可以實(shí)現(xiàn)的功能是( ?。?/h2>
組卷:6引用:1難度:0.9 -
4.關(guān)于Access數(shù)據(jù)表的描述,下列說(shuō)法不正確的是( ?。?/h2>
組卷:3引用:2難度:0.7 -
5.有流程圖如圖所示,若輸入n的值為3,則輸出s的值( ?。?br />
組卷:3引用:1難度:0.5
二、非選擇題(共26分)
-
16.為了計(jì)算s=1+1×2+1×2×3+…+1×2×…×n的值,小李編寫了VB程序,程序運(yùn)行時(shí),在文本框Text1中輸入n的值,單擊“計(jì)算”按鈕Commandl 后,在標(biāo)簽Label1中輸出結(jié)果.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Function txi(k As Long) As Long
Dim i As Long,t AsLong
t=1
i=0
Do While
i=i+1
t=t*i
LooP
txi=t
End Function
Private Sub Command1-Click ( ?。?br />Dim n As Long,i As Long,s As Long
n=Val(Textl.Text)
s=0
Fori=1TOn
s=s+
Next i
Labell.Caption=Str(s)組卷:2引用:1難度:0.3 -
17.存儲(chǔ)簡(jiǎn)單幾何圖形(正方形、長(zhǎng)方形和三角形)數(shù)據(jù)的方法描述如下:
1)使用特征數(shù):1表示正方形、2表示長(zhǎng)方形、3表示三角形;
2)正方形只用1個(gè)正整數(shù)表示邊長(zhǎng)、長(zhǎng)方形用2個(gè)正整數(shù)分別表示它的長(zhǎng)與寬、三角形用3個(gè)正整數(shù)分別表示其三邊的長(zhǎng);
3)數(shù)據(jù)的開(kāi)頭是一個(gè)正整數(shù)n,表示接下來(lái)共有n個(gè)簡(jiǎn)單幾何圖形的信息;所有原始數(shù)據(jù)都是合理的.如4,1,2,3,2,2,3,2,2,3,3,3,4,5,表示共有4個(gè)簡(jiǎn)單幾何圖形,第一個(gè)為正方形:邊長(zhǎng)為2;第二個(gè)為三角形:邊長(zhǎng)分別為2,2,3;第三個(gè)為長(zhǎng)方形:長(zhǎng)和寬分別為2,3;第四個(gè)為三角形,三邊長(zhǎng)分別為:3,4,5;
根據(jù)上述存儲(chǔ)方法,小龍編寫了一個(gè)計(jì)算所有簡(jiǎn)單幾何圖形邊長(zhǎng)之和的VB程序,功能如下:窗體加載時(shí),自動(dòng)讀取數(shù)據(jù),依次存儲(chǔ)在數(shù)組元素a(1)、a(2)、a(3)…中.單擊“計(jì)算邊長(zhǎng)之和”按鈕Commandl,程序?qū)?shù)據(jù)依次進(jìn)行分析計(jì)算,將計(jì)算結(jié)果顯示在文本框Text1中.
(1)如果數(shù)據(jù)為“5,1,2,3,2,2,3,2,2,3,1,5,2,8,9”,則三角形共有
(2)實(shí)現(xiàn)上述功能的VB程序如下.請(qǐng)?jiān)跈M線處填入合適代碼.
Dim a(1 To 10000)As Long'存儲(chǔ)簡(jiǎn)單幾何圖形的原始數(shù)據(jù)
Private Sub Form_Load( )
'本過(guò)程用于讀取簡(jiǎn)單幾何圖形的原始數(shù)據(jù),相關(guān)數(shù)據(jù)存儲(chǔ)在數(shù)組a中
‘代碼略
End Sub
Private Sub Command1_Clici( )
Dim n As Long i As Long,s As Long,k As Long
n=
s=0
For i=1 To n
If a(k)=1 Then
s=s+4*a(k+1)
k=k+2
Elself a(k)=2 Then
s=s+
k=k+3
Else
s=s+a(k+1)+a(k+2)+a(k+3)
End If
Next i
Text1.Test=Str(s)
End Sub.組卷:2引用:1難度:0.3