2010年级VB试题.doc

青岛大学课程考试试卷20092010学年春季学期考试时间2010.7课程名称Visual BASIC程序设计A卷B卷题号一二三四五六合计复核总分101520152020100得分阅卷本试卷共6页，做题前请检查试卷是否缺页。得分阅卷人一、判断正误（请将答案填在括号内，每题1分，共10分）（ ）1. 在VB集成开发环境中，在运行状态下不能修改程序代码。（ ）2. 在VB中，标识符区分字母的大小写。（ ）3. 在VB中，定时器控件的Timer事件是用户事件。（ ）4. 在VB中，同一控件数组中的各元素，其Index属性的值互不相同。（ ）5. 在VB中，文本框的Locked属性为False时，程序运行时，其内容不能编辑。（ ）6. 在VB中，形状控件(Shape)所体现的形状是由其Type属性决定的。（ ）7. 在VB中，vbBlue和RGB(0,0,255)都表示蓝色。（ ）8. 在VB中，命令按钮控件只有用鼠标单击才能触发其Click事件。（ ）9. 在VB中，一个控件的MouseMove事件可检测到用户是否按下了Ctrl键。（ ）10. 在VB中，若一个控件的拖动方式设置为自动，则该控件不响应其Click事件。得分阅卷人二、单项选择（请将答案填在括号内，每题1分，共15分）（ ）1. 在VB集成开发环境中，_窗口用来设置程序运行时窗体在屏幕上的初始位置。A. 对象B. 立即C. 工具箱D. 窗体布局（ ）2. 在VB中，保存窗体的文件的扩展名是_。A. .formB. .forC. .fomD. .frm（ ）3. 在VB中，一个单精度常量所占用的内存空间是_字节。A. 1B. 2C. 4D. 8（ ）4. 在VB中，以下4个常量最大的是_。A. 2B. 3!C. 4#D. 5%（ ）5. 在VB中，续行符是由空格和_组成的。A. /B. |C. _D. （ ）6. 在VB中，工程级（全局）变量用_在标准模块的声明段中声明。A. PrivateB. PublicC. DimD. Static（ ）7. 在VB中，窗体上用Print方法所显示内容的颜色由窗体的_属性决定。A. FrontColorB. ForeColorC. TextColorD. PrintColor（ ）8. 在VB中，要使标签控件的大小随标题的大小自动改变，应设置其_属性值为True。A. AutoLengthB. AutoWidthC. AutoSizeD. AutoChange（ ）9. 在VB中，将单选钮进行分组，除了使用Frame控件外，还可使用_控件。A. PictureBoxB. ImageC. GroupBoxD. Group（ ）10. 在VB中，要使文本框控件同时出现水平滚动条和垂直滚动条，应设置其ScrollBars的值为_。A. 0B. 1C. 2D. 3（ ）11. 在VB中，列表框控件的Selected属性是一个数组，该数组元素的个数由_决定的。A. ListCountB. ListSizeC. ListItemsD. ListLength（ ）12. 在VB中，要设置某菜单的访问键是Alt+F，在其标题中应包含_。A. FB. &FC. FD. $F（ ）13. 在MouseDown事件过程中，Button参数的值不可能为_。A. 1B. 2C. 3D. 4（ ）14. 在VB中，要改变窗体坐标系统的水平刻度单位，应改变其_属性。A. ScaleLeftB. ScaleTopC. ScaleWidthD. ScaleHeight（ ）15. 在窗体的（x,y）坐标处画一个点的正确语句是_。A. Point (x,y)B. Draw (x,y) C. DrawPoint (x,y)D. PSet (x,y)得分阅卷人三、填空题（每空1分，共20分）1. 在面向对象程序设计中，_是对象的抽象模型。2. 在对象的三要素中，对象自己所具有的行为称为_。3. 结束程序运行的语句是_。4. 程序有三种基本结构，其中循环结构又包括当型循环和_型循环。5. 数组分为动态数组和静态数组两类，动态数组声明后，在使用时应使用_语句重新定义。6. “x是小于100的非负数”的VB表达式是_。7. 表达式 NOT (2=2) OR (3=3) AND (12=0.5)的值是_。8. 表达式 MID(UCASE$(“Visual_Basic”),4,3)的值是_。9. 表达式 INT(3.14)+INT(-3.14)的值是_。10. 把窗体Form1的标题设置为“数字时钟”的语句是_。11. 在窗体生命周期中，最后一个触发的事件是_事件。12. 清除图片框控件Picture1中的图片的语句是_。13. 设置图像框控件Image1，使其自动改变大小以适应图片的大小的语句为_。14. 选中单选钮控件Option1的语句是_。15. 删除列表框控件List1的第1个项目的语句是_。16. 使文本框控件Text1中输入的任何字符都显示为“$”的语句为_。17. 使文本框控件Text1获得焦点的语句是_。18. 组合框是文本框和_的结合。19. 进行鼠标拖放时，在触发DrapDrop事件前总会触发_事件。20. 对于定时器控件，若将其Interval的属性值设置为_，可使该控件不触发Timer事件。得分阅卷人四、阅读程序，回答问题（每空1分，共15分）1. 程序界面设计如下图所示，窗体含有两个标签（Label1和Label2，其中Label1的标题为“圆的半径”，Label2的边框为黑色）、一个命令按钮（Command1）、一个文本框(Text1)，并编写如下代码，阅读后按要求回答问题。Private Sub Command1_Click()Const PI = 3.14159 Dim r As Integer, s As Single r = Val(Text1.Text) s = r * r * PI Label2.Caption = sEnd Sub问题：(1) 常量分为两种，其中代码中的PI是_常量。(2) 代码中的赋值语句共有_条。(3) 程序中有Caption属性的对象共_个。2. 阅读下面的程序，然后按要求回答问题。Private Sub Command1_Click() Dim i As Integer, s As Integer, t As Integer s = 0 For i = 5 To 13 Step 2 t = i Do While t 0 s = s + 1 : t = t 10 Loop Next i Print sEnd Sub问题：(1) 程序的输出结果是_。(2) 若把程序中的Step 2改为Step 3，则程序的输出结果是_。(3) 若把程序中的While t0改为Until t0，则程序的输出结果是_。3. 阅读下面的程序，然后按要求回答问题。Private Sub Command1_Click() Dim a(10, 10) As Integer Dim i As Integer, j As Integer a(1, 1) = 1 For i = 2 To 10 a(i, 1) = 1: a(i, i) = 1 For j = 2 To i - 1 a(i, j) = a(i-1, j-1) + a(i-1, j) Next j Next i Print a(8, 4)End Sub问题：(1) 程序中的数组A是_维数组。(2) 数组A的元素中，没有用赋值语句赋值的元素有_个。(3) 程序的输出结果是_。4. 阅读下面的程序，然后按要求回答问题。Private a As Integer, b As LongPrivate Sub Form_Load() Dim c As Single a = 100: b = 100: c = 100End SubPrivate Sub Command1_Click() Dim b As Long Static c As Integer a = a + 10: b = b + 10: c = c + 10 Print a + b + cEnd Sub问题：(1) 从变量数据类型的角度来看，本程序中共有_种数据类型的变量。(2) 从变量作用域的角度来看，本程序中窗体级变量共有_个。(3) 运行程序时，第2次单击命令按钮，输出结果是_。5. 阅读下面的程序，然后按要求回答问题。Sub MySub(ByVal x As Integer, y As Integer) x = x + y * 2 y = y + x * 2End SubPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 2: b = 3 Call MySub(a, b) Print a * 100 + bEnd Sub问题：(1) VB的程序代码是用过程进行组织的，以上程序代码中，MySub是通用过程，而Command1_Click是_过程。(2) 在过程中，参数的传递方式有两种，其中MySub的参数x是按_传递的。(3) 运行程序时，单击命令按钮，输出结果是_。得分阅卷人五、程序填空（每空2分，共20分）1. 完全数是这样的数，该数的所有因子（它本身除外）之和等于它本身。例如6是完全数，因为6的所有不为6的因子是1、2、3，它们的和刚好是6。而8则不是完全数，因为8的所有不为8 的因子是1、2、4，它们的和是7。以下代码用来找出1000以内的所有完全数，请仔细阅读代码，将其补充完整。Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer For i = 1 To 1000 _ For j = 1 To i - 1 If i Mod j = 0 Then t = t + j Next j If _ Then Print i Next iEnd Sub2. 哥德巴赫猜想是一个著名的数学问题，任何一个不小于4的偶数，都可表示成两个素数的和。已经验证，对于10亿内的数，哥德巴赫猜想成立。以下程序的功能是，输入一个数n，判断n是否为不小于4的偶数，如果是则输出n有多少种不同方法表示成两个素数的和。例如输入10，则输出2。因为10表示成两个素数的和有两种方法：10=37和10=5+5，考虑到加法交换律，10=3+7和10=7+3被视为一种表示方法。下面的程序中，函数Prime用来判断一个数是否为素数，若为素数，则返回True，否则返回False。请仔细阅读代码，将其补充完整。Function Prime(n As Integer) As Boolean Dim i As Integer 小于等于1的数不是素数If n=1 Then Prime = False Else Prime = True For i = 2 To n - 1 If n Mod i = 0 Then _Exit For End If Next iEnd FunctionPrivate Sub Command1_Click() Dim m As Integer, n As Integer, i As Integer n = InputBox(请输入一个不小于4的偶数) If _ Then Print 输入数据错误! Else m = 0 For i = 2 To n2 If Prime(i) And _ Then m = m + 1 Next i Print m End IfEnd Sub3. 以下程序输入一个数a，调用过程MyAver求(a+a2)/2的值，保存到变量p中，再调用过程MyAver求(p+p2)/2的值，保存到变量q中，最后输出q的值。请仔细阅读代码，将其补充完整。Sub MyAver( _ ) y = (x + x 2) / 2End SubPrivate Sub Command1_Click() Dim a As Single, p As Single, q As Single a = InputBox(请输入一个数) Call MyAver(p, a) _ Print qEnd Sub4. 以下程序使用默认的坐标系统在图片框控件Picture1中绘制如图所示的图形。其中红色正方形左上角的坐标为(100,100)，边长为3000缇，绿色半圆的圆心分别位于正方形左边和右边的中点，半径是1500缇，两条蓝线从正方形上边的中点分别到正方形的右下角和左下角。请仔细阅读代码，将其补充完整。Private Sub Command1_Click()Const PI = 3.14159下面的语句绘制红色正方形 _下面的语句绘制两个绿色半圆 _Picture1.Circle (3100, 1600), 1500, vbGreen, PI / 2, 3 * PI / 2 下面的语句绘制两条蓝线Picture1.Line (1600, 100)-(3100, 3100), vbBlue_End Sub得分阅卷人六、编程（共20分）1. 一个点(p,q)到直线Ax+By+C=0的距离公式是。编写Form_Click()事件过程代码，输入一个点的坐标(p,q)，再输入直线方程的三个系数A、B、C，计算并输出点到直线的距离。（本题4分）要求： 所使用的变量必须声明， 其中p、q、A、B、C、d均为单精度类型； 使用InputBox()函数输入。 输出结果直接打印在窗体上。2. 有一函数：编写Form