2017-2018學年浙江省溫州市共美聯盟高二（下）期末信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息的說法，不正確的是（ ）
組卷：14引用：3難度：0.2 -
2．某網頁的部分界面如圖所示．
關于該網頁的描述，下列說法正確的是（ ）組卷：6引用：1難度：0.7 -
3．下列操作中沒有用到光學字符識別（OCR）技術的是（ ）
組卷：13引用：2難度：0.9 -
4．某Access數據表編輯界面如圖所示，以下說法正確的是（ ）
組卷：6引用：4難度：0.5 -
5．某算法的流程圖如圖所示：
當輸入x的值為100時，在標簽Label1中輸出的內容為（ ）組卷：4引用：4難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．插入排序。小明用VB設計程序，主要功能如下：隨機產生10個介于1到100之間的正整數數列，按升序排序后顯示在List1列表框中，在文本框Text1中輸入1個100以內的正整數，單擊“插入”按鈕Command1后將其插入到數列中，并保持數列仍然有序，顯示在列表List2中，同時在標簽Label4中顯示插入的位置，程序界面如下圖所示。
實現上述功能的VB程序代碼如下，但是有兩個地方有誤，請改正。
Dim a（1To 15）As Integer
Dim i,j As Integer
Const n=10
Private Sub Form_Load（ ）
Randomize'隨機生成n個1到100之間的正整數
For i=1To n
a（i）=Int（Rnd*100）+1
Next i
'將10個數從小到大排序
For i=1To n-1
k=i
For j=i+1To n
Next j
If i＜＞k Then
t=a（i）：a（i）=a（k）：a（k）=t
End If
Next i
'將排好序的數輸出在列表框Listl中
List1．Clear
For i=1To n
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click （ ）
Dim key As Integer
key=Val（Text1．Text）
i=1
Do While key＞a（i） And （i＜=n）
i=i+1
Loop
Label4．Caption=“該數插入的位置是：“+Str（i）
If i=11Then
a（i）=key
Else
For j=n+1To i+1Step-1
Next j
a（i）=key
End If
List2．Clear
For i=1To 11
List2．AddItem a（i）
Next i
End Sub組卷：2引用：1難度：0.4 -
17．最大回文子串。回文字符串是具有回文特性的字符串：即該字符串從左向右讀，與從右向左讀都一樣。如：鳳落梧桐梧落鳳，abcba 等。“最大回文子串”是指一個字符串中長度最大的回文字符串，其基本算法思想如下：
（1）每個回文都有一個“中心”，當回文字符數為奇數時，中間的那個字符就是回文中心；但是當回文的字符數為偶數時，回文的中心是最中間的那兩個字符，且這兩個字符相同。
（2）對任意一個字符或者相同的兩個連續字符，我們都可以假設它為回文的“中心”，向它的左右兩邊擴展出盡可能長的回文。對于每種假設，我們都能得到一個回文，而最長回文必定由其中的某個假設中得到。
現編寫一個 VB 程序，在 Text1 中輸入一串字符，單擊“統計”按鈕，在 Text2 中顯示該字符串中的最大的回文子串（長度相同時，輸出最左邊的子串）。運行界面如圖所示。
請回答下列問題：
（1）當 Text1 中輸入“123321344332423112113123”時，則輸出的結果為。
（2）請在橫線處填入合適的代碼。
Dim n As Integer
Dim a（0To 100）As String
Private Sub Command1_Click（ ）
Dim s As String
Dim left As Integer,right As Integer,i As Integer
Dim max As Integer,m As Integer,b1As Integer
'變量 b1 用于記錄回文子串的左端起點
Text2．Text=““
s=Text1．Text
n=Len（s）
For i=1To n
a（i）=Mid（s,i,1）
Next i
max=0：left=0：right=0
For i=1To n
left=i
right=i
m=longest（left,right）
If m＞max Then
max=m
End If
left=i
right=i+1
If a（left）=a（right） Then
m=longest（left,right）+1
If m＞max Then
b1=i-m\2+1
max=m
End If
End If
Next i
For i=b1To
Text2．Text=Text2．Text+a（i）
Next i
End Sub
Function longest（left As Integer,right As Integer） As Integer
Dim p As Integer
p=1
Do While left＞1 And right＜n And
left=left-1
right=right+1
p=p+2
Loop
longest=p
End Function組卷：2引用：1難度：0.3