資源簡介

中小學(xué)教育資源及組卷應(yīng)用平臺
期末綜合練習(xí)-教科版（2019）高中信息技術(shù)必修一練習(xí)
學(xué)校:___________姓名：___________班級：___________考號：___________
一、選擇題
1．已知字符“i”的ASCII碼的二進制值是1101001，如果某字符的ASCII碼的十進制值是109，那么這個字符是（
）
A．f
B．m
C．h
D．e
2．在計算機內(nèi)部，采用二進制編碼存儲字符和漢字。關(guān)于信息的編碼，以下表述錯誤的是（
）
A．將字符的ASCII編碼從大到小排列，依次為：小寫英文字母>大寫英文字母>阿拉伯?dāng)?shù)字
B．漢字在輸入計算機后，必須使用統(tǒng)一的漢字內(nèi)碼，并以二進制形式存儲和處理
C．若用8位二進制代碼表示一個字符，則可表示256個不同字符
D．一個字節(jié)由8位二進制數(shù)組成，每個漢字的內(nèi)碼只能占用2個字節(jié)
3．二進制111100（2）/二進制數(shù)11（2）的計算結(jié)果為十進制數(shù)（
）
A．30
B．29
C．31
D．20
4．世界上第一臺計算機是在___誕生的___（
）
A．英國
ENIAC
B．美國
ENIAC
C．美國
ENIAK
D．英國
ENIAK
5．某男同學(xué)的體重80KG，身高170cm，請問，以下能用來判斷該同學(xué)偏肥或偏瘦最有效的數(shù)據(jù)分析方法是（
）。
A．聚類分析
B．關(guān)聯(lián)分析
C．?dāng)?shù)據(jù)分類
D．以上都不行
6．關(guān)于偽代碼，以下說法正確的是（
）
A．偽代碼是通過圖形符號描述算法的。
B．偽代碼抽象，書寫不方便。
C．偽代碼易于轉(zhuǎn)化為計算機程序設(shè)計語言。
D．偽代碼格式緊湊，但不易于理解。
7．智能交通系統(tǒng)（intelligent
traffic
system，ITS）是人工智能的應(yīng)用領(lǐng)域之一。以下哪項不屬于人工智能在智能交通方面的應(yīng)用。（
）
A．通過交通信息采集系統(tǒng)采集道路中的車輛流量、行車速度等信息
B．車?yán)飶V播在報道的進過信息分析處理系統(tǒng)處理后形成的實時路況
C．決策系統(tǒng)根據(jù)實時路況挑戰(zhàn)道路紅綠燈時長或潮汐車道的通行方向
D．通過收集產(chǎn)品運行數(shù)據(jù)，發(fā)現(xiàn)產(chǎn)品異常，主動提供服務(wù)，降低故障率
8．某商場想捆綁銷售商品，那么你對商場的建議是（
）
A．采用聚類分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
B．采用關(guān)聯(lián)分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
C．采用分類分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
D．采用分類模型方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
9．下列說法正確的是
（
）
A．“/”表示求余
B．“%”表示除
C．“//”
表示整除
D．“
”
表示乘
10．關(guān)于自然語言、流程圖和偽代碼這三種算法描述方法的比較，錯誤的是（
）
A．自然語言描述算法更容易掌握，但對分支和循環(huán)結(jié)構(gòu)的描述能力較弱。
B．流程圖描述算法清晰、簡潔。
C．偽代碼比其他方法更適合描述算法的抽象結(jié)構(gòu)。
D．偽代碼描述算法書寫方便，格式緊湊，易于理解，便于向計算機程序設(shè)計語言過渡。
11．關(guān)于編寫計算機程序解決問題，以下說法錯誤的是（
）
A．編寫計算機程序解決問題，程序必須有輸出。
B．編寫計算機程序解決問題，程序必須有輸入。
C．編寫計算機程序解決問題需要經(jīng)過分析問題、設(shè)計算法、編寫程序、調(diào)試運行程序等若干個步驟。
D．設(shè)計算法是編寫計算機程序解決問題的關(guān)鍵
12．有如下VB程序段：
s
=
Text1.Text
For
i=1
To
Len(s)
ch
=
Mid(s,i,1)
If
ch>="A"
And
ch<="Z"
Then
t=t+ch
If
ch>="a"
And
ch<="z"
Then
ch
=
Chr(Asc(ch)-32)
t=t+ch
ElseIf
ch
>=
"0"And
ch
<=
"9"
Then
t=ch+t
End
If
Next
i
Text2.Text
=
t
已知'A'的ASCI碼為65，'a'的ASCI碼為97.程序運行后，在文本框Textl中輸人“Text2.text=”Abc1234“”（外括號不包括），則在Text2中顯示的內(nèi)容是（
A．TEXT2.TEXTABC1234
B．43212TexttextABC
C．43212TEXTTEXTABC
D．TEXTTEXTABC43212
13．下列選項中，體現(xiàn)了人工智能技術(shù)的有（
）
①手機根據(jù)環(huán)境光線強弱自動調(diào)節(jié)屏幕亮度
②使用微信插件將文本信息轉(zhuǎn)換成語音
③使用“屏下指紋解鎖”功能打開手機
④在Word中輸人“愛屋及鳥”自動替換為“愛屋及烏”
⑤物流配送機器人完成快遞配送
A．①③⑤
B．②③⑤
C．②④⑤
D．①②③
14．有如下Visual
Basic程序段：
Private
Sub
Command1_Click
()
Dim
x
As
Integer,r
As
Integer,
s
As
String
x
=
Val(Text1.
Text):
s
=""
Do
While
x<>0
r=(x+1)
Mod
2
s=Str(r)+s
x=x\2
Loop
Text2.
Text
=
s
End
Sub
該程序段運行后后，在文本框Text1中輸入25，則文本框Text2顯示的內(nèi)容是（
）
A．0
0
1
0
1
B．1
1
0
1
0
C．0
0
1
1
0
D．1
1
0
0
1
15．下列說法中都體現(xiàn)人工智能技術(shù)應(yīng)用的是（
）
①使用人體測溫篩檢儀，實現(xiàn)人臉識別無感通關(guān)，迅速發(fā)現(xiàn)體溫異常者
②樓道LED聲控感應(yīng)燈，在光線不足且有人走動時，自動感應(yīng)亮燈
③使用控制軟件在家里對公司里的電腦進行遠程控制，完成文件下載等操作
④車輛進出停車場時，通過車牌識別技術(shù)自動完成車輛停車計費工作
A．①②
B．②③
C．①④
D．②④
16．有如下VB程序段：
s
=
Text1.Text:
n
=
Len（s）:
Count
=
0
For
i=1
To
n\2
If
Mid（s,
i,1）
<>
Mid（s,
n-i+1,1）
Then
Count
=
Count
+
1
End
If
Next
i
若在文本框Text1中輸入字符串“
200good2”，則Count的值為（　　）
A．3
B．1
C．6
D．7
17．某計算機運行一程序到特定階段就會出現(xiàn)異常畫面，為解決該問題與網(wǎng)友交流，必須將此時該程序的畫面截取下來。下列方案中最簡潔的是（
）。
A．使用數(shù)碼照相機拍攝
B．使用“PrintScreen”鍵
C．使用掃描儀
D．使用專用計算機屏幕截取軟件
18．（
）人工智能科學(xué)技術(shù)獎，是為了獎勵我國人工智能領(lǐng)域有成就和創(chuàng)新的個人或項目而設(shè)立的，共設(shè)有科學(xué)技術(shù)成就獎、科學(xué)技術(shù)創(chuàng)新獎和科學(xué)技術(shù)進步獎，
從
2012
年開始，每年評獎一次。
A．華羅庚
B．吳文俊
C．蘇步青
D．陳
景
19．下列說法正確的是（
）
A．計算機存儲數(shù)據(jù)的基本單位是
bit
B．計算機的硬盤容量越大則其運行速度越快
C．殺毒軟件滯后于計算機病毒，因此對計算機病毒以預(yù)防為主
D．信息的常用表達技術(shù)有文字?語言?圖形?圖像?聲音和形體動作等
20．第一顆原子彈爆炸后，很多人預(yù)測公元2000年會成為核子時代；登月成功后，很多人認(rèn)為移民到其他星球不會太遙遠。但這些預(yù)測都沒有成真，反而是當(dāng)時誰都沒有想過的互聯(lián)網(wǎng)能發(fā)展成現(xiàn)在這個樣子。近些年，人工智能的迅速發(fā)展使得人們產(chǎn)生很多擔(dān)心，比如，擔(dān)心機器人有可能反過來征服人類，擔(dān)心穿戴設(shè)備和植入設(shè)備（植入人體內(nèi)部的智能設(shè)備）的發(fā)展可能產(chǎn)生超人。以下這些看法正確的是
①面對科技的迅猛發(fā)展，需要充分發(fā)揮想象力，思考應(yīng)對各種可能的情況
②歷史一再讓我們看到，許多以為必然會發(fā)生的事，常常因為不可預(yù)見的阻礙而無法成真，而某些難以想象的情景，最后卻成為事實
③如果穿戴設(shè)備和植入設(shè)備能提高個人的體能和智能，則可能造成人與人之間新的差異
④人工智能的進一步發(fā)展將會帶來什么，一時很難說準(zhǔn)，一切有待實踐的檢驗
A．①②
B．③④
C．①②③
D．①②③④
二、判斷題
21．人工智能將引發(fā)機器人控制人類、毀滅人類的問題，所以我們不能再使用人工智能，要消滅人工智能。（_____）
22．一個算法必須要有1個以上的數(shù)據(jù)輸入。（___）
23．?dāng)?shù)據(jù)也會過時，過時了的數(shù)據(jù)沒有任何價值。（____）
24．用自然語言來描述算法，比用流程圖來描述算法更清晰、簡潔。（_______）
三、操作題
25．如圖所示，是一個“大”字的8
8信息編碼點陣圖，假設(shè)空方塊用“0”表示，黑方塊用“1”表示，試分析并回答下列問題。
（1）點陣圖第七行用“0”和“1”從左向右排列的信息編碼是____________
（2）表示該字型的方法是點陣方式還是矢方式？
___________
（3）只修改-
-行編碼就可以將原圖的“大”字改成“人”字，應(yīng)修改第________
行，修改后的編碼是_______
26．過橋問題：有一家人，晚上要過一個獨木橋。但是他們只有一盞燈，而這盞燈只能使用30秒了。要在燈熄滅前過這座橋，他們一家五口人每個人過橋的速度不同。瘦人1秒，小胖3秒，姑娘6秒，大胖8秒，瘸子12秒。每次只能過兩個人。過去后,對岸要有一個人再把燈送回來。
問題1：他們能否在燈熄滅前過河？
問題2：他們在最短時間內(nèi)全部過河的的順序應(yīng)該怎樣安排，用自然語言將方法表示出來。
27．某校進行模擬考，現(xiàn)有25名學(xué)生的語數(shù)英三門課的成績（按百分制）存儲在數(shù)據(jù)庫student.accdb中的數(shù)據(jù)表cj中，現(xiàn)取出各學(xué)生成績存儲在cj（）數(shù)組中，成績存放如下：
運行程序，點擊“數(shù)據(jù)導(dǎo)入”按鈕后，在列表框list1中顯示所有數(shù)據(jù)。點擊“排序”按鈕，按總分從高到低計算名次（成績相同的名次相同），并按排名先后在列表框list2中顯示，數(shù)據(jù)要求對齊。程序運行界面如圖1所示：
圖1
（1）觀察程序及界面，可知“排序”按鈕的對象名為________________。
（2）實現(xiàn)上述程序功能的VB程序段如下，請在劃線出填入合適的代碼。
Dim
cj(1
To
100)
As
Integer
Dim
b(1
To
301)
As
Integer
'分?jǐn)?shù)為i的人數(shù)存入b(i)
Private
Sub
Cmdl_
Click()
Dim
conn
As
New
ADODB．Connection
Dim
rs
As
New
ADODB．Recordset
conn.ConnectionString
=
"Provider
=Microsoft．ACE．OLEDB．12.0;Data
Source=
"
&App．Path&
"\studentaccdb"
conn．Open
Set
rs．ActiveConnection
=
conn
rs．Open
"SELECT
FROM
cj"
n
=1
Do
While
Not
rs．EOF
cj(n)=
rs．Fields(
"語文"):cj(n+1)
=
rs．Fields("數(shù)學(xué)")
cj(n+2)
=
rs．Fields("英語"):cj(n+3)
=
cj(n)+cj(n+1)+cj(n+3)
__________
Rs．MoveNext
Loop
rs．Close
:conn．Close
'此處代碼略,用來實現(xiàn)將數(shù)據(jù)在list1中輸出
End
Sub
Private
Sub
paixu_
Click()
Dim
mc
As
Integer
'預(yù)處理求b數(shù)組的值
For
j=4
To
100
Step
4
_______________
Next
j
'以下程序用于計算名次并按要求對齊輸出
mc=1:b(301)=0
List2.AddItem"語文"+"數(shù)學(xué)"+"英語"+"總分"+"名次"
List2.AddItem
"------------------------------------------------"
For
i=300
To
1
Step
-1
______________
If
b(i)
<>
0
Then
For
C=4
To
100
Step
4
If
cj(c)
=
i
Then
List2.AddItem______________
End
If
Next
c
End
If
Next
i
End
Sub
'以下函數(shù)輸出時數(shù)據(jù)s時,不足7位末尾補空格
Function
gs(s
As
Integer)
As
String
Dim
cd
As
String
ed
=
CStr(s)
For
i=1
To
7
-Len(cd)
cd=
cd+"
"
Next
i
gs
=
cd
End
Function
28．編寫一個VB程序，實現(xiàn)如下功能：輸入s位數(shù)字構(gòu)成的數(shù)字字符串（第1位數(shù)字不為0），移除k
（0算法分析：要使得到的5位數(shù)字最小，首先需保證能取到5個數(shù)字，且首位應(yīng)盡量小，那么取首位數(shù)的范圍應(yīng)保證余下有4個數(shù)字，即在前4位中選最小非0的數(shù)字。
程序運行時，在文本框Text1中輸入一個數(shù)字字符串，在文本框Text2中輸入要移除的數(shù)字個數(shù)，單擊“運行”按鈕CmdRun后，在標(biāo)簽Labell顯示得到的最小新數(shù)，程序運行界面如圖b所示。
（1）程序運行時，若要在名為Form1的窗體標(biāo)題上顯示“刪數(shù)”，可以在Form
Load事件處理過程中添加語句為_________（單選，填字母：A．
Form1.
Text
="刪數(shù)"\B．
Form1.
Caption
="刪數(shù)"\C．
Form1.
AddItem"刪數(shù)"）
（2）實現(xiàn)上述功能的VB程序代碼如下，請在劃線處填入合適的代碼。
Private
Sub
CmdRun_
Click()
Dim
Num
As
String,New_num
As
String
'
Num為輸入的數(shù)字字符串
Dim
i
As
Integer,
j
As
Integer,
m
As
Integer,
Dim
As
Integer,
s
As
Integer,
k
As
Integer
Dim
a(30)
As
String,
b(30)
As
Integer
Num
=
Text1.
Text:
s
=
Len(Num)
k
=
Val
(Text2.
Text)
'k為刪除數(shù)字個數(shù)
For
i=1
To
s
a(i)
=
Mid(Num,i,1)
Nexti
j
=1
m=1
n=①_________
For
i=m+l
To
n
'取第一個非零最小數(shù)字
If
Then
m=I
'加框處程序代碼有誤,請改正
Next
i
b(j)=
m
Do
While②________
'取其他最小數(shù)字
m=m+1
n=n+1
For
i=m+1
To
n
If
a(i)
<
a(m)
Then
m=
i
Next
i
j
=j+1:b(j)=m
Loop
For
i=
m+1
To
s
'最后直接取的數(shù)字
j
=j+1:b(j)=i
Next
i
For
j=1
To
s-
k
'輸出最小數(shù)
New_
num
=③________
Next
j
Labell．
Caption
=
New_num
End
Sub
（3）加框處程序代碼有誤，請改正。
____________________________
29．均分紅包。當(dāng)前有n堆紅包，編號為1，2，
3，
。。
n，每堆有若干個紅包，紅包總數(shù)sum是n的倍數(shù)。可以在任一堆上取若干個紅包，然后移動，最終使每堆上的紅包個數(shù)相同。
移紅包規(guī)則：
①編號為1的堆上的紅包，只能移到編號為2的堆上；
②編號為n的堆上的紅包，只能移到編號為n-1的堆上；
③其它堆上的紅包，可以移到相鄰左邊或右邊的堆上。
現(xiàn)要求找出最少的移動次數(shù)使每堆的紅包數(shù)-樣多。如圖所示，在文本框Text1中輸入紅包堆數(shù)n，在文本框Text2中依次輸入每堆紅包的紅包個數(shù)（以“，”為分隔符和結(jié)束符），單擊“移紅包次數(shù)統(tǒng)計”按鈕Command1后，在標(biāo)簽Labe13中顯示最少的移動次數(shù)。
（1）代碼“Private
Sub
Command1_
Click（）”中的Click是______（單選，填字母：
A．對象名B．事件名C．事件處理過程名D．方法名）
（2）實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const
Sum
=
40
'紅包總個數(shù)
Private
Sub
Command1_
Click
()
Dim
n
As
Integer
'紅包的堆數(shù)
Dim
s
As
String,
k
As
Integer
Dim
avg
As
Integer
'最終每堆的紅包個數(shù)
Dim
ml
As
Integer,
m2
As
Integer
Dim
tmp
As
Integer,
count
As
Integer,
ans
As
Integer
n=
__________
s
=
Text2.
Text
avg=Sum/n
tmp=0:count=0:ans=0
For
k=1
To
Len(s)
c
=
Mid(s,
k,
1)
If
c
<>","Then
tmp
=_
_________
Else
count
=
count
+
1
If
count
=
1
Then
ml
=tmp
Else
m2
=
tmp
If
ml
<>
avg
Then
m2=m2-(avg-m1)
ans=ans+1
End
If
________
End
If
tmp=0
End
If
Next
k
Labe13.
Caption
=
Str
(ans)
End
Sub
30．小王利用循環(huán)排序思想編寫了一個VB程序，用于計算下一輪比賽的出場順序。從數(shù)據(jù)庫中讀取本輪比賽的人員姓名存在數(shù)組xm中，成績存在數(shù)組cj中（成績均不重復(fù)）。編程實現(xiàn)將這些成績進行循環(huán)升序排列。要求最低成績的位置不變，然后依次進行升序排序，即從最小值開始向下尾首相連形成升序數(shù)列。程序運行界面如圖所示。點擊“排序”按鈕，完成循環(huán)升序排序。
（1）“排序”按鈕的對象名為_
（2）請在劃線處填入合適代碼。
（3）加框處代碼出錯，請改正。
Dim
xm（1
to
100）As
String
,cj（1
to
100）As
Integer
Dim
flag（1
to
100）As
Boolean
Private
Sub
Form_
Load（
）
'從數(shù)據(jù)庫中讀取數(shù)據(jù)，存儲到相應(yīng)數(shù)組中，并輸出在列表框Listl。第i個人，姓名為xm（i），成績?yōu)閏j（i）。人員數(shù)量存儲到變量n中（）。代碼略
End
Sub
Private
Sub
Cmd__Click（）
Dim
min
As
Integer,
pmin
As
Integer
min
=
cj(1):
pmin
=
1
For
i=2
To
n
If
cj（i）
<
min
Then
min
=
cj（i）：__①__
Next
i
flag（pmin）
=
True
pmin=
pmin
+
1
If
pmin=n+1
Then
pmin=1
For
i=1
To
n-2
k
=
pmin
For
j=1
To
n
If
②
Then
k=
j
Next
j
If
k
<>
pmin
Then
t
=
cj（k）:
cj（k）
=
cj（pmin）:
cj（pmin）
=
t
C
=
xm（k）:
xm（k）
=
xm（pmin）:
xm（pmin）
=
c
End
If
flag（pmin）
=
True
pmin=pmin+1
Next
i
'將排序后的人員姓名和成績輸出到列表框List2中，代碼略。
End
Sub
31．給定一個序列
a，這個序列由
n
個數(shù)組成（n
個數(shù)依次保存
在數(shù)組
a(1)
~a(n)中），現(xiàn)在給定一個整數(shù)
p，要求將序列
a的前
p
個數(shù)與后
n-p
個數(shù)對調(diào)，且不改變這
p
個數(shù)（和
n-p個數(shù)）之間的相對位置?
例如長度為
5
的序列
1，2，3，4，5，當(dāng)
p=2
時重排的結(jié)果為
3，4，5，1，2?
我們可以用兩種不同的方法來實現(xiàn)這一目的：
方法一：逐個地將數(shù)組
a
的后
n-p
個數(shù)依次移動到前面去?
數(shù)組
a：
1
2
3
4
5
3
1
2
4
5
3
4
1
2
5
3
4
5
1
2
方法二：將前
p
個數(shù)看作一個區(qū)間，后
n-p
個數(shù)看作另一個區(qū)間，依次將數(shù)交換，同時縮小區(qū)間的大小；若某一個區(qū)間達到末尾，則調(diào)整區(qū)間的范圍，直到兩個區(qū)間剛好同時達到末尾，即調(diào)整結(jié)束?
數(shù)組
a：
互換并調(diào)整區(qū)間：第一個區(qū)間結(jié)束且第二個區(qū)間還有元素，調(diào)整區(qū)間
1
和區(qū)間
2
的范圍，如圖將區(qū)間
1
調(diào)整為[3，4]，區(qū)間
2
調(diào)整為[5：5]?
互換并調(diào)整區(qū)間：第二個區(qū)間結(jié)束且第一個區(qū)間還有元素，僅調(diào)整第
1
個區(qū)間的起始位置?
互換并結(jié)束：兩個區(qū)間同時到達末尾?
3
4
5
1
2
小明依據(jù)上面的方法設(shè)計了
VB
程序如下：
Dim
a(1
To
100),
i
As
Integer,
j
As
Integer,
tmp
As
Integer,
p
As
Integer
Dim
start1
As
Integer,
end1
As
Integer,
start2
As
Integer,
end2
As
Integer
'將序列保存到數(shù)組
a中,序列長度保存到
n
中,移動數(shù)字的個數(shù)保存在
p
中
Private
Sub
Command2_Click()
'用方法一實現(xiàn)
For
i
=
p
+
1
To
n
tmp
=
a(i)
For
j
=
i
To
①
Step
-1
a(j)
=
a(j
-
1)
Next
j
②
=
tmp
Next
i
End
Sub
Private
Sub
Command3_Click()
'用方法二實現(xiàn)
start1
=
1:
end1
=
p
'第
1
個區(qū)間的起始狀態(tài)
start2
=
p
+
1:
end2
=
n
'第
2
個區(qū)間的起始狀態(tài)
i
=
start1:
j
=
start2
Do
While
③
i
=
start1:
j
=
start2
Do
While
i
<=
end1
And
j
<=
end2
tmp
=
a(i):
a(i)
=
a(j):
a(j)
=
tmp
i
=
i
+
1:j
=
j
+
1
Loop
If
i
<=
end1
Then
'第
2
個區(qū)間結(jié)束且第
1
個
區(qū)間還有元素
start1
=
i
ElseIf
j
<=
end2
Then
'第
1
個區(qū)間結(jié)束且第
2
個區(qū)間還有元素
start1
=
i:
④
start2
=
j
End
If
Loop
End
Sub
請回答下列問題：
（1）若序列為：9，8，13，22，7，6，5，37，6，p=4
時，使用方法一，則
a(3)的值依次是
13，_________________（用逗號隔開，順序填寫曾存儲過的值）?
（2）請在劃線處填入合適的代碼?
①_______________________
②_______________________
③_______________________
④_______________________
21世紀(jì)教育網(wǎng)
www.21cnjy.com
精品試卷·第
2
頁
（共
2
頁）
21世紀(jì)教育網(wǎng)(www.21cnjy.com)中小學(xué)教育資源及組卷應(yīng)用平臺
期末綜合練習(xí)-教科版（2019）高中信息技術(shù)必修一練習(xí)
學(xué)校:___________姓名：___________班級：___________考號：___________
一、選擇題
1．已知字符“i”的ASCII碼的二進制值是1101001，如果某字符的ASCII碼的十進制值是109，那么這個字符是（
）
A．f
B．m
C．h
D．e
答案：B
詳解：本題考查的是編碼相關(guān)知識。二進制數(shù)：1101001轉(zhuǎn)換為十進制數(shù)為：105。109-105=4，在字符“i”后4位的字符為：m。故選項B正確。
2．在計算機內(nèi)部，采用二進制編碼存儲字符和漢字。關(guān)于信息的編碼，以下表述錯誤的是（
）
A．將字符的ASCII編碼從大到小排列，依次為：小寫英文字母>大寫英文字母>阿拉伯?dāng)?shù)字
B．漢字在輸入計算機后，必須使用統(tǒng)一的漢字內(nèi)碼，并以二進制形式存儲和處理
C．若用8位二進制代碼表示一個字符，則可表示256個不同字符
D．一個字節(jié)由8位二進制數(shù)組成，每個漢字的內(nèi)碼只能占用2個字節(jié)
答案：D
詳解：本題考查的是計算機編碼。一個字節(jié)由8位二進制數(shù)組成，漢字編碼一般占兩個字節(jié)，并不是只能占兩字節(jié)。故應(yīng)選D。
3．二進制111100（2）/二進制數(shù)11（2）的計算結(jié)果為十進制數(shù)（
）
A．30
B．29
C．31
D．20
答案：D
詳解：本題考查進制轉(zhuǎn)換相關(guān)知識。二進制轉(zhuǎn)換為十進制采用位權(quán)展開相加，二進制111100（2）=1
2^5+1
2^4+1
2^3+1
2^2=60（10），二進制數(shù)11（2）=3（10），故二進制111100（2）/二進制數(shù)11（2）的計算結(jié)果為十進制數(shù)20，本題選D。
4．世界上第一臺計算機是在___誕生的___（
）
A．英國
ENIAC
B．美國
ENIAC
C．美國
ENIAK
D．英國
ENIAK
答案：B
詳解：本題考查計算機發(fā)展歷史。世界上第一臺通用計算機發(fā)明時間，1946年2月14日，名字ENIAC，誕生地，美國賓夕法尼亞大學(xué)誕生。故本題選B。
5．某男同學(xué)的體重80KG，身高170cm，請問，以下能用來判斷該同學(xué)偏肥或偏瘦最有效的數(shù)據(jù)分析方法是（
）。
A．聚類分析
B．關(guān)聯(lián)分析
C．?dāng)?shù)據(jù)分類
D．以上都不行
答案：C
【解析】
【分析】
【詳解】
本題考查數(shù)據(jù)分析方法的相關(guān)知識點
數(shù)據(jù)分類是按不同的標(biāo)準(zhǔn)進行分類，可以通過數(shù)據(jù)分類判斷該同學(xué)偏肥或偏瘦。故本題選C選項
6．關(guān)于偽代碼，以下說法正確的是（
）
A．偽代碼是通過圖形符號描述算法的。
B．偽代碼抽象，書寫不方便。
C．偽代碼易于轉(zhuǎn)化為計算機程序設(shè)計語言。
D．偽代碼格式緊湊，但不易于理解。
答案：C
【解析】
【分析】
【詳解】
本題考查偽代碼相關(guān)知識點
流程圖是通過
圖形符號描述算法的。故選項A說法錯誤
偽代碼具體，書寫方便。故選項B說法錯誤
偽代碼易于轉(zhuǎn)化為計算機程序設(shè)計語言。故本題選C選項
偽代碼易于理解。故選項D說法錯誤
7．智能交通系統(tǒng)（intelligent
traffic
system，ITS）是人工智能的應(yīng)用領(lǐng)域之一。以下哪項不屬于人工智能在智能交通方面的應(yīng)用。（
）
A．通過交通信息采集系統(tǒng)采集道路中的車輛流量、行車速度等信息
B．車?yán)飶V播在報道的進過信息分析處理系統(tǒng)處理后形成的實時路況
C．決策系統(tǒng)根據(jù)實時路況挑戰(zhàn)道路紅綠燈時長或潮汐車道的通行方向
D．通過收集產(chǎn)品運行數(shù)據(jù)，發(fā)現(xiàn)產(chǎn)品異常，主動提供服務(wù)，降低故障率
答案：D
【解析】
【分析】
【詳解】
本題主要考查人工智能的應(yīng)用。人工智能應(yīng)用主要包含語音識別、人臉識別、數(shù)據(jù)分析、機器學(xué)習(xí)、專家系統(tǒng)、服務(wù)器開發(fā)等領(lǐng)域。A選項是人工智能中識別與數(shù)據(jù)分析的應(yīng)用；B選項是人工智能中數(shù)據(jù)分析的應(yīng)用；C選項是人工智能中專家系統(tǒng)的應(yīng)用；D選項不是人工智能的應(yīng)用。
8．某商場想捆綁銷售商品，那么你對商場的建議是（
）
A．采用聚類分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
B．采用關(guān)聯(lián)分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
C．采用分類分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
D．采用分類模型方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售
答案：B
【解析】
【分析】
【詳解】
本題考查常用數(shù)據(jù)分析方法的相關(guān)知識點
捆綁銷售商品，采用關(guān)聯(lián)分析方法，從銷售數(shù)據(jù)中找出最合適的商品進行捆綁銷售。故本題選B選項
9．下列說法正確的是
（
）
A．“/”表示求余
B．“%”表示除
C．“//”
表示整除
D．“
”
表示乘
答案：C
【解析】
【分析】
【詳解】
本題主要考查基本運算符。“/”表示除，因此A選項錯誤；“%”表示取余，因此B選項錯誤；“//”
表示整除，因此C選項正確；“
”
不屬于常用運算符，因此D選項錯誤。
10．關(guān)于自然語言、流程圖和偽代碼這三種算法描述方法的比較，錯誤的是（
）
A．自然語言描述算法更容易掌握，但對分支和循環(huán)結(jié)構(gòu)的描述能力較弱。
B．流程圖描述算法清晰、簡潔。
C．偽代碼比其他方法更適合描述算法的抽象結(jié)構(gòu)。
D．偽代碼描述算法書寫方便，格式緊湊，易于理解，便于向計算機程序設(shè)計語言過渡。
答案：C
【解析】
【分析】
【詳解】
本題考查算法的相關(guān)知識點
自然語言描述算法更容易掌握，但對分支和循環(huán)結(jié)構(gòu)的描述能力較弱。選項A說法正確
流程圖描述算法清晰、簡潔。選項B說法正確
流程圖適合描述算法的抽象結(jié)果。故本題選C選項
偽代碼描述算法書寫方便，格式緊湊，易于理解，便于向計算機程序設(shè)計語言過渡。選項D說法正確
11．關(guān)于編寫計算機程序解決問題，以下說法錯誤的是（
）
A．編寫計算機程序解決問題，程序必須有輸出。
B．編寫計算機程序解決問題，程序必須有輸入。
C．編寫計算機程序解決問題需要經(jīng)過分析問題、設(shè)計算法、編寫程序、調(diào)試運行程序等若干個步驟。
D．設(shè)計算法是編寫計算機程序解決問題的關(guān)鍵
答案：B
【解析】
【分析】
【詳解】
本題主要考查算法設(shè)計的有關(guān)知識。計算機程序可以沒有輸出，但必須有1個或多個輸出，因此A選項正確、B選項錯誤；編寫計算機程序解決問題需要經(jīng)過分析問題、設(shè)計算法、編寫程序、調(diào)試運行程序等若干個步驟。因此C選項正確；算法是在有限步驟內(nèi)求解某一問題所使用的一組定義明確的規(guī)則。通俗點說，就是計算機解題的過程，是編寫計算機程序解決問題的關(guān)鍵，因此D選項正確。
12．有如下VB程序段：
s
=
Text1.Text
For
i=1
To
Len(s)
ch
=
Mid(s,i,1)
If
ch>="A"
And
ch<="Z"
Then
t=t+ch
If
ch>="a"
And
ch<="z"
Then
ch
=
Chr(Asc(ch)-32)
t=t+ch
ElseIf
ch
>=
"0"And
ch
<=
"9"
Then
t=ch+t
End
If
Next
i
Text2.Text
=
t
已知'A'的ASCI碼為65，'a'的ASCI碼為97.程序運行后，在文本框Textl中輸人“Text2.text=”Abc1234“”（外括號不包括），則在Text2中顯示的內(nèi)容是（
A．TEXT2.TEXTABC1234
B．43212TexttextABC
C．43212TEXTTEXTABC
D．TEXTTEXTABC43212
答案：C
詳解：本題考查VB程序段。根據(jù)判斷條件If
ch>=“A”
And
ch<=“Z”
Then
t=t+ch，大寫字母直接順序疊加，又If
ch>=“a”
And
ch<=“z”
Then
ch=Chr(Asc(ch)-32)t=t+ch，可知，小寫字母轉(zhuǎn)換為大寫字母后疊加。再看If
ch>=
“0”And
ch<=
“9”Then
t=ch+t，可知數(shù)字采取倒序疊加，故最后結(jié)果數(shù)字在前，全都是大寫字母，故選C。
13．下列選項中，體現(xiàn)了人工智能技術(shù)的有（
）
①手機根據(jù)環(huán)境光線強弱自動調(diào)節(jié)屏幕亮度
②使用微信插件將文本信息轉(zhuǎn)換成語音
③使用“屏下指紋解鎖”功能打開手機
④在Word中輸人“愛屋及鳥”自動替換為“愛屋及烏”
⑤物流配送機器人完成快遞配送
A．①③⑤
B．②③⑤
C．②④⑤
D．①②③
答案：B
詳解：本題考查人工智能相關(guān)知識。人工智能包括識別和理解，識別有指紋識別，人臉識別，語音識別，理解有機器翻譯和人機對話。使用微信插件將文本信息轉(zhuǎn)換成語音，使用“屏下指紋解鎖”功能打開手機，物流配送機器人完成快遞配送都體現(xiàn)了人工智能技術(shù)。手機根據(jù)環(huán)境光線強弱自動調(diào)節(jié)屏幕亮度是傳感器技術(shù)。故本題選B。
14．有如下Visual
Basic程序段：
Private
Sub
Command1_Click
()
Dim
x
As
Integer,r
As
Integer,
s
As
String
x
=
Val(Text1.
Text):
s
=""
Do
While
x<>0
r=(x+1)
Mod
2
s=Str(r)+s
x=x\2
Loop
Text2.
Text
=
s
End
Sub
該程序段運行后后，在文本框Text1中輸入25，則文本框Text2顯示的內(nèi)容是（
）
A．0
0
1
0
1
B．1
1
0
1
0
C．0
0
1
1
0
D．1
1
0
0
1
答案：C
詳解：本題考查VB程序段。根據(jù)do
while循環(huán)結(jié)構(gòu)，以及r=(x+1)
Mod
2，s=Str(r)+s，x=x\2三條語句可知，該循環(huán)的作用將十進制轉(zhuǎn)換為二進制后的0轉(zhuǎn)換為1，1轉(zhuǎn)換為0。25二進制是11001，故轉(zhuǎn)換后為00110，本題選C。
15．下列說法中都體現(xiàn)人工智能技術(shù)應(yīng)用的是（
）
①使用人體測溫篩檢儀，實現(xiàn)人臉識別無感通關(guān)，迅速發(fā)現(xiàn)體溫異常者
②樓道LED聲控感應(yīng)燈，在光線不足且有人走動時，自動感應(yīng)亮燈
③使用控制軟件在家里對公司里的電腦進行遠程控制，完成文件下載等操作
④車輛進出停車場時，通過車牌識別技術(shù)自動完成車輛停車計費工作
A．①②
B．②③
C．①④
D．②④
答案：C
詳解：本題考查人工智能相關(guān)知識。人工智能包括識別和理解，識別有指紋識別，人臉識別，語音識別，理解有機器翻譯和人機對話。使用人體測溫篩檢儀，實現(xiàn)人臉識別無感通關(guān)，迅速發(fā)現(xiàn)體溫異常者，車輛進出停車場時，通過車牌識別技術(shù)自動完成車輛停車計費工作屬于人工智能。樓道LED聲控感應(yīng)燈，在光線不足且有人走動時，自動感應(yīng)亮燈是一種傳感器技術(shù)。故本題選C。
16．有如下VB程序段：
s
=
Text1.Text:
n
=
Len（s）:
Count
=
0
For
i=1
To
n\2
If
Mid（s,
i,1）
<>
Mid（s,
n-i+1,1）
Then
Count
=
Count
+
1
End
If
Next
i
若在文本框Text1中輸入字符串“
200good2”，則Count的值為（　　）
A．3
B．1
C．6
D．7
答案：A
詳解：本題考查VB程序段。若在文本框Text1中輸入字符串“200good2”，根據(jù)If
Mid（s,
i,1）<>Mid（s,
n-i+1,1）Then
Count=Count+1，可知統(tǒng)計字符串前后對應(yīng)位置不相等字符個數(shù)，故本題選A。
17．某計算機運行一程序到特定階段就會出現(xiàn)異常畫面，為解決該問題與網(wǎng)友交流，必須將此時該程序的畫面截取下來。下列方案中最簡潔的是（
）。
A．使用數(shù)碼照相機拍攝
B．使用“PrintScreen”鍵
C．使用掃描儀
D．使用專用計算機屏幕截取軟件
答案：B
詳解：本題考查計算機操作。某計算機運行一程序到特定階段就會出現(xiàn)異常畫面，為解決該問題與網(wǎng)友交流，必須將此時該程序的畫面截取下來。最簡潔的是使用“PrintScreen”鍵，該鍵可以直接將屏幕內(nèi)容保存下來。故本題選B。
18．（
）人工智能科學(xué)技術(shù)獎，是為了獎勵我國人工智能領(lǐng)域有成就和創(chuàng)新的個人或項目而設(shè)立的，共設(shè)有科學(xué)技術(shù)成就獎、科學(xué)技術(shù)創(chuàng)新獎和科學(xué)技術(shù)進步獎，
從
2012
年開始，每年評獎一次。
A．華羅庚
B．吳文俊
C．蘇步青
D．陳
景
答案：B
詳解：本題考查人工智能相關(guān)知識。吳文俊人工智能科學(xué)技術(shù)獎，由中興通訊公司牽頭捐資，中國人工智能學(xué)會發(fā)起主辦，共設(shè)有科學(xué)技術(shù)成就獎、科學(xué)技術(shù)創(chuàng)新獎和科學(xué)技術(shù)進步獎，每年評獎一次。其中，成就獎和創(chuàng)新獎主要獎勵個人，進步獎主要獎勵項目。故本題選B。
19．下列說法正確的是（
）
A．計算機存儲數(shù)據(jù)的基本單位是
bit
B．計算機的硬盤容量越大則其運行速度越快
C．殺毒軟件滯后于計算機病毒，因此對計算機病毒以預(yù)防為主
D．信息的常用表達技術(shù)有文字?語言?圖形?圖像?聲音和形體動作等
答案：C
【解析】
【分析】
【詳解】
本題考查計算機基礎(chǔ)知識。大部分殺毒軟件是滯后于計算機病毒的，因此對計算機病毒以預(yù)防為主，選項C正確。計算機存儲數(shù)據(jù)的基本單位是B（字節(jié)），選項A錯誤。硬盤容量與計算機的速度沒有關(guān)系，選項B錯誤。信息的常用表達方式有文字?語言?圖形?圖像?聲音和形體動作等，選項D錯誤。
20．第一顆原子彈爆炸后，很多人預(yù)測公元2000年會成為核子時代；登月成功后，很多人認(rèn)為移民到其他星球不會太遙遠。但這些預(yù)測都沒有成真，反而是當(dāng)時誰都沒有想過的互聯(lián)網(wǎng)能發(fā)展成現(xiàn)在這個樣子。近些年，人工智能的迅速發(fā)展使得人們產(chǎn)生很多擔(dān)心，比如，擔(dān)心機器人有可能反過來征服人類，擔(dān)心穿戴設(shè)備和植入設(shè)備（植入人體內(nèi)部的智能設(shè)備）的發(fā)展可能產(chǎn)生超人。以下這些看法正確的是
①面對科技的迅猛發(fā)展，需要充分發(fā)揮想象力，思考應(yīng)對各種可能的情況
②歷史一再讓我們看到，許多以為必然會發(fā)生的事，常常因為不可預(yù)見的阻礙而無法成真，而某些難以想象的情景，最后卻成為事實
③如果穿戴設(shè)備和植入設(shè)備能提高個人的體能和智能，則可能造成人與人之間新的差異
④人工智能的進一步發(fā)展將會帶來什么，一時很難說準(zhǔn)，一切有待實踐的檢驗
A．①②
B．③④
C．①②③
D．①②③④
答案：D
【解析】
【分析】
【詳解】
本題主要考查人工智能相關(guān)知識點。①面對科技的迅猛發(fā)展，需要充分發(fā)揮想象力，思考應(yīng)對各種可能的情況②歷史一再讓我們看到，許多以為必然會發(fā)生的事，常常因為不可預(yù)見的阻礙而無法成真，而某些難以想象的情景，最后卻成為事實③如果穿戴設(shè)備和植入設(shè)備能提高個人的體能和智能，則可能造成人與人之間新的差異④人工智能的進一步發(fā)展將會帶來什么，一時很難說準(zhǔn)，一切有待實踐的檢驗，故本題選D選項。
二、判斷題
21．人工智能將引發(fā)機器人控制人類、毀滅人類的問題，所以我們不能再使用人工智能，要消滅人工智能。（_____）
答案：×
【解析】
【分析】
【詳解】
本題主要考查人工智能的應(yīng)用。人工智能有一定弊端，但不可全盤否定，可合理運用，因此本題錯誤。
22．一個算法必須要有1個以上的數(shù)據(jù)輸入。（___）
答案：×
【解析】
【分析】
【詳解】
本題考查算法輸入的相關(guān)知識點
一個算法也可以沒有輸入，但至少有一個輸出。故表述錯誤
23．?dāng)?shù)據(jù)也會過時，過時了的數(shù)據(jù)沒有任何價值。（____）
答案：×
【解析】
【分析】
【詳解】
本題考查數(shù)據(jù)的相關(guān)知識點
數(shù)據(jù)不會過時，只有什么時候使用而已，一直有價值。故表述有誤
24．用自然語言來描述算法，比用流程圖來描述算法更清晰、簡潔。（_______）
答案：錯
詳解：本題考查的是算法描述。流程圖是一種傳統(tǒng)的算法表示法，它用一些圖框來代表各種不同性質(zhì)的操作，用流程線來指示算法的執(zhí)行方向。由于它直觀形象，易于理解，所以應(yīng)用廣泛，特別是在語言發(fā)展的早期階段，只有通過流程圖才能簡明地表述算法。故題干中的說法是錯誤的。
三、操作題
25．如圖所示，是一個“大”字的8
8信息編碼點陣圖，假設(shè)空方塊用“0”表示，黑方塊用“1”表示，試分析并回答下列問題。
（1）點陣圖第七行用“0”和“1”從左向右排列的信息編碼是____________
（2）表示該字型的方法是點陣方式還是矢方式？
___________
（3）只修改-
-行編碼就可以將原圖的“大”字改成“人”字，應(yīng)修改第________
行，修改后的編碼是_______
答案：01000100
點陣方式
四或4
00010000
詳解：本題考查編碼相關(guān)知識。（1）根據(jù)題干空方塊用“0”表示，黑方塊用“1”表示，則點陣圖第七行用“0”和“1”從左向右排列的信息編碼是0100010。（2）表示該字型的方法是點陣方式。（3）應(yīng)修改第四行，將黑方塊改為白方塊就可以將原圖的“大”字改成“人”字，修改后的編碼是00010000。
26．過橋問題：有一家人，晚上要過一個獨木橋。但是他們只有一盞燈，而這盞燈只能使用30秒了。要在燈熄滅前過這座橋，他們一家五口人每個人過橋的速度不同。瘦人1秒，小胖3秒，姑娘6秒，大胖8秒，瘸子12秒。每次只能過兩個人。過去后,對岸要有一個人再把燈送回來。
問題1：他們能否在燈熄滅前過河？
問題2：他們在最短時間內(nèi)全部過河的的順序應(yīng)該怎樣安排，用自然語言將方法表示出來。
答案：問題1答案：可以在燈熄滅前過河，用時29秒。
問題2答案：過河的順序如下：
1.瘦人、小胖先過
3秒
2.瘦人回來
1秒
3.大胖、瘸子過橋
12秒
4.小胖回來
3秒
5.姑娘、瘦人過橋
6秒
6.瘦人回來
1秒
7.瘦人小胖過橋
3秒
總計
29秒
【解析】
【分析】
【詳解】
本題考查程序相關(guān)知識點
大胖和瘸子花的時間比較多，可以一起過河，小胖和瘦子花的時間比較少，可以回來送燈。具體過河順序如下：
1.瘦人、小胖先過
3秒
2.瘦人回來
1秒
3.大胖、瘸子過橋
12秒
4.小胖回來
3秒
5.姑娘、瘦人過橋
6秒
6.瘦人回來
1秒
7.瘦人小胖過橋
3秒
27．某校進行模擬考，現(xiàn)有25名學(xué)生的語數(shù)英三門課的成績（按百分制）存儲在數(shù)據(jù)庫student.accdb中的數(shù)據(jù)表cj中，現(xiàn)取出各學(xué)生成績存儲在cj（）數(shù)組中，成績存放如下：
運行程序，點擊“數(shù)據(jù)導(dǎo)入”按鈕后，在列表框list1中顯示所有數(shù)據(jù)。點擊“排序”按鈕，按總分從高到低計算名次（成績相同的名次相同），并按排名先后在列表框list2中顯示，數(shù)據(jù)要求對齊。程序運行界面如圖1所示：
圖1
（1）觀察程序及界面，可知“排序”按鈕的對象名為________________。
（2）實現(xiàn)上述程序功能的VB程序段如下，請在劃線出填入合適的代碼。
Dim
cj(1
To
100)
As
Integer
Dim
b(1
To
301)
As
Integer
'分?jǐn)?shù)為i的人數(shù)存入b(i)
Private
Sub
Cmdl_
Click()
Dim
conn
As
New
ADODB．Connection
Dim
rs
As
New
ADODB．Recordset
conn.ConnectionString
=
"Provider
=Microsoft．ACE．OLEDB．12.0;Data
Source=
"
&App．Path&
"\studentaccdb"
conn．Open
Set
rs．ActiveConnection
=
conn
rs．Open
"SELECT
FROM
cj"
n
=1
Do
While
Not
rs．EOF
cj(n)=
rs．Fields(
"語文"):cj(n+1)
=
rs．Fields("數(shù)學(xué)")
cj(n+2)
=
rs．Fields("英語"):cj(n+3)
=
cj(n)+cj(n+1)+cj(n+3)
__________
Rs．MoveNext
Loop
rs．Close
:conn．Close
'此處代碼略,用來實現(xiàn)將數(shù)據(jù)在list1中輸出
End
Sub
Private
Sub
paixu_
Click()
Dim
mc
As
Integer
'預(yù)處理求b數(shù)組的值
For
j=4
To
100
Step
4
_______________
Next
j
'以下程序用于計算名次并按要求對齊輸出
mc=1:b(301)=0
List2.AddItem"語文"+"數(shù)學(xué)"+"英語"+"總分"+"名次"
List2.AddItem
"------------------------------------------------"
For
i=300
To
1
Step
-1
______________
If
b(i)
<>
0
Then
For
C=4
To
100
Step
4
If
cj(c)
=
i
Then
List2.AddItem______________
End
If
Next
c
End
If
Next
i
End
Sub
'以下函數(shù)輸出時數(shù)據(jù)s時,不足7位末尾補空格
Function
gs(s
As
Integer)
As
String
Dim
cd
As
String
ed
=
CStr(s)
For
i=1
To
7
-Len(cd)
cd=
cd+"
"
Next
i
gs
=
cd
End
Function
答案：paixu
①n=n+4
②
b(cj(j)
=
b(cj(j))
+
1
③
mc=mc+b(i+1)
④gs(cj(c-3))
+
gs(cj(c-
2))
+
gs(cj(c-
1))
+
gs(cij(c))
+
gs(mc)
詳解：本題考查VB綜合能力。（1）根據(jù)Private
Sub
paixu_
Click()，可知，按鈕名稱為paixu。（2）變量n每次遞增，故填入n=n+4。（3）統(tǒng)計分?jǐn)?shù)為cj(j)的人數(shù)，古田如
b(cj(j))
=
b(cj(j))+1。（4）當(dāng)前名次為上一個分?jǐn)?shù)的人數(shù)加上當(dāng)前名次初始值，故填入mc=mc+b(i+1)。（5）將相應(yīng)結(jié)果顯示在List表中，故填入gs(cj(c-3))+gs(cj(c-
2))+gs(cj(c-
1))+gs(cij(c))+gs(mc)
28．編寫一個VB程序，實現(xiàn)如下功能：輸入s位數(shù)字構(gòu)成的數(shù)字字符串（第1位數(shù)字不為0），移除k
（0算法分析：要使得到的5位數(shù)字最小，首先需保證能取到5個數(shù)字，且首位應(yīng)盡量小，那么取首位數(shù)的范圍應(yīng)保證余下有4個數(shù)字，即在前4位中選最小非0的數(shù)字。
程序運行時，在文本框Text1中輸入一個數(shù)字字符串，在文本框Text2中輸入要移除的數(shù)字個數(shù)，單擊“運行”按鈕CmdRun后，在標(biāo)簽Labell顯示得到的最小新數(shù)，程序運行界面如圖b所示。
（1）程序運行時，若要在名為Form1的窗體標(biāo)題上顯示“刪數(shù)”，可以在Form
Load事件處理過程中添加語句為_________（單選，填字母：A．
Form1.
Text
="刪數(shù)"\B．
Form1.
Caption
="刪數(shù)"\C．
Form1.
AddItem"刪數(shù)"）
（2）實現(xiàn)上述功能的VB程序代碼如下，請在劃線處填入合適的代碼。
Private
Sub
CmdRun_
Click()
Dim
Num
As
String,New_num
As
String
'
Num為輸入的數(shù)字字符串
Dim
i
As
Integer,
j
As
Integer,
m
As
Integer,
Dim
As
Integer,
s
As
Integer,
k
As
Integer
Dim
a(30)
As
String,
b(30)
As
Integer
Num
=
Text1.
Text:
s
=
Len(Num)
k
=
Val
(Text2.
Text)
'k為刪除數(shù)字個數(shù)
For
i=1
To
s
a(i)
=
Mid(Num,i,1)
Nexti
j
=1
m=1
n=①_________
For
i=m+l
To
n
'取第一個非零最小數(shù)字
If
Then
m=I
'加框處程序代碼有誤,請改正
Next
i
b(j)=
m
Do
While②________
'取其他最小數(shù)字
m=m+1
n=n+1
For
i=m+1
To
n
If
a(i)
<
a(m)
Then
m=
i
Next
i
j
=j+1:b(j)=m
Loop
For
i=
m+1
To
s
'最后直接取的數(shù)字
j
=j+1:b(j)=i
Next
i
For
j=1
To
s-
k
'輸出最小數(shù)
New_
num
=③________
Next
j
Labell．
Caption
=
New_num
End
Sub
（3）加框處程序代碼有誤，請改正。
____________________________
答案：B
①
k
+
1或其他可行答案
②
j
<
k
或
j
<>
k
或
m
<
n
或
m
<>
n
或其他可行答案
③
New_num
+
a(b(j))或其他可行答案
a(i)
<
a(m)
And
a(i)
<>
"0"或其他可行答案
詳解：本題考查VB綜合能力。（1）程序運行時，若要在名為Form1的窗體標(biāo)題上顯示“刪數(shù)”，可以在Form
Load事件處理過程中添加語句為Form1.
Caption
=“刪數(shù)”。（2）n為最多能從前多少位取出第一個數(shù)字，故n=k+1。（2）剩余的數(shù)字?jǐn)?shù)量要滿足取出的數(shù)量，故填入m
<>
n。（3）將結(jié)果顯示，是一個結(jié)果變量疊加過程，故填入New_num+a(b(j))。（5）找最小的并且不能為零，故填入a(i)And
a(i)<>“0”。
29．均分紅包。當(dāng)前有n堆紅包，編號為1，2，
3，
。。
n，每堆有若干個紅包，紅包總數(shù)sum是n的倍數(shù)。可以在任一堆上取若干個紅包，然后移動，最終使每堆上的紅包個數(shù)相同。
移紅包規(guī)則：
①編號為1的堆上的紅包，只能移到編號為2的堆上；
②編號為n的堆上的紅包，只能移到編號為n-1的堆上；
③其它堆上的紅包，可以移到相鄰左邊或右邊的堆上。
現(xiàn)要求找出最少的移動次數(shù)使每堆的紅包數(shù)-樣多。如圖所示，在文本框Text1中輸入紅包堆數(shù)n，在文本框Text2中依次輸入每堆紅包的紅包個數(shù)（以“，”為分隔符和結(jié)束符），單擊“移紅包次數(shù)統(tǒng)計”按鈕Command1后，在標(biāo)簽Labe13中顯示最少的移動次數(shù)。
（1）代碼“Private
Sub
Command1_
Click（）”中的Click是______（單選，填字母：
A．對象名B．事件名C．事件處理過程名D．方法名）
（2）實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const
Sum
=
40
'紅包總個數(shù)
Private
Sub
Command1_
Click
()
Dim
n
As
Integer
'紅包的堆數(shù)
Dim
s
As
String,
k
As
Integer
Dim
avg
As
Integer
'最終每堆的紅包個數(shù)
Dim
ml
As
Integer,
m2
As
Integer
Dim
tmp
As
Integer,
count
As
Integer,
ans
As
Integer
n=
__________
s
=
Text2.
Text
avg=Sum/n
tmp=0:count=0:ans=0
For
k=1
To
Len(s)
c
=
Mid(s,
k,
1)
If
c
<>","Then
tmp
=_
_________
Else
count
=
count
+
1
If
count
=
1
Then
ml
=tmp
Else
m2
=
tmp
If
ml
<>
avg
Then
m2=m2-(avg-m1)
ans=ans+1
End
If
________
End
If
tmp=0
End
If
Next
k
Labe13.
Caption
=
Str
(ans)
End
Sub
答案：B
①Val
(Textl．
text)
②tmp
10+Val(c)
③m1=m2
詳解：本題考查VB綜合能力。（1）Click是事件名。（2）從text1中得到堆數(shù)，填入Val
(Textl.text)。（3）If
c
<>“，”，如果c不是逗號，則累加，將整個數(shù)字取出放入tmp，注意數(shù)據(jù)類型，填入tmp
10+Val(c)。（4）繼續(xù)運算，m1重新賦值，故填入m1=m2。
30．小王利用循環(huán)排序思想編寫了一個VB程序，用于計算下一輪比賽的出場順序。從數(shù)據(jù)庫中讀取本輪比賽的人員姓名存在數(shù)組xm中，成績存在數(shù)組cj中（成績均不重復(fù)）。編程實現(xiàn)將這些成績進行循環(huán)升序排列。要求最低成績的位置不變，然后依次進行升序排序，即從最小值開始向下尾首相連形成升序數(shù)列。程序運行界面如圖所示。點擊“排序”按鈕，完成循環(huán)升序排序。
（1）“排序”按鈕的對象名為_
（2）請在劃線處填入合適代碼。
（3）加框處代碼出錯，請改正。
Dim
xm（1
to
100）As
String
,cj（1
to
100）As
Integer
Dim
flag（1
to
100）As
Boolean
Private
Sub
Form_
Load（
）
'從數(shù)據(jù)庫中讀取數(shù)據(jù)，存儲到相應(yīng)數(shù)組中，并輸出在列表框Listl。第i個人，姓名為xm（i），成績?yōu)閏j（i）。人員數(shù)量存儲到變量n中（）。代碼略
End
Sub
Private
Sub
Cmd__Click（）
Dim
min
As
Integer,
pmin
As
Integer
min
=
cj(1):
pmin
=
1
For
i=2
To
n
If
cj（i）
<
min
Then
min
=
cj（i）：__①__
Next
i
flag（pmin）
=
True
pmin=
pmin
+
1
If
pmin=n+1
Then
pmin=1
For
i=1
To
n-2
k
=
pmin
For
j=1
To
n
If
②
Then
k=
j
Next
j
If
k
<>
pmin
Then
t
=
cj（k）:
cj（k）
=
cj（pmin）:
cj（pmin）
=
t
C
=
xm（k）:
xm（k）
=
xm（pmin）:
xm（pmin）
=
c
End
If
flag（pmin）
=
True
pmin=pmin+1
Next
i
'將排序后的人員姓名和成績輸出到列表框List2中，代碼略。
End
Sub
答案：（1）
Cmd
（2）①pmin=i
②cj（j）
<
cj（k）
And
flag（j）
=
False
（3）pmin
=
pmin
Mod
n+
1
詳解：本題考查VB排序算法。（1）根據(jù)代碼，排序按鈕的對象名為Cmd。（2）將最小值的位置記錄在pmin，故填入pmin=i。（3）尋找最小值，并且要保證該值之前沒有挑選過，所以填入cj（j）And
flag（j）=False。（4）根據(jù)題干是循環(huán)排序，所以位置也要構(gòu)成循環(huán)，根據(jù)約瑟夫環(huán)狀類似結(jié)構(gòu)，填入pmin=pmin
Mod
n+1
31．給定一個序列
a，這個序列由
n
個數(shù)組成（n
個數(shù)依次保存
在數(shù)組
a(1)
~a(n)中），現(xiàn)在給定一個整數(shù)
p，要求將序列
a的前
p
個數(shù)與后
n-p
個數(shù)對調(diào)，且不改變這
p
個數(shù)（和
n-p個數(shù)）之間的相對位置?
例如長度為
5
的序列
1，2，3，4，5，當(dāng)
p=2
時重排的結(jié)果為
3，4，5，1，2?
我們可以用兩種不同的方法來實現(xiàn)這一目的：
方法一：逐個地將數(shù)組
a
的后
n-p
個數(shù)依次移動到前面去?
數(shù)組
a：
1
2
3
4
5
3
1
2
4
5
3
4
1
2
5
3
4
5
1
2
方法二：將前
p
個數(shù)看作一個區(qū)間，后
n-p
個數(shù)看作另一個區(qū)間，依次將數(shù)交換，同時縮小區(qū)間的大小；若某一個區(qū)間達到末尾，則調(diào)整區(qū)間的范圍，直到兩個區(qū)間剛好同時達到末尾，即調(diào)整結(jié)束?
數(shù)組
a：
互換并調(diào)整區(qū)間：第一個區(qū)間結(jié)束且第二個區(qū)間還有元素，調(diào)整區(qū)間
1
和區(qū)間
2
的范圍，如圖將區(qū)間
1
調(diào)整為[3，4]，區(qū)間
2
調(diào)整為[5：5]?
互換并調(diào)整區(qū)間：第二個區(qū)間結(jié)束且第一個區(qū)間還有元素，僅調(diào)整第
1
個區(qū)間的起始位置?
互換并結(jié)束：兩個區(qū)間同時到達末尾?
3
4
5
1
2
小明依據(jù)上面的方法設(shè)計了
VB
程序如下：
Dim
a(1
To
100),
i
As
Integer,
j
As
Integer,
tmp
As
Integer,
p
As
Integer
Dim
start1
As
Integer,
end1
As
Integer,
start2
As
Integer,
end2
As
Integer
'將序列保存到數(shù)組
a中,序列長度保存到
n
中,移動數(shù)字的個數(shù)保存在
p
中
Private
Sub
Command2_Click()
'用方法一實現(xiàn)
For
i
=
p
+
1
To
n
tmp
=
a(i)
For
j
=
i
To
①
Step
-1
a(j)
=
a(j
-
1)
Next
j
②
=
tmp
Next
i
End
Sub
Private
Sub
Command3_Click()
'用方法二實現(xiàn)
start1
=
1:
end1
=
p
'第
1
個區(qū)間的起始狀態(tài)
start2
=
p
+
1:
end2
=
n
'第
2
個區(qū)間的起始狀態(tài)
i
=
start1:
j
=
start2
Do
While
③
i
=
start1:
j
=
start2
Do
While
i
<=
end1
And
j
<=
end2
tmp
=
a(i):
a(i)
=
a(j):
a(j)
=
tmp
i
=
i
+
1:j
=
j
+
1
Loop
If
i
<=
end1
Then
'第
2
個區(qū)間結(jié)束且第
1
個
區(qū)間還有元素
start1
=
i
ElseIf
j
<=
end2
Then
'第
1
個區(qū)間結(jié)束且第
2
個區(qū)間還有元素
start1
=
i:
④
start2
=
j
End
If
Loop
End
Sub
請回答下列問題：
（1）若序列為：9，8，13，22，7，6，5，37，6，p=4
時，使用方法一，則
a(3)的值依次是
13，_________________（用逗號隔開，順序填寫曾存儲過的值）?
（2）請在劃線處填入合適的代碼?
①_______________________
②_______________________
③_______________________
④_______________________
答案：8，9，5
i
-
p
+
1
a(j)或a(i-p)
i
<=
n
end1=
i
+
p
-
1
【解析】
【分析】
【詳解】
本題考查VB程序的基本結(jié)構(gòu)。（1）使用方法一，逐個地將數(shù)組
a
的后
n-p
個數(shù)依次移動到前面去，所以a(3)
曾存儲過的值依次是
13，8，9，5。（2）①循環(huán)變量j的范圍從i到i-p+1是隨著i的變化而變化的。②a(p+1)中的值是要放到a(1)中的，a(p+2)中的值是要放到a(2)中，……，所以a(j)=tmp。③當(dāng)?shù)谝粎^(qū)間的開始值和序列長度n重合時，即i=n時數(shù)據(jù)才能完成最后的交換,所以Do
While循環(huán)的循環(huán)條件是i<=n。④因第1個區(qū)間結(jié)束且第2個區(qū)間還有元素，所以第一區(qū)間的長度沒有變，start1
=
i，則end1=
i
+
p
–
1。
21世紀(jì)教育網(wǎng)
www.21cnjy.com
精品試卷·第
2
頁
（共
2
頁）
21世紀(jì)教育網(wǎng)(www.21cnjy.com)

展開更多......

收起↑