最新VB语言程序设计试题库资料

1、精品文档VB程序设计一、判断题1. 同一 Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。(X )2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程()3. 单选按钮与复选框对象的 Value属性类型不同，且只能取值 True和False。( V )4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。 ()5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改 变该图片框有关属性的值。 ( V )6. “A=B=C 是一个合法的 Visual Basic 语句。()7. 当在一个简单组合框的文本框中输入一个它的列

2、表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。 ()8. Visual Basic 程序的运行可以从 Main ()过程启动，也可以从某个窗体启动。 ( V )9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。 ()10. 对于文件系统控件，当驱动器控件 Drivel 中的驱动器符改变时，文件夹列表控件 Dir1 中显示的文件夹也作相应的改变，可以在 Drive1中的Change事件中使用如下命令。Dir1.Path = Drive1. Drive ( V )11. 滚动条控件可作为用户输入数据的一种方法。 ( V )12. 单选按钮控件和复选框控件都具有

3、 Value 属性，它们的作用完全相同。 ()13. 静态变量是一种局部变量， 当原过程再次被执行时，静态变量的初值是上一次过程调用 后的值。( V )14. Visual Basic 提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标 原点放在其他位置，则需使用自定义坐标系统。 ( V )15注释语句REM可自成一语句。( V )16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress ()17. 组合框兼有文本框和列表框两者的功能， 用户可以通过键人文本或选择列表中的项目来 进行选择。( V )18. 当定时器控件的 Interval

4、 属性值设置为 0时，会连续不断地激发 Timer 事件。( )19 .执行程序 x=0:for 1=2 to 10 step- 2:x=x+10:next I后 x 的值为 0。( V )2.句“FontName=宋体”与“ Form1.FontName=宋体”的作用完全相同，无一例外。 ()21 局变量只能在窗体的通用区内用 Public 或 global 定义。( )22.在盘驱动器列表框 Drivel的Change事件过程中，代码 Dirl. Path = Drivel . Drive 的作用是：当 Drivel 的驱动器改变时， Dirl 的目录列表随不同驱动器作相应改变。 ( V

5、) 精品文档23.直到型循环至少能执行一次循环体。（V ）24. Variant 是一种特殊的数据类型， Variant 类型变量可以存储除定长字符串数据及自定 义类型外的所有系统定义类型的数据。 Variant 类型变量还可具有 Empty、Error 和 Null 等 特殊值。（ V ）25. 如果一个菜单项的 Visible 属性为 False ，则它的子菜单也不会显示。 （ V ）26. 运行程序后在同一窗体上不可能同时选中两个单选钮。（）27. 窗体的 Enabled 属性值为 False 时，该窗体上的按钮、文本框等控件就不会对用户的 操作做出反应。（ V ）28. 定时器的 in

6、terval 属性值为 0 时，不会发生 timer 事件。（ V ）29. 框架控件和形状控件都不能响应用户的鼠标的单击事件。 （）30. 在一个窗体的代码中不能使用 Unload 语句来卸载本窗体，即一个窗体只能由其他窗体 卸载。（ ）31. 移动图片框时 ,以该图片框为载体的各控件的 Left 和 Top 属性值不变。（ V ）二. 单选题32. 组合框的 Change（ ）事件在下列那种情况下发生？ （ C ）A、在程序改变控件的大小时发生B、用户在下拉列表中改变选项时发生C、用户在编辑文本区内容时发生D、当程序改变组合框的Style属性时发生33. 为了使标签框的中的文字能自动折行，

7、必须同时设置下面两个属性为True。（ D）A、Caption 和 AutoSizeB、 AutoSize 和 AligmentC、 Visible 和 EnableD、 AutoSize 和 WordWarp34. 如果希望文件列表框只显示可执行文件，应该修改（ B ）属性。A、 Pattern B 、 FilterC、 Path D、 FileName35. 为了使某个命令按钮处于不可用状态，应该设置该命令按钮的A、Default B 、 Enabled C 、 Cancel属性。（ B ）D 、 TabIndex36. 通用对话框控件的返回值 FileName 表示所选择文件的（ B ）

8、A、路径名 B 、全名 C、文件主名D 、文件扩展名37. 关于单选按钮和复选框，下列说法正确的是： （ C ）A、 单选按钮和复选框的Value属性值可能是0或1B、同一窗体上的单选按钮只能有一个处于选中状态C、复选框不支持DbICIick事件D单选按钮选中状态的改变只能由用户进行，而不能由程序设置38. 下列控件中哪个控件没有 Change事件（D ）A、滚动条 B、目录列表框C 、标签 D、单选按钮39. 菜单项显示分隔线是通过设置（ A ）属性来实现的。A、 Caption B 、 Visible C、 CheckedD、 Enabled40. 运行时组合框控件Comb1中所选择的表项

9、，可以表示为（C ）、 Comb1.ListCountA、Comb1.TextB 、 Comb1.List C 、 Comb1.ListIndex D41. 要使Shape控件以实心方式填充，应该设置其（ B ）属性。 精品文档精品文档A、FillColorB 、 FillStyle C 、BackStyle D 、 Shape42. 向文本框中输入一个字符，下列 事件不会发生。( C )A、ChangeB 、KeyPressC、GotFocusD 、KeyDown43. 下面关于框架、复选框和单选钮的叙述，正确的是 。( B )A、框架没有Caption属性，而复选框和单选钮都有 Capti

10、on属性B 、一个框架中的复选框有可以多个被选中C、一个窗体中单选钮有且只有一个可以被选中A、可以把窗体中已存在的单选钮拖到框架中，成为框架中的一员44. 用户在窗体上单击时，将先后触发该窗体的 ( D )A、MouseDow事件、Click 事件、MouseMov事件、MouseUp事件B、Click 事件、MouseDow事件、MouseUp事件、MouseMove事件C、MouseDow事件、Click 事件、MouseUp事件、MouseMove事件D MouseDow事件、MouseUp事件、Click 事件、MouseMove事件45. 下面方法不属于列表框和组合框。(A )A 、

11、 Cls B 、 AddItem C 、 GetFocus D 、 RemoveItem46. 在图片框控件 Picture1 上坐标 (x,y) 处画一个绿色点，写作 ( D )。A、 Pset(x,y),Rgb(0,255,0)B、 Picture1.Pset(x,y),GreenC、 Pset(x,y),vbGreenD、 Picture1.Pset(x,y),vbGreen47. 下面关于滚动条和计时器控件的叙述，其中错误的是 。( B )A、当滚动条的Value值改变时，发生Change事件B、 当拖动滚动条时，释放鼠标时发生Scroll事件C、计时器控件在运行时是不可见的D计时器和

12、滚动条控件都有Enable属性48. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的 ( C ) 事件。A、 Scroll B 、 KeyDownC 、 ChangeD 、 Dragover49. 设置某子菜单项的Cap tio n (标题)属性为“画图(& D ”，ShortCut (快捷键)属性为 “Ctrl+L ”。启动工程时，下面 不会触发该子菜单的 Click 事件。( D )A、打开主菜单，按 D键B、直接按Ctrl+L 键C、用鼠标单击该子菜单项D、打开主菜单，按Alt+D50. 要改变控件的宽度，应修改该控件的 ( C ) 属性。A、 TopB、 Left C、 WidthD

13、 、 Height51. 顺序文件有三种打开方式，下面 种不是。( A )A、RandomB 、 InputC、 OutputD、 Append52( C )对象不能作为控件的容器。A、FormB、 PictureBoxC、 ShapeD、 Frame53.将命令按钮Comma nd设置为不可见,应修改命令按钮的( A)属性。A、VisibleB、 ValueC、 CaptionD、 Enabled54下列数据类型中，占用内存最小的是( B )。A、BooleanB、 ByteC、 IntegerD、 Single55.( D )对象具有 Clear 方法。A、图片框B 、窗体C、复选框D 、

14、列表框56个对象可以执行的动作和可被对象识别的动作分别称为（B ）。A、事件、方法B、方法、事件C、属性、方法D、过程、事件57已知A、BC中C最小，则判断A、B、C可否构成三角形3条边长的逻辑表达式是（B ）。A A =B And B =C And C 0B、A+ C B And B + CA And C 0C、（A + B =C Or A Cv =C） And C 0 D 、A+ B C And A B C And C 058.将通用 对话框Com mon Dialogl的类型设置成“另存为”对话框，可调用该控件的的（B ） 方法。A、ShowOpenB 、ShowSave C 、Show

15、Color D 、ShowFont59.下面（C ） 是日期型常量。A、“ 12/19/99 ”B、12/19/99C、#12/19/99#D、12/19/ 9960.重新定义图片框控件的坐标系统，可米用该图片框的(A ）方法。A、ScaleB、ScaleXC、ScaleYD、SetFocus61.D对象不具有Caption属性。DA、LabelB、OptionC、FormD、Timer62.In teger类型的变量可存的最大整数是(D )。A、255B、 256C、32768D、3276763.要改变控件的宽度，应修改该控件的（C ）属性。A、TopB、LeftC、WidthD、Heigh

16、t64. 对于窗体级变量，以下说法错误的有：（B ）A、所在窗体的各子程序都可以访问B、其他窗体的子程序不能访问C、所在窗体的子程序能访问用 Private定义的窗体级变量D、一定要在所在窗体的通用区内定义65. 在窗体Forml的Click事件过程中有以下语句：（C ）“Label1. Caption =”“ Visual Basic ”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name!性和Caption属性在执行本语句之前的值分别为。A、“Label ”、“Label”B、“ Labei1”、“ Visual BasicC、“Label1”、“Label1 ”D

17、、Caption 、“Label”66. 下面关于变量的作用域和生存周期的描述正确的是（C ）A、全局变量可在窗体的通用区内定义B、窗体级变量与静态变量具有相同的作用域和生存周期C、 同一过程中用“ Dim ”定义的局部变量和用“ Static”定义的局部变量具有相同的 作用域D同一过程中用“ Dim ”定义的局部变量和用“ Static”定义的局部变量具有相同的生存周期67. 一个菜单项是不是一个分隔条，由（B ）属性决定。A Name(名称)B 、CaptionC. EnabledD、Visible68.I nteger类型的变量可存的最大整数是。（D)A、255B、256C、32768D

18、 、 3276769.下面（B ）对象在运行时一定不可见。ALi neB、TimerC、TextD、Option70.形状控件所显示的图形不可能是（D)0A圆B、椭圆C、圆角正方形D、等边三角形71.以下（A ）方式打开的文件只能读不能写。AIn putB、OutputC、RandomD、Append72.对象不具有Caption 属性。(D )ALabelB、OptionC、FormD 、Timer73.由 For k = 35 TO 0 Step 3 : Next k循环语句控制的循环次数是(A )A、0B、12C、-11D、-1074.以下（A ）方式打开的文件只能读不能写。A In p

19、ut B 、Output C 、Ra ndom D 、Appe nd75. 由For k = 35 TO 0 Step 3 : Next k 循环语句控制的循环次数是（A ）A 0B、12 C 、-11D、-1076. 想要改变控件在窗体中的左右位置，可以修改该控件的（B ） 属性。A Top B 、Left C 、Width D 、Right77. 要在文件列表框中显示不同类型的文件可以通过设置（A ） 属性A、Pattern B 、Path C 、File nameD 、ListI ndex78. 窗体的DrawWidth属性值设置为大于1时，下列（C ）属性会失去作用A、Backcolo

20、r B、FillStyle C 、Drawstyle D、Fillcolor79. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（A ） 属性不会对该圆的外 观产生影响。A、Backcolor B 、ForeColor C 、DrawWidth D 、Drawstyle80. 菜单编辑器中呈现以下状态，程序运行后下列（D ） 操作无法执行“复制”功能A卜、-打开“编辑”菜单后按下“ C”cz弋B、直接按下Ctrl+CC、鼠标单击“复制”菜单项D “ Alt+E ” “ Alt+C ”三. 填空题81 .VB的字符串运算符有 + 和&两种,其中运算符两边的表达式类型必须为字符型的运算符是&_

21、。82. 设 x=6,y=4,z=7,下面表达式的值是 true _xy and yx-z or xz83. 设n是一个自然数，那么求n的位数L的表达式可以是L= _ len（str（n）-1_ _。例如：若 n=12345,则 L=5精品文档精品文档84.在打开某窗体时，初始化该窗体中的各控件，应选用ioa=事件。85滚动条的当前值用_ value _ 表示。86. 设x为大于零的实数，则大于x的最小奇数的Visual Basic 表达式是(Int(x)+1)*2+1(或(Fix(x)+1 ) 2 ) *2+1 )。87. 在代码设计中，为了给某控件的BackColor属性赋一个颜色值，可以

22、有三种方法获得颜色，它们分别是 QBColor()函数、颜色常数和_ RGB()函数。88. a1和a2之中有且只有一个与 a3的值相等，相应的Visual Basic逻辑表达式是a仁a3 Xora2=a3 (或 a1=a3 And aa3 Or a1a3 And a2=a3 )。89. 以图片框Picture1的中心为圆心，以1000为半径在Picture1上画一个圆的方法是 _picture1.circle (picture1.width/2,picture1.height/2),1000_ 。90. 设init的初值为10，则由下列循环语句控制的循环次数是_6_。Do While ini

23、t =5Ini t=i nit-1Loop91. 窗体的Enabled属性值为_ False .时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。92. 在Visual Basic中，变量从它的作用范围来看。可分为全局变量、模块级变量和局咅E变量3种。93. Visual Basic 提供了对文件的三种存取方式,分别是_ In put _、_ output _ 和Append 。94. 8语句 Picture1.Circle(800,1000),500的含义是以图片框 Picture1 中的(800, 1000)为圆心，以500为半径画一个圆。95. 用Visual Basic开发应

24、用程序的三步曲是：界面设计_、属性设置和 代码设计匚。96. 在VB中,若要产生一消息框，则可用函数一 msgbox 一 来实现。97. 已知n为一个三位正整数，写出求 n中十位数的 Visual Basic 表达式 (n10) mod10_Q98 .若要获得用户在驱动器列表控件中所选择的驱动器,可通过访问该对象的Drive属性来实现。99.表达式(4.82 ) *7 Mod 3.14的运行结果是_2。精品文档精品文档100. 目录列表框(DirListBox )中，当前文件夹对应项目的 Listlndex 属性值为 -1_。101. 利用Line方法可以画直线、一矩形和实心矩形。102. V

25、isual Basic 的菜单可分为 下拉式_菜单和 弹出式_菜单两种。103. 在 Visual Basic 中，和通用对对话框控件具有 File name属性。104. 在VB中,用于产生输入对话框的函数是 Inputbox _，其返回值类型为字符型,若要利用该函数接收数值型的数据，则可利用Vai函数对其返回值进行转换而得到。105. 用PictureBox和Image控件装载图形图像时，为了使图形图像与所在的控件大小相等， 可以改变106. 形状的Shape属性可以取 _6 值，分别代表各种不同的形状。107. 如果在图片框上使用绘图方法绘制一个圆，则图片框的 -Backcolor _属

26、性不会对该圆的外观产生影响。PictureBox 的stretch . 属性和Image的_ autosize . 属性。108. 求a与b之积除以c的余数，用VB表达式为_mod(a*b)/c)。109. Visual Basic常见控件中可以作为其他控件容器的控件有框架_和_图片框_。110. Visual Basic 的菜单可在一菜单编辑器_中设计完成。若要使某项菜单在运行时不可见，可设置该菜单对象的Visible属性为False来实现；若要使某项菜单在运行时失效,则应设置菜单项对象_ Enabled属性为False。111. 在代码设计中，为了使定时器 Timer1能处于关闭状态，使系

27、统不响应它的Timer()事件，可以设置 Timer1.Enabled=False 或timer1.lnterval=0。112. 表达式 Chr(Asc( “R) - Asc( “A”)+Asc( “a”)的值是 _ r。113. Print Mid$(Str$(-1234),3，2)的结果为 23 _。程序阅读题四、阅读下列程序，写出运行结果。1、程序1Private Sub Comma nd1_Click()Dim x As In teger, s As In tegerx = Val(I nputBox(请输入一个正整数=)If x ia = a + xx = x + 3LoopEnd

28、 Sub写出程序运行时连续3次单击Comma nd后,a1.dat文件的最终结果程序阅读题答案:1.s=5s=10s=402.w=3 k=2w=4 k=4w=5 k=6w=6 k=83.L精品文档精品文档HFDB4.y=5 a=5y=15 a=10y=30 a=15五. 程序填空题仔细阅读下列各小题的程序说明和相应的程序， 在每小题提供的若干可选答案中，挑选一个 正确答案。1. 【程序说明】本程序求3100之间的所有素数(质数)并统计个数，同时将这些素数从小到大依次写入顺序文件 e ：dataout.txt ，素数的个数显示在窗体 Form1 上。【程序】Private Sub Command

29、1_Click()Dim count As Integer, flag As BooleanDim ti As Integer, t2 As Integer(1)count = 0For ti = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1)If (2) Then flag = FalseNext t2( 3)count = count + 1Write #1, t1End If精品文档Next t1(4) Close #1End Sub(1) A、 Open e:dataout.txt For Output As #1B、Open e:dataou

30、t.txt For Input As #1C、Open e:dataout.txt For Output As #2D、 Open e:dataout.txt For Output As #1(2) A 、t2t1=0 B 、t1 Mod t2=0 C 、t1t2=0 D 、t2 Mod t1=0(3) A、If flag Then B、If t2t1 ThenC、If t1t2 Then D 、If t2int(sqr(t1) Then(4) A 、 Forml.Print 素数个数： ; countB、Print #l 素数个数： ;CountC、Form1.Print 素数个数： ； c

31、ountD、Form1.Print 素数个数： ： Count2. 程序说明 Label1由输入对话框输入n(设n为大于零且小于30的自然数)，计算下列表达式并在标签框 上显示。1 /( 1 *2)+1/(2*3)+1/(3*4)+1/(n*(n+1)【程序】Private Sub Form_Click()Dim n As Integer, sum As Double, k As IntegerDo ( 5)n = Val(InputBox(n=, 请重输)Loopsum = 0( 6 )Dok = k + 1sum= ( 7)Loop Until k = nLabel1.Caption =

32、Sum + Str(sum)精品文档精品文档精品文档End Sub(5) A 、While n=30 B 、While n=30C、Until n0 Or n =0 and n Len(Str1)/2 D、Until m A And（5） ） Or （Ch a And Ch z） ThenSt2 = St2 + ChEnd IfNext iText1.Text = （6）End Sub3. 下面的程序完成以下功能：窗体上有两个命令按钮“产生”（Command）1 和“排序”（Command2。单击“产生”按钮时，随机产生 10个1 , 20范围内的整数放在数组 A中， 并在窗体上输出。单击“排

33、序”按钮时，用选择法排序这 10个数并输出。Dim A（10） As Integer精品文档精品文档Private Sub Command1_Click() Dim i As IntegerRandomizePrint 排序前的数列： For i = 1 To 10A(i) = (7)Print Str(A(i) + ;Next iPrintEnd SubPrivate Sub Command2_Click() Dim i, j, Min, Temp As Integer PrintPrint 选择排序后的数列： For i = 1 To 9Min = A(i)For j = (8) To 1

34、0If A(j) Min Then Temp = A(j) A(j) = (9) Min = TempEnd IfNext jA(i) = Min(10)For i = 1 To 10Print Str(A(i) + Next iPrintEnd Sub程序填空题答案 ：(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5)ch=0. 00000001八、1.分别写出下面两段程序执行三次后的结果Private Sub Form_Click()Dim i, j As In teger精品文档Dim i As In tegerStatic j As

35、 Integer j = j + 1i = i + 1Print i=; Str(i),j=； Str(j)End SubPrivate SubForm_Click()j = j +1i = i + 1Print i=; Str(i),j=; Str(j)End Sub参考答案:I=1j=1I=1j=1I=1j=2I=2j=2I=1j=3I=3j=3左:右:Proc )。九. 写出下面程序执行后的结果(其中在 Form_Click()事件中调用了子过程Private Sub Form_Click()Dim x, y As In tegerDim u, v As In tegerx = 1y =

36、 2u = 3Proc x, yu = u + x + yPrin t x=; Str(x), y=; Str(y), u=; Str(u)End SubPrivate Sub Proc(ByVal a As Integer, ByRef b As Integer) Dim u As In tegera = a + 1b = b + 1u = u + a + bPrin t a=; Str(a), b=; Str(b), u=; Str(u)End Sub程序阅读题答案：精品文档2a=2b=3u=5x=1y=3y=5十用输入对话框输入x,根据下式计算对应的y，并在窗体上输出y的值f vx + sin x x10Y= Y oX-10-出宀 注：程序写在命令按钮 Comma nd的Click事件中。答案程序如下：Private Sub Comma nd1_Click()Dim x As Si nglex = Val(InputBox(x=, 请输入数据)Select Case xCase Is 10y = Sqr(x) + Si n(x)Case