武汉职业技术学院 《 Vi sua bas ic程序设计》试卷七 选择题(20分) 1.下述的说法哪种是 Windows的程序设计方法: A面向对象、顺序驱动B面向过程、事件驱动 C面向过程、顺序驱动D面向对象、事件驱动 2.00P的含义是: A面向对象的程序设计B开放数据库连接 C图形设备接口 D图形用户界面 3.在VB中,称对象的数据为 A属性B方法C事件D封装 4.在VB中,要将一个窗体装载到内存进行预处理,但不显示,应用哪种 语句: a Show B hide C load d Unload 5.在WB中,下述哪种控件不是容器控件 A PictureBox B frame C Toolbar 6.在B中,要设置菜单项的快捷访问键,应使用哪个符号 B *C S D g 7.要从D0…Loop循环中退出循环,应使用哪个语句: A Exit B Exit Do C Continue D Stop loop 8.在使用动态数组时,如要改变数组的大小而又不丢失数组中的数据,应 使用具有关键字的 Redim语句 A Preserve B Middle(s, 4, 4) C MidStr(S, 4, 4) D MiddleStr(S, 4, 4) 9.用于获得字符串长度的函数是 A Len( B Length C StrLen D StrLengtho 10.在通过引用传递的方式向一个函数传递参数时,应使用哪个关键字: a By val b ByRef C By value d By Reference 答案:12345 9 、填空题(25分) VB可视化编程的步骤: 2.指出下列控件的属性的作用:文本框Text1的 Multiline属性 计时器控件的 Interval属性_ 滚动条控件的 Value属性 3.事件是指
武汉职业技术学院 《Visual Basic 程序设计》试卷七 一、选择题（20 分） 1． 下述的说法哪种是 Windows 的程序设计方法： A 面向对象、顺序驱动 B 面向过程、事件驱动 C 面向过程、顺序驱动 D 面向对象、事件驱动 2． OOP 的含义是： A 面向对象的程序设计 B 开放数据库连接 C 图形设备接口 D 图形用户界面 3． 在 VB 中，称对象的数据为 A 属性 B 方法 C 事件 D 封装 4． 在 VB 中，要将一个窗体装载到内存进行预处理，但不显示，应用哪种 语句： A Show B Hide C Load D Unload 5．在 VB 中，下述哪种控件不是容器控件 A PictureBox B Frame C ToolBar D Image 6. 在 VB 中，要设置菜单项的快捷访问键，应使用哪个符号 A & B * C $ D @ 7. 要从 DO…Loop 循环中退出循环，应使用哪个语句： A Exit B Exit Do C Continue D Stop Loop 8. 在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应 使用具有关键字的 ReDim 语句： A Preserve B Middle(S,4,4) C MidStr(S,4,4) D MiddleStr(S,4,4) 9. 用于获得字符串长度的函数是： A Len() B Length() C StrLen() D StrLength() 10.在通过引用传递的方式向一个函数传递参数时，应使用哪个关键字： A ByVal B ByRef C ByValue D ByReference 答案：1 2 3 4 5 6 7 8 9 10 二、填空题（25 分） 1．VB 可视化编程的步骤：____________、_____________、______________。 2．指出下列控件的属性的作用：文本框Text1的MultiLine属性_________、 计时器控件的 Interval 属性___________________________________、 滚动条控件的 Value 属性_____________________________________。 3. 事件是指___________________________________________________
事件过程是指 4.在B中,对没有赋值的变量WB会自动将数值型数据赋为 变长字符串初始化为 定长字符串初始化为 5.0 ption Explicit语句的作用是 6.数组a(10)的元素个数为个,数组a(3,1to3)的元素个数为个。 7.VB应用程序由 等3个模块构成。 8.调用通用过程和函数时,参数的传递方式有 和 两种,其中默认的方式是 9.0pen“c:\test.txt” For Output As#1 Write #1 This is a test 这两条语句的作用是 三、读程序并写出运行结果(10分) 1. Private Sub Commandl Click( For n=l To 200 If n Mod 37=0 Then a=a&str(n)&”” End if TextI Text=a End sub 运行结果: 2. Private Sub Command1 click() Dim a As Integer, b As Integer A=10:b=20 tryout a, b print“a=”;a, End sub Sub tryout(x As Integer, ByVal y As Integer) X=x+100 print“x=”;x,"y=”;y End sub 运行结果
事件过程是指_______________________________________________。 4．在 VB 中，对没有赋值的变量 VB 会自动将数值型数据赋为 ， 变长字符串初始化为 ，定长字符串初始化为 。 5．Option Explicit 语句的作用是____________________________。 6．数组 a(10)的元素个数为 个，数组 a(3,1 to 3)的元素个数为 个。 7．VB 应用程序由_________、__________、___________等 3 个模块构成。 8．调用通用过程和函数时，参数的传递方式有__________和___________ 两种，其中默认的方式是_________。 9．Open “c:\test.txt”For Output As #1 Write #1,”This is a test” 这两条语句的作用是____________________________________________。 三、读程序并写出运行结果（10 分） 1. Private Sub Command1_Click( ) a=”” For n=1 To 200 If n Mod 37=0 Then a=a &Str(n)&” ” End If Next Text1.Text=a End Sub 运行结果： 2．Private Sub Command1_click( ) Dim a As Integer,b As Integer A=10:b=20 tryout a,b print “a=”;a,”b=”;b End Sub Sub tryout(x As Integer, ByVal y As Integer) x=x+100 y=y*6 print “x=”;x,”y=”;y End Sub 运行结果：
四、编程题(45分) 1.用 InputBox函数接收球的半径r,计算球的体积。(8分) 2.已知函数,要求输入x,计算并输出y值。(8分) 1>x≥0 ≥1 3.编程求解表达式1!+2!+3!+…+n!的和,n(n>1)由键盘输入, 最后输出结果。(10分) 4.编写一个计算三角形面积的 Function过程,然后调用该过程计算一个 不规则五边形的面积。(10分) 5.设计一个程序,窗体如图所示,要求在“输入数据”框中输入一个数字。 当单击“计算”命令按钮时,将输入的数据乘8后显示在另一个标签中 单击“退出”命令按钮时,结束程序运行。(9分) 输入数据 结果为 计算 出
四、编程题（45 分） １．用 InputBox 函数接收球的半径 r，计算球的体积。（8 分） ２．已知函数，要求输入 x，计算并输出 y 值。（8 分） 2x-1 x＜０ y = x 2 1>x≥０ x+1 x≥1 ３．编程求解表达式 1！+2！+3！+ … +n!的和，n（n>1）由键盘输入， 最后输出结果。（10 分） 4. 编写一个计算三角形面积的 Function 过程，然后调用该过程计算一个 不规则五边形的面积。（10 分） 5.设计一个程序，窗体如图所示，要求在“输入数据”框中输入一个数字。 当单击“计算”命令按钮时，将输入的数据乘 8 后显示在另一个标签中； 单击“退出”命令按钮时，结束程序运行。（9 分）
