《高三信息技术试题大全n(20211122004911)》由会员分享，可在线阅读，更多相关《高三信息技术试题大全n(20211122004911)（28页珍藏版）》请在金锄头文库上搜索。
1、高三信息技术试题答案及解析1. 电子邮件是我们常用的通讯工具，下列选项中，关于收发电子邮件的叙述正确的是( ) 。A收发电子邮件必须使用同一邮件服务商的邮箱B邮件一次只能发给一个接收者C给对方发邮件时，必须要求对方开机D给对方发送邮件时，不要求对方开机【答案】 D2. 有些手机上有触摸屏，它既是输入设备又是输出设备。（）【答案】 3. 数据处理就是指数据计算。（）【答案】 4. 下列程序的功能是：随机产生10 个 1 100 之间的正整数，按从小到大排序并输出。为了实现这一目标，程序中划线处应填入的合适语句是：_ _ _ _ Const n=10 Dim i As Integer,j As I
2、nteger,t As Integer Dim a(1 to 10) As Integer For i=1 to 10 _ _ Next i For i=1 to n-1 For j=i+1 to n If _ _ Then k=a(i):a(i)=a(j):a(j)=k End If Next j Next i For i=1 To n Print a(i) Next i【答案】 a(i)=Int(100 * Rnd + 1)或 a(i) = Int(100 * Rnd() + 1) a(i)a(j) 或 a(i) = a(j) 或 a(j)a(i) 或 a(j)b or a=b or a=
3、b and a=a=b【答案】 C57. 学校为每位同学办理一张校园卡，该卡可供同学们在食堂用饭、图书馆借书、超市消费等，因此称为一卡通，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、班级、金额等信息。下列程序的功能是根据卡号查找对应的姓名，程序中数组a 保存卡号，数组b 保存姓名，第i 位同学的卡号是a(i) ，姓名是b(i) 。程序界面如下图所示，左边列表框列出所有同学的卡号和姓名，在右边文本框Text1中输入卡号，单击 “ 查询 ” 按钮 (Command1)，程序就按卡号进行查找，如果找到就在标签Label3中输出姓名，否则就输出 “ 查无此人 ” 。解决此问题的算法流程图如下图所示
4、，相应的程序如下，在程序(1) 和(2) 画线处，填入适当的语句或表达式，把程序补充完整。Private Sub Command1_Click() Dim x As String，i As Integer， s As String，f As Boolean x Text1.text i0；fFalse f标志是否已经找到，值为True 时表示已经找到，值为False 时表示没找到Do While(i n) And(1)_) n是总人数ii 1 If x a(i) Then fTrue End If Loop If f True Then (2)_ Else s “ 查无此人！”End If L
5、abel3.Captions End Sub(1) 解决此问题所用的算法是_ 。(选填：顺序查找或对分查找 ) (2) 程序中画线处(1) 应填入 _ 。(3) 程序中画线处(2) 应填入 _ 。【答案】 (1)顺序查找 (2)f False 或 not f (3)s b(i)58. 学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息(编号和完成次数)，并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的 info表中 ID 和 finshed两字段中取出分 别保存在数组a 和数组 b
6、中，第 i 个学生的编号保存在a(i) 中，对应的作业完成次数保存在 b(i)中。数据库文件 “stud.accdb ”信息如图1 所示。图 1 程序界面如图2 所示，左边列表框List1 中显示所有学生信息(包括编号和完成次数)，单击 “ 排序 ”按钮 (Command1)，所有编号按照作业完成次数从高到低显示在列表框List2 中。图 2 代码如下：Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim n As Integer Dim a(500) As String Dim b(500) As Integer
7、 Private Sub Form_Load() Dim i As Integer conn.ConnectionString“Provider Microsoft.ACE.OLEDB.12.0；DATA Source”& App.Path & “/stud.accdb”conn.Open Set rs.ActiveConnectionconn rs.Open “SELECT*FROM info”n0 Do While Not rs.EOF 到记录集最后一条记录后退出循环nn1 a(n) rs.fields(“id ”)b(n) rs.fields(“finshed ”)rs.MoveNext
8、 移动到下一条记录Loop For i 1 To n List1.AddItem a(i)“”Str(b(i) Next i rs.Close conn.Close Set rs Nothing Set conn Nothing End Sub Private Sub Command1_Click() Dim i As Integer，j As Integer ，t1 As Integer， t2 As String ，k As Integer For i 1 To n 1 n表示学生总数ki k保存第 i 大的数，一开始假定是a(i) For j i1 To n If b(k) b(j) T
9、hen k j 比较完成数_ If _ _ Then t1b(i)：b(i) b(k) ：b(k) t1 交换完成次数t2a(i)：a(i) a(k) ：a(k) t2 交换编号End If Next i For i 1 To n 在列表框List2 中输出排序结果List2.AddItem a(i)“ ” Str(b(i) Next i End Sub (1) 当“Form_Load() ”事件处理过程运行结束时，变量n 的值为： _ 。(2) 加虚线框中的代码采用的排序算法为： _。(3) 为实现上述功能，程序中划线处的代码为：_ ；_ 。【答案】 (1)500 (2) 枚举算法 (3)
10、jj1 a(k) a(j)59. 有如下程序段：a(1)=False For i = 2 To 20 a(i) = True Next i For i = 2 To 20 If a(i) = True Then For j = 2 To 20 i a(i * j) = False Next j End If Next i t = 0 For i = 1 To 20 If a(i) = True Then t = t + 1 End If Next i 经过该程序段运行后，变量t 的值为（）A5B6C7D8【答案】 D60. 有一个 8 位数，前4 位是 4623 ，后 4 位数字的特点如下：(
11、1) 后 4 位数字中的前2 位数字相同；(2) 后 4 位数字中的后2 位数字也相同；(3) 后 4 位数字正好是一个完全平方数。某同学编写了一个VB 程序用于寻找这个8 位数。程序运行时，单击“ 计算 ” 按钮 Command1 ，在标签 Label2 中显示这个8 位数，程序运行界面如图所示。Private Sub Command1_Click() Dim i As Long，a As Integer，b As Integer ， c As Integer ， d As Integer ，x As Integer For i 32 To 99 ni*i x_ _ y_ _ ax/10 b
12、x Mod 10 cy10 d y Mod 10 If ab And c d Then _ Next i End Sub 为实现上述功能，请在程序划线处填入合适的语句。划线 处应填入的语句为：_；划线 处应填入的语句为：_；划线 处应填入的语句为： _。【答案】 xn Mod 100 yn100 Label2.CaptionStr(46230000n)61. 某地区公共自行车收费信息如下：“60分钟内免费； 60 分钟以上至120 分钟（含），收费1元； 120 分钟以上至180 分钟（含），收费2 元；租用超过180 分钟（含）以上的时间，按每小时 3 元计费（不足一小时的按一小时计）” 。
13、现按要求编写VB 程序，界面如1 图所示，程序功能如下：在文本框Text1 中输入租车时间，单击“ 计费 ” 按钮 Command1 ，在标签Label5 中输出对应的租车费用。(1) 在应用程序界面设计时，为添加“ 计费 ” 按钮，应使用2 图所示的 “ 控件工具箱 ” 中的 _ （请填写相应编号），并在3 图所示的 “ 属性窗口 ” 中，将 _ 属性值设置为“ 计费 ” 。(2) 请根据题意将下列程序补充完整。Private Sub Command1_Click() Dim zysj As Single, zyfy As Single zysj:租用时间， zyfy: 租用费用zysj =
14、 Val(Text1.Text) If zysj = 60 Then zyfy = 0 ElseIf zysj = 120 Then zyfy = 1 ElseIf zysj = 503741 And txm = 503750 Then List1.AddItem txm Text1.Text = i = 1: j = 10 Do While i a(m) Then i = m + 1 Else End If Loop Else MsgBox 条形码输入错误，无此商品 Text1.Text = End If End If End Sub 计算所购商品的总额Private Sub Command
15、1_Click() Dim i As Integer, mx As String, jg As String, sum As Single For i = 0 To 9 If List2.List(i) Then mx = List2.List(i) sum = sum + Mid(mx, 4) End If Next i Text2.Text = End Sub【答案】 （1）m = (i + j) 2 （ 2）j = m - 1 （3）Str(sum)【解析】（1）首先判断这是一个属于对分查找的程序，m 是中间数，所以m=(i+j)2 。（ 2）查找的顺序要么是 m+1 ，要么是m-1 ，所以这里的j=m-1. （3） sum 的变量用于存储不断增加的总额的值，最终要加上str() 函数。
