2020-2021学年浙江省绍兴市诸暨中学高二(下)期中信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中,只有一个是符合题目要求的,不选、多选、错选均不得分)
-
1.下列有关信息和信息处理的说法,正确的是( )
组卷:9引用:2难度:0.6 -
2.小明访问网页“http://jyt.zj.gov.cn/49907261.jye.ai”下列说法正确的是( )
组卷:9引用:2难度:0.5 -
3.使用OCR软件进行字符识别,部分界面如图所示,下列说法正确的是( )
组卷:9引用:3难度:0.9 -
4.某Access 数据表,其设计视图如图1所示,数据表如图2所示,下列说法正确的是( )
组卷:4引用:3难度:0.7 -
5.如果用0至6七个数字依次对星期天、星期一……星期六进行编码,那么星期就可以看成7进制数,下列选项中与七进制数(113)7数值相等的是( )
组卷:5引用:2难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第15小题7分,共26分)
-
15.统计最长的顺子牌。点击“抓牌”按钮随机生成1—13之间的整数,将之转换为扑克牌的牌号(整数1对应的牌号是A,整数2对应着牌号2,10的牌号是0,以此类推,如下表)显示在文本框Text1中,并存入数组a中,同时选出最长的顺子牌(顺子牌是最小3开始,要求连续牌号连续,A、2不能当顺子牌;如牌号为5,7,6,J,5,2,K,4,Q,A,2,J,则顺子牌号有4,5,6,7;J,Q,K若顺子牌数量相同,输出较小的顺子牌)显示在文本框Text2中。VB程序运行界面如图所示。随机整数1-13对应的牌号如下。
(1)上述程序界面中有Caption属性的对象共有
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Dim a(1 To 13)As Integer,b(1 To 13)As Integer
Const ph=“34567890JQKA2“
Private Sub Command1_Click ( )
Randomize
s=““
For i=1 To 13
a(i)=Int(Rnd*13+1)
s=s+Mid(ph,①
If i<>13 Then s=s+“,“
②
Next i
Text1.Text=s
k=1:Max=0:s=““
For i=4 To 13
If b(i)>0 And b(i-1)>0 Then
k=k+1
If k>Max Then
Max=k:org=③
End If
Else
k=1
End If
Next i
For j=org To org+Max-1
s=s+
If j<>org+Max-1 Then s=s+“,“
Next j
Text2.Text=s
For i=1 To 13
b(i)=0
Next i
End Sub组卷:2引用:1难度:0.3 -
16.小张用VB模拟实现了一个打地鼠游戏的计分程序。游戏规则如下:总共有10个地鼠洞,每秒地鼠选择一个洞探出脑袋,如果当前的锤子在该洞口,则打中地鼠,否则没有打中。游戏时间总共t秒(t<=10,Text1中输入),锤子的起始位置在b(1)(Text2中输入)。现已知每个时刻地鼠探脑袋的位置,根据锤子移动的路线,计算得出最多的得分,并输出到 Labe1l。
锤子移动规则:锤子每秒必须往左或往右移动一步(不可在当前位置停留),如果锤子已经在最左边了,只能往右移动;反之,只能往左移动。
计分方式:如果打中一个地鼠,计1分;如果连续打中地鼠,分数翻倍,即连续打中两个,分数为1+2;连续打中三个,分数为1+2+4;连续打中四个,分数为1+2+4+8……
算法思路:
①随机产生在第i秒时,地鼠探出脑袋的洞口为j。
若每个时刻地鼠探脑袋的洞口如图a所示,以10个洞口为横坐标n,游戏时间t(假设t=10)为纵坐标,建立一个矩阵a。当前时间出现地鼠的洞口标记为1,其余默认为0。
②模拟第i秒敲击洞口的位置。
1)若输入游戏过程如图b所示,从5号洞口出发b(1)=5,当时间为i=1时,可到达的洞口有2种:j=2时b(2)=6,j=1时b(1)=4,即得矩阵a的坐标位置i和b(j);
2)同理当i=2时,可到达的洞口有4种:j=4时b(4)=7,=3时b(3)=5,=2时b(2)=5,j=1时b(1)=3.i=1敲击洞口位置为6或4;i=2敲击洞口位置6→7,6-5或4→5,4→3;
3)将t秒内可经过的2t种不同路径敲击的矩阵位置的值存放到数组p中,如图b所示得到其中某一条路径p(j)=0101100010,根据p(j)计算得分,找出最值max并输出。
(1)如果游戏时间为10秒,每秒地鼠出现的洞口序号依次为[9,9,9,10,10,10,10,9,9,9],当锤子的起始位置在第6个洞口时,最多能得
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
Private Sub Command1_Click ( )
Const n=10
Dim a(1 To n*n)As Integer,b(1 To 2^n)As Integer
Dim p(1 To 2^n)As String,s1 As String
Dim i As Integer,j As Integer,k As Integer,max As Integer
Dim t As Integer,s As Integer,f As Integer
Randomize
t=Val(Text1.Text)
For i=1 To t'第i秒时,地鼠探出脑袋的洞口为j
j=Int(Rnd*n+1)
①
List1.AddItem Str(i) &Str(j)
Next i
s1=““
For i=1 To t*n
s1=s1+Str(a(i))
If i Mod n=0 Then List2.AddItem s1:s1=““
Next i
b(1)=Val(Text2.Text)
For i=1 To n'计算锤子在a矩阵移动的路径,并存放在p数组
k=1'k为正则向右移动锤子,k为负则向左移动锤子
For j=2^i To 1 Step-1
b(j)=b((j+1)\2)+k
If b(j)<1 Or b(j)>n Then b(j)=b(j)-2*k
p(j)=p((j+1)\2)+CStr( ②
k=-k
Next j
Next i
max=0
For i=1 To 2^n
f=0:s=0:j=1
Do While j<=Len(p(i))
If Val(Mid(p(i),j,1))>0 Then
③
Else
s=s+f:f=0
End If
j=j+1
Loop
If f>0 Then s=s+f
If max<s Then max=s
Next i
Label1.Caption=“最多能得“+Str(max)+“分“
End Sub组卷:1引用:1难度:0.3