高级语言程序设计(VB)模拟题(2015.9)

《高级语言程序设计(VB.NET)》模拟题 2015.9

一.单项选择题

1. 下列变量名中错误的是( )。

A. n B. 名称 C. ab# D.“年龄” 2. 编译程序时出现的错误称为( ) 错误。

A. 语法或编译 B. 运行 C. 逻辑 D. 计算

3.下面不合法的标识符是（ ）。

A. Ｇo_To B. Integer C. 姓名 D. Int1 4．下列选项中，把r定义为双精度型变量的是（ ）。

A. r% B. r! C. r# D. r$

5．设X为整型变量,不能正确表达1< X < 5的逻辑表达式是( )。

A. 1< X <5 B. X=2 or X=3 or X=4

C. 1=5) 6．下列一维数组说明语句正确的是（ ）。 A. Dim b(2) AS Integer ={1,2,3} B. Dim b(0 To 2) AS Integer={1,2,3} C. Dim b( ) AS Integer={1,2,3}

D. Dim b(2) AS String ={\7．在过程的形式参数前面加上关键字（ ），则该参数说明为传值参数。 A. Val B. ref C. Byref D. ByVal

8．设已定义Sub过程p，有3个数值型传值参数；设a为实型变量，调用该Sub过程的错误语句为（ ）。

A. p(c,b,a) B. call p 0.5, a, 100 C. call p( 0.5, cos(0.1), a+10 ) D. p( 0.5, 1.2, 100 ) 9．在类定义的外部，可以被访问的成员有( )。

A. 类定义内所有类成员

B. private或protected的类成员

C. public的类成员 D. public或private的类成员 10.在标签框上显示的内容由（ ）属性来实现。

A. Name B. Caption C. Text D. ForeColor

11．若设置文本框最多可以接受的字符数，则可以使用（ ）属性。

A. Length B. Multiline C. Max D. MaxLength

12．当鼠标在窗体上移动时，会发生（ ）事件。

A. MouseDown B. MouseUp C. MouseMove D. KeyDown

13.当复选框CheckBox的Checked属性为( )，方框中间出现“√”的选中标记。

A. False B. True C. T D. F 14．若要清除列表框的所有项目内容，可以使用（ ）方法。

A. AddItem B. ReMove C. Clear D. WriteLine

15．( )中的字符以ASCII码方式存储，并且占用一个字节。

A. 随机文件 B. 二进制文件 C. 文本文件 D. 可执行文件 16．执行下面语句后，输出结果为( )。 A=10 : B=30 : C=20

WriteLine(\，A，B，C)

A. 0、1和2 B. 10、20和30 C. 20、10和30 D. 10、30和20

《高级语言程序设计(VB.NET) 》 第 1 页 （共 页）

17．执行下面语句后，输出结果为( )。 A=10:B=30

If A

A. 10 B. 30 C. 10和30 D. 30和10 18．执行下列程序段输出结果是（ ）。

x%=2

Do while x<8 Write(\x=x+2 Loop

A. * B. ** C. *** D. **** 19. 运行如下程序段后，x的值是（ ）。 x=2

For i=1 to 8 step 2 x=x+i next i

A. 2 B. 18 C. 27 D. 38

20． 在Sub过程体内可以用( )语句强制退出Sub过程的执行。 A. Exit Do B. Exit For C. Exit Function D. Exit Sub

答案栏：

1. ______ 2. ______ 3. ______ 4. ______ 5. ______ 6. ______ 7. ______ 8. ______ 9. ______ 10. ______ 11．______ 12. ______ 13. ______ 14. ______ 15. ______ 16．______ 17. ______ 18. ______ 19. ______ 20. ______

二.判断题(如正确打√，否则，打×。)

1．数据的输出不属于数据处理功能。

2．控制台应用程序至少有一个Main过程。

3．在程序设计语言系统中具有固定语法含义的符号串称为标识符。

4. 判别a是否等于b，若a=b，则输出字符串 “a is equal to b”的块结构条件

语句为： If a=b Then

WriteLine(“a is equal to b”) End If

5. 输入结构变量的值就是输入该变量的各个元素的值。

6．若某个模块中以关键字private定义函数过程，则该函数过程只能在该模块中使用。

7. 关键字private用于声明私有成员。私有成员可以在类中和类外访问。 8．在程序运行期间，用户可以用文本框显示信息。文本框接受输入的内容的属性是Text。

9．列表框ListBox中项目的序号从1开始到Listcount结束。

10.以数据流的方式对文本文件中的数据进行读/写操作，需要StreamReader类和StreamWriter类。

答案栏：

《高级语言程序设计(VB.NET) 》 第 2 页 （共 页）

1． 2． 3． 4． 5． 6． 7． 8． 9． 10．

三.简答题

1. 标识符的作用是什么?它的选取必须遵循什么规则？

2. 若有数组定义语句：Dim a%( )= {{1,2,3}}，则数组a有多少个元素？这些元素是什么？它们的初值是多少？

3.什么是文件？文件如何分类？

答案栏：

1. 2 3.

四.程序阅读题

1．当x的输入值分别为2、8和15时，写出执行下列程序的输出结果。

Imports System.Console Module Module1 Sub Main() Dim x%, y%

Write(\请输入x的值:\ x = ReadLine() Select Case x Case 1, 3, 5 y = x - 1 Case 6 To 10 y = x + 1 Case 2, 4

y = 2 * x Case Is > 10

y = x * x + 1 End Select

WriteLine(\ End Sub

End Module

2. 写出执行下列程序的输出结果。 Imports System.Console

Module Module1

《高级语言程序设计(VB.NET) 》 第 3 页

页） （共

Sub Main()

Dim s As Long, i As Integer s = 3 i = 1

Do Until (i > 8) s = s + i i = i + 2

WriteLine(\ Loop End Sub

End Module

3.写出执行下列程序的输出结果。

Imports System.Console Module Module1 Sub Main() Dim a%, b%

For a = 1 To 5

Write(Space(6 - a)) For b = 1 To 2 * a - 1 Write(\ Next b

WriteLine() Next a End Sub

End Module

4. 写出执行下列程序的输出结果。

Imports System.Console Module Module1 Sub Main()

Dim f(5) As Integer, i As Integer f(0) = 0 : f(1) = 1 For i = 2 To 5

f(i) = 2 * f(i - 2) + 4 * f(i - 1) Next i

For i = 0 To 5

If i Mod 2 = 0 Then WriteLine() Write(\ Next i

WriteLine() End Sub

End Module

答案栏：

1． 2． 3． 4．

五.程序填空题

1. 下面程序的功能是：输入年份和月份，输出该月有多少天，在横线上填上适当

《高级语言程序设计(VB.NET) 》 第 4 页 （共 页）

内容。

提示：每年的1，3，5，7，8，10，12月每月有31天；每年的4，6，9，11月，每月有30天；每年的2月份，闰年为29天，平年为28天。年份能被4整除，但不能被100整除或年份能被400整除的年份均为闰年，否则，为平年。

Imports System.Console Module Module1 Sub Main()

Dim year%, month%, days% Write(\请输入年份：\ year = ReadLine()

Write(\请输入月份：\ month = ReadLine()

Select Case (1) Case 1, 3, 5, 7, 8, 10, 12 days = 31

Case (2) days = 30 Case 2

If year Mod 4 = 0 And year Mod 100 <> 0 Or (3) Then days = 29 Else

days = 28 End If End Select

WriteLine(\年{1}月有{2}天!\ End Sub

End Module

2. 下面程序的功能是使用公式

?26?11??? 求π的近似值，直到最后一项2212的值小于0.00001为止，在横线上填上适当内容。

Imports System.Console Imports System.Math Module Module1 Sub Main()

Dim i&, s#, term# i = 1

s = (4) Do

term = 1 / (i * i)

s = (5) i = i + 1

Loop While (6)

WriteLine(\圆周率的近似值为：{0}\ End Sub End Module

3．已知m=

max(a,b,c)，其中max（x，y，z）为求x，y和

max(a?b,b,c)*max(a,b,b?c)z这三个数最大值的函数。下面程序代码的功能是：输入a，b和c的值，求m的值。在横线上填上适当内容。

《高级语言程序设计(VB.NET) 》 第 5 页 （共 页）

Imports System.Console Module Module1 Sub Main()

Dim a!, b!, c!, m#

Write(\ Write(\ Write(\

m = max(a, b, c) / (max(a+b, b, c) * (7) ) WriteLine(\ End Sub

Private Function max(ByVal x!, ByVal y!, ByVal z!) As (8) Dim ma!

If x > y Then ma = x Else ma = y If z > ma Then ma = z (9) = ma End Function End Module

答案栏：

（1） （2）

（3） （4）

（5） （6）

（7） （8）

（9）

《高级语言程序设计(VB.NET) 》 第 6 页 （共

页）（ 密 封 线 内

Imports System.Console Module Module1 Sub Main()

Dim a!, b!, c!, m#

Write(\ Write(\ Write(\

m = max(a, b, c) / (max(a+b, b, c) * (7) ) WriteLine(\ End Sub

Private Function max(ByVal x!, ByVal y!, ByVal z!) As (8) Dim ma!

If x > y Then ma = x Else ma = y If z > ma Then ma = z (9) = ma End Function End Module

答案栏：

（1） （2）

（3） （4）

（5） （6）

（7） （8）

（9）

《高级语言程序设计(VB.NET) 》 第 6 页 （共

页）（ 密 封 线 内