2020-2021学年浙江省绍兴市诸暨中学高二(上)期中信息技术试卷
发布:2024/12/18 15:0:2
一、选择题(本大题共12小题,每小题0分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
-
1.下列有关信息与信息处理的说法,正确的是( )
组卷:2引用:1难度:0.6 -
2.下列有关网页与浏览器的说法,正确的是( )
组卷:0引用:3难度:0.6 -
3.用 Access 软件设计某学生管理系统的数据库,“学生表”中需储存如图所示的数据,其中学籍号是每位学生唯一的 12 位编码。
学号 姓名 性别 出生年份 户籍所在地 注册日期 是否住校 201802001 张立 男 2003 杭州市江干区 2018/8/31 是 201901001 李红 女 2004 杭州市西湖区 2019/9/1 否 … … … … … … … 组卷:0引用:1难度:0.4 -
4.现要计算出 a、b 之间(包含 a、b)3 的倍数的个数,下列 VB 表达式正确的是( )
组卷:0引用:2难度:0.5 -
5.某算法的部分流程图如图所示,若要循环体执行 3 次,则判断框处应填写( )
组卷:0引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题7分,第15小题7分,第15小题8分,共26分)
-
15.最大整数问题:设有 n 个随机生成的正整数,将它们连接成一排,组成一个最大的多位整数。其求解 思想是:先把整数转换成字符串,然后再比较 a+b 和 b+a,如果 a+b>b+a,就把 a 排在 b 的前 面,反之则把 b 排在 a 的前面。
例如:n=3 时,3 个整数 13,312,343,连成的最大整数为 34331213。
静静编写了一个 VB 程序,功能如下:在列表框 List1 中随机生成 n 个 1~1000 之间的整数,单击“求解”按钮 Command1 后,最大整数输出在文本框 Text1 中。当 n 等于 4 时,程序运行界面如图所示。
实现上述功能的 VB 程序如下,请回答下列问题:
(1)当 n=3 时,3 个数:517,571,57,由这三个数组成的最大整数为
(2)请在横线处填入合适的代码。
Const n=4
Dim a(1 To n) As Integer
Dim i As Integer,j As Integer Dim t As Integer,k As Integer Private Sub Form_Load
Randomize
For i=1 To n
a(i)=①
List1.AddItem“a(“+CStr(i)+“)=“+CStr(a(i))
Next i End Sub
Function cmp(a As Integer,b As Integer) As Boolean
If CStr(a)+CStr(b)<CStr(b)+CStr(a) Then
cmp=True
Else
cmp=False
End If
End Function
Private Sub Command1_Click
For i=1 To n-1
k=i
For j=i+1 To n
If ②
Next j
If ③
Next i
For i=1 To n
Text1.Text=Text1.Text+CStr(a(i))
Next i End Sub组卷:0引用:1难度:0.3 -
16.某班级学生为毕业晚会的一个男生节目设计一个仿“V”字队形,先筛选出班级里所有男生,然后将 参演的所有男生按照身高,摆出中间低两边高(先右后左)的队形,如图 1 所示。
小孟同学用 VB 编写模拟“节目队形”程序,功能如下:从数据库中导入所有学生的编号、性别和 身高数据;单击“筛选并排序”Command1 按钮,筛选出所有男生的身高并按照从低到高的顺序进行排序,结果显示在文本框 Text1 中;单击“设计队形”Command2 按钮,队形的编号结果显示在文本框 Text2 中。程序运行界面如图 2 所示。
举例说明如下:
实现上述功能的 VB 程序如下,请回答下列问题:
(1)请在横线处填入合适的代码。
①
②
③
(2)程序代码中,加框处有错,请改正。
改正:
Const n=8
Dim h(1 To n) As Integer,num1(1 To n) As Integer,num2(1 To n) As Integer Dim sex(1 To n) As Boolean'男生 sex=True,女生 sex=False
Dim i As Integer,j As Integer,m As Integer Private Sub Form_Load _____
'n 名学生(包括男生和女生)的编号、性别和身高由数据库导出,分别存储在数组 num1、h 和 sex 中,代码略!End Sub
Private Sub Command1_Click ____ For i=1 To n-1
For j=n To i+1 Step-1
If sex(j)=True Then
If ①Then
t=h(j):h(j)=h(j-1):h(j-1)=t
t=sex(j):sex(j)=sex(j-1):sex(j-1)=t
t=num1(j):num1(j)=num1(j-1):num1(j-1)=t
End If
End If
Next j Next i
For i=1 To n
If sex(i) Then
Text1.Text=Text1.Text+““+Str(h(i))
End If
If Not sex(i) Then m=i:Exit For'改错
Next i
End Sub
Private Sub Command2_Click _____
Dim L,R As Integer,mid As Integer
mid=Int((1+m)/2)L=0:R=0
②For i=2 To m Step 2
R=R+1
num2(mid+R)=num1(i)
L=L+1
③Next i
For i=1 To m
Text2.Text=Text2.Text+“男“+CStr(num2(i))+“号“Next i
End Sub组卷:0引用:1难度:0.3