2018-2019學年浙江省名校新高考研究聯盟高三（上）第一次聯考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列關于信息和信息技術的說法錯誤的是（ ）
組卷：2引用：1難度：0.5 -
2．瀏覽某網頁的部分界面如圖所示，下列說法正確的是（ ）
組卷：2引用：1難度：0.5 -
3．下列關于字處理的說法，錯誤的是（ ）
組卷：4引用：1難度：0.6 -
4．下列關于數據庫的說法，正確的是（ ）
組卷：4引用：1難度：0.3 -
5．用 UltraEdit軟件查看字符的內碼，界面如圖所示，下列分析正確的是（ ）
組卷：0引用：2難度：0.5
【加試題】
-
16．某種紙牌游戲，三人一起玩一幅牌，每人17張，5張及以上的連續單牌（不分花色）稱為順子，順子最大到K，如“A，2.3，4，5，6”是長度為6的順子。編寫程序，判斷游戲剛開始時某玩家有沒有順子，最長的順子是幾張實現上述功能的B程序代碼如下，但加框處代碼有錯，請改正
Const n=17
Dim a（n） As Integer
Private Sub Command1_ Click（ ）
Dim max As Integer,count As Integer
Dim i As Integer,Ag Integer
count=0：max=0
i=1
Do While i＜=n-1
′①
j=i+1
Do While j＜=n
If
Then′②
j=j+1
count=count+I
Elself a（j）=a（j-1）Then
j=j+1
Else
Exit Do
End If
Loop
i=j
If count＞max Then max“count
Loop
If mxa＜5 Then
Label2．Caption=“無順子“
Else
Label2．Caption=“最長順子長度：“+Str（max）
End If
End Sub
Private Sub Fora Load （ ）
'獲取17張牌的牌面數值（J、Q、K，A分別對應11、12、13，1），升序存儲在數組a中
‘代碼略
End Sub組卷：0引用：1難度：0.5
【加試題】
-
17．回文數是從左向右讀和從右向左讀結果一樣的數字串，例如：1和363都是回文數編寫VB程序，構造一個大于給定正整數n的最小回文數p,構造方法如下
（1）根據數字串n的左半部分子串st,構造對稱的右半部分，生成回文數p
（2）若p＞n,則p即為最小回文數，如：98712→98789
（3）若p＜=n則需重新構造p,方法是：從右向左查找字符串st中第一個“9”的字符；若不存在，則生成形如“10…01”的回文數p,p的長度比n的長度多1位，如：9999→10001若存在，則將第一個非“9”字符加1，并將該字符后面部分用字符“0“填充，最后構造對稱的右半部分，生成回文數p。如：98992→99099，
實現上述功能的VB程序如下，請回答下列問題：
（1）如果n為69999，則p為。
（2）請在橫線處填入合適的代碼
Private Sub Command1_Click（ ）
Dim n As String,st As String.p As String
Dim In As Integer.i As Integer.j As Integer
n=Text1．text
ln=Len（n）
st=Mid（n,1，＜ln+1＞\2）
p=st
For i=ln\2To1 Stop-1
p=p+Mid（n,i,1）
Next i
IfThen
i=（ln+1）\2
Do While i＞0
If Mid（st,i,1）=“9“ThenEIse Exit Do
Loop
If i＜1 THen
p=“1“
For i=2 To In
p=p+“0“
Next i
p=p+“1“
Else
p=Mid（st,1，i-1）
p=p+Chr（Asc（Mid（st,i,1））+1）
For j=i+1 To ln-i
p=p+“0“
Next j
IfThen p=p+Mid（p,i,1）
For j=i-1 To Step-1
p=p+Mid（p,j,1）
Next j
End If
End If
End If
Text2．Text=p
End Sub組卷：0引用：1難度：0.5