2016-2017学年浙江省衢州市高三(上)质检信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(共12小题,每小题2分,满分24分)
-
1.在微信朋友圈给好友发布的信息点赞,属于信息评价中的( )
组卷:5引用:2难度:0.9 -
2.2016年9月,搜狗CEO王小川在世界第三届互联网大会上发布了机器同传新产品,该产品能将演讲嘉宾的中文实时同步翻译为英文,并显示在屏幕上.这一产品主要应用的技术是( )
组卷:3引用:1难度:0.9 -
3.在某网站上注册会员时,手机收到一个验证码短信,内容为:“尊敬的顾客,您在××网站注册,验证码为:******”.注册人填写该验证码,表明手机为注册人所有,才能通过注册,这一过程是确保信息的( )
组卷:3引用:1难度:0.9 -
4.小王想买一台笔记本电脑,在某网站浏览时的部分页面如图所示.由图可知,小王对笔记本电脑的筛选条件是
( )组卷:4引用:1难度:0.5 -
5.小明使用Access创建“档案”数据表,其设计视图的部分界面如图所示.下列说法正确的是( )
组卷:2引用:1难度:0.7
二、解答题(共5小题,满分26分)
-
16.一个整数n(n≥11)从左向右和从右向左读其结果相同,且是素数,则称n为回文素数,例如133 020 331是回文素数.小张设计一个VB程序用于找出1000以内的所有回文素数,程序运行界面如图所示.实现上述功能的VB程序如下,但加框处代码有误,请改正.
Private Sub Command1_Click( )
Dim n As Interger,j As Integer,m As Integer
'(1)
Do While n<1000'判断是否为素数
m=Int(Sqr(n))
For j=2 To m
If n Mod j=0 Then Exit For
Next j
If j>m Then
If hws(n)=Ture Then
List 1.AddItemStr(n)
EndIf
EndIf
n=n+2
Loop
End Sub
Function hws(n As Integer)As Boolean'判断所给n是不是回文数
Dim j,k As Integer
Dim m As String
Dim a As Integer,b As Integer
hws=True
m=Str(n)
k=Len(m)
For j=1 To k\2
a=Val(Mid(m,j,l)
b='(2)
If a<>b Then
hws=False
Exit For
EndIf
Next j
End Function.组卷:2引用:1难度:0.3 -
17.小李设计了一个插入排序的VB程序,功能如下:在列表框List1中按成绩从低到高显示每个学生的姓名和成绩,在文本框Text1中输入一个学生的姓名,在文本框Text2中输入这位学生的成绩,单击“插入排序”按钮Command1,检查数组列表中的学生成绩,将其插入到适当位置,保持成绩有序,并在列表框List2中显示插入后的学生姓名和成绩序列.程序运行界面如图所示.
实现以上功能的VB程序如下,请回答下列问题:
(1)小李使用的查找算法是
(2)分析程序,可知关闭记录集对象的语句为
(3)请在画线处填入合适的代码.
Dim m(1 To 20)As String
Dim s(1 To 20)As Integer
Dim n As Integer
Private Sub Form_Load( )
Dim conn As New ADODB.Connection'定义新的数据库连接
Dim rs As New ADODB.Recordset'定义数据库的一个对象
conn.ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;data source=“& App.Path &“\fwdh.jye.ai“'设置conn的数据库链接字符串
conn.Open'找开数据库链接
Set rs.ActiveConnection=conn'设置rs的ActiveConnection属性,关联conn
rs.Open“select * from fwdh“'打开数据库中的表 fwdh
n=0
Do While Not rs.EOF
n=n+1
m(n)=rs.Fields(0)
s(n)=rs.Fields(1)
List1.AddItem rs.Fields(“姓名“)&““& rs.Fields(“成绩“)
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
Private Sub command1_click ( )
Dim x As String,y As Integer
x=Text1.Text
y=Val(Text2.Text)
i=n
Do While
s(i+1)=s(i)
m(i+1)=m(i)
i=i-1
Loop
For i=1 To n+1
List2.AddItem m(i)&““&Str(s(i))
Next i
End Sub.组卷:3引用:1难度:0.1