1、 1 / 7算法与程序设计模拟测试卷（一）考试时间：90 分钟 满分：100 分 一、 单项选择题（共 20 个空，每空 2 分，共 40 分）1 使用计算机解题的步骤，以下描述正确的是：( )。A正确理解题意设计正确算法 寻找解题方法编写程序调试运行B正确理解题意寻找解题方法 设计正确算法编写程序调试运行C正确理解题意寻找解题方法 设计正确算法调试运行编写程序D正确理解题意寻找解题方法 设计正确算法编写程序调试运行2下列算法展示了一台自动售货机一次售货的工作流程：步骤 1：等待接收一枚硬币。步骤 2：若硬币面值不是 0.1 元、0.5 元、1 元，退回硬币。步骤 3：若投入货款达 1.5 元
2、或以上，执行步骤 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()Form1.Caption=“VB 示例” End SubAcommand2 B
3、click 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表达式 abs(int(3.4)*sqr(100)的值是（ ） 。A340 B-34
4、 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 =x2nextprint x,yA读入 10 个不同的 x 值，只计算最后一个 y 值，只输
5、出最后一个 x、yB读入 10 个不同的 x 值，计算 10 个不同的 y 值，输出 10 个不同的 x、y 值C只读入一个 x 值，进行 10 次相同的运算，输出 10 个相同的 x、y 值D读入 10 个不同的 x 值，计算 10 个不同的 y 值，只输出最后一个 x、y 值13下列程序段中可以输出整数 1-5 的是（ ）：Ai = 1Do While i 5i = i + 1Print iLoop14执行下面程序段的结果是（ ） 。n=6for d=1 to nIf n mod d=0 thenprint d;end if next dA1 6 B1 2 3 C1 2 3 6 D1 2
6、3 4 5 6 15阅读下面的程序段： B i = 1Do 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 10S(m)= （1） 随机产生的 100 以内的整数Next mFor m=1 to 10Max= S(m) Max
7、num= （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 10Print s(m)Next mEnd Sub三、阅读程序，写出运行后输出的结果（每题 5 分，共 15 分）25Private Sub Command1_Click()dim x as single,y as stringx = Round(5.4)Select Case xCase 1 To 5y = mid(“welcome”,3,2)Case
8、 6 To 10y = left(“welcome”,3)Case Elsey = right(“welcome”,3)End SelectPrint “you”+yEnd sub26、Private Sub Command1_click()Dim x, y As Integerx = 5y = 0If x 1a = 1DoPrint “ * “;a = a + 1Loop Until a = nPrintn = n - 1LoopEnd Sub7 / 7选修模块“算法与程序设计”模拟测试题二参考答案一、 单项选择题1B 2A 3B 4 B 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=10023 （1）m=n （2）rmax （5）n三、阅读程序，写出运行后输出的结果25youlc 26100 27*
