2016-2017學(xué)年浙江省紹興一中高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關(guān)做法正確的是（ ?。?/h2>
組卷：5引用：1難度：0.9 -
2．通過某網(wǎng)站選購商品，界面如圖．
以下說法正確的是（ ）組卷：5引用：1難度：0.9 -
3．用Word編輯某文檔，操作界面如圖所示．
以下說法正確的是（ ?。?/h2>組卷：9引用：1難度：0.9 -
4．有關(guān)Access數(shù)據(jù)庫的操作，下列說法正確的是（ ?。?/h2>
組卷：4引用：1難度：0.9 -
5．某算法的流程圖如圖所示，執(zhí)行該算法后，變量x,y的值是（ ?。?br />
組卷：3引用：1難度：0.9
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．【加試題】有一個報數(shù)游戲，n個人排成一圈，游戲開始時規(guī)定一個報數(shù)號m,然后從其中一個人開始按順時針報數(shù)1，2，3…n,當(dāng)某人報到的數(shù)為m的倍數(shù)時，即被淘汰，其他人繼續(xù)游戲，直到最后．現(xiàn)用VB設(shè)計了一個程序，程序界面如下圖所示．在文本框Text1中輸入?yún)⒓佑螒虻娜藬?shù)n,在文本框Text2中輸入報數(shù)號m,單擊“報數(shù)”按鈕，即在列表框List1中顯示每次被淘汰的人的順序號．
實現(xiàn)上述功能的VB代碼如下，但加框處有錯，請改正．
Private Sub Command1_Click（ ?。?br />Dim n As Integer,m As Integer
Dim a（1To 50）As Integer
n=Val（Text1．Text）
m=Val（Text2．Text）
For i=1To n
'（1）
Next i
s=0：j=0
Do While s＜n
t=0
Do While t＜m
'（2）
t=t+a（j）
Loop
a（j）=0
s=s+1
List1．AddItem“第“+Str（s）+“次：“+Str（j）
Loop
End Sub.組卷：0引用：1難度：0.4 -
17．小劉在玩一個數(shù)字游戲，給定一個n位正整數(shù)（n＜=20），根據(jù)設(shè)定的保留位數(shù)，舍去一部分?jǐn)?shù)字，剩下的數(shù)字按原次序組成一個最大的新數(shù)．例如原數(shù)34625803，保留4位，最大數(shù)為6803．算法是：先確定最高位的數(shù)字，在第1位至最后3位數(shù)字前的34625中找到最大的數(shù)6，從而確定最高位是6，再確定次高位的數(shù)字，從6后面的數(shù)開始到最后2位數(shù)字前的258中找到最大數(shù)8，確定次高位是8，依次找下去得到最大新數(shù)．他設(shè)計了一個VB程序來進(jìn)行驗證，在文本框Text1中輸入一個n位正整數(shù)，在文本框Text2中輸入保留的位數(shù)，點擊“確定”按鈕，在文本框Text3中輸出保留的最大新數(shù)．程序運行界面如圖所示．
（1）如果輸入的原數(shù)是3635132，保留4位數(shù)字，則輸出的新數(shù)是．
（2）實現(xiàn)上述功能的VB代碼如下，請在橫線處填入合適代碼．
Private Sub Command1_Click （ ?。?br />Dim a（1To 20）As String
Dim ys As String,xs As String'xs記錄最大的新數(shù)
Dim k As Integer,h As Integer,n As Integer
Dim i As Integer,j As Integer
Dim F As Boolean
xs=““
ys=Text1．Text
n=Len（ys）
k=Val（Text2．Text）
F=True
If ys=““Or n＞20Or k=0Or k＞n Then
Label4．Caption=“輸入的原數(shù)或保留位數(shù)不符，請重輸！“
F=False
End If
For i=1To n
①
If a（i）＜“0“Or a（i）＞“9“Then
Label4．Caption=“輸入的原數(shù)不是數(shù)字，請重輸！“
Text1．Text=““
F=False
End If
Next i
If F=True Then
h=1
For i=1To k
For j=h To ②
If a（j）＞a（h） Then h=j
Next j
xs=xs+a（h）
h=h+1
Next i
Text3．Text=xs
End If
End Sub.組卷：5引用：1難度：0.1