2018-2019學(xué)年浙江省寧波十校聯(lián)考高三(上)月考信息技術(shù)試卷(9月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題列出的四個選項中,只有一項是符合題目要求的,不選、多選、錯選均不得分)
-
1.二維碼是近年來非常流行的編碼方式,以下關(guān)于二維碼的說法正確的是( ?。?/h2>
組卷:32引用:7難度:0.5 -
2.以下關(guān)于網(wǎng)絡(luò)協(xié)議和網(wǎng)頁保存類型的描述,正確的是( )
組卷:8引用:4難度:0.6 -
3.以下關(guān)于數(shù)據(jù)庫的說法正確的是( ?。?/h2>
組卷:6引用:3難度:0.6 -
4.指紋鎖(如圖所示)是通過提取指紋圖象的特征進行身份識別,其工作流程可以分為:①指紋圖象采集;②指紋圖象處理;③控制門鎖開啟;④指紋圖象特征的匹配;⑤指紋圖象特征提取,正確的順序應(yīng)該是( ?。?/h2>
組卷:28引用:3難度:0.7 -
5.某算法流程圖如圖所示,執(zhí)行這部分流程,變量 sum 的值為( ?。?br />
組卷:1引用:2難度:0.4
二、綜合題(本大題共有5大題,其中第13題4分,第14題5分,第15題8分,第16題3分,第17題6分,共26分.)
-
16.在 VB 的算術(shù)運算中,最大的實數(shù)類型 double 有效位數(shù)也只有 15 位。為了實現(xiàn)除法運算保留任意位數(shù),小明根據(jù)除法原理,編寫了如下程序,功能如下:在文本框 Text1 中輸入被除數(shù)(正整數(shù)),在文本框 Text2 中輸入除數(shù)(正整數(shù)),在文本框 Text3 中輸入小數(shù)位數(shù),單擊按鈕 Command1,在標(biāo)簽 Label 中顯示除法運算的商。程序運行界面如圖所示,但加框處代碼有錯,請改正:
Private Sub Command1_Click( ?。?br />Dim x,y As Integer
Dim n As Integer
Dim s As String
x=Val(Text1.Text):y=Val(Text2.Text)
n=Val(Text3.Text)
s=s+Str(x\y)
s=s+“?!?br />k=x Mod y
For i=1To nx=x+k*10 ① s=Str(x\y) ②
Next i
Label1.Caption=“商為:“+s
End Sub組卷:4引用:1難度:0.6 -
17.小明編寫了一個 VB 程序?qū)Τ煽償?shù)據(jù)進行排序。為保證相同分?jǐn)?shù)的同學(xué)相對位置(指原數(shù)據(jù)中的前后關(guān)系)不發(fā)生改變,他試著采用一種新的排序算法來解決。為便于描述算法的實現(xiàn)過程,假定有如下數(shù)組 a:
下標(biāo) 1 2 3 4 5 值 5 3 3 2 4 下標(biāo) 1 2 3 4 5 值 0 1 2 1 1
了數(shù)組 a 中小于或等于 a(i)的元素個數(shù),完成第二步后數(shù)組 b 如下:下標(biāo) 1 2 3 4 5 值 0 1 3 4 5 下標(biāo) 1 2 3 4 5 值 2 3 3 4 5
實現(xiàn)上述功能的 VB 程序如下,回答以下問題:
( 1)從代碼中可以得知,用于連接數(shù)據(jù)庫的對象名是:
( 2)請在橫線處填上相應(yīng)代碼。
Dim a(1To 50)As Integer'存放學(xué)生的成績
Dim sname(1To 50)As String'存放學(xué)生姓名
Dim n As Integer
Private Sub Command1_Click( ?。?br />Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+
App.Path+“\stu.jye.ai“
conn.Open
strSQL=“SELECT*From stucj“
Set rs.ActiveConnection=conn
rs.Open strSQL
n=0
List1.AddItem“姓 名“&““&“成績“
Do While Not rs.EOF
n=n+1
a(n)=rs.Fields(“cj“)
sname(n)=rs.Fields(“xm“)
List1.AddItem sname(n) &““& Str(a(n))
①
Loop
rs.Close
conn.Close
End Sub
Private Sub Command2_Click( ?。?br />Dim i As Integer,k As Integer
Dim b(0To 100)As Integer
Dim c(1To 50)As Integer,c1(1To 50)As String'c 和 c1 作為臨時數(shù)組
For i=1To n
b(a(i))=b(a(i))+1
Next
For i=1To 100
b(i)=②
Next
For i=n To 1Step-1
c(b(a(i)))=a(i)
c1(b(a(i)))=sname(i)
③
Next
For i=1To n'把臨時數(shù)組 c 和 c1 中的數(shù)據(jù)放入 a 和 sname 數(shù)組
a(i)=c(i)
sname(i)=c1(i)
Next
List2.AddItem“姓 名“&““&“成績“
For i=1To n
List2.AddItem sname(i) &““& Str(a(i))
Next
End Sub組卷:3引用:1難度:0.4