选修模块算法与程序设计等级考试试题(共5页).doc

《选修模块算法与程序设计等级考试试题(共5页).doc》由会员分享，可在线阅读，更多相关《选修模块算法与程序设计等级考试试题(共5页).doc（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上选修模块算法与程序设计等级考试试题胡永跃第一卷（4页）一、单项选择题（共20个空，每空2分，共40分）1.人们利用计算机解决问题的基本过程一般有如下五个步骤（），请按各步骤的先后顺序在下列选项（AD）中选择正确的答案（ ）调试程序 分析问题 设计算法 构建数学模型 编写程序（A） （B） （C） （D）2.下列各种基本数据类型说明符中表示整数型的是（ ）（A） Integer （B） Boolean （C） Single （D） String3.下列各项中，合法的变量名是（ ）（A） &90 （B） abc=9 （C） hello （D） 888.f4.有两个条件P

2、、Q，只要有一个条件为真时，结果一定为真的是（ ）。（A）Not P （B）P And Q （C）P OR Q （D）NOT P AND NOT Q5.下列代数式的Visual Basic表达式是（ ）（A）(x5-cos(29*3.14/180)/(sqr(exp(x)+log(y) +5)（B）(x5-cos(29)/(sqr(exp(x)+ln(y)+5)（C）(x5-cos(29*3.14/180)/(sqr(exp(x)+ln(y)+5)（D）(x5-cos(0.506)/(sqr(exp(x)+log(y)+5)6.在VB中，表达式（18+25/3）Mod 5 的值是（ ）。（A）

3、0 （B）1 （C）2 （D）37.VB函数InStr ()检查是否包含另一子串：含有子串则返回值为子串在父串中第一次出现的位置，不包含子串则返回值为0。InStr(CATbCACBC, BC)的值为（ ）（A）0 （B）4 （C）8 （D）18.VB函数Right ()从字串右端取部分字串：将某一字串从结尾开始取固定长度的字串。Right(Visual Basic 6.0,6)的值为（ ）（A）sic 6.0 （B）asic 6.0 （C）Visual （D）ic 6.09.程序如下：k=20 do while (k=0)k=k+1 loop以下说法正确的是（ ）（A）do while 语句

4、执行了20次；（B） While 循环是无限循环（C）循环体语句一次也不执行 （D） 循环体语句执行一次10.VB中将两个字符串连接起来的运算符有：+和&，那么 123+45结果是（ ） （A）168 （B）12345 （C）123 （D）4511.已知A，B，C，D是简单变量，且都已有互不相同的值，执行语句B=8:A=C:D=A:D=B后，其值相等的变量是（ ）（A）A，D （B）A，C （C）C，B （D）B，A12.要交换变量A和B之值，应使用的语句组是（ ）（A）A=B:B=C:C=A （B）C=A:A=B:B=C （C）A=B:B=A （D）C=A:B=A:B=C13.模块化程序设计

5、方法主要通过（ ）来实现。（A）递归算法和递归程序 （B）过程和函数的定义和调用（C）程序的循环结构 （D）对象14.在窗体上画一个命令按钮，然后编写如右方所示事件过程。程序运行后，单击命令按钮，程序打印的结果为（ ）（A）76 （B）10 （C）72 （D）48Private Sub Command1_Click() Dim I As Integer, j As Integer, x As Integer x = 4 For I = 1 To 4 For j = 1 To 3 x = x + 6 Next j Next I Print xEnd Sub15.在窗体上画一个命令按钮，然后编写如

6、右方所示事件过程。程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）（A）2 （B）3 （C）14 （D）15Prevate Sub Command1_Click()Dim a as integer,b as integer, x as integerx=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b = InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = cint(x)a = a+b+xLoopPrint aEnd Sub16.在窗体上画一个文本框

7、（其中Name属性为Text1），然后编写如右方所示事件过程。运行程序的结果是（ ）（A） 在文本框Text1中输出aaa（B）在文本框Text1中输出55（C）编译错误 （D）在文本框Text1中没有输出Private Sub Form_Load() Dim i As Integer, sum As Integer Text1.Text = aaa For i = 1 To 10 sum = sum + i Next i Text1.Text = sumEnd Sub17.猴子吃桃问题：一天，有一只猴子从树上摘下若干个桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天小猴子接着吃剩下的一半，

8、还觉得不过瘾，又吃了一个。以后每天都是吃前一天剩下的一半并再吃多一个。到第四天，猴子按规则吃完桃子后，只剩一个桃子。问小猴子第一天摘了多少个桃子。右图所示是根据分析所画出的部分流程图。采用倒推算法，其中设定M的初始值为1（第四天吃完后剩下的桃子数），D为天数（初始值为5）。请在下面的和（对应流程图中相应空缺位置）填入相应选项（AD）：（ ）（A）M=M*2 （B）M=M*2+1 （C）M=2*(M+1) （D）M=2M+1（ ）（A）D=1 （B）D1 （C）Dc+d AND a=5 OR NOT c0 OR D 1 And x(k - 1) a x(k) = x(k - 1) k = k - 1 Loop x(k) = a Next i For i = 1 To 5 Print x(i); Next iEnd Sub专心-专注-专业