2017-2018學(xué)年浙江省溫州市十五校聯(lián)合體高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)符合題目要求的,不選、多選、錯(cuò)選均不得分)
-
1.下列有關(guān)信息的說法,不正確的是( ?。?/h2>
組卷:21引用:1難度:0.1 -
2.下列有關(guān)計(jì)算機(jī)網(wǎng)絡(luò)和安全的說法中,正確的是( )
組卷:4引用:1難度:0.5 -
3.用 OCR 軟件進(jìn)行字符識(shí)別,主要包括以下操作步驟:①保存 ②掃描 ③識(shí)別 ④傾斜校正 ⑤版 面分析⑥校對(duì),其合理的操作順序?yàn)椋ā 。?/h2>
組卷:11引用:1難度:0.8 -
4.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,輸出 a,b 的值分別是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201807/160/3d3d9533.png" style="vertical-align:middle" />
組卷:0引用:2難度:0.5 -
5.使用 Access 打開某數(shù)據(jù)庫(kù),其部分界面如圖所示,下列 說法正確的是( ?。?br />
組卷:3引用:1難度:0.4
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.若一個(gè)正整數(shù)從左向右讀與從右向左讀都一樣,我們就將其稱之為回文數(shù)。如 11、121 均是回文數(shù)。請(qǐng)你編寫程序,輸出 10 至 n 之間的所有回文數(shù)。程序運(yùn)行界面如圖所示,在文本框 Text1 中輸入一個(gè)正整數(shù) n,單擊“查找”按鈕 Command1,在列表框 List1 中顯示 10-n 之間的所有回文數(shù),并且在標(biāo)簽 Label1 中輸出查找到回文數(shù)的總數(shù)。
問題:實(shí)現(xiàn)上述功能的 VB 代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正。 Private Sub Command1_Click( ?。?br />Dim n as long,sum as long,i As Long Dim x as long,y as long
List1.Clear
n=Val(Text1.Text) sum=0
For i=10To n
y=0
Do While x>0
x=x\10
Loop
If y=i Then
List1.a(chǎn)dditem Str(i)
sum=sum+1
End if Next i
Label1.caption=“共有”& Str(sum) &“個(gè)回文數(shù)”End Sub組卷:2引用:1難度:0.5 -
17.小王用 VB 編寫一個(gè)自動(dòng)統(tǒng)計(jì)離散數(shù)據(jù)的“極大值”(如圖 a 所示)個(gè)數(shù)的程序。功能如下:在列表框 List1 中隨機(jī)產(chǎn)生 n 個(gè)介于[1,99]的正整數(shù),單擊“統(tǒng)計(jì)極大值”命令按鈕 Command1,程序自動(dòng)統(tǒng)計(jì)出極大值,并將其輸出到列表框 List2,且將其中的最大值輸出在標(biāo)簽 Label1 中。程序界面如圖 b 所示,實(shí)現(xiàn)上述功能的 VB 程序如下。(假設(shè):數(shù)據(jù)的左右兩個(gè)端點(diǎn)不 計(jì)入極大值,且相等的兩個(gè)值也不計(jì)入極大值)。請(qǐng)回答以下問題:
(1)當(dāng) n=6,原始數(shù)據(jù)為“8 39 24 5 71 25”,此時(shí)極大值有:
(2)請(qǐng)?jiān)跈M線處填入合適的代碼。Const n=10
Dim a(1To n) As Integer'存儲(chǔ)原始數(shù)據(jù) Dim Max(1To n) As Integer'存儲(chǔ)極大值數(shù)據(jù)
Private Sub Form_Load ( ?。?原始數(shù)據(jù)初始化
Randomize
For i=1To n
a(i)=
List1.AddItem Str(a(i))
Next i End Sub
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer
Dim count As Integer,Maxa As Integer
count=0
List2.Clear
For i=2To n-1'統(tǒng)計(jì)極大值,左右兩邊端點(diǎn)值除外
If
count=count+1
End If
Next i
Maxa=0
For i=1To count
List2.AddItem Str(Max(i))
If Maxa<Max(i) Then
Maxa=Max(i)
End If
Next i
Label1.Caption=“極大值中的最大值為:“+Str(Maxa) End Sub組卷:2引用:1難度:0.5