《算法与程序设计》模拟测试卷（一）.doc

《《算法与程序设计》模拟测试卷（一）.doc》由会员分享，可在线阅读，更多相关《《算法与程序设计》模拟测试卷（一）.doc（7页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、 1 / 7算法与程序设计算法与程序设计模拟测试卷（一）模拟测试卷（一）考试时间：90 分钟 满分：100 分 一、一、 单项选择题（共单项选择题（共 20 个空，每空个空，每空 2 分，共分，共 40 分）分）1 使用计算机解题的步骤，以下描述正确的是：( )。A正确理解题意设计正确算法寻找解题方法编写程序调试运行B正确理解题意寻找解题方法设计正确算法编写程序调试运行C正确理解题意寻找解题方法设计正确算法调试运行编写程序D正确理解题意寻找解题方法设计正确算法编写程序调试运行2下列算法展示了一台自动售货机一次售货的工作流程： 步骤 1：等待接收一枚硬币。 步骤 2：若硬币面值不是 0.1 元、

2、0.5 元、1 元，退回硬币。 步骤 3：若投入货款达 1.5 元或以上，执行步骤 4 和 5。 步骤 4：售出一个口香糖。 步骤 5：从接收货款中减去 1.5 元。 步骤 6：退回余额。 下列关于这个算法说法正确的是（ ） 。 A上述算法采用自然语言表示 B这台自动售货机在任何情况下也不会售出口香糖 C上述算法属于顺序算法结构 D这台自动售货机只会在接受硬币达 2 元时才放出口香糖3 Visual Basic 规定窗体文件的扩展名是 ( )。A.for B .frm C .vbp D.bas4假设某一程序如下，则能触发该程序的事件是（ ）Private Sub command2_Click(

3、)Form1.Caption=“VB 示例” End SubAcommand2 Bclick C form1 Dcaption5下列结果为 True 的逻辑表达式是（ ） 。ANot(310) C(38)Or(510)6以下语句中正确的是( )。AConst var1 as integer=50000 BDim 888fl as StringCx+y = 9 DDim d(1 to 500) As Double7在 VB 中，添加一个标签，在工具箱中要单击控件是（ ） 。2 / 7A B C D 8下列运算结果中，值最大的是 （ ） 。A34 B3/4 C4 mod 3 D3 mod 4 9表

4、达式 abs(int(3.4)*sqr(100)的值是（ ） 。A340 B-34 C30 D4010若 i = 1，j = 9，则运行 Print i; “*“; j; “=“; i *j 的结果是（ ） 。A1 * 9 = 9 Bi *j = 9 Ci * j =i *j D 911下列 Visual Basic 程序段运行后，变量 max 的值为（ ） 。a=5 b=10max=aIF bmax Then max =bA5 B10 C5 和 10 D以上都不是12下列四种描述中，符合以下程序的是（ ） 。 for k=11 to 20x=inputbox(“请输入一个整数”)y =x2

5、nextprint x,y A读入 10 个不同的 x 值，只计算最后一个 y 值，只输出最后一个 x、y B读入 10 个不同的 x 值，计算 10 个不同的 y 值，输出 10 个不同的 x、y 值 C只读入一个 x 值，进行 10 次相同的运算，输出 10 个相同的 x、y 值D读入 10 个不同的 x 值，计算 10 个不同的 y 值，只输出最后一个 x、y 值 13下列程序段中可以输出整数 1-5 的是（ ）： Ai = 1 Do While i 5i = i + 1Print i Loop 14执行下面程序段的结果是（ ） 。 n=6for d=1 to nIf n mod d=0

6、 then print d;end if next d A1 6 B1 2 3 C1 2 3 6 D1 2 3 4 5 6 15阅读下面的程序段： B i = 1 Do While i n?YNY输入两个自然数 m、nN5 / 7End Sub 24采用选择排序法，将随机产生的 100 以内的 10 个整数按由大到小的顺序排列。 Private Sub Command1 _Click()Dim s(10) as integer, dim max as integer, dim maxnum,m,.n,temp as integerRandomize 初始化随机数发生器For m=1 to 10

7、 S(m)= （1） 随机产生的 100 以内的整数Next m For m=1 to 10Max= S(m) Maxnum= （2） For n= （3） to 10 If （4） Thenmax=s(n) maxnum= （5） End IfNext nTemp= s(m) S(m)=max S(maxnum) =tempNext mFor m=1 To 10 Print s(m) Next mEnd Sub三、阅读程序，写出运行后输出的结果（每题三、阅读程序，写出运行后输出的结果（每题 5 分，共分，共 15 分）分）25Private Sub Command1_Click() dim

8、x as single,y as string x = Round(5.4) Select Case xCase 1 To 5y = mid(“welcome”,3,2)Case 6 To 10y = left(“welcome”,3)Case Elsey = right(“welcome”,3) End SelectPrint “you”+y End sub26、Private Sub Command1_click()Dim x, y As Integer x = 5 y = 0 If x 1a = 1DoPrint “ * “;a = a + 1 Loop Until a = n Prin

9、t n = n - 1 Loop End Sub7 / 7选修模块选修模块“算法与程序设计算法与程序设计”模拟测试题二模拟测试题二参考答案参考答案一、一、 单项选择题单项选择题 1B 2A 3B 4B 5C 6D 7A 8D 9D 10A 11B 12D 13C 14C 15C 16C 17B 18C 19C 20C二、填空题二、填空题 21 （1）2 （2）S （3）(k+1) 22 （1）33 （2）50 （3）100-x-y （4）3*x+2*y+0.5*z=100 23 （1）m=n （2）rmax （5）n三、阅读程序，写出运行后输出的结果三、阅读程序，写出运行后输出的结果 25youlc 26100 27* * * * *