2017-2018學(xué)年浙江省麗水市高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分.)
-
1.下列有關(guān)信息的說法,正確的是( ?。?/h2>
組卷:8引用:1難度:0.7 -
2.IMAP(Internet Mail Access Protocol)即交互式郵件存取協(xié)議,其功能之一是提供了方便的郵件下載服務(wù),讓用戶能進(jìn)行離線閱讀.以下與該功能相似的協(xié)議是( ?。?/h2>
組卷:8引用:3難度:0.9 -
3.一款用于多人視頻會議智能系統(tǒng),可識別參會人員身份,對不同人的發(fā)言進(jìn)行標(biāo)記和語音轉(zhuǎn)碼,并編譯成不同語言文字。該設(shè)備的下列功能中,沒有用到人工智能技術(shù)的是( ?。?/h2>
組卷:4引用:3難度:0.4 -
4.在Flash中,當(dāng)RGB設(shè)置為(255,0,0)時,下方自動顯示為#FF0000,如圖所示,則當(dāng)RGB設(shè)置為(255,64,200),下方將顯示為( ?。?/h2>
組卷:1引用:1難度:0.5 -
5.某算法部分流程圖如圖所示,執(zhí)行該流程后,變量s,i的值分別是( )
組卷:4引用:2難度:0.4
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.小明學(xué)習(xí)了選擇排序后,對選擇排序算法進(jìn)行了如下改進(jìn):在數(shù)組的所有元素中找出最小和最大數(shù)據(jù)的元素,然后將這兩個元素分別與第一個和最后一個元素交換數(shù) 據(jù),在余下的元素中找出最小和最大數(shù)據(jù)的元素,分別與第二個和倒數(shù)第二個元素交換數(shù)據(jù),以此類推,直到所有元素的數(shù)據(jù)按升序排列。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。
Const n=10
Dim a(1To n) As Integer
Private Sub Command1_Click ( ?。?br />Dim left1As Integer,right1As Integer,Pmax As Integer,Pmin As Integer,t As Integer
'隨機(jī)生成一組正整數(shù),存儲在數(shù)組a中,代碼略
left1=1:right1=n
Do While left1<right1
Pmin=left1:Pmax=left1
For i=left1+1To ‘①
If a(i)<a(Pmin) Then Pmin=i
If a(i)>a(Pmax) Then Pmax=i
Next i
t=a(Pmin):a(Pmin)=a(left1):a(left1)=t
If Pmax=left1Then ‘②
t=a(Pmax):a(Pmax)=a(right1):a(right1)=t
left1=left1+1
right1=right1-1
Loop
'依次輸出排序后的數(shù)據(jù)。代碼略
End Sub組卷:2引用:1難度:0.4 -
17.編寫VB程序,實(shí)現(xiàn)如下功能:在數(shù)組a中生成不重復(fù)的隨機(jī)整數(shù),按升序排列并顯示在標(biāo)簽Label1中。在文本框Text1中輸入一個整數(shù),單擊“查找刪除”按鈕Command1,采用對分查找法在數(shù)組a中查找該數(shù)。若找到,則從數(shù)組a中刪除該數(shù)(該數(shù)后面的數(shù)組元素都前移),并在標(biāo)簽Label2中顯示刪除后的結(jié)果;否則,在標(biāo)簽Label2中顯示“該數(shù)沒有找到”。程序運(yùn)行界面如下圖所示。
請在橫線處填入合適的代碼。
Const n=10
Dim a(1To n) As Integer
'Form_Load事件過程產(chǎn)生不重復(fù)的隨機(jī)整數(shù),按升序排序并在標(biāo)簽Label1中顯示
Private Sub Form_Load( )
Dim i As Integer,j As Integer,temp As Integer
Randomize
For i=1To n
a(i)=Int(Rnd*100)+1
For j=1To i-1
If a(i)=a(j) Then
①
Exit For‘退出For循環(huán)
End If
Next j
Next i
For i=2To n
If a(i)<a(i-1)Then
temp=a(i)
For j=i-1To 1Step-1
If temp>a(j) Then Exit For
a(j+1)=a(j)
Next j
②
End If
Next i
For i=1To n
Label1.Caption=Label1.Caption+Str(a(i))+““
Next i
End Sub
Private Sub Command1_Click( ?。?br />Dim i As Integer,j As Integer,m As Integer,k As Integer
Dim key As Integer,flag As Boolean
key=Val(Text1.Text)
i=1:j=n
flag=False
Do While (i<=j) And (not flag)
m=Int((i+j)/2)
If a(m)=key Then flag=True
If a(m)<key Then i=m+1Else j=m-1
Loop
If flag=True Then
For k=③
a(k)=a(k+1)
Next k
Label2.Caption=““
For k=1To n-1
Label2.Caption=Label2.Caption+Str(a(k))+““
Next k
Else
Label2.Caption=“該數(shù)沒有找到“
End If
End Sub組卷:2引用:1難度:0.4