1、VB 单元练习题一一、选择题1、 Visual Basic 集成开发环境中不包括下列哪些窗口？（ D）A. 工具箱窗口 B. 工程资源管理器窗口C. 属性窗口 D. 命令窗口2、 “一辆小客车在正常行进过程中被一辆大型货车撞坏了” ，在这句话中， “客车” ， “小” ， “行进”和“被一辆大型货车撞坏了”分别对象 Visual Basic 中的哪些术语？（ B ）A. 对象、属性、事件、方法 B. 对象、属性、方法、事件C. 属性、对象、事件、方法 D. 属性、对象、方法、事件3、对象的特征和状态特征称为？（ C ）A. 事件 B. 方法 C. 属性 D. 类4、下面哪一个属性用来标识对象的
2、名称？（D ）A. Caption B. Value C. Text D. Name5、下列哪个符号是合法的变量名? （ A ）A. VB123 B. Abs C. 99Ji D. xy6、数学式子 10sin25o 写成 Visual Basic 表达式是？（D）A. 10sin25 B. 10*sin(25) C. 10*sin(25o) D. 10*sin(25*3.14/180)7、Visual Basic 中不存在下列哪一种数据类型？（D ）A. 字符串类型 B. 日期类型 C. 逻辑类型 D. 指针类型8、表达式 Left(“Visual”,3)+Lcase(“AB”)的值是？（C
3、）A. visAB B. VisAB C. Visab D. ualab9、表达式 6+10 Mod 4*2+1 的值是？（A）A. 9 B. 11 C. 1 D. 310、把数值型转换为字符串型需要使用下列哪一种函数? （B）A. Val() B. Str() C. Asc() D. Chr()11、VB 中窗体文件的扩展名是_。 （B）(A)VBP (B)FRM(对) (C)VBW (D)PDM12、在设计应用程序时，通过_窗口可以查看到应用程序工程中的所有组成部分。 （D）(A)代码窗口(B)窗体设计窗口 (C)属性窗口 (D)工程资源管理器窗口(对)13、在 VisualBasic 中
4、，所有的窗体和控件都必定具有的一个属性是_。(A)Name(对) (B)Font (C)Caption (D)FillColor14、对变量名说法不正确的是_AC_。(A)必须是字母开头，不能是数字或其他字符(B)不能是 VB 的保留字(C)可以包含字母、数字、下划线和标点符号( 对)(D)不能超过 255 个字符15、以下变量名中，_是不符合 VisualBasic 的命名规范的。(A)Abc901 (B)_mnu_Open_234(对) (C)price_ (D)K16、在窗体上画一个命令按钮（名称为 Command1） ，然后编写如下事件过程：PrivateSubCommand1_Cli
5、ck()DimbAsIntegerb=b+1EndSub运行程序，三次单击命令按钮后，变量 b 的值是：_。(A)0 (B)1(对) (C)2 (D)317、下列程序段的执行结果为_。X=5:Y=-20If Not X0 ThenX=Y-3ElseY=X+3EndifPrint X-Y;Y-X(A)-3 3(对) (B)5 8 (C)3 3 (D)25 2518、当 x 为偶数时，则在窗体上显示“偶数” ，否则显示“奇数” ，不能实现该代码段功能的是(A)if x2=x/2 then print“偶数“ else print“奇数“(B)if x mod2=0 then print“偶数“el
6、se print“奇数“(C)if not x mod 2a)and(b0) (B)a=bandb12 (C)not(b0) (D)(ab)or(b0)(对)24、语句 Z=y+1 代表_ (A)将变量 Z 存入变量 y 中，再加上 1 的表达式(B)变量 Z 取得 y+1 的值(对)(C)变量 Z 取得变量 y 的值，然后再加上 1 的一个表达式(D)将变量 Z 存入变量 y+1 中25、执行下面的语句后，所产生的信息框的标题是_。A=MsgBox(“AAAAA“,3,“BBBBB“) (A)BBBBB(对) (B)AAAAA (C)空 (D)出错，不能产生信息框26、执行下列代码，分别输入
7、 12 和 89，输出结果是_。Private Sub Form_Click()a=InputBox(“D“)b=InputBox(“E“)Print a+bEnd Sub(A)101 (B)DE1289 (C)DE (D)1289(对)27、为了暂时关闭计时器，应把该计时器的某个属性设置为 False，这个属性是_。(A)Enabled(对) (B)Visible (C)Timer (D)Interval28、下列表达式，哪一个可以产生 1 到 6 之间的随机整数（包括 1 和 6）_。(A)Int(Rnd*7) (B)Int(Rnd(6)+1) (C)Int(Rnd*6) (D)Int(R
8、nd*6+1)(对)29、执行下列程序，从键盘输入 10，运行结果是_。PrivateSubCommand1_Click()S=InputBox(“请输入一个数字：“)Select Case SCase Is0Print “0“Case Is3Print “3“Case Is5Print “5“End SelectEnd Sub (A)0(对) (B)3 (C)5 (D)030 VB6.0 共有 3 个版本，它们分别是_B_ A 学习版、标准版和企业版 B 学习版、专业版和企业版C 学习版、标准版和网络版 D 标准版、专业版和中文版31 VB 的集成开发环境中有_c_工作状态A 一种 B 两种
9、 C 三种 D 四种32 VB6.0 的集成开发环境不包括_D_A 窗体窗口 B 工具箱 C 代码窗口 D 过程窗口33 VB6.0 集成开发环境有三种工作状态，不属于三种工作状态之一的是_B_A 设计状态 B 编写代码状态 C 运行状态 D 中断状态34 用 VB 设计的应用程序，文件的扩展名中不含_D_A .Frx B .Bas C .Vbp D .Form35 以下说法正确的是_B_A 属性窗口包括：标题栏、对象名称的单选按钮、选项卡、属性列表、属性含义说明B 属性窗口包括：标题栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明C属性窗口包括：菜单栏、对象名称的单选按钮、选项卡、属性
10、列表、属性含义说明D属性窗口包括：菜单栏、对象名称的下拉列表、选项卡、属性列表、属性含义说明36VB 中，强制变量声明的语句是_A_。AOption Explicit BOption Base CREM DPUBLIC37 VB6.0 集成开发环境有三种工作状态，工作状态显示在_D_。A 状态栏的最左方 B 状态栏的最右方 C 状态栏的中括号内 D 标题栏的中括号内38 在界面设计时，双击窗体中的对象后，VB 将显示的窗口是_B_。A 立即窗口 B 代码窗口 C 属性窗口 D 项目（工程）窗口39 下述选项中，属于 VB 的程序设计方法是_B_。A 面向对象、顺序驱动 B 面向对象、事件驱动C
11、 面向过程、事件驱动 D 面向过程、顺序驱动40VB 集成开发环境中，功能键 F5 的功能是_D_。A 进入帮助窗口 B 进入编辑状态C 进行上下窗口的切换 D 运行程序41VB 设计的应用程序，扩展名为.Vbp 的文件是_C_。A 窗体文件 B 类文件 C 工程文件 D 标准模块文件42VB 设计的应用程序，扩展名为.Frm 的文件是_A_。A 窗体文件 B类文件 C 工程文件 D 标准模块文件43用 VB 可视化程序设计语言设计应用程序的主要工作是完成_B_。A 设计流程和编写代码 B 设计界面和编写代码C 设计算法和编写代码 D 设计程序和编写代码44在 VB 6.0 中，12345Ne
12、xt JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A) A.BBCCCDDDDEEEEEB.ABBCCCDDDDC.BCCDDDEEEED.AABBBCCCCDDDDD46.在窗体上画两个名称分别为 Label1 和 Label2 的标签，然后编写如下事件过程Private Sub Form_Click()x= -5:s= -5Select Case sCase Is 0y=x+1Case Is = 0y=x+2Case Elsey=x+3End SelectLabel 1.Caption = xLabel2.Caption = yEnd Sub
13、程序运行后，单击窗体，标签 Label1 和 Label2 中显示的内容分别是 (A) A.-5 和 -2B.-5 和 -4C.-5 和 -3D.-5 和 533. 下列 VB 程序语句正确的是(D). A. If A B Then T=A: A=B: B=T B. If A B Then T=A; A=B; B=T C. If A=B Then T=A A=B B=T D. If A=B Then T=A: A=B: B=T47. 下列程序段执行后输出的结果是(C) n=10For k=n To 1x = k2Next kPrint x A.-2 B.-1 C.1 D.0 48 下列程序段执
14、行后输出的结果是(A) i=0For k=10 To 19 Step 3i=i+1Next kPrint iA. 4 B. 5 C. 3 D. 6 49 下列程序段执行后输出的结果是(B) x=int (Rnd+4)Slect Case xCase 5Print “优秀“KCase 4Print “良好“Case 3 Print “及格“Case ElsePrint “不及格“End Select A. 优秀 B. 良好 C. 及格 D. 不及格50. 在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private Sub Comm
15、and1_Click()Dim a = Array(1, 2, 3, 4)j=1For i = 4 To 1 Step -1s = s + a(i)*jj =j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是 (D)A.4321B.12C.34D.123451.定窗体标题条显示内容的属性是(C)A.TextB.NameC.CaptionD.BackStyle52要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ A ）APasswordchar 属性值为* B. Caption 属性值为*CPasswordChar 属性
16、值为真 D. Text 属性值为*53 决定窗体有无控制菜单的属性是(A)A.ControlBoxB.MinButtonC.EnabledD.MaxButton54 使文本框获得焦点的方法是(C)A.ChangeB.GotFocusC.SetFocusD.LostFocus55 下列可以把当前目录下的图形文件 pic1.jpg 装入图片框 Picture1 中的语句为 （C）A.Picture = “pic1.jpg“B.Picture.Handle = “pic1 .jpg“C.Picture 1.Picture = LoadPicture(“pic 1.jpg“)D.Picture = L
17、oadPicture(“pic 1.jpg“)56 决定标签内显示内容的属性是(D)A.TextB.NameC.AlignmentD.Caption57 假定在图片框 Picture1 中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)A.选择图片框，然后按 Del 键B.执行语句 Picture1.picture=LoadPicture(“)C.执行语句 Picture1.picture=“D.选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键58.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（A ）
18、 。A 当图片框（PictureBox）的 AutoSize 自属性为 False 时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸B 当图像框（Image）的 Stretch 属性为 True 时，图像框会自动改变大小以适应图形的大小，使图形充满图像框C 两类控件都可以设置 AutoSize 属性，以保证装入的图形可以自动改变大小D 两类控件都可以设置 Stretch 属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分59 删除列表框中指定的项目所使用的方法为(D)A.MoveB.RemoveC.ClearD.RemoveItem60.若要向列表
19、框添加列表项，可使用的方法是（ A ） 。A、AddItem B、Remove C、Clear D、Add 61 当拖动滚动条中的滚动块时，将触发的滚动条的事件是(BC)A.MoveB.ChangeC.ScollD.SetFocus62滚动条控件的 LargeChange 属性所设置的是（B ）A滚动条中滚动块的最大移动范围B单击滚动条和滚动箭头之间的区域时，滚动条控件 value 属性值的改变量C滚动条中滚动块的最大移动位置 D 滚动条控件无该属性63 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是(C)A.ListB.ListIndexC.TextD.ListCount64
20、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D ）ACaption BName CText DValue65.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程：Private Sub Command1_Click()a = Text1.Text + Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text 1.Text = “Text2.Text = “End
21、Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123 和 321，然后单击命令按钮，则输出结果为(C)A.444B.321123C.123321D.13223165 运行下面程序后输出的结果是（B）Private Sub Form_Click()K = 4If K y ThenPrint “xy“ElseIf x = y ThenPrint “x=y“ElsePrint “xy B x=y Cx 0 Thens = s + ii = i + 1Elsei = i + 1End IfLoopPrint sEnd Sub 运行后输出的结果是_D_A 4050
22、 B 5050C 4000 D 450077有如下程序：Private Sub form_click()A$ = “54321“b$ = “abcde“For j = 1 To 5Print Mid$(b$, j, 1) + Mid$(A$, 6 - j, 1);Next jPrintEnd Sub 运行后输出的结果是_A_A a1b2c3d4e5 B a5b4c3d2e1C 5a4b3c2d1e D e1d2c3b4a5二、填空题1.在 VB6 集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是(中断模式).2.控件和窗体的 Name 属性只能通过 (属性窗口) 设置,不能在
23、( 运行) 期间设置.3.VB 的数值型数据有(整数类型),(实数类型),(字节类型).4.当程序运行后用鼠标双击对象时触发的事件是_DbClick()_5.当程序运行后用鼠标单击对象时触发的事件是_Click()_.6 当程序运行后 Tab 键使一个对象获得焦点时触发的事件是_Gotfocus()7.在 Visual Basic 中,字符串常量要用( 双引号) 括起来,日期/时间型常量要用( #) 括起来.8.为了使标签能自动调整大小以显示全部文本内容,应把标签的 ( AutoSize ) 属性设置为 True.9.要想在文本框中显示垂直滚动条,必须把 ( ScrollBars) 属性设置为
24、 2,同时还应把 ( MultiLine) 属性设置为 True.10.假定有一个文本框,其名称为 Text1,为了使该文本框具有焦点,应执行的语句是 ( Text1.SetFocus) .11.VB 中若要产生一消息框,可用_MsgBox_函数来实现.12.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图像框的(Stretch)属性设置为 True.13.窗体,图片框或图像框中的图形通过对象的( Picture) 属性设置14.VB 的“计时器“控件用于_计时_,时间间隔以_毫秒_为单位.15.计时器事件之间的间隔通过 ( Interval) 属性设置.16.VB 的“滚
25、动条“控件分为两种(水平滚动条)和(垂直滚动条).它们都有最小值和最大值.其取值范围是(小于等于 max 且大于等于 min).17.组合框有 3 种不同的类型,这 3 种类型是下拉式组合框 ,简单组合框 ,下拉式列表框 ,分别通过把 Style 属性设置为 0 ,1 ,2 来实现.18.在 3 种不同类型的组合框中,只能选择而不能输入数据的组合框是下拉式列表框 19.由 Array 函数建立的数组赋值时，数组必须是（动态可变类型） ，简单变量必须是 Variant 类型.20.在 VB 中若要让某对对象获取焦点,则可通过_SetFocus_方法来实现.21.在模块文件中的声明部分用_Dim_
26、或_Private_定义的变量为模块级变量.22.For 循环中,当步长大于零时,初始值_小于等于_终止值,当步长小于零时,初始值_大于等于_终止值,不指明步长时,默认步长是_1_23.VB 中通用过程的参数传送有_值传递_和_地址传递_.24.在过程定义中出现的变量名叫做 (形式参数),而在调用过程时传送给过程的 常数 ,变量 ,表达式 或 数组 叫做 (实际参数)25. 下图为运行后的 VB 程序（1）当按下显示按钮时，在文本框中显示“欢迎使用 Visual Basic 6.0”， 按下清屏按钮时清除文本框中显示的内容，按下退出按钮时退出程序。请补全相对应的单击事件代码。Private S
27、ub Command1_Click( ) 按下显示按钮_ （1）End SubPrivate Sub Command2_Click( ) 按下清屏按钮 _ （2）End Sub Private Sub Command3_Click( ) 按下退出按钮_ （3） End Sub（2）当选择字体外观和字体名称时，触发下面的事件，请补全代码。Private Sub Check1_Click( ) 字体外观的多项选择If Check1.Value = 1 ThenText1.FontBold = _ （4）“粗体”被选中ElseText1.FontBold = FalseEnd IfEnd SubPr
28、ivate Sub Check2_Click( ) If Check2.Value = _ Then （5）“斜体”被选中Text1.FontItalic = True_ （6）Text1. _ = False （7） End IfEnd SubPrivate Sub Check3_Click( )If Check3.Value = 1 ThenText1._ = True （8）“下划线”被选中ElseText1.FontUnderline = FalseEnd If End SubPrivate Sub Option1_Click( ) 字体名称选宋体Text1.FontName = “宋体“End SubPrivate Sub Option2_Click( )Text1.FontName = “_“ （9）字体名称选隶书End SubPrivate Sub Option3_Click( )_ = “黑体” （10）字体名称选黑体End Sub（1） text1.text=”欢迎使用 Visual Basic 6.0”（2） text1.text=”（3） end（4） true（5） 1（6） Else（7） FontItalic（8） FontUnderline（9） 隶书（10） Text1.FontName
