2018-2019學年浙江省名校新高考研究聯(lián)盟高三(上)第一次聯(lián)考信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列關(guān)于信息和信息技術(shù)的說法錯誤的是( ?。?/h2>
組卷:2引用:1難度:0.5 -
2.瀏覽某網(wǎng)頁的部分界面如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201906/123/0b7befb9.png" style="vertical-align:middle" />
組卷:2引用:1難度:0.5 -
3.下列關(guān)于字處理的說法,錯誤的是( ?。?/h2>
組卷:4引用:1難度:0.6 -
4.下列關(guān)于數(shù)據(jù)庫的說法,正確的是( ?。?/h2>
組卷:4引用:1難度:0.3 -
5.用 UltraEdit軟件查看字符的內(nèi)碼,界面如圖所示,下列分析正確的是( ?。?br />
組卷:0引用:2難度:0.5
【加試題】
-
16.某種紙牌游戲,三人一起玩一幅牌,每人17張,5張及以上的連續(xù)單牌(不分花色)稱為順子,順子最大到K,如“A,2.3,4,5,6”是長度為6的順子。編寫程序,判斷游戲剛開始時某玩家有沒有順子,最長的順子是幾張實現(xiàn)上述功能的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
IfThen′②
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 ( ?。?br />'獲取17張牌的牌面數(shù)值(J、Q、K,A分別對應11、12、13,1),升序存儲在數(shù)組a中
‘代碼略
End Sub組卷:0引用:1難度:0.5
【加試題】
-
17.回文數(shù)是從左向右讀和從右向左讀結(jié)果一樣的數(shù)字串,例如:1和363都是回文數(shù)編寫VB程序,構(gòu)造一個大于給定正整數(shù)n的最小回文數(shù)p,構(gòu)造方法如下
(1)根據(jù)數(shù)字串n的左半部分子串st,構(gòu)造對稱的右半部分,生成回文數(shù)p
(2)若p>n,則p即為最小回文數(shù),如:98712→98789
(3)若p<=n則需重新構(gòu)造p,方法是:從右向左查找字符串st中第一個“9”的字符;若不存在,則生成形如“10…01”的回文數(shù)p,p的長度比n的長度多1位,如:9999→10001若存在,則將第一個非“9”字符加1,并將該字符后面部分用字符“0“填充,最后構(gòu)造對稱的右半部分,生成回文數(shù)p。如:98992→99099,
實現(xiàn)上述功能的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
If
i=(ln+1)\2
Do While i>0
If Mid(st,i,1)=“9“Then
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
If
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