《高一信息技术模拟测试卷（一）.doc》由会员分享，可在线阅读，更多相关《高一信息技术模拟测试卷（一）.doc（6页珍藏版）》请在金锄头文库上搜索。
1、算法与程序设计模拟测试卷（一）考试时间：90分钟 满分：100分 一、 单项选择题（共20个空，每空2分，共40分）1 使用计算机解题的步骤，以下描述正确的是：( )。A正确理解题意设计正确算法寻找解题方法编写程序调试运行B正确理解题意寻找解题方法设计正确算法编写程序调试运行C正确理解题意寻找解题方法设计正确算法调试运行编写程序D正确理解题意寻找解题方法设计正确算法编写程序调试运行2下列算法展示了一台自动售货机一次售货的工作流程：步骤1：等待接收一枚硬币。步骤2：若硬币面值不是0.1元、0.5元、1元，退回硬币。步骤3：若投入货款达1.5元或以上，执行步骤4和5。步骤4：售出一个口香糖。步骤5
2、：从接收货款中减去1.5元。步骤6：退回余额。下列关于这个算法说法正确的是（ ）。A上述算法采用自然语言表示B这台自动售货机在任何情况下也不会售出口香糖C上述算法属于顺序算法结构D这台自动售货机只会在接受硬币达2元时才放出口香糖3 Visual Basic规定窗体文件的扩展名是 ( )。 A.for B .frm C .vbp D.bas4假设某一程序如下，则能触发该程序的事件是（ ）Private Sub command2_Click() Form1.Caption=“VB示例” End SubAcommand2 Bclick C form1 Dcaption5下列结果为True的逻辑表达式
3、是（ ） 。ANot(38) B(310) C(38)And(58)Or(510)6以下语句中正确的是( )。AConst var1 as integer=50000 BDim 888fl as StringCx+y = 9 DDim d(1 to 500) As Double7在VB中，添加一个标签，在工具箱中要单击控件是（ ）。 A B C D 8下列运算结果中，值最大的是 （ ）。 A34 B3/4 C4 mod 3 D3 mod 49表达式abs(int(3.4)*sqr(100)的值是（ ）。A340 B-34 C30 D4010若i = 1，j = 9，则运行 Print i; *
4、; j; =; i *j 的结果是（ ）。A1 * 9 = 9 Bi *j = 9 Ci * j =i *j D 911下列VisualBasic程序段运行后，变量max的值为（ ）。 a=5 b=10max=a IF bmax Then max=b A5 B10 C5和10 D以上都不是12下列四种描述中，符合以下程序的是（ ）。for k=11 to 20 x=inputbox(“请输入一个整数”) y =x2next print x,yA读入10个不同的x值，只计算最后一个y值，只输出最后一个x、yB读入10个不同的x值，计算10个不同的y值，输出10个不同的x、y值C只读入一个x值，进
5、行10次相同的运算，输出10个相同的x、y值D读入10个不同的x值，计算10个不同的y值，只输出最后一个x、y值Ci = 1Do While i = 5 Print i i = i + 1LoopB i = 1Do While i = 5i = i + 1Print i Loop。13下列程序段中可以输出整数1-5的是（ ）：Di = 1Do until i 5 i = i + 1 Print iLoop14执行下面程序段的结果是（ ）。n=6 for d=1 to n If n mod d=0 thenprint d; end if next dA1 6 B1 2 3 C1 2 3 6 D1
6、 2 3 4 5 6 15阅读下面的程序段： a=0For m=1 To 3 For n=1 To m a=a+1 Next Next 执行上面的程序后，a 的值为( ) 。A 3 B5 C6 D 916关于模块化程序设计以下说法中错误的是（ ）。A模块化程序设计体现了“自顶而下、逐步求精”的程序设计的基本思想。 B模块化程序设计主要通过过程和函数的定义和调用来实现。C模块化程序设计可以提高程序运行速度 D模块化程序设计有利于程序的阅读和修改17有一组数，顺序是“4、7、8、1、9”，用选择排序法将这组数从小到大排序，第二次交换数据后的顺序是： ( )。A 1、4、7、8、9 B 1、4、8、
7、7、9 C 1、7、8、9、4 D 1、7、8、4、9 18下列表述中不含递归现象的是（ ）。A站在两面平行的镜子中间照镜子，镜子中的影像成“像中像”B定义自然数：0是自然数，比自然数大1的数是自然数C乘法九九表D“从前有个庙，庙里有个老和尚在给小和尚讲故事，老和尚说：从前有个庙，庙里有个老和尚在给小和尚讲故事，老和尚说：”19要向已包含数据的文件data.txt 追加数据，正确的文件打开命令是( )。Aopen “data1.txt” for output as #1 Bopen “data1.txt” for input as #1Copen “data1.txt” for append
8、as #5 Dopen “data1.txt” for write as #120下面是一组有序的数组元素： 1234567891011121314allbrecarduaevefregeohenhoojoekarkeamaroli现进行对分查找，查找joe要依次访问的是：（ ）Ageo kea kar joe Bgeo car kar joeCgeo kar hoo joe Dgeo hoo kar joe二、填空题：（共15个空，每空3分，共45分）21编程计算s=1*2+3*4+5*6+7*8+9*10： Private Sub command1_Click()S=0For k=1 to
9、 10 step （1） s= （2） +k* （3） Next kPrint s End sub22有一古算术问题：“有100块瓦，用100匹马来驮。大马1驮3，中马1驮2，小马2驮1。问要大马、中马、小马各几匹？”Private Sub Command1_Click()Dim x, y, z As Integer x代表大马、y代表中马、z代表小马For x = 1 To （1） For y = 1 To （2） z = （3） If （4） Then Print x,y,z End If Next yNext xEnd Sub 开始p m*n求m除以n的余数rm nn rr=0输出p/n
10、、n结束m、n互换mn?YNY输入两个自然数m、nN23以下为用辗转相除法求两数的最小公倍数和最大公约数的程序和流程图，请根据流程图填写程序中空白处。Private Sub Command1_Click()m = InputBox(输入第一个自然数)n = InputBox(输入第二个自然数)If m n Then t = m （1） n = tend ifp = n * mr = m Mod nDo While （2） m = nn = r （3） LoopPrint p/n,nEnd Sub 24采用选择排序法，将随机产生的100以内的10个整数按由大到小的顺序排列。Private Sub
11、 Command1 _Click() Dim s(10) as integer, dim max as integer, dim maxnum,m,.n,temp as integer Randomize 初始化随机数发生器 For m=1 to 10S(m)= （1） 随机产生的100以内的整数 Next mFor m=1 to 10 Max= S(m) Maxnum= （2） For n= （3） to 10 If （4） Then max=s(n) maxnum= （5） End If Next n Temp= s(m) S(m)=max S(maxnum) =temp Next m F
12、or m=1 To 10Print s(m)Next m End Sub三、阅读程序，写出运行后输出的结果（每题5分，共15分）26、Private Sub Command1_click() Dim x, y As Integerx = 5y = 0If x 10 Then y = 10If x 100 Then y = 100End IfElse y = 200End IfPrint yEnd Sub25Private Sub Command1_Click()dim x as single,y as stringx = Round(5.4)Select Case x Case 1 To 5
