2017-2018學(xué)年浙江省溫州市十五校聯(lián)合體高二(下)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分)
-
1.下列有關(guān)信息的說(shuō)法,正確的是( )
組卷:28引用:1難度:0.9 -
2.下列關(guān)于網(wǎng)頁(yè)和網(wǎng)絡(luò)協(xié)議的說(shuō)法,正確的是( )
組卷:4引用:1難度:0.9 -
3.下列選項(xiàng)中,體現(xiàn)人工智能技術(shù)的有( )
①利用語(yǔ)音方式控制機(jī)器人
②使用在線翻譯將中文轉(zhuǎn)換為英文
③利用 VR 技術(shù)進(jìn)行電腦游戲開(kāi)發(fā)
④使用指紋識(shí)別技術(shù)解鎖手機(jī)
⑤用手機(jī)掃描二維碼獲取公眾號(hào)組卷:23引用:2難度:0.9 -
4.以下有關(guān)數(shù)據(jù)庫(kù)的說(shuō)法,正確的是( )
組卷:17引用:1難度:0.5 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,輸出 a,b 的值分別是( ?。?br/>
組卷:2引用:1難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.【加試題】編寫(xiě)“輸出所有子串”程序,實(shí)現(xiàn)如下功能:在文本框 Text1 中輸入一串不重復(fù)的字符串,在
列表框 List1 中輸出該字符串的所有子串和子串的總數(shù)。程序運(yùn)行界面如圖所示,VB 程序代碼如下。為實(shí)現(xiàn)上述功能,請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click ( )
Dim s As String,n As Integer Dim i As Integer,j As Integer s=Text1.Text
n=0List1.Clear
For i=1To Len(s)
For j=i To Len(s)
List1.AddItem① ②
Next j Next i
List1.AddItem“總共有“+Str(n)+“個(gè)子串“End Sub組卷:2引用:1難度:0.5 -
17.【加試題】最大整數(shù)問(wèn)題:貪心算法中,有一類(lèi)問(wèn)題稱(chēng)為最大整數(shù)問(wèn)題,問(wèn)題的描述是:設(shè)有 n 個(gè)隨機(jī) 生成的正整數(shù),將它們連接成一排,組成一個(gè)最大的多位整數(shù)。其求解思想是:先把整數(shù)轉(zhuǎn)換成字符串,然后在比較 a+b 和 b+a,如果 a+b>=b+a,就把 a 排在 b 的前面,反之則把 a 排在 b 的后面。例如:n=3 時(shí),3 個(gè)整數(shù) 13,312,343,連成的最大整數(shù)為 34331213。
小王同學(xué)編寫(xiě)了一個(gè) VB 程序,功能如下:在列表框 List1 中隨機(jī)生成 n 個(gè) 1~1000 之間的整數(shù),單擊“運(yùn) 行”按鈕 Command1 后進(jìn)行處理,最大整數(shù)結(jié)果輸出在文本框 Text1 中。當(dāng) n=4 時(shí),程序運(yùn)行界面如圖所 示。
實(shí)現(xiàn)上述功能的 VB 程序如下,請(qǐng)回答下列問(wèn)題:
(1)當(dāng) n=3 時(shí),3 個(gè)數(shù):719,791,79,由這三個(gè)數(shù)組成的最大整數(shù)為
(2)請(qǐng)?jiān)跈M線處填入合適的代碼。Const n=4
Dim a(1To 10)As Integer
Private Sub Form_Load ( ?。瘮?shù) CStr ( )和 Str ( ?。┕δ茴?lèi)似,但輸出字符時(shí)無(wú)前導(dǎo)空格
Randomize
For i=1To n
a(i)=① ’生成 1~1000 之間的隨機(jī)整數(shù)
List1.AddItem“a(“+CStr(i)+“)=“+CStr(a(i))
Next i End Sub
Function cmp(a As Integer,b As Integer) As Boolean
If CStr(a)+CStr(b)<CStr(b)+CStr(a) Then
cmp=True
Else
cmp=False
End If End Function
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,temp As Integer Text1.Text=““
For i=1To n-1
For j=n To i+1Step-1
If ② Then
temp=a(j-1)
a(j-1)=a(j)
③
End If
Next j
Next i
For i=1To n
Text1.Text=Text1.Text+CStr(a(i))
Next i End Sub組卷:2引用:1難度:0.5