《高三信息技术试题大全n(20211121231124)》由会员分享，可在线阅读，更多相关《高三信息技术试题大全n(20211121231124)（33页珍藏版）》请在金锄头文库上搜索。
1、高三信息技术试题答案及解析1. 电子邮件是我们常用的通讯工具，下列选项中，关于收发电子邮件的叙述正确的是( ) 。A收发电子邮件必须使用同一邮件服务商的邮箱B邮件一次只能发给一个接收者C给对方发邮件时，必须要求对方开机D给对方发送邮件时，不要求对方开机【答案】 D2. 一般音乐文件的扩展名是TXT 。（）【答案】 3.4. 如 1 图所示程序的功能是把输入的自然数分解为三个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中，其中“ 开始处理 ” 按钮的名称是 “Command1” 。例如输入20，单击 “ 开始处理 ” 按钮后，则在列表框中会显示下
2、列数据：2 5 13 2 7 11（1）程序中函数f(x) 的功能是判断x 是否为质数，如果是质数则返回值为True ，否则返回False 。该函数的算法流程图如2 图所示，根据流程图，完善程序中Function f(x)部分。（2）主程序流程图如下图所示。其中n 为输入的自然数，a1、a2、a3 为分解出的三个正整数，t为 a1、 a2、a3 是否同时为素数且三数相加是否为n 的逻辑值。则主程序流程图中 处应填写的内容是：（3）在主程序Private Sub Command1_Click()中，主要采用的算法是：_。Dim n As Integer, a1 As Integer, a2 As
3、 Integer, a3 As Integer Dim t As Boolean Function f(x) As Boolean End Function Private Sub Command1_Click() n = Val(Text1.Text) For a1 = 2 To n For a2 = a1+1 To n For a3 = a2+1 To n t=(a1 + a2 + a3 = n) And f(a1) And f(a2) And f(a3) If t Then List1.AddItem (Str(a1) + + Str(a2) + + Str(a3) End If Nex
4、t a3 Next a2 Next a1 End Sub【答案】 （1）f = True For i = 2 To Sqr(x) If x Mod i = 0 Then f = False Next i （2） t? （或者 t=true? ）（3）枚举5. 在图片库中浏览某一幅自然风景图片时，获得如下图所示信息，该图片文件的大小约为（）A59KBB938KBC10.96MBD1.37MB【答案】 D6. 小曹制作了主题为“ 班主任的传奇人生” 相关的 Flash动画，其中main 场景的制作界面如1 图所示。请回答下列问题：(1) 若动画中没有任何动作命令，在执行“ 测试影片 ” 命令时，当
5、播放完“ 期望录音 ” 场景时，接着播放场景 _。(2) 从图中所给库面板中可以看出该Flash作品缺少 _ 类型的元件。(3) 若要使该Flash 动画在测试影片时停留在“ 目录 ” 场景的最后一帧，则可以选择“ 目录 ” 场景 “ 目录” 图层的第79 帧设置帧动作，命令为：_。(4) 在测试影片状态下，将鼠标分别移至四个按钮后，发现当鼠标移至按钮“ 摄影作品 ” 时没有改变鼠标指针形状，该按钮编辑状态如2 图所示，据此分析推断可能原因是_ 。【答案】 (1)目录 (2) 影片剪辑 (3)stop(); 点击帧无内容7. 某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据
6、库文件名为school.mdb ，其中数据表student 存储有关学生学号（xuehao ）、姓名（ xingming ）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。当主持人点击按钮“ 生成抽号 ” 后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。xxxss: 学校学生数，kcq: 可抽取xhxm: 学号姓名， kcq: 可抽取Dim xxxss As Integer Dim xhxm(3000) As String Dim kcq(3000) As Boolean cq_Click: 启用两个定时器Private Su
7、b cq_Click() cqxhxm.Enabled = True xskcqxhxm.Enabled = True End Sub Private Sub cz_Click() 初始化数组kcq ，使每个元素数据都处于可显示状态For i = 0 To xxxss - 1 kcq(i) = True Next i End Sub Private Sub xskcqxhxm_Timer() 若数组 kcq 第 x 个元素处于可抽取状态，则显示数组xhxm 第 x个元素x = Int(Rnd * xxxss) If kcq(x) Then xhxmbq.text = kcq(x) End Su
8、b Private Sub Form_Load() 从数据库中提取需要的学号姓名相关数据并初始化数组kcq Randomize xxxss = 0 Dim conn As New ADODB.Connection,rs As New ADODB.Recordset Dim str_conn as String,str_sql As String str_conn = driver=Microsoft access driver(*.mdb);DBQ=&app.path&school.mdb; conn.open str_conn str_sql = select * from students
9、 rs.open str_sql Do While Not rs.eof xxxss = xxxss + 1 xhxm(xxxss) = rs.fields(xuehao)&rs.fields(xingming) rs.movenext Loop For i = 0 To xxxss - 1 kcq(i) = True Next i End Sub Private Sub cqxhxm_Timer() 决定抽取的学号姓名作为监票人xskcqxhxm.Enabled = False For i = 0 To xxxss - 1 If xhxmbq.Caption = xhxm(i) Then k
10、cq(i) = False Next i cqxhxm.Enabled = False End Sub【答案】 (1)kcq(i) = True (2)xhxmbq.Caption = xhxm(x)8. 下面两幅图均为100*100像素、 24 色的 BMP 图像，其存储容量依次为a、b,则下列说法正确的是：（）Aa 比 b 大Ba 比 b 小Ca、b 一样，都为29.3KDa、b 一样，都为6.1K【答案】 D9. 已知 t=55.8 ，s=64 ，m=-81 ，则下列Visual Basic表达式的值为False 的是（ ）At = sBint（m） s or t abs（m）Csqr
11、（s）+ t s + m【答案】 A【解析】 本题意图考核VB 表达式及VB 常用函数的相关知识。int（55.8 ）=55 而不是 56，所以A 选项 int（t）+8 = s 的值为 False ，t s 的值为 False ，t a(1) then t=a(1):a(1)=a(k):a(k)=t s=s+1 End if Next k text1.text=str(a(1) text2.text=str(s) End sub【答案】 （1）36（1 分）（2）1（1 分）66. 合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“ 己、戊、丁、丙、乙和甲” 的身
12、高依次由小到大，则排列后的顺序为“ 戊、丙、甲、乙、丁、己” 。小李用 VB 编写模拟 “ 合唱队列 ” 程序，功能如下：在文本框Text1 中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a 中；单击 “ 合唱队列 ” 按钮 Command1 ，对数组a 的元素进行有序排列后，将各元素存入数组C 中形成合唱队列，并将结果显示在文本框Text2 中。程序运行界面如图所示：甲、乙、丙、丁、戊和己实现上述功能的VB 程序如下：（1）如果输入各队员身高为“190,191,194,179,166 ” ，则合唱队列的结果为。（2）实现上述功能的VB 程序如下，请在划线处填入合适代码。Di
13、m a(1 To 20) As Integer Dim n As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) 将输入各队员身高分别存入数组a 中，队员个数为n，代码略 ! End Sub Private Sub Command1_Click() Dim c(1 To 20) As Integer Dim right As Integer, left As Integer, i As Integer For i = 1 To n 1 For j =1 To n-i If Then t = (j): a(j) = a(j + 1)
14、: a(j + 1) = t End If Next j Next i 下列程序段实现数组C 的合唱队列m = (1 + n) 2 left = m: right = m c(m) = a(n) i = 2 Do While i a(j+1) (2 分)left = left - 1 (1 分)Str(c(1)67. 杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（ IC 卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。假设共有1000 个市民，市民的相关信息都存储在“informat
15、ion.accdb”的 data 表中，查询程序界面如图所示。工作人员在文本框Text1中输入卡号，单击“ 开始查询 ” 按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“ 查无此人 ” 。请按要求将下列程序补充完整。Private Sub command1_click() Dim conn As New ADODB.Connection, rs As New ADODB.Recordset Dim strSQL As String Dim a,b as string 分别定义姓名、余额Dim n as integer conn.ConnectionString = Pr
16、ovider=Microsoft.ACE.OLEDB.12.0;Data Source= + App.Path + information.accdb 打开到数据库的链接conn.Open strSQL =select xh,xm from data where 卡号 =&(Text1.Text) & 设置查询的SQL 语句Set rs.ActiveConnection = conn 设置 rs 的 ActiveConnection属性，指定与其关联的数据库链接rs.Open strSQL 打开记录集，将从表information中读取的结果保存到记录集rs 中Label1.Caption = n=0 Do while not rs.EOF a=rs.Fields(姓名 ) b=rs.Fields(余额 ) rs.movenext loop rs.Close conn.close set rs=nothing set conn=nothing if n=0 then Label1.caption=查无此人 End Sub （1）程序中 划线处应填入_。（2）程序中 划线处应填入_。【答
