2016-2017學年浙江省溫州市十校聯合體聯考高三(上)期末信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分.每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)
-
1.下列關于信息的說法中,不正確的是( )
組卷:18難度:0.9 -
2.下列軟件中,屬于以頁為基礎的多媒體創(chuàng)作工具的是( ?。?/h2>
組卷:6引用:2難度:0.9 -
3.下列應用中使用了光學字符識別(OCR)技術的是( ?。?/h2>
組卷:5難度:0.9 -
4.關于Access數據表的操作,下列說法中正確的是( )
組卷:9引用:2難度:0.7 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量a的值是( )
組卷:2引用:2難度:0.7
【加試題】
-
16.編寫VB程序,實現如下功能:在文本框Text1中輸入一個整數,單擊“查找”按鈕,找出該整數的全部的連續(xù)整數固定和,并將它們顯示在列表框List1中.所謂一個數n的連續(xù)整數固定和,就是指存在a1,a2,…,an,其中ai+1比ai大1,使得a1+a2+…+an=n.這樣a1,a2,…,an稱為n的一個連續(xù)整數固定和.例如27的全部的連續(xù)整數固定和有3組,運行界面如圖所示,實現上述功能的VB代碼如下,但加框處代碼有錯,請改正.
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,sum As Integer
Dim n As Integer
n=Val(Text1.Text)
sum=0
List1.Clear
For i=1To n'①
j=i-1
Do While sum<=n'②
j=j+1
sum=sum+j
Loop
If sum=n Then
List1.AddItem Str(i) &“+…+“& Str(j) &“=“& Str(n)
End If
sum=0
Next i
End Sub.組卷:2引用:1難度:0.3 -
17.某移數字游戲的規(guī)則如下:有一個如圖a所示的包含9個圓圈的數陣.將1~8這8個數字隨機地填寫到該數陣的外層圓圈中,只剩下中間的一個空圓圈.規(guī)定每個數字只能按照數陣中的直線從一個圓圈移動到另一個空的圓圈中.通過若干步的移動,要求將該數陣中的數字移動成為如圖b所示的狀態(tài).
小張編寫了一個VB程序來解這個游戲,功能如下:點擊“初始化”按鈕Command1初始化游戲,程序隨機地將1~8這8個整數填入到數陣的外層圓圈中,同時將該狀態(tài)下的數陣顯示在列表框List1中.點擊“開始”按鈕Command2,程序開始移數字,并將移動過程中的每一步輸出在列表框List2中,最后統(tǒng)計總移動步數到標簽Label1中.為了清楚地描述輸出數字在數陣中的每一步移動步驟,小張給數陣中的每一個圓圈都進行了編號,具體編號方法如圖c所示,因此1號圈中的數字移動到2號圈可以表示為“1#-->2#”.程序運行界面如圖d所示.
實現上述功能的VB代碼如下.
(1)請在橫線處填入合適代碼
Dim a(1To 8)As String
Private Sub Command1_Click ( ?。?br />Dim temp As Integer,i As Integer,j As Integer
Dim flag(1To 8)As Boolean
For i=1To 8
Next i
Randomize
For i=1To 8
temp=Int(Rnd ( ?。?8+1)'生成1~8之間的隨機整數
Do While flag(temp)
temp=Int(Rnd ( ?。?8+1)'生成1~8之間的隨機整數
Loop
a(i)=temp
flag(temp)=True
Next i
List1.Clear
List1.AddItem“初始狀態(tài):“
PrintCircle
End Sub
Private Sub Command2_Click ( ?。?br />Dim i As Integer,j As Integer,temp As String,n As Integer,moveStep As String
moveStep=““
List2.Clear
n=0
For i=1To 7'使用冒泡排序對圓圈中的數字進行移動
For j=1To
If a(j)>=a(j+1)Then
temp=a(j):a(j)=a(j+1):a(j+1)=temp
moveStep=Str(j) &“#-->0#“
moveStep=moveStep &““& Str(j+1)&“#-->“& Str(j) &“#“moveStep=moveStep &““&“0#-->“& Str(j+1)&“#“
List2.AddItem moveStep
n=n+1
End If
Next j
Next i
List1.AddItem“移動數字后:“
PrintCircle
Label1.Caption=“總移動步數:“&
End Sub
'在列表框List1中輸出當前的數陣狀態(tài)
Function PrintCircle ( ?。?br />List1.AddItem“-------------------------“
List1.AddItem“[“& a(1)&“]-[“& a(2)&“]-[“& a(3)&“]“
List1.AddItem“|\|/|“
List1.AddItem“[“& a(8)&“]-[“&““&“]-[“& a(4)&“]“
List1.AddItem“|/|\|“
List1.AddItem“[“& a(7)&“]-[“& a(6)&“]-[“& a(5)&“]“
List1.AddItem“-------------------------“
End Function
(2)分析代碼和游戲規(guī)則,事件處理過程“Command2_Click”中的冒泡排序組卷:7引用:1難度:0.3