1、台州中学2016学年第二学期第四次统练试题高一 技术 信息技术 部分（共50分）命题人：罗呈姣 刘德岳 审题人：马美玉 廖根仁一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求） 1下列问题不能用算法描述的是 （ ）A找出所有能被3整除的自然数B输入身高体重，判断体型情况C找出1000个整数中的最大值与最小值 D将（64）10 转换为对应的二进制数2在VB中，语句Text1.Text=无解中的“Text”是（ ） A对象名B属性名C属性值D方法名3. 下列VB表达式中，计算结果为3的是（ ） AAbs(-3.2) BLen(a_8)CSqr(3)
2、+1DInt(2.9)4VB中，能够正确表示代数式的是 ( )Ax3+1/abs(x)+sqr(x) B(x3+1)/abs(x)+sqr(x)Cx3+1/(abs(x)+sqr(x) D(x3+1)/(abs(x)+sqr(x)5. 执行如下VB程序段S=0For i=20 To 1 Step -5 S=S+1Next iText1.text=str(s)文本框中显示的值是（）A50 B20C5D46. 某VB程序设计界面如第6题图所示，下列说法正确的是（ ）第6题 图工程文件是“工程1 .vbp” 将text属性值删除，图中处将不会显示“text1” 该窗体中共有3个对象 窗体名称是“整除
3、问题” A. B. C. D. 第7题图7某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是A2，True B3，True C2，False D3，Falsea0,b1,c0aa+1bb*acc+ba3?YN第8题图8.某算法的部分流程图如第8题图所示，执行这部分流程后，变量a、b、c的值分别是( )A3 6 9 B4 6 9 C3 24 33 D4 24 33 9有如下Visual Basic程序段：S=0：k=1Dowhilek =3 Then s=skk=k1Loop该程序段运行后，变量s和k的值分别是（ ）A3 , 3 B5,4C3,5D4，5第10题图10.计算
4、器中乘方运算实际上是通过累乘的方法实现的。实现计算器上xy 运算处理的算法部分流程图如第10题图所示，下列说法正确的是（ ）A框图中该填入的是fx*jB框图中该填入的是ff*jCjj+1被执行了x次Djj+1被执行了y次 11. 【加试题】孙子算经中提出“物不知其数”第11题图6 的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如第11题图所示，VB程序段如下：Private Sub Command1_Click() k = 0 用来计数 Max = 600 指定范围600以内 n = 9 Do While n = 0 Then
5、n=n+1 List1.AddItem Str(a(i) Else m=m+1 List2.AddItem Str(a(i)Next则该程序段出错的原因是缺少了（ ） ANextBiCEnd IfDFor二、非选择题（本大题共5小题，共26分）13.一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框text1中输入的数是否素数，请完善以下三处代码。Dim i As Integer, m As Integer ,flag as Booleanm = flag= For i = 2 To int(sqr(m) If Then flag=false
6、Exit For End ifNext i If flag=true Then Text2.Text = str(m) +是素数 Else Text2.Text = str(m) +不是素数 End if14.对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下, 请完善以下两处代码s=Text1.Textn=Len(s) s是待判断的字符串k=0:j=nFor i=1 to n/2c1=Mid(s,i,1) c2=Mid(s,j,1)If c1 c2 Then k = k+1: Exit Forj= Nex
7、t iIf Then Label1.Caption=对称 Else Label1.Caption=不对称15.利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。Private Sub Command1_Click() Dim Pi As Single, t As Single Dim n As Integer, s As Integer Pi = 0 t = 1: n = 1:s =1 Do While Abs(t) = 0.0001 Pi = Pi + t n = s= t = s *1 / n Loop Text2.Text = End Sub16.在文本框text1
8、中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如第16题图所示：第16题 图（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。（2）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()Dim n As Long, m As IntegerDim a(0 To 9) As Integern = Val(Text1.Text)List1.ClearFor i = 0 To 9 a(i) = 0Next iDo While n 0 t = n Mod 10 a(t) = a(t)
9、 + 1 Loopm = a(0)For i = 1 To 9 If a(i) m Then m = a(i): k = i List1.AddItem Str(i) & ： & Str(a(i) & 个NextLabel2.Caption = 出现最多的数字是： + End Sub17.小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。第17题 图用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机
10、产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如第17题图所示： (1)自摘收费程序所用的算法是 （填：解析算法/枚举算法）。(2)为实现上述功能，请在划线和处填入合适的代码。Dim m As IntegerPrivate Sub Command1_Click() Dim n As Integer, s As Integer Dim w As Single, f
11、As Singlen = Val(Text1.Text) 输入大人人数nw = Val(Text2.Text) 输入重量wf = 20 * n + 10 * w 计算无优惠的费用fs = 0For i = 1 To m 计算桔子总数 s = s + i * iNext iIf s= Then 判断是否拿到优惠计算费用 f = f * 0.5 + s * 0.3 计算优惠后的费用 Label7.Caption = 恭喜你，这是优惠后的费用！Else Label7.Caption = 很遗憾，你没有算对哦！End IfLabel4.Caption = Str(f) 输出最后的费用fEnd SubP
12、rivate Sub Form_Load()Randomizem = 随机产生15层及以内的桔子层数不含0Text3.Text = Str(m)End Sub（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用 元。台州中学2016学年第二学期高一统练4信息技术部分参考答案：一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）1-5：A B B D D 6-10: A C D C D 11-12： C C二、非选择题（本大题共5小题，除标注外，每空2分，共26分）13 val(Text1.Text) true m Mod i = 014. j-1 k=015. n+1 - s Str(Pi * 4)16. (1)TEXT n = n 10 Str(k)17.（1） 解析算法 （2） VAL(TEXT4.TEXT) / TEXT4.TEXT INT(RND*15)+1 / INT(RND*15+1) （3） 110
