vb习题集给学生

1、第一章 习题一、选择题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. 以下叙述中错误的是（ ）。 （A）Visual Bas

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

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

4、单属性窗口的操作是（ ）。（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）对象、值、属性 （D）属性、对象、值 14 如果要改变窗体的标题，则需要设置的属性是 （ ）。（A）Caption （B）Name （C）Back

5、Color （D）BorderStyle15为了清除窗体上的一个控件，下列正确的操作是（ ）。 （A）按回车键 （B）按Esc键 （C）选择（单击）要清除的控件，然后按Del键（D）选择（单击）要清除的控件，然后按回车键16以下叙述中错误的是 （ ）。 （A） 一个工程可以包括多种类型的文件（B）Visual Basic应用程序既能以编译方式执行，也能以解释方式执行（C）程序运行后，在内存中只能驻留一个窗体（D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样17程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（ ）。 （A）MouseDown （B）MouseUp （C）Lo

6、ad （D）Click18以下没有Caption属性的控件是（ ）。 （A）CheckBox （B）Label （C）CommandButton （D）TextBox19以下关于窗体的描述中，错误的是（ ）。 （A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中（B）窗体的Load 事件在加载窗体时发生（C）当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止（D）窗体的Height、Width属性用于设置窗体的高和宽20为了在运行时能显示窗体左上角的控制框（系统菜单），必须（ ）。 （A）把窗体的Contro1Box 属性设置为False,其他

7、属性任意（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设置TextBox控件文字颜色的属性是（ ）。（A）Font （B）BackColor （C）ForeColor （D）ToolTipText

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

9、 （D）TabIndex 27Visual Basic 6.0 集成开发环境有3种工作状态，工作状态显示在（ ）。 （A）在状态栏的中括号内 （B）窗体窗口的标题栏中（C）标题栏的中括号内 （D）工程窗口的标题栏中28在Visual Basic工程中，可以作为“启动对象”的程序是（ ）。A）任何窗体或标准模块 B）任何窗体或过程C）Sub Main过程或其他任何模块 D） Sub Main过程或任何窗体29设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是（ ）。A）text1.maxlength=0 B）text1.enabl

10、ed=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. 改变控件在窗体中的水平方向上的位置应修改该控件的属性。3. 不任什么对象，都具有 属性。 4. 在设计阶段，当双击窗体上的某个控件时

11、，所打开的窗口是。 5. 改变文本框内的内容能触发文本框的事件的操作。 6. 窗体的Load事件在时发生。7. 要使Print方法在Form_load事件中起作用，要设置窗体的属性。 8. 在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按钮名称属性和Caption属性的值分别为 。 9为了把焦点移到某个指定的控件，所使用的方法是。 10使一个控件不可见，应设置属性 。 11无论什么控件，都具有一个共有的属性，这个属性是。12要使得文本框输入的文本为密码，就要设置属性。13设置TextBox控件背景颜色的属性是 。 14Visual Basic应用程序中

12、标准模块文件的扩展名是 。 15、一个窗体的名称为frmEg，则该窗体的单击事件过程名为。 16、在VB应用程序中，控件常被用来在单击时执行指定的操作。 17. Visual Basic应用程序通常由3类模块组成，即标准模块、类模块和。 18. 设置文本框或者标签控件显示内容文字的字体名称时使用属性。 19. 设置文本框或者标签控件显示内容文字的大小时，使用属性。20. VB中一个应用程序称为一个，它包含各种文件。第二章 习题一 选择题1 定义货币类型数据应该用关键字 （ ） 。（A）SINGLE （B）DOUBLE （C）CURRENCY （D）BOOLEAN 2. 下列的几对数据类型中，（

13、 ）所占的内存大小相同。 （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 （D）Variant6.“计算机”作为字符串常量，在VB中可以表示为（ ）。 （A）计算机 （B）（计算机）（C）计算机 （D）计算机7. VB认为下面（ ）组变量是同一个变

14、量 。（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）双精度数11. 假定bln1是逻辑型变量，下面赋值语句中正确的是（ ）。 （A）bln1=True （B）bln1=.True. （C）bln1=#True# （D）bln1=3 b c后，

15、窗体上显示的是（ ）。 （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 （B）Dim var2 = ABC（C）DefInt a-z （D）Static var3 As Integer19以下合法的Visual Basic标识符是（ ）。 （A）ForL

16、oop （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/2002 ”# （C）TestDate=date(“1/1/2002”) （D）TestDate=format(“m/d/yy”, “1/1/2002”)22Rnd函数不可能产生的（ ）

17、值。23表达式（73+1）*(185-1)的值是（ ）。24以下关系表达式中，其值为False的是（ ）。（A）ABCAbC （B）thethey（C）VISUAL=UCase(Visual) （D）IntegerInt25下列符合常量的声明中，（ ）是不合法的。（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)

18、=Abs(x) （ D） Int(x)Abs(x)28下列可作为Visual Basic变量名的是（ ）。A）A#A B）4A C）?xy D）constA29如果在立即窗口中执行以下操作：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. 表

19、示条件“A为能被3或7整除的数”的逻辑表达式为 。 4. 变量未赋值时，数值型变量的值为 。 5. INT（100*RND（1）产生的随机整数的闭区间是 。 6. 函数Len(trim(Str(Val(“”)的值是 。 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 B

20、asic表达式是 。 13.设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为 。“x的绝对值大于等于y同时不等于z”的逻辑表达式为 。 15.语句Print Format (32458.5 , “”)的输出结果为 。 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 的值是 。 “&”是 运算。 21.表达式（-1）*Sgn（-100+Int(R

21、nd*100)）的值是 。 22.语句PRINT “INT（-13.2）=”；INT（-13.2）的输出结果是 。 23.设a = 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.执行如下两条语句，窗体上显示的是 。 Print Format(a,$00,00.00)31.变量未赋值时，数值型变量与字符型变量

22、的的值分别是 。 32.强制显示声明变量，应放在模块的 段中加入语句OPTION EXPLICIT 。 33.表达式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的返回

23、值是一个 数。40. 表达式True Or Not(7-3 0 And a 10 And a 20 And a 5，-1,0) 后，x的值为（ ）。 （A）5 （B）6 （C）)0 （D）-1 7. 下列语句正确的是（ ）。 （A） if AB Then T=A A=B B=T （B）if AB Then T=A；A=B；B=T（C） if AB Then T=A， A=B， B=T （D）if AB Then T=A： A=B ：B=T 8. 在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程Private Sub Form_Click() x = -5: s =

24、 -5 Select Case s Case Is 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Label1.Caption = x Label2.Caption = yEnd Sub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 （ ）。 （A）-5 和 -2 （B）-5 和 -4 （C）-5 和 -3 （D）-5 和 59. 若要使如下程序中循环体语句执行3次，则应在loop until 后添入（ ）。 X=1DoPrint xX=x+3Loop until （A）x=7 （B）x

25、=10 （D）x710. 下列程序段中能够正确实现“如果XY，则A=15,否则A=-15，并输出A的值”的是（ ）。 （A） （B）if XY Then A=15 A=15A=-15 if XY Then A=-15Print A Print A（C） （D）if XY Then if XY ThenA=15A=15Else ElseA=-15 A=-15PrintA End IfEnd If PrintA 11. 下面语句正确的是（ ）。 （A）If xy Then T=A A=B B=T （B）If xy Then T=A; A=B ;B=T（C）If x=y Then T=A A=B B

26、=T （D）If x=y Then T=A: A=B :B=T12. 以下程序段执行后，变量c的值为（ ）。 A=2B=19Select Case baCase Is60 Then i=1If a70 Then i=2If a80 Then i=3If a90 Then i=4Print “i=”;i（A)i=1 （ B）i=2 （C）i=3 （D）i=414多分支选择结构中，Select Case 语句的“测试表达式”( )。 （A）只能是数值表达式 （B）只能是字符串表达式（C）可以是关系表达式或逻辑表达式 （D）可以是数值表达式或字符串表达式15 要使循环体至少执行一次，应使用( )循环

27、。 （A）ForNext （B）WhileWend （C）do Whileloop （D）DoLoopWhile|Until16下列程序段中，循环体语句将共执行（ ）次。 t = 0c = 1Do t = t + c c = c + 1 If t = 10 Then Exit Do End IfLoop While c = 7Print i=; I, a=; a（A）i=4 a=5 （B）i=7 a=13 （C）i=8 a=7 （D）i=7 a=1120下列程序段中，循环体语句将共执行（ ）次。 For i = 1 To 2 For j = 1 To i For k = 1 To j Prin

28、t a;Next k, j, i（A）4 （B）6 （C ） 7 （D）821以下程序段执行后，变量n的值是（ ）。 For i = 1 To 5 n = 0 For j = i To 5 n = n + 1 Next jNext i（A）15 （B）10 （C）5 （D）122 .多分支选择结构执行哪一个分支的根据是（ ）。（A）Select Case语句的“测试表达式”与Case语句的“变量值列表”同为false（B）Select Case语句的“测试表达式”与Case语句的“变量值列表”同为假（C）Select Case语句的“测试表达式”与Case语句的“变量值列表”相匹配（D）Sel

29、ect Case语句的“测试表达式”与Case语句的“变量值列表”完全相等23设有如下程序段：x = 2For i = 1 To 10 Step 2 x = x + iNext运行以上程序后，x 的值是（ ）。（A）26 （ B）27 （C）38 （ D）5724下面程序的循环次数是（ ）。Private Sub Command1_Click() For i = 8 To 35 Step 3 Print i; NextEnd Sub（A）10 （B）9 （ C）27 （ D）2825下列程序的执行结果是（ ）。Private Sub form_click() x = 3: y = 2: z =

30、 -1 Print x y = zEnd Sub（A）Ture （B） False （C）1 （D）-126以下程序段的输出结果为（ ）。 x = 1y = 4Do Until y 4 x = x * y y = y + 1LoopPrint x（A）1 （B）4 （C）8 （D）2027退出DoLoop循环可使用的语句为（ ）。 （A）Exit For （B）End For（C）Exit Do（D）End Do28设a=9，则执行x=IIf(a5,-1,0)后,x的值为（ ）。（A）5 （B）6 （C）0 （D）-129下列程序段的执行结果为（ ）。x = Int(Rnd() + 4)Sel

31、ect Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 Case 2 Print 不通过End Select（A）优秀 （B）良好 （C）通过 （D）不通过30下面语句运行后的输出结果是（ ）。Private Sub Command1_Click() x = 0 While x 10 x = x + 1: x = x * x Wend Print xEnd Sub（A）16 （B）19 （ C）20 （D）25二 程序填空题1. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a = InputBox(请输入一个整数) b = InputBox(请输入一个整数) Print Val(a + b); Print Val(a) + Val(b)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 、 。 2. 下列程序执行的结果分别是 、 Private Sub