浙江省诸暨市牌头中学2017-2018学年高二上学期期中考试信息技术试题 Word版含答案

牌头中学2017-2018学年第一学期中考试卷 高二信息技术 （总分50分）

一、选择题（每题2分，共24分）选择题填涂在答题卡1-12 1、 下列有关算法的描述，正确的是（ ） （A） 一个完整的算法必须有输出 （B）一个完整的算法至少有一个输入 （C）算法只能用自然语言或者流程图这两种方式表示 （D）用流程图表示算法的好处是形象直观，但容易产生歧义 2、小周定义了一个变量rs来存储超市里商品条形码，变量的数据类型应是（ ） A．Integer B．String C．Long D．Date 3、下列可作为VB变量名的是 ( ) （A）true （B） we*6 （C）dew3 （D）3ABC 4、模拟剪刀石头布的游戏，用1-3这3个数字分别代表剪刀、石头、布这三种情况，使用Rnd函数可以表示为( ) （A）int(Rnd(3)+1) （B）int(Rnd*2+1) （C）int(Rnd(2)+1)（D）int(Rnd*3+1) 5、某VB程序的一个事件过程如下： Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) Text1.Text = Str(Sqr(a)) End Sub 程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（ ） A、变量a类型定义错误 B、界面缺少文本框Text1 C、Command1属性设置错误 D、Sqr函数计算时出错

6、将数学表达式sin(e)+写成Ｖisual Basic的表达式，其正确的形式是（ ） Ａ、sin(exp(3))+sqr(abs(x+y)) Ｂ、sin(e^3)+sqr(abs(x+y)) Ｃ、sin(exp(3))+sqr(|x+y|) Ｄ、sin(e^3)+sqr(|x+y|) 7、第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：

N j←0,s←1 j< n？ j←j+1 输出s 输入n

Y 空白矩形框中应该填入的是„„„„„„„„„„„„„„„„„„„ ( ) （A）s←s+2 （B）s←s+3 （C）s←s+j （D）s←s*3 8、设a=2, b=3, c=4, d=5, 下列表达式Not a<=c Or 4*c=b^2 And b<>a+c的值是( )  (A）-1 (B）1 (C）True (D）False 9、 有如下Ｖisual Basic程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是（ ） A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5 10．阅读如下Visual Basic程序， Function f(n As Integer, r As Integer) as integer If n <> 0 Then f = n \ r End If End Function Private Sub Command1_Click() Print f(10, 8) End Sub

程序的运行结果是 „„„„„„„„„„„„„„„„„„„（ ） A．8 B．10 C．2 D．1 11、如下VB程序段： x=text1.text p=0 for i=1 to len(x) if mid(x,i,1)=”a” then p=p+1 next i print p 若程序运行时，在文本框Text1中输入“Are you happy”，则运行结果是（ ） A. 0 B. 1 C. 2 D. 11 12、在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（ ） Private Sub Form_Click(） Dim arr(1 to 10, 1 to 10） As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j） = i * j Next j Next i Label1.Caption = Str(arr(2, 2）+ arr(3, 3）） End Sub ( A）12 (B）13 (C）14 (D）15 二、程序设计题（共4大题，每空2分。答案写在答题纸上） 1小华同学设计了一个VB程序，其功能是在text1中输入文本，点击“统计”按钮，自动统计字母a和字母b的出现次数，并显示在text2和text3中。程序设计界面如下图所示：

（1）运行程序时发现窗体的标题显示为“form1”，将窗体标题显示为“字母统计”，应修改窗体form1的_____________属性。 （2）通过窗体的加载事件也可以修改窗体的标题属性，请补充下列代码 Private Sub Form_Load（） ___________________= "字母统计" End Sub （3）根据题意，将下列程序补充完整。 Private Sub Command1_Click（） Dim s As String，i As Integer，ta As Integer，tb As Integer Dim lens As Integer ‘变量lens表示字符串s的字符个数 s = Text1.Text lens =________________ For i = 1 To lens If Mid(s,I,1)= "a" Then ta = ta + 1 If Mid(s,i,1)= "b" Then tb = tb + 1 Next i Text2.Text = Str( ta) Text3.Text = Str(tb) End sub 2．应用实例：判断一个数是否为偶数，如果在文本框te1中输入一个数，在标签Label1中直接出现相应的判断结果。在程序处完成以下3处填空 Private Sub ① Dim a As Integer a=Val(Te1.Text) Label1.Caption = ② End Sub Function ou(i as integer) As ③ If i Mod 2 = 0 Then ou = "该数为偶数！" Else ou = "该数为奇数！" End If End Function 3 商品条形码是一个13 位数,它是商品的“身份证”。条形码中前8位是厂商识别代码，接着4 位是商品项目代码，最后一位是校验码。校验码是由前12 位数按一定公式计算而得出的，其计算公式见下表 小明编写了一个VB程序，输入一个二维码后，点击“验证”按钮后，程序根据如上算法验证 条形码的验证码是否正确，代码如下所示： Private Sub Command1_Click（） Dim s As String，x As String Dim js As Integer，os As Integer，jy As Integer s = Text1. Text n = Len（s） If n <> 13 Then Label1.Caption = "条形码位数错误" Else For i = 1 To 12 x = Val（Mid（s，i，1）） If _____①___________Then js = js + x Else os = os + x End If Next i End If jy = os * 3 + js jy = ______②____________ If jy = 10 Then jy = 0 If jy = Val(Mid(s，13，1)) Then Label1.Caption = "验证码正确" Else Label1.Caption = "验证码错误" End If End Sub (1)要实现如上VB程序，在窗体上至少有_____个控件对象(窗体除外)。 (2)要实现上述功能，程序中划线处①位置应填写的表达式是___________________ (3)要实现上述功能，程序中划线处②位置应填写的表达式是____________________ (4)若在该程序运行时，输入的待检测的二维码是“6921734953025”，执行上述程序，输出的 结果是________________________________ 4.任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。 编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行结果如图所示。实现上述功能的VB 代码如下，但加框处代码有错，请改正。 函数judge的功能是判断整数x是否为素数，若是素数则返回True，否则返回False Function judge（x As Integer）As Boolean Dim j As Integer judge = True j = 2 Do While j < = x - 1 And judge = True If x Mod j = 0 Then judge = False Else judge=true ‘① End If Loop End Function Private Sub Command1_Click（） Dim n As Integer, p As Integer, q As Integer, flag As Boolean n = Val（Text1.Text）