一、选择题((1)~(35)每小题2分，共70分)
　　下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。  [云南考试网]ｗｗｗ＿ｙｎｅｘａｍ＿ｃｎ

　　(1)数据的存储结构是指
　　A) 存储在外存中的数据 B) 数据所占的存储空间量
　　C) 数据在计算机中的顺序存储方式 D) 数据的逻辑结构在计算机中的表示

　 (2)下列关于栈的描述中错误的是
　　A)栈是先进后出的线性表 B) 栈只能顺序存储
　　C) 栈具有记忆作用 D) 对栈的插入与删除操作中，不需要改变栈底指针

ｗｗｗ．ｙｎｅｘａｍ．ｃｎ[云南考试网]

　(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是
　　A) 冒泡排序为n/2 B) 冒泡排序为n
　　C) 快速排序为n D) 快速排序为n(n-1)/2
　　(4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为
　　A) log2n B) n/2 C) n D) n+1
　　(5)下列对于线性链表的描述中正确的是
　　A)存储空间不一定是连续，且各元素的存储顺序是任意的
　　B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面
　　C)存储空间必须连续，且前件元素一定存储在后件元素的前面
　　D)存储空间必须连续，且各元素的存储顺序是任意的
　　(6)下列对于软件测试的描述中正确的是
　　A)软件测试的目的是证明程序是否正确
　　B)软件测试的目的是使程序运行结果正确
　　C)软件测试的目的是尽可能多地发现程序中的错误
　　D)软件测试的目的是使程序符合结构化原则
　　(7)为了使模块尽可能独立，要求
　　A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
　　B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
　　C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱  ynexam.cn[云南考试网]
　D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
　　(8)下列描述中正确的是
　　A) 程序就是软件
　　B) 软件开发不受计算机系统的限制
　　C) 软件既是逻辑实体，又是物理实体
　　D) 软件是程序、数据与相关文档的集合
　　(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指
　　A) 数据与程序独立存放
　　B) 不同的数据被存放在不同的文件中
　　C) 不同的数据只能被对应的应用程序所使用
　　D) 以上三种说法都不对
　　(10) 用树形结构表示实体之间联系的模型是
　　A) 关系模型 B) 网状模型 C) 层次模型 D) 以上三个都是
　　11、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：
　　A)Private Sub Text1_Change()
　　 Command1.Caption=”计算机等级考试”
　　 End Sub
　　B) Private Sub Command1_Click()
　　 Caption=”计算机等级考试”
　　 End Sub
　　C) Private Sub Form1_Click() [云南考试网]ｙｎｅｘａｍ＿ｃｎ
　　 Text1.Caption=”计算机等级考试”
　　 End Sub
　　D) Private Sub Command1_Click()
　　 Text1.Text=”计算机等级考试”
　　 End Sub
　　(12)设a=5,b=4,c=3,d=2，下列表达式的值是　3>2*b Or a=c And b<>c Or c>d
　　A) 1 B) True C) False D) 2
　　(13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是
　　A)b=Left(a,10)　　B)b=Mid(a,10) 　　C)b=Right(a,10) 　　D)b=Mid(a,11,10)
　　(14)假定有如下的窗体事件过程：
Private Sub Form_Click()
　　a$ = "Microsoft Visual Basic"
　　b$ = Right(a$, 5)
　　c = Mid(a$, 1, 9)
　　MsgBox a$, 34, b$, c$, 5
　　End Sub
　　程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：
　　A)Microsoft Visual　　B)Microsoft　　C)Basic　　D)5
　　(15)设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=Iif((ad),”A”,”B”)后，x的值为：
　　A)”a”　　B)”b”　　C)”B”　　D)”A”
　　(16)为了使命令按钮(名称为Command1)右移200，应使用的语句是
　　A)Command1.Move -200　　B) Command1.Move 200

ｗｗｗ．ｙｎｅｘａｍ．ｃｎ[云南考试网]

　　(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
　　Private Sub Command1_Click()
　　a = InputBox("请输入日期(1~31)")
　　t = "旅游景点:" _
　　& IIf(a > 0 And a <= 10, "长城", "") _
　　& IIf(a > 10 And a <= 20, "故宫", "") _
　　& IIf(a > 20 And a <= 30, "颐和园", "")
　　Text1.Text = t
　　End Sub
　　程序运行后,如果从键盘输入16,则在文本框中显示的内容是:
　　A)旅游景点：长城故宫
　　B)旅游景点：长城颐和园
　　C)旅游景点：颐和园
　　D)旅游景点：故宫 [云南考试网]ｗｗｗ＿ｙｎｅｘａｍ＿ｃｎ

　　(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
　　Private Sub Form_Click()
　　Dim arr(10, 10) As Integer
　　Dim i As Integer, j As Integer
　　For i = 2 To 4
　　For j = 2 To 4
　　arr(i, j) = i * j
　　Next j
　　Next i
　　Label1.Caption = Str(arr(2, 2) + arr(3, 3))
　　End Sub
　　程序运行后,单击窗体,在标签中显示的内容是
　　A)12
　　B)13
　　C)14
　　D)15 ｗｗｗ．ｙｎｅｘａｍ．ｃｎ[云南考试网]

　　(29) 在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
　　Private Function fun(ByVal m As Integer)
　　If m Mod 2 = 0 Then
　　fun = 2
　　Else
　　fun = 1
　　End If
　　End Function
　　Private Sub Command1_Click()
　　Dim i As Integer, s As Integer
　　s = 0
　　For i = 1 To 5
　　s = s + fun(i)
　　Next
　　Print s
　　End Sub
　　程序运行后,单击命令按钮,则窗体上显示的是:
　　A)6
　　B)7
　　C)8
　　D)9

　　(30)阅读程序:
　　Option Base 1
　　Dim arr() As Integer
　　Private Sub Form_Click()
　　Dim i As Integer, j As Integer
　　ReDim arr(3, 2)
　　For i = 1 To 3
　　For j = 1 To 2
　　arr(i, j) = i * 2 + j
　　Next j
　　Next i
　　ReDim Preserve arr(3, 4)
　　For j = 3 To 4
　　arr(3, j) = j + 9
　　Next j
　　Print arr(3, 2) + arr(3, 4)
　　End Sub
　　程序运行后,单击窗体,输出结果为:
　　A)21
　　B)13
　　C)8
　　D)25 [云南考试网]ynexam_cn

31)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
　　Option Base 1
　　Private Sub Command1_Click()
　　Dim c As Integer, d As Integer
　　d = 0
　　c = 6
　　x = Array(2, 4, 6, 8, 10, 12)
　　For i = 1 To 6
　　If x(i) > c Then
　　d = d + x(i)
　　c = x(i)
　　Else
　　d = d - c
　　End If
　　Next i
　　Print d
　　End Sub
　　程序运行后,如果单击命令按钮,则在窗体上输入的内容为
　　A)10
　　B)16
　　C)12
　　D)20
　　(32)设有如下程序:
　　Private Sub Command1_Click()
　　Dim c As Integer, d As Integer
　　c = 4
　　d = InputBox("请输入一个整数")
　　Do While d > 0
　　If d > c Then
　　c = c + 1
　　End If
　　d = InputBox("请输入一个整数")
　　Loop
　　Print c + d
　　End Sub
　　程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:
　　A)12
　　B)11
　　C)10
　　D)9
　　(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: [云南考试网]ynexam_cn
　　Microsoft Visual Basic Programming
　　然后编写如下事件过程:
　　Private Sub Command1_Click()
　　Open "d:\temp\outf.txt" For Output As #1
　　For i = 1 To Len(Text1.Text)
　　c = Mid(Text1.Text, i, 1)
　　If c >= "A" And c <= "Z" Then
　　Print #1, LCase(c)
　　End If
　　Next i
　　Close
　　End Sub
　　程序运行后,单击命令按狃,文件outf.txt中的内容是:
　　A)MVBP
　　B)mvbp
　　C)M
　　V
　　B
　　P
　　D)m
　　v
　　b
　　p
　　(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
　　Dim SW As Boolean
　　Function func(X As Integer) As Integer
　　If X < 20 Then
　　Y = X
　　Else
　　Y = 20 + X
　　End If
　　func = Y
　　End Function
　　Private Sub Command1_Click()
　　Dim intNum As Integer
　　intNum = InputBox("")
　　If SW Then
　　Print func(intNum)
　　End If
　　End Sub
　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ｙｎｅｘａｍ．ｃｎ[云南考试网]