广东省信息技术等级考试试题及答案(3)

广东省信息技术等级考试试题及答案

四、操作题：

选修模块“算法与程序设计”等级考试试题

考试时间：90分钟    满分：100分    

说明：.本卷分为第一卷和第二卷两部分，共5页。第一卷为单项选择题、判断题和填空题，第二卷为操作题。单项选择题18题（20个空），每空2分，共40分；判断题15题，每小题1分，共15分，填空题（读程序写结果）2题，每小题5分，共10 分；操作题（程序设计）2题，第一题15分，第二题20分，共35分。

注意：做完第一卷并提交完成后才能开始做第二卷。

第一卷（4页）

一、 单项选择题（共20个空，每空2分，共40分）

1、 人们利用计算机解决问题的基本过程一般有如下五个步骤（①~⑤），请按各步骤的先后顺序在下列选项（A~D）中选择正确的答案（    ）

①调试程序 ②分析问题 ③设计算法 ④构建数学模型 ⑤编写程序

（A）①②③④⑤  （B）②④③⑤①  （C）④②③⑤①  （D）②③④①⑤

2、 下列各种基本数据类型说明符中表示整数型的是（    ）

（A） Integer    （B） Boolean    （C） Single     （D） String

3、 下列各项中，合法的变量名是（    ）

（A） &90     （B） abc=9   （C） hello     （D） 888.f

4、 有两个条件P 、Q，只要有一个条件为真时，结果一定为真的是（    ）。

（A）Not P     （B）P And Q  （C）P OR Q    （D）NOT P AND NOT Q

5、 下列代数式的Visual Basic表达式是（    ）

（A）(x^5-cos(29*3.14/180))/(sqr(exp(x)+log(y) +5))

（B）(x^5-cos(29))/(sqr(exp(x)+ln(y))+5)

（C）(x^5-cos(29*3.14/180))/(sqr(exp(x)+ln(y))+5)

（D）(x^5-cos(0.506))/(sqr(exp(x)+log(y))+5)

6、 在VB中，表达式（18+25/3）Mod 5 的值是（    ）。

（A）0     （B）1    （C）2    （D）3

7、 VB函数InStr ()检查是否包含另一子串：含有子串则返回值为子串在父串中第一次出现的位置，不包含子串则返回值为0。InStr("CATbCACBC", "BC")的值为（    ）

（A）0     （B）4    （C）8    （D）1

8、 VB函数Right ()从字串右端取部分字串：将某一字串从结尾开始取固定长度的字串。Right(“Visual Basic 6.0”,6)的值为（    ）

（A）sic 6.0     （B）asic 6.0    （C）Visual    （D）ic 6.0

9、 程序如下：

k=－20

  do while  (k=0)

k=k+1

  loop

  以下说法正确的是（    ）

（A）do while 语句执行了20次；  （B） While 循环是无限循环

（C）循环体语句一次也不执行   （D） 循环体语句执行一次

10、 VB中将两个字符串连接起来的运算符有：+和&，那么 ”123”+45结果是（    ）

　　（A）168     （B）12345    （C）“123”    （D）45

11、 已知A，B，C，D是简单变量，且都已有互不相同的值，执行语句B=8:A=C:D=A:D=B后，其值相等的变量是（    ）

　　（A）A，D     （B）A，C     （C）C，B    （D）B，A

12、 要交换变量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=C

13、  模块化程序设计方法主要通过（    ）来实现。

（A）递归算法和递归程序     （B）过程和函数的定义和调用

（C）程序的循环结构         （D）对象

14、 在窗体上画一个命令按钮，然后编写如右方所示事件过程。程序运行后，单击命令按钮，程序打印的结果为（    ）

（A）76     （B）10   

（C）72     （D）48

Private 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 x

End Sub

15、 在窗体上画一个命令按钮，然后编写如右方所示事件过程。程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（    ）

（A）2      （B）3   

（C）14     （D）15
 
Prevate Sub Command1_Click()

　Dim a as integer,b as integer, x as integer

　　　x=0

　　　Do Until x=-1

　　　　a = InputBox(“请输入A的值”)

　　　　a = Val(a)

　　　　b = InputBox(“请输入B的值”)

　　　　b = Val(b)

　　　　x = InputBox(“请输入x的值”)

　　　　x = cint(x)

　　　　a = a+b+x

　　　Loop

　　　Print a

End Sub

16、 在窗体上画一个文本框（其中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 = sum

End Sub