vb习题集给学生.docx

1、vb习题集给学生VB习题集（2017版）第一章 习题一、选择题1. 以下不能在工程资源管理器窗口中列出的文件类型是（ ）。 （A）.bas （B）.res （C）.frm （D）.ocx2. 以下不属于Visual Basic系统的文件类型是（ ）。 （A）.frm （B）.bat C）.vbg D）.vbp3. 以下叙述中错误的是（ ）。 （A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件（B）保存Visual Basic程序时，应分别保存窗体文件及工程文件（C）Visual Basic应用程序只能以解释方式执行（D）事件可以由用户引发，也可以由系统引发 4. 以下叙述

2、中错误的是（ ）。 （A）Visual Basic 是事件驱动型可视化编程工具（B）Visual Basic应用程序不具有明显的开始和结束语句（C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性（D）Visual Basic中控件的某些属性只能在运行时设置5.下列不能打开属性窗口的操作是（ ）。 （A） 执行“视图”菜单中的“属性窗口”命令（B) 按F4键（C） 按Ctrl+T（D） 单击工具栏上的“属性窗口”按钮6. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是（ ）。 （A）只保

3、存窗体模块文件（B）分别保存窗体模块、标准模块和工程文件（C）只保存窗体模块和标准模块文件（D）只保存工程文件7. 以下叙述中错误的是（ ）。 （A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 （B）以.BAS为扩展名的文件是标准模块文件（C）窗体文件包含该窗体及其控件的属性（D）一个工程中可以含有多个标准模块文件8. 下列可以打开立即窗口的操作是（ ）。 （A）Ctrl+D （B） Ctrl+E （C） Ctrl+F （D） Ctrl+G9. 在VB开发集成环境中，如果工具箱不可见，应在（ ）主菜单中操作而使它可见。 （A）视图 （B）窗口 （C）文件 （D）编辑10.

4、 在VB的工程中，窗体文件的扩展名是（ ）。（A）.frm （ B）.vbg C） .vbp D） .bas11. 下列可以打开菜单属性窗口的操作是（ ）。（A） Ctrl+D （B） Ctrl+E （C） Ctrl+F （D） Ctrl+G12. VB是一种面向对象的程序设计语言，构成对象的三要素是（ ）。（A）属性、事件、方法 （B）控件、属性、事件（C）窗体、控件、过程 （D）窗体、控件、模块13 有程序代码：Command1.Enabled = True，其中Command1、Enabled、True分别代表（ ）。 （A）对象、属性、值 （B）对象、方法、属性 （C）对象、值、属性

5、（D）属性、对象、值 14 如果要改变窗体的标题，则需要设置的属性是 （ ）。 （A）Caption （B）Name （C）BackColor （D）BorderStyle15为了清除窗体上的一个控件，下列正确的操作是（ ）。 （A）按回车键 （B）按Esc键 （C）选择（单击）要清除的控件，然后按Del键（D）选择（单击）要清除的控件，然后按回车键16以下叙述中错误的是 （ ）。 （A） 一个工程可以包括多种类型的文件（B）Visual Basic应用程序既能以编译方式执行，也能以解释方式执行（C）程序运行后，在内存中只能驻留一个窗体（D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不

6、一样17程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（ ）。 （A）MouseDown （B）MouseUp （C）Load （D）Click18以下没有Caption属性的控件是（ ）。 （A）CheckBox （B）Label （C）CommandButton （D）TextBox19以下关于窗体的描述中，错误的是（ ）。 （A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中（B）窗体的Load 事件在加载窗体时发生（C）当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止（D）窗体的Height、Width属性用于设置窗体的高和

7、宽20为了在运行时能显示窗体左上角的控制框（系统菜单），必须（ ）。 （A）把窗体的Contro1Box 属性设置为False,其他属性任意（B） 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5（C） 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性设置为非0值（D） 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值21TextBox的下列属性能够让用户接受多行文本的是（ ）。 （A）Name （B）MultiLine （C）Text （D）Autosize22设置Tex

8、tBox控件文字颜色的属性是（ ）。（A）Font （B）BackColor （C）ForeColor （D）ToolTipText23使一个控件不可用，应设置其（ ）属性。（A） Visible （B） Enabled （C） Font （D）BackColour24一般不用来触发事件的对象是（ ）。 （A）标签 （B）窗体 （C）命令按钮 （D）文本框25以下叙述中错误的是（ ）。 （A）双击鼠标可以触发DblClick事件 （B）窗体或控件的事件的名称可以由编程人员确定（C）移动鼠标时，会触发MouseMove事件 （D）控件的名称可以由编程人员设定26在窗体上有若干控件，其中有一名称为

9、Text1的文本框，影响Text1的Tab顺序的属性是 （ ）。 （A）TabStop （ B）Enabled（C） Visible （D）TabIndex 27Visual Basic 6.0 集成开发环境有3种工作状态，工作状态显示在（ ）。 （A）在状态栏的中括号内 （B）窗体窗口的标题栏中（C）标题栏的中括号内 （D）工程窗口的标题栏中28在Visual Basic工程中，可以作为“启动对象”的程序是（ ）。A）任何窗体或标准模块 B）任何窗体或过程C）Sub Main过程或其他任何模块 D） Sub Main过程或任何窗体29设窗体上有一个文本框，名称为text1,程序运行后，要求该

10、文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是（ ）。A）text1.maxlength=0 B）text1.enabled=flase C）text1.visible=flase D）text1.width=030以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是（ ）。A）Form1.Name=VisualBasic窗体 B） Form1.Title=VisualBasic窗体C）Form1.Caption=VisualBasic窗体 D） Form1.Text=VisualBasic窗体”二、填空题1 .当运行程序时，系统首先执行窗体的 事件过程。 2.

11、 改变控件在窗体中的水平方向上的位置应修改该控件的 属性。3. 不任什么对象，都具有 属性。 4. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 。 5. 改变文本框内的内容能触发文本框的 事件的操作。 6. 窗体的Load事件在 时发生。7. 要使Print方法在Form_load事件中起作用，要设置窗体的 属性。 8. 在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click( )事件，则命令按钮名称属性和Caption属性的值分别为 。 9为了把焦点移到某个指定的控件，所使用的方法是 。 10使一个控件不可见，应设置 属性 。 11无论什么控件，都具有一个共有的属

12、性，这个属性是 。12要使得文本框输入的文本为密码，就要设置 属性。13设置TextBox控件背景颜色的属性是 。 14Visual Basic应用程序中标准模块文件的扩展名是 。 15、一个窗体的名称为frmEg，则该窗体的单击事件过程名为 。 16、在VB应用程序中， 控件常被用来在单击时执行指定的操作。 17. Visual Basic应用程序通常由3类模块组成，即标准模块、类模块和 。 18. 设置文本框或者标签控件显示内容文字的字体名称时使用 属性。 19. 设置文本框或者标签控件显示内容文字的大小时，使用 属性。20. VB中一个应用程序称为一个 ，它包含各种文件。第二章 习题一

13、选择题1 定义货币类型数据应该用关键字 （ ） 。 （A）SINGLE （B）DOUBLE （C）CURRENCY （D）BOOLEAN 2. 下列的几对数据类型中，（ ）所占的内存大小相同。 （A）Long，Single （B）Byte，Single （C）Integer，Double （D）Date，Long3. 下列（ ）数据类型的变量不能存放负值。（A）Integer （B）Long （C）Double （D）Byte4. 货币型数据需（ ）字节 。 （A）2 （B）4 （C）6 （D）85. 声明符号常量应该用关键字（ ） （A）Static （B）Const （C）Private

14、（D）Variant6.“计算机”作为字符串常量，在VB中可以表示为（ ）。 （A）计算机 （B）（计算机）（C）计算机 （D）计算机7. VB认为下面（ ）组变量是同一个变量 。 （A）A1和a1 （B）SUM和SUMMARY （C）AVER和AVERAGE （D）A1和A_18. 下列字符串常量中，最大的是 （ ） 。 （A）“北京” （B）“上海” （C）“天津” （D）“广州”9. 系统符号常量可以通过（ ）获得 。 （A）对象浏览器 （B）代码窗口 （C）属性窗口 （D）工具箱10. 在VB中，36&是（ ）类型的常数。 （A）整型数 （B）长整型数 （C）字符常数 （D）双精度数1

15、1. 假定bln1是逻辑型变量，下面赋值语句中正确的是（ ）。 （A）bln1=True （B）bln1=.True. （C）bln1=#True# （D）bln1=3 b c后，窗体上显示的是（ ）。 （A）True （B）False （C）1 （D）出错信息16下列为日期型常量的是（ ） 。 （A）”2/1/02” （B）2/1/02 （C）#2/1/02# （D）|2/1/02|17以下对变量的类型说明符的使用不正确的是（ ）。 （A）a=2000 （B）a%=50000 （C）a&=True （D）a$=”OK”18以下声明语句中错误的是（ ）。 （A）Const var1=123 （

16、B）Dim var2 = ABC（C）DefInt a-z （D）Static var3 As Integer19以下合法的Visual Basic标识符是（ ）。 （A）ForLoop （B）Const （C）9abc （D）a#x20下列对变量的定义中，不能定义A为变体变量的是（ ）。 （A）DIM A AS DOUBLE （B）DIM A AS VARIANT （C）DIM A （D）A=2421设有变量声明Dim TestDate as Date，为变量TestDate正确赋值的表达式是（ ）。 （A）TestDate=#1/1/2002# （B）TestDate=# “1/1/200

17、2 ”# （C）TestDate=date(“1/1/2002”) （D）TestDate=format(“m/d/yy”, “1/1/2002”)22Rnd函数不可能产生的（ ）值。（A）0 （B）1 （C）0.1234 （D）0.0000523表达式（73+1）*(185-1)的值是（ ）。（A）8.76 （B）7.8 （C）6 （D）6.6724以下关系表达式中，其值为False的是（ ）。 （A）ABCAbC （B）thethey （C）VISUAL=UCase(Visual) （D）IntegerInt25下列符合常量的声明中，（ ）是不合法的。（A）const Max As Int

18、eger=100 （ B）Const Pi As Double3.1415926（C）Const x As SingleLog(2) （D）Const x=”123”26表达式4+5 6 * 7 / 8 Mod 9 的值是（ ）。（A）4 （ B）5 （C）6 （D）727在下面的表达式中，x取任何值都成立的表达式是（ ）。 （A）Int(x)=Abs(x) （ B） Int(x)Abs(x) （C）Int(x)=Abs(x) （ D） Int(x)Abs(x)28下列可作为Visual Basic变量名的是（ ）。A）A#A B）4A C）?xy D）constA29如果在立即窗口中执行以下

19、操作：a=8 (是回车键，下同)b=9 print ab 则输出结果是（ ） 。 A）-1 B）0 C）False D）True30设a=3，b=5，则以下表达式的值为真的是（ ）。A）a=b and b10 B）(ab) or (b0) C）(a0) D）(-3+5a) and (b0)二 填空题1. 表达式 3X10的VB表达式为 。 2. 设a=3，b=5，则表达式（ab）or （b0）的值为 。 3. 表示条件“A为能被3或7整除的数”的逻辑表达式为 。 4. 变量未赋值时，数值型变量的值为 。 5. INT（100*RND（1）产生的随机整数的闭区间是 。 6. 函数Len(trim

20、(Str(Val(“123.4”)的值是 。 7. 表达式：X MOD y/2(x=3，y=6) 的值是 。 8. 代数式abc 改写成Visual Basic 表达式为 。9. 若要强制变量必须先定义再使用，应该使用的说明语句是 。 10. 表示条件“M是小于100的非负数”的表达式为 。 11. 表达式2+3*43-SIN（X+1）/2中最先进行的运算是 这一步。 12. 产生10，36之间的随机整数的Visual Basic表达式是 。 13.设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为 。14.表示条件“x的绝对值大于等于y同时不等于z”的逻辑表达式为 。 15.语句P

21、rint Format (32458.5 , “000,000.00”)的输出结果为 。 16.int（-3.5）、fix（-3.5）的值分别是 。17.表达式4+5 6 * 7 / 8 Mod 9 的值是 。 18.如果在立即窗口中执行以下操作：a=8 (是回车键，下同)b=9 print ab 则输出结果是 。 19.设x=4,y=8,z=7，以下表达式xz) Or zx 的值是 。 20.运算符“&”是 运算。 21.表达式（-1）*Sgn（-100+Int(Rnd*100)）的值是 。 22.语句PRINT “INT（-13.2）=”；INT（-13.2）的输出结果是 。 23.设a

22、= a，b = b，c = c，d = d，执行语句x=IIf(a 2 * b Or a = c And b c Or c d 的值是 。 27.执行语句s=Len(Mid(VisualBasic,1,6)后，s的值是 。 28.可以同时删除字符串前导和尾部空白的函数是 。 29.Cint(8.5)、Fix(-3.5)的值分别是 。 30.执行如下两条语句，窗体上显示的是 。 a=9.8596Print Format(a,$00,00.00)31.变量未赋值时，数值型变量与字符型变量的的值分别是 。 32.强制显示声明变量，应放在模块的 段中加入语句OPTION EXPLICIT 。 33.表

23、达式INT（8*SQR（36）*10（-2）*10+0.5）/10的值是 。 34.设A=”abcdefghijklm ”， 的函数值为”jklm”。 35.函数Ucase(Mid(“visual basic”,8,8)的值为 。 36.表达式888 的值是 。 37.语句 Print Int(12345.6789 * 100 + 0.5) / 100 输出的结果是 。 38. 字符型数据的比较是将两个字符串中的字符逐对进行比较，比较的是字符 码值 。 39. 函数MSGBOX的返回值是一个 数。40. 表达式True Or Not(7-3 0 And a 10 And a 20 And a

24、= 31, 颐和园, ) Text1.Text = tEnd Sub程序运行后，如果从键盘上输入16，则在文本框显示的内容是 ，如果输入9，则在文本框中显示的内容是 。 3. 在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click() a = software and hardware b = Right(a, 8) c = Mid(a, 1, 8) MsgBox a, , b, c, 1End Sub则在弹出的信息框的标题栏中显示的信息是 ，信息框中提示的信息 是 。 4.在窗体上画一个名称为Command1的命

25、令按钮，单击命令按钮，编写如下事件过程: Private Sub c = 1234 c1 = Trim(Str(c) For I = 1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容,请完善这个程序的编写。 1 12 123 12345下列程序段的功能是判别一个数m是否是素数，请完善程序代码。Private Sub command1_click() Dim I As Integer, m As Integer m = InputBox() For I = 2 To m - 1 If m Mod I = 0 Then Next I If Then

26、 Print m; 是素数。 Else Print m; 不是素数。 End IfEnd Sub6以下程序判断从文本框Text1中输入的数据，如果该数据是奇数，则输出；如果该数据是偶数，则弹出对话框”请输入奇数”，并将焦点定位在文本框Text1中，请完善这个程序。 Private Sub Command1_Click() x = Val(Text1.Text) If Then Print x ElseIf Then MsgBox 请输入奇数！ Text1 = Text1.SetFocus End IfEnd Sub7.在窗体上画两个文本框，然后编写如下程序：Private Sub Form_L

27、oad() Show Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change( ) Text2.Text = Mid(Text1.Text, 8) Print Left(Trim(Text1.Text), 7)End Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是 ，在窗体上显示的信息是 8.下列程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是 Basic ，信息框中提示信息是Microsoft，请完善这个程序。Private Sub Form_Click() K$ = Microsoft Visual Basic A$= b$ = c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5End Sub9. 下面是一个歌手大赛评分程序。10位评委，除去一个最高分和一个最低分，计算平均分（设满分为10分）。请在横线处填入适当的内容，将程序补充完整。