2017-2018学年浙江省绍兴市诸暨市牌头中学高二(下)月考信息技术试卷(5月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分.)
-
1.下列有关移动设备的使用行为,安全隐患最小的是( )
组卷:17引用:2难度:0.9 -
2.如图所示为撰写电子邮件时的部分操作界面。下列描述正确的是( )
组卷:25引用:1难度:0.9 -
3.使用Word软件编辑某文档,部分界面如图所示。下列说法正确的是( )
组卷:0引用:2难度:0.4 -
4.使用Access软件创建某数据表,并在该数据表中录入了部分数据。下列说法正确的是( )
组卷:10引用:2难度:0.5 -
5.某算法的部分流程图如图所示,执行这部分流程后,变量s的值是( )
组卷:0引用:2难度:0.7
【加试题】
-
16.某一条形码是由13位数字组成的编码,其末位是校验码。条形码校验的方法如下:
①除校验码之外,求其余12位编码中的奇数、偶数的数字之和;
②将偶数的数字之和乘以3,加上奇数的数字之和;
③取第②步得到结果的个位数字,用10减去该数字,将得到的结果存入变量m;
④若m的值为10,则将m的值修改为0,否则不变;
⑤若m和校验码相等则输出“校验码正确!”,否则输出“校验码错误!”。
现编写一个VB程序,实现如下功能:在文本框Text1中产生条形码数字序列,单击“校验”按钮Command1,在标签Label1中输出对应的校验信息,界面如图所示。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click ( )
Dim s As String,x As Integer
Dim n As Integer,jsAs Integer,os As Integer,m As Integer
Js=0:Os=0
s=Text1.Text
If n<>13Then
Label1.Caption=“条形码位数错误!“
Else
For i=1To 12
If x Mod 2<>0Then
js=js+x
Else
os=os+x
End If
Next i
m=os*3+js
m=10-m Mod 10
Ifm=10 Then m=0
If m=Val(Mid(s,n,1)) Then
Label1.Caption=“校验码正确!“
Else
Label1.Caption=“校验码错误!“
End If
End If
End Sub组卷:2引用:2难度:0.5
【加试题】
-
17.小明编写了一个统计成绩的VB程序:编写一个过程,该过程从数据库读取学生的物理,化学,生物科目成绩,分别存储到数组a、b、c中;另又编写一个过程,该过程依据数组a,b,c中的相关数据统计班级物理、化学、生物三门成绩大于等于85分的学号。部分学号的成绩统计如图所示。
门数 学号 说明 只有一门>=85分 1,10 d(i)存放每个学号对应的大于等于85分科次 只有两门>=85分 2,3,4,6,12 只有三门>=85分 7,8,9,11
List1、List2、List3中。程序运行界面如图所示。
(1)在Command1_Click
(2)请在横线处填入合适的代码。
Dim a(1to 600)as integer'数组a存放物理成绩
Dim b(1to 600)as integer'数组b存放化学成绩
Dim c(1to 600)as integer'数组c存放生物成绩
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=“+“Score.jye.ai“
Conn.Open
Set rs.ActiveConnection=conn
rs.Open“SELECT*FROM whs“
n=0
Do While Not rs.EOF'从数据表中读取各科的数据赋值到相应数组
n=n+1
a(n)=rs.Fields(“物理“)
b(n)=rs.Fields(“化学“)
c(n)=rs.Fields(“生物“)
rs.MoveNext
Loop
'本过程的其他语句略
End sub
Private Sub Command2_Click ( )
'依据数组a中的相关数据统计各学生每门课大于等于85分的学号
Dim i As Integer
Dim d(1to n) As Integer
For i=1to n
Next i
List1.AddItem“三门学科>=85分的学号有:“
List2.AddItem“两门学科>=85分的学号有:“
List3.AddItem“一门学科>=85分的学号有:“
For i=1To n
If a(i)>=85Then
d(i)=d(i)+1
End If
If b(i)>=85Then d(i)=
If
d(i)=d(i)+1
End If
Next i
For i=1To n
If d(i)=3Then List1.AddItem Str(i)
If d(i)=2Then List2.AddItem Str(i)
If d(i)=1Then List3.AddItem Str(i)
Next i
End Sub组卷:4引用:1难度:0.5