浙江省诸暨市牌头中学高二信息技术上学期期中试题.doc

牌头中学2016学年第一学期中考试卷高二信息技术 （总分50分）一、选择题（每题2分，共24分）选择题填涂在答题卡1-121、 下列有关算法的描述，正确的是（ ）（a） 一个完整的算法必须有输出（b）一个完整的算法至少有一个输入（c）算法只能用自然语言或者流程图这两种方式表示（d）用流程图表示算法的好处是形象直观，但容易产生歧义2、小周定义了一个变量rs来存储超市里商品条形码，变量的数据类型应是（ ）ainteger bstring clong ddate3、下列可作为vb变量名的是( )（a）true（b） we*6 （c）dew3 （d）3abc4、模拟剪刀石头布的游戏，用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 integera = val(text1.text) text1.text = str(sqr(a)end sub程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（ ）a、变量a类型定义错误 b、界面缺少文本框text1c、command1属性设置错误 d、sqr函数计算时出错6、将数学表达式sin(e)+写成isual basic的表达式，其正确的形式是（ ）、sin(exp(3)+sqr(abs(x+y)、sin(e3)+sqr(abs(x+y)、sin(exp(3)+sqr(|x+y|)、sin(e3)+sqr(|x+y|)7、第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：空白矩形框中应该填入的是 ( )（a）ss+2 （b）ss+3 （c）ss+j （d）ss*38、设a=2, b=3, c=4, d=5, 下列表达式not a=c or 4*c=b2 and ba+c的值是( )(a）-1 (b）1 (c）true (d）false 9、 有如下isual basic程序：private sub command1_click()dim sum as double, x as doublesum = 0n = 0for i = 1 to 5x = n / in = n + 1sum = sum + xnextend 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/510阅读如下visual basic程序， function f(n as integer, r as integer) as integer if n 0 then f = n r end ifend functionprivate sub command1_click() print f(10, 8)end sub 程序的运行结果是 （ ）a8 b10 c2 d1 11、如下vb程序段：x=text1.textp=0for i=1 to len(x) if mid(x,i,1)=”a” then p=p+1next iprint p若程序运行时，在文本框text1中输入“are you happy”，则运行结果是（ ）a. 0 b. 1 c. 2 d. 1112、在窗体上画一个名称为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 integerdim lens as integer 变量lens表示字符串s的字符个数s = text1.textlens =_for i = 1 to lensif mid(s,i,1)= a then ta = ta + 1if mid(s,i,1)= b then tb = tb + 1next itext2.text = str( ta)text3.text = str(tb)end sub2应用实例：判断一个数是否为偶数，如果在文本框te1中输入一个数，在标签label1中直接出现相应的判断结果。在程序处完成以下3处填空private sub dim a as integer a=val(te1.text)label1.caption = end subfunction ou(i as integer) as if i mod 2 = 0 then ou = 该数为偶数！else ou = 该数为奇数！end ifend function3 商品条形码是一个13 位数,它是商品的“身份证”。条形码中前8位是厂商识别代码，接着4 位是商品项目代码，最后一位是校验码。校验码是由前12 位数按一定公式计算而得出的，其计算公式见下表小明编写了一个vb程序，输入一个二维码后，点击“验证”按钮后，程序根据如上算法验证条形码的验证码是否正确，代码如下所示：private sub command1_click（）dim s as string，x as stringdim js as integer，os as integer，jy as integers = text1. textn = len（s）if n 13 thenlabel1.caption = 条形码位数错误elsefor i = 1 to 12x = val（mid（s，i，1）if _thenjs = js + xelseos = os + xend ifnext iend ifjy = os * 3 + jsjy = _if jy = 10 then jy = 0if jy = val(mid(s，13，1) thenlabel1.caption = 验证码正确elselabel1.caption = 验证码错误end ifend 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，否则返回falsefunction judge（x as integer）as booleandim j as integerjudge = truej = 2do while j = x - 1 and judge = trueif x mod j = 0 thenjudge = falseelsejudge=true end ifloopend functionprivate sub command1_click（）dim n as integer, p as integer, q as integer, flag as booleann = val（text1.text）p = 1flag = falsedo while flag = true and p n p = p + 1q = q + 1 if judge(p) and judge(q) thentext2.text = yesflag = truelist1.additem str(n)+ = + str(p)+ + + str(q)end ifloopif flag =false then text2.text = noend sub试场 班级 学号 姓名 座位号 高 密 封 线 牌头中学2016学年第一学期中考试卷高二信息技术