2018-2019学年浙江省宁波十校联考高三(上)月考信息技术试卷(9月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题列出的四个选项中,只有一项是符合题目要求的,不选、多选、错选均不得分)
-
1.二维码是近年来非常流行的编码方式,以下关于二维码的说法正确的是( )
组卷:32引用:7难度:0.5 -
2.以下关于网络协议和网页保存类型的描述,正确的是( )
组卷:8引用:4难度:0.6 -
3.以下关于数据库的说法正确的是( )
组卷:6引用:3难度:0.6 -
4.指纹锁(如图所示)是通过提取指纹图象的特征进行身份识别,其工作流程可以分为:①指纹图象采集;②指纹图象处理;③控制门锁开启;④指纹图象特征的匹配;⑤指纹图象特征提取,正确的顺序应该是( )
组卷:28引用:3难度:0.7 -
5.某算法流程图如图所示,执行这部分流程,变量 sum 的值为( )
组卷:1引用:2难度:0.4
二、综合题(本大题共有5大题,其中第13题4分,第14题5分,第15题8分,第16题3分,第17题6分,共26分.)
-
16.在 VB 的算术运算中,最大的实数类型 double 有效位数也只有 15 位。为了实现除法运算保留任意位数,小明根据除法原理,编写了如下程序,功能如下:在文本框 Text1 中输入被除数(正整数),在文本框 Text2 中输入除数(正整数),在文本框 Text3 中输入小数位数,单击按钮 Command1,在标签 Label 中显示除法运算的商。程序运行界面如图所示,但加框处代码有错,请改正:
Private Sub Command1_Click( )
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+“。“
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 程序对成绩数据进行排序。为保证相同分数的同学相对位置(指原数据中的前后关系)不发生改变,他试着采用一种新的排序算法来解决。为便于描述算法的实现过程,假定有如下数组 a:
下标 1 2 3 4 5 值 5 3 3 2 4 下标 1 2 3 4 5 值 0 1 2 1 1
了数组 a 中小于或等于 a(i)的元素个数,完成第二步后数组 b 如下:下标 1 2 3 4 5 值 0 1 3 4 5 下标 1 2 3 4 5 值 2 3 3 4 5
实现上述功能的 VB 程序如下,回答以下问题:
( 1)从代码中可以得知,用于连接数据库的对象名是:
( 2)请在横线处填上相应代码。
Dim a(1To 50)As Integer'存放学生的成绩
Dim sname(1To 50)As String'存放学生姓名
Dim n As Integer
Private Sub Command1_Click( )
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( )
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 作为临时数组
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'把临时数组 c 和 c1 中的数据放入 a 和 sname 数组
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