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