《VB程序设计》课程练习题

第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。

VB程序设计习题集一、选择题1. 一个工程必须包含的文件的类型是:AA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas2. 以下不能在“工程资源管理器”窗口中列出的文件类型是：DA、．basB、．resC、．fnnD、．ocx3. 下列不能打开工具箱窗口的操作是: BA、招待“视图”菜单中的“工具箱”命令B、按Alt+F8键C、单击工具栏上的“工具箱”按钮D、按Alt+V，然后按Alt+X键4. 不能作为容器使用的对象是：DA、窗体B、框架C、图片框D、图像框5. 在Visual Basic中传递参数的方法有__ B ___方式。

A、一种B、两种C、三种D、四种6. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是:BA、属性、控件和方法B、属性、事件和方法C、窗体、控件和过程D、控件、过程和模块7. 创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④8. 要将名为MyForm的窗体显示出来，正确的使用方法是:AA、MyForm.ShowB、Show.MyFormC、MyForm LoadD、MyForm Show9. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 : BA. ValueB. DefaultC. CancelD. Enabled10. 如果在立即窗口中执行以下操作(<CR>是回车键)：Ca=8<CR>b=9<CR>print a>b<CR>则输出结果是：A)-1B) 0 C)False D)True11. 在设计应用程序时，通过___D___窗口可以查看到应用程序工程中的所有组成部分。

vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。

答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。

3．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B）
A．0 B．-1 C．TRUE D．FALSE
4．函数String(n，"str")的功能是（B）
A．把数值型数据转换为字符串B．返回n个由字符串首字符组成的字符串
C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串
14．滚动条控件的LargeChange属性所设置的是（A）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置C． 滚动条中滚动块的最大移动范围
D． 滚动条控件无该属性
15．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）
B． 在运行Windows帮助引擎时，控件能够显示帮助信息
C． 控件显示的对话框由控件的方法决定
D． 设计时在窗体上将该控件显示成一个图标，此图标的大小可以调整
二、写出下列程序的运行结果
１．如下程序运行后，分别输入100和200，然后单击命令按钮：
Private Sub Command1_Click()
5．运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性值时，将触发文本框的（D）事件
A．ClickB．DblclickC．GotfocusD．Change
6．下列表达式Int(-4.8) * 6 \ 3 ^ 2 + 11 Mod 3 * Fix(-4.8)的值为（C）
Private Sub Command1_Click( )
x=InputBox(“x=?”)
If x^2=9 Then y=x