2020-2021学年浙江省湖州市高二(下)期末信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分)
-
1.下列有关信息和信息技术的说法,正确的是( )
组卷:9引用:1难度:0.7 -
2.下列有关网页和浏览器的说法,正确的是( )
组卷:1引用:1难度:0.7 -
3.使用 Access 软件设计一个数据表,存储如图所示的学生消费记录数据。下列表结构设计合理的是( )
序号 学籍号 姓名 金额 消费窗口 日期 是否住校 1 HZ20201121 沈宵阳 ¥11.50 9 2021/5/17 是 2 HZ20180113 王加娜 ¥9.50 11 2021/5/17 否 3 HZ20200603 张颢琎 ¥12.00 3 2021/5/18 否 … … … … … … … 组卷:1引用:1难度:0.7 -
4.使用 UltraEdit 软件观察字符“2020,武汉加油!”的内码,部分界面如图所示。下列说法正确的是( )
组卷:15引用:1难度:0.3 -
5.使用GoldWave软件编辑某音频文件,部分界面如图所示,下列说法正确的是( )
组卷:1引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.某夏令营按两门考试科目总分从高分到低分依次录取学生。如果录取学生的最后一名出现有总分并列的情况,则并列的学生全部录取。编写VB程序实现以上功能,程序运行时在列表框List1中显示全部学生的信息,在文本框Text1中输入计划招生人数,点击“录取”按钮Command1后,在列表框List2中输出录取的学生信息,并在标签Label1上显示最终录取的人数。程序运行界面如图所示。
请回答下列问题:
(1)如图所示,按钮Command1上显示的“录取”是该按钮对象的
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正
Cons tnum=15
Dim xm(num) As String
Dim km1(num) As Integer,km2(num)As Integer
Private Sub Form_Load
'读取num个学生的姓名、科目1、科目2的成绩,分别存储到数组xm、km1、km2。'在列表框List1中输出所有学生的姓名与成绩,代码略。
End Sub
Private Sub Command1_Click
Dim rs As Integer,count As Integer,flag As Boolean
Dim i As Integer,j As Integer,t As Integer,tmp As String
rs=Val(Text1-Text)
List2.AddItem“姓名 科目1 科目2“
count=0:i=1
Do WhileAnd flag
For j=num-1 To i Step-1
If
tmp=xm(j):xm(j)=xm(j+1):xm(j+1)=tmp
t=km1(j):km1(j)=km1(j+1):km1(j+1)=t
t=km2(j):km2(j)=km2(j+1):km2(j+1)=t
End If
Next j
flag=False
If i<=num Or km1(i)+km2(i)=km1(i-1)+km2(i-1)Then
count=i
flag=True
End If
i=i+1
Loop
For i=1 To count
List2.AddItemxm(i)+““+Str(km1(i))+““+Str(km2(i))
Next i
Label1.Caption=“共录取学生“+
End Sub组卷:0引用:1难度:0.3 -
16.有一个木棒游戏,探究在一堆木棒中取4根木棒组成一个正三角形的取法数量(三角形其中一边由两根木棒组成,长度相同的不同木棒算不同的方案)。如果取出长度为a,b,c,d(a<=b<c=d)的四根木棒能构成正三角形,那么a+b=c=d。算法如下:
(1)枚举两根短的木棒a和b;
(2)当a<>b时,组合的数量=长度为a的木棒根数×长度为b的木棒根数×长度为(a+b)的木棒取两根的取法数量;
(3)当a=b时,组合的数量=长度为a的木棒取两根的取法数量×长度为(a+b)的木棒取两根的取法数量。
如木棒长度分别为“1,1,2,2,3,3”,当a=1,b=2时,则c=d=3,该情况的组合数量=(长度为1的根数)*(长度为2的根数)*(长度为3的根数取两根的取法数量)=2*2*1=4。长度为3的根数取两根的取法数量,即C2。
程序运行界面如图所示,在文本框Text1输入一堆木棒的长度,以逗号间隔,点击“计算”按钮Command1后在标签Label1显示方案总数。
请回答下列问题:
(1)在文本框Text1中输入“2,3,3,6,6,6,7,”,能构成正三角形的取法数量是(填数字)
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
Private Sub Command1_Click
Dim tmax As Integer,ans As Integer,k As Integer
Dim i As Integer,a As Integer,b As Integer,tmp As Integer
Dim c As String,s As String
Dim t (20)As Integer
'储存相同长度木棒的数量,如t(5)的值是长度为5的木棒的数量
s=Text1.Text
tmp=0:k=0
ans=0:tmax=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c=“,“Then
k=k+1
t(tmp)=
If tmp>tmax Then tmax=tmp
tmp=0
Else
tmp=tmp*10+Val(c)
End If
Next i
For a=1 To tmax\2'枚举两根短的木棒
For b=a To tmax
If a+b>tmax Or t(a)*t(b)*t(a+b)=0 Then Exit For
If
ans=ans+js(t(a),2)*js(t(a+b),2)
Else
ans=ans+js(t(a),1)*
End If
Next b
Next a
Label1.Caption=“共有“+Str(ans)+“种方案“
End Sub
Function js(x As Integer,y As Integer)As Integer
'计算在x个对象中取y个对象的组合数量,即Cy
'代码略。
End
Function组卷:1引用:1难度:0.3