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

1、GDOU-B-11-302班级：姓名：学号：试题共页加白纸二张学年第一学期VB语言程序设计课程试题课程号：1630013，考试 口考查 A卷 a/B卷，闭卷臣题 号一一二四五六总分阅卷教师各题分数101020182220100实得分数、判断正误(请将答案填在括号内，每题 1分，共10分)()1.用VB编写的源程序无法在计算机中直接执行。()2.长整型(Long)是 VB中的一种基本数据类型，其表示范围为-3276832767。()3. 一般情况下，系统事件是指用户在计算机系统中通过按键或鼠标操作而产生的事件。()4.在属性窗口中，既可以按字母顺序，也可按分类顺序显示所选对象的属性。()5. V

2、B集成开发环境包括三种工作状态，用户只能在设计状态下修改程 序代码。()6.当文本框具有焦点时，用户按下光标键时将触发该文本框的KeyPress事件。()7.我们可以将菜单编辑器看成是菜单控件的属性窗口，其中的“标题”、“索引”项分别对应着菜单控件的Caption、Index属性。()8.为了选中某个单选按钮，可以在程序代码中将该单选按钮的Enable属性设置为True。()9.设置图片框(PictureBox对象的Stretch属性，可使该对象根据装入的图形自 动调整本身的大小。()10.文件既可以存储在计算机的外存储器中，也可以存储在计算机的内存储器中。二、单项选择(请将答案埴在括号内，每

3、颗 1分，共10分)()1.以下四个变量名中，合法的是 。A. PiB. 7StudC. PrintD. Mod()2.要通过代码删除列表框List1中当前选中的一项，可使用 语句。B. List1.DeleteD. List1.ClearA. 25B. 11） 5. 以下四个用于变量声明的关键字中，C. 10D. 36不能在模块通用声明段中使用的A. List1.ClearList1.ListIndexC. List1.RemoveItem List1.ListIndexList1.ListIndex（） 3. 以下四个项目中，不可以用于用户输入的是 。A. 文本框控件B. 组合框控件C.

4、InputBox 函数 D.Label 控件（） 4. 语句 Dim ABC（-5 To 5） As Integer 定义的数组元素个数是 。A. StaticB. PublicC. PrivateD.Dim（）6.存储一个VB工程时，可能产生多个文件。扩展名.bas表明是 文件 。A. 窗体B. 标准模块C. 类模块 D.资源（） 7. 能够将文本框（ Text1 对象）清空的代码是 。A. Text1.Cls B. Text1.Clear C. Text1.Caption= D.Text1.Text=（） 8. 以 下 鼠 标 事 件 中 ， 无 法 在 事 件 发 生 时 获 取 鼠 标

5、 当 前 位 置 的 是A. ClickB. MouseDownC. MouseMoveD.MouseUp（） 9. 要把菜单项降低一个级别成为下一级子菜单， 应在菜单编辑器中按下按钮。A. JB. C. TD.f（） 10. 以下列出了四个VB 内部函数名，不合法的是 。A. ABS B. MODC. SQRD. INT三、填空题（每空1 分，共 20 分）1 . 在 VB 中，我们通常将窗体和控件都称为 。2 . VB 中可使用两种类型的常量， 一种是 常量， 另一种是 常量。3 . 在 Visual Basic 中，通用过程分为两类， 过程和 过程。4 . 数学表达式 一bfb _4ac

6、 的 VB 表达式形式为2a5 .表达式43 =98 And 3A3 = 4 * 6是 类型的表达式，其值为6 .函数 Len(Str(-3.14)的值为。7 .赋值语句S% = Int(Rnd(1) * 20)中变量S可能获得的最大值为 。8 .若要每隔1000毫秒触发一次Timer事件，应设置定时器控件的 属性。9 .通过文本框的 属性，可设置文本框中显示的内容。10 .在程序代码中将某个复选框对象的 属性赋值为1,就将选中该 复选框。11 .要在标签控件中显示指定的字符，应设置标签控件的 属性。12 .为使用户能够拖动窗口中的控件，可在程序设计时将该控件的 属性设置为1,即可启动鼠标自动

7、拖动模式。13 .窗体的 方法可以使窗体进入可见状态；要隐藏某个窗体，应使用方法。14 .在窗体上绘图时，可使用窗体对象的 方法来建立自定义的坐标 刻度单位。15 .对命令按钮对象而言，编程中使用最多的事件是命令按钮的 事 件。1分，共18分)16 .在VB中，有三种文件存取类型，分别为顺序存取、随机存取和四、阅读分析程序(每空1.分别阅读左右两段程序，然后按要求填空。程序段2:Private Sub Command1_Click()Dim S As IntegerDim I As IntegerS = 0: I = 1Do While I 100I = I + 2S = S + ILoopP

8、rint SEnd Sub程序段1 :Private Sub Command1_Click()Dim S As IntegerDim I As IntegerS = 0For I = 1 To 100 Step 2S = S + INext IPrint SEnd Sub问题(1)程序段1的循环体中包含 条语句，循环体的执行次数为 。 (2)程序段2的循环体中包含 条语句，循环体的执行次数为 。(3)程序段1的输出结果S=;程序段2的输出结果 S=。2.窗体上含有一个命令按钮并编制如下代码，阅读程序后按要求填空。Private A As IntegerPrivate B As IntegerP

9、rivate Sub Form_Load()Dim B As Integer A = 10B = 20C = 30End SubPrivate Sub Command1_Click() Static C As Integer A = A + 1B = B + 1C = C + 1 Print A, B, C End Sub 问题(1)从变量作用域的角度来看，Form_Load()过程中的变量 A属于 变量。(2)从变量作用域的角度来看，Form_Load()过程中的变量B属于 变量。(3)定义模块级变量时，关键字 Private可用 代替。(4)程序运行期间，第 2次单击命令按钮后，输出结果为

10、A=, B=,C= o3.窗体上有命令按钮 Comamnd1并编制程序如下，阅读程序后按要求填空。 Sub XYZ(ByVal x As Integer, ByVal y As Integer, z As Integer)z = x - y x = 0y = 0End SubPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer a = 200 b = 100Call XYZ(a, b, c)Print a, b, cEnd Sub问题(1) VB过程调用时有两种传递参数的方式。在上述程序中，调用过程XY

11、Z时,第一个参数将按 传递，第二个参数将按 传递，第三个参数将按 传递。(2)运行该程序，并单击命令按钮，则窗体上的输出结果为 a=, b=: c=。五、程序填空(每空2分，共22分)1 .以下程序将打印已知最大素数的最后六位。目前，人们所知道的最大素 数是286243-1,使用VB中的基本数据类型，无法直接计算该数。以下程序只计算 最大素数的最后六位，而将前面的数位省略，请仔细阅读程序代码及相应的注 释，并补充完整。Private Sub Command1_Click()Dim I As LongDim N As LongI = 1Do While I 1000000 ThenN = N-

12、1000000End IfLoopPrint NEnd Sub2 .以下程序随机产生100个整数存放于数组中，统计这些整数中有多少个数是5的倍数，并计算它们的和。请仔细阅读程序代码，并补充完整。Private Sub Command1_Click()Dim i As IntegerDim S As Integer, N As IntegerS = 0N = 0For i = 1 To 100A(i) = Int(100 * Rnd)图1If ThenS = S + A(i)N = N + 1End IfNext iPrint S=, S, N=, NEnd Sub3 .以下程序使用窗体默认的坐

13、标系统绘制如图1所示的图形。矩形线条为红色，左上角点的坐标为(1000, 1000),水平方向的长为1000提，垂直方向的宽为2000堤。半圆弧线条为蓝色，圆心位于矩形上边的中点。半径为500堤。请仔细阅读程序代码，并补充完整。Private Sub Form_Click()Form1.DrawWidth = 2LineCircle4 . 以下程序用来求两个正整数M 和 N 的最大公约数和最小公倍数。请仔细阅读程序代码，并补充完整。程序中采用辗转相除法求最大公约数，该算法的思想如下：（ 1）令两个整数中大的为 M ，小的为 N ；（ 2）计算 M 除以 N ，余数为 R；（ 3）若 R=0 ，

14、则最大公约数为 N ；（4）若RW0,则令M=N、N=R,然后转向第（2）步重复上述过程，直至R=0 。 R=0 时的 N 值即为最大公约数。最小公倍数的计算比较简单，用两个数的乘积除以最大公约数即可得到。Private Sub Command1_Click（）Dim M As Integer, N As Integer, R As IntegerDim X As Integer, Y As Integer X 为最大公约数， Y 为 最小公倍数M = InputBox（输入一个正整数）N = InputBox（输入另一个正整数）If M A(i) ThenEnd 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 到 9