《VB语言程序设计》课程试题

学年 第一学期

《VB 语言程序设计》课程试题

课程号：

1630013

√ 考试 □ A 卷

√ 闭卷

□ 考查

√ B 卷

□ 开卷

一、判断正误（请将答案填在括号内，每题（ ）1. 用VB 编写的源程序无法在计算机中直接执行。

（ ）2. 长整型（Long ）是VB 中的一种基本数据类型，其表示范围为-32768~32767。 （ ）3. 一般情况下，系统事件是指用户在计算机系统中通过按键或鼠标操作而产生的事件。

（ ）4. 在属性窗口中，既可以按字母顺序，也可按分类顺序显示所选对象的

属性。

（ ）5. VB 集成开发环境包括三种工作状态，用户只能在设计状态下修改程

序代码。

（ ）6. 当文本框具有焦点时，用户按下光标键时将触发该文本框的KeyPress 事件。

（ ）7. 我们可以将菜单编辑器看成是菜单控件的属性窗口，其中的“标题”、

“索引”项分别对应着菜单控件的Caption 、Index 属性。

（ ）8. 为了选中某个单选按钮，可以在程序代码中将该单选按钮的Enable 属性设置为True 。

（ ）9. 设置图片框(PictureBox)对象的Stretch 属性，可使该对象根据装入的图形自

动调整本身的大小。

（ ）10. 文件既可以存储在计算机的外存储器中，也可以存储在计算机的内存储器中。

二、单项选择（请将答案填在括号内，每题1分，共10分）

（ ）1. 以下四个变量名中，合法的是__________ 。

A. Pi

B. 7Stud

C. Print

D. Mod （ ）2. 要通过代码删除列表框List1中当前选中的一项，可使用__________

班级：

姓

名：

学号：

试题共 页

加白纸 二 张

密

封

线

GDOU-B-11-302

语句。

A. List1.Clear

B. List1.Delete

List1.ListIndex

C. List1.RemoveItem List1.ListIndex

D. List1.Clear

List1.ListIndex

（）3. 以下四个项目中，不可以用于用户输入的是__________ 。

A. 文本框控件

B. 组合框控件

C. InputBox函数

D. Label控件

（）4. 语句Dim ABC(-5 To 5) As Integer定义的数组元素个数是__________。

A. 25

B. 11

C. 10

D. 36 （）5. 以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是________ 。

A. Static

B. Public

C. Private

D. Dim

（）6. 存储一个VB工程时，可能产生多个文件。扩展名.bas表明是_________文件。

A. 窗体

B. 标准模块

C. 类模块

D. 资源

（）7. 能够将文本框（Text1对象）清空的代码是___________ 。

A. Text1.Cls

B. Text1.Clear

C. Text1.Caption=""

D. Text1.Text=""

（）8. 以下鼠标事件中，无法在事件发生时获取鼠标当前位置的是___________ 。

A. Click

B. MouseDown

C. MouseMove

D.

MouseUp

（）9. 要把菜单项降低一个级别成为下一级子菜单，应在菜单编辑器中按下_________按钮。

A. ↓

B. ←

C. ↑

D. →

（）10. 以下列出了四个VB内部函数名，不合法的是___________ 。

A. ABS

B. MOD

C. SQR

D. INT

三、填空题（每空1分，共20分）

1. 在VB中，我们通常将窗体和控件都称为_______________。

2. VB中可使用两种类型的常量，一种是________常量，另一种是_________常量。

3. 在Visual Basic中，通用过程分为两类，___________过程和_____________过

程。

4. 数学表达式

a ac

b b

2

4 2-

+

-

的VB表达式形式为___________________________________。

5. 表达式43 >= 98 And 3 ^ 3 <= 4 * 6是________类型的表达式，其值为_____________。

6. 函数Len(Str(-3.14)) 的值为_____________。

7. 赋值语句S% = Int(Rnd(1) * 20) 中变量S可能获得的最大值为__________。

8. 若要每隔1000毫秒触发一次Timer事件，应设置定时器控件的_____________属性。

9. 通过文本框的__________________属性，可设置文本框中显示的内容。

10. 在程序代码中将某个复选框对象的____________属性赋值为1，就将选中该

复选框。

11. 要在标签控件中显示指定的字符，应设置标签控件的________________属性。

12. 为使用户能够拖动窗口中的控件，可在程序设计时将该控件的___________

属性设置为1，即可启动鼠标自动拖动模式。

13. 窗体的__________方法可以使窗体进入可见状态；要隐藏某个窗体，应使用

_________方法。

14. 在窗体上绘图时，可使用窗体对象的____________方法来建立自定义的坐标

刻度单位。

15. 对命令按钮对象而言，编程中使用最多的事件是命令按钮的___________事

件。

16. 在VB中，有三种文件存取类型，分别为顺序存取、随机存取和

________________。

四、阅读分析程序（每空1分，共18分）

（1）程序段1的循环体中包含_________条语句，循环体的执行次数为_________。（2）程序段2的循环体中包含_________条语句，循环体的执行次数为_________。（3）程序段1的输出结果S=____________；程序段2的输出结果S=____________。

2. 窗体上含有一个命令按钮并编制如下代码，阅读程序后按要求填空。

Private A As Integer

Private B As Integer

Private Sub Form_Load()

Dim B As Integer

A = 10

B = 20

C = 30

End Sub

Private Sub Command1_Click()

Static C As Integer

A = A + 1

B = B + 1

C = C + 1

Print A, B, C

End Sub

（1）从变量作用域的角度来看，Form_Load()过程中的变量A属于_______变量。（2）从变量作用域的角度来看，Form_Load()过程中的变量B属于_______变量。（3）定义模块级变量时，关键字Private可用________代替。

（4）程序运行期间，第2次单击命令按钮后，输出结果为A=_____，B=_____，C=_____。

3. 窗体上有命令按钮Comamnd1并编制程序如下，阅读程序后按要求填空。

Sub XYZ(ByVal x As Integer, ByVal y As Integer, z As Integer)

z = x - y

x = 0

y = 0

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = 200

b = 100

Call XYZ(a, b, c)

Print a, b, c

End Sub

（1）VB过程调用时有两种传递参数的方式。在上述程序中，调用过程XYZ时，第一个参数将按________传递，第二个参数将按________传递，第三个参数将按________传递。

（2）运行该程序，并单击命令按钮，则窗体上的输出结果为a=______，b=______，c=______。

五、程序填空（每空2分，共22分）

1. 以下程序将打印已知最大素数的最后六位。目前，人们所知道的最大素数是286243-1，使用VB中的基本数据类型，无法直接计算该数。以下程序只计算最大素数的最后六位，而将前面的数位省略，请仔细阅读程序代码及相应的注释，并补充完整。

Private Sub Command1_Click()

Dim I As Long

Dim N As Long

I = 1

______________

Do While I <= 86243

N = N * 2

'当N的值超出6位后,舍去前面的位数

If N > 1000000 Then

N = N - 1000000

End If

_________________

Loop

___________________

Print N

End Sub

2. 以下程序随机产生100个整数存放于数组中，统计这些整数中有多少个数是5的倍数，并计算它们的和。请仔细阅读程序代码，并补充完整。

Private Sub Command1_Click()

Dim i As Integer

Dim S As Integer, N As Integer

__________________________________

S = 0

N = 0

For i = 1 To 100

A(i) = Int(100 * Rnd)

If___________________________Then

S = S + A(i)

N = N + 1

End If

Next i

Print "S=", S, "N=", N

End Sub

图1

3. 以下程序使用窗体默认的坐标系统绘制如图1所示的图形。矩形线条为红色，左上角点的坐标为（1000，1000），水平方向的长为1000缇，垂直方向的宽为2000缇。半圆弧线条为蓝色，圆心位于矩形上边的中点。半径为500缇。请仔细阅读程序代码，并补充完整。

Private Sub Form_Click()

Form1.DrawWidth = 2

Line

____________________________________________________________

Circle

____________________________________________________________

End Sub

4. 以下程序用来求两个正整数M和N的最大公约数和最小公倍数。请仔细阅读程序代码，并补充完整。程序中采用辗转相除法求最大公约数，该算法的思想如下：

（1）令两个整数中大的为M，小的为N；

（2）计算M除以N，余数为R；

（3）若R=0，则最大公约数为N；

（4）若R≠0，则令M=N、N=R，然后转向第（2）步重复上述过程，直至R=0。R=0时的N值即为最大公约数。

最小公倍数的计算比较简单，用两个数的乘积除以最大公约数即可得到。

Private Sub Command1_Click()

Dim M As Integer, N As Integer, R As Integer

Dim X As Integer, Y As Integer 'X为最大公约数，Y为

最小公倍数

M = InputBox("输入一个正整数")

N = InputBox("输入另一个正整数")

If M < N Then

R = M

M = N

N = R

End If

Y = M * N

Do

_____________________

M = N

N = R

Loop Until R = 0

_____________________

Y = Y / X

Print X; "是最大公约数"

Print Y; "是最小公倍数"

End Sub

5. 以下程序用随机函数产生10个整数存放于一个数组中，找出最小的数及其下标。请仔细阅读程序代码，并补充完整。

Private Sub Command1_Click()

Dim A(1 To 10) As Integer

Dim Min As Integer '最小的数

Dim S As Integer '最小数的下标

For i = 1 To 10

A(i) = Int(Rnd * 100)

Print A(i);

Next i

Print

Min = A(1)

S = 1

For i = 2 To 10

If Min > A(i) Then

____________________

____________________

End If

Next i

Print "Min=", Min, "S=", S

End Sub

六、编程（每题5分，共20分）

1. 利用Form_Click事件计算并在窗体上打印出立方数大于5000的最小整数。（5分）

2. 求Fibonacci数列中的前20个数，存放在数组中并在窗体上打印输出。Fibonacci

数列的前两个数为1,1，后面的每一个数都是其前两个数之和。请利用Form_Click事件编写程序。（5分）

3．编写一个Command1_Click 事件过程：产生20 个100 到999 之间的随机数，按生成顺序保存在数组中，并按每行 5 个数的格式输出。用户任意输入一个数，如果该数出现在这20 个数中，则输出该数的生成序号；否则，输出“没有找到”的信息。

4．求s= x 1 + 2 + L + m + 13 + 2 3 + L + n 3 的值。要求定义求f= ∑ i k 函数过程，由命15 + 2 5 + L + p5i =1 令按钮的单击事件过程输入m、n 和p 的值，调用 f 函数过程求s 的值，然后在窗体上显示计算结果。