VB语言程序设计试题库

《VB语言程序设计试题库》由会员分享，可在线阅读，更多相关《VB语言程序设计试题库（22页珍藏版）》请在装配图网上搜索。

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

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

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

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

5、V ）24. Variant是一种特殊的数据类型，Variant类型变量可以存储除定长字符串数据及自定 义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error和Null等 特殊值。（ V ）25. 如果一个菜单项的Visible属性为False,则它的子菜单也不会显示。（V ）26运行程序后在同一窗体上不可能同时选中两个单选钮。（x ）27. 窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的 操作做出反应。（ V ）28. 定时器的interval属性值为0时，不会发生timer事件。（V ）29. 框架控件和形状控件都不能响

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

7、mentC、 Visible 和 EnableD、 AutoSize 和 WordWarp34. 如果希望文件列表框只显示可执行文件，应该修改（ B ）属性。A、PatternB、FilterC、PathD、FileName35. 为了使某个命令按钮处于不可用状态，应该设置该命令按钮的 属性。（ B ）A、DefaultB、EnabledC、CancelD、TabIndex36通用对话框控件的返回值FileName表示所选择文件的（B ）。A、路径名B、全名C、文件主名D、文件扩展名37. 关于单选按钮和复选框，下列说法正确的是：（ C ）A、单选按钮和复选框的Value属性值可能是0或1B、

8、同一窗体上的单选按钮只能有一个处于选中状态C、复选框不支持DblClick事件D、单选按钮选中状态的改变只能由用户进行，而不能由程序设置38. 下列控件中哪个控件没有Change事件（D ）A、滚动条B、目录列表框C、标签D、单选按钮39菜单项显示分隔线是通过设置（A ）属性来实现的。A、CaptionB、VisibleC、CheckedD、Enabled40.运行时组合框控件Comb 1中所选择的表项，可以表示为（C ）。A、Comb1.TextB、Comb1.ListC、Comb1.ListIndex D、Comb1.ListCount41要使Shape控件以实心方式填充，应该设置其（B

9、）属性。A、FillColor B、FillStyle C、BackStyle D、Shape42. 向文本框中输入一个字符，下列 事件不会发生。( C )A、Change B、KeyPress C、GotFocus D、KeyDown43. 下面关于框架、复选框和单选钮的叙述，正确的是 。( B )A、框架没有Caption属性，而复选框和单选钮都有Caption属性B、一个框架中的复选框有可以多个被选中C、一个窗体中单选钮有且只有一个可以被选中A、可以把窗体中已存在的单选钮拖到框架中，成为框架中的一员44. 用户在窗体上单击时，将先后触发该窗体的( D )A、MouseDown 事件、Cl

10、ick 事件、MouseMove 事件、MouseUp 事件B、Click 事件、MouseDown 事件、MouseUp 事件、MouseMove 事件C、MouseDown 事件、Click 事件、MouseUp 事件、MouseMove 事件D、MouseDown 事件、MouseUp 事件、Click 事件、MouseMove 事件45. 下面 方法不属于列表框和组合框。( A )A、ClsB、AddItemC、GetFocusD、RemoveItem46. 在图片框控件Picturel上坐标(x,y)处画一个绿色点，写作(D )。A、Pset(x,y),Rgb(0,255,0)B、P

11、icture1.Pset(x,y),GreenC、Pset(x,y),vbGreenD、Picturel.Pset(x,y),vbGreen47. 下面关于滚动条和计时器控件的叙述，其中错误的是 。( B)A、当滚动条的Value值改变时，发生Change事件B、当拖动滚动条时，释放鼠标时发生Scroll事件C、计时器控件在运行时是不可见的D、计时器和滚动条控件都有Enable属性48. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的 ( C )事件。A、ScrollB、KeyDownC、ChangeD、Dragover49. 设置某子菜单项的Caption (标题)属性为“画图(&D)”，

12、ShortCut (快捷键)属性为 “Ctrl+L”。启动工程时，下面 不会触发该子菜单的Click事件。(D )A、打开主菜单，按D键B、直接按Ctrl+L键C、用鼠标单击该子菜单项D、打开主菜单，按Alt+D50. 要改变控件的宽度，应修改该控件的 ( C ) 属性。A、TopB、LeftC、WidthD、Height51顺序文件有三种打开方式，下面 种不是。(A)A、RandomB、InputC、OutputD、Append52( C )对象不能作为控件的容器。A、FormB、PictureBoxC、ShapeD、Frame53.将命令按钮Command 1设置为不可见，应修改命令按钮的

13、(A )属性。A、VisibleB、ValueC、CaptionD、Enabled54下列数据类型中，占用内存最小的是( B )。A、BooleanB、ByteC、IntegerD、Single55. ( D )对象具有Clear方法。A、图片框B、窗体C、复选框D、列表框56一个对象可以执行的动作和可被对象识别的动作分别称为（ B ） 。A、事件、方法B、方法、事件C、属性、方法D、过程、事件57. 已知A、B、C中C最小，则判断A、B、C可否构成三角形3条边长的逻辑表达式是（B ）。A、A二B And B二C And C0B、A+CB And B + CA And C0C、（A+B=C O

14、r A CV=C） And C0D、A+BC And A-BC And C058. 将通用 对话框CommonDialog 1的类型设置成“另存为”对话框，可调用该控件的的（B ） 方法。A、ShowOpenB、ShowSave59下面( C )是日期型常量。A、“12/19/99”B、12/19/99C、ShowColorC、#12/19/99#D、ShowFontD、12/19/9960. 重新定义图片框控件的坐标系统，可采用该图片框的 （ A ） 方法。A、ScaleB、ScaleXC、ScaleYD、SetFocus61. D_ 对象不具有Caption属性。DA、LabelB、Opt

15、ionC、FormD、Timer62. Integer类型的变量可存的最大整数是（D ）。A、255B、256C、32768D、3276763. 要改变控件的宽度，应修改该控件的（ C ）属性。A、TopB、LeftC、WidthD、Height64. 对于窗体级变量，以下说法错误的有： （ B ）A、所在窗体的各子程序都可以访问B、其他窗体的子程序不能访问C、所在窗体的子程序能访问用Private定义的窗体级变量D、一定要在所在窗体的通用区内定义65. 在窗体Forml的Click事件过程中有以下语句：（C ）“Label1. Caption=”“Visual Basic”若本语句执行之前，

16、标签控件的Caption属性 为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为。A、“Label”、 “Label”B、“Labei1” 、 “Visual Basic”C、“Label1” 、“Label1”D、Caption 、“Label”66. 下面关于变量的作用域和生存周期的描述正确的是（ C ）A、全局变量可在窗体的通用区内定义B、窗体级变量与静态变量具有相同的作用域和生存周期C、同一过程中用“Dim ”定义的局部变量和用“ Static ”定义的局部变量具有相同的 作用域D、同一过程中用“Dim ”定义的局部变量和用“ Static ”定义的局部变

17、量具有相同的 生存周期67. 一个菜单项是不是一个分隔条，由（ B ） 属性决定。D、 VisibleA、Name （名称）B、CaptionC. Enabled68.Integer类型的变量可存的最大整数是。（D ）A、25569.A、70.A、71.A、72.A、73.A、B、256）对象在运行时一定不可见。B、 Timer下面（BLine形状控件所显示的图形不可能是（ 圆B、椭圆C、 32768D、 32767C、 Text）。C、圆角正方形以下（A ）方式打开的文件只能读不能写。B、 OutputD ）Inp ut 对象不具有Caption属性。（LabelB、 Option由 For

18、 k = 35 TO 0 St ep 3： 0C、 RandomB、12D、 OptionD、等边三角形D、 AppendC、Nex t kFormD、 Timer循环语句控制的循环次数是（A ）C、-11D、-10D、 AppendA )B、12A、076.想要改变控件在窗体中的左右位置，可以修改该控件的（A、TopB、 LeftC、-11C、 Width77要在文件列表框中显示不同类型的文件可以通过设置（D、-10B ）属性。D、 RightA ）属性D、 Listlndex ）属性会失去作用A、 PatternB、 PathC、 Filename78. 窗体的DrawWidth属性值设置

19、为大于1时，下列（CA、 Backcolor B、 FillStyle C、 Drawstyle D、 Fillcolor79. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（A）属性不会对该圆的外 观产生影响。A、 BackcolorB、 ForeColorC、 DrawWidthD、 Drawstyle74. 以下（A ）方式打开的文件只能读不能写。C、 RandomA、 InputB、 Output75. 由For k = 35 TO 0 St ep 3： Nex t k循环语句控制的循环次数是（80. 菜单编辑器中呈现以下状态，程序运行后下列（D）操作无法执行“复制”功能Armct

20、ri+cB、直接按下Ct rl+CC、鼠标单击“复制”菜单项D、“ Alt+E ” “ Alt+C ”三. 填空题81. VB的字符串运算符有_+_和两种，其中运算符两边的表达式类型必须为字符型的运算符是 &_。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=584. 在打开某窗体时，初始化该窗体中的各控件，应选用load事件。85. 滚动条的当前值用value _表示。86. 设x为大于零的实数，则大于x的最小奇数的V

21、isual Basic表达式是(Int(x)+l)2)*2+1 (或(Fix(x)+1) 2) *2+1)。87. 在代码设计中，为了给某控件的BackColor属性赋一个颜色值，可以有三种方法获得颜色，它们分别是QBColor()函数、颜色常数和_ RGB()函数。88. a1和a2之中有且只有一个与a3的值相等,相应的Visual Basic逻辑表达式是a1=a3 Xora2二a3 (或 a1二a3 And aa3 Or a1a3 And a2二a3)。89. 以图片框Picture1的中心为圆心，以1000为半径在Picture1上画一个圆的方法是_pictu re1.circle (p

22、icture1.width/2,picture1.height/2),1000。90. 设init的初值为10，则由下列循环语句控制的循环次数是旦。Do While init =5Init=init-1Loop91. 窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。92. 在Visual Basic中，变量从它的作用范围来看。可分为全局变量、模块级变量和局部 变量3种。93. Visual Basic提供了对文件的三种存取方式,分别是Input 、_out put和_ Append _。94. 8 语句 Picture1.Circle(800,

23、1000),500 的含义是以图片框 Picture1 中的(800，1000) 为圆心，以500为半径画一个圆。95用Visual Basic开发应用程序的三步曲是：界面设计、属性设置和代码设计 。96. 在VB中，若要产生一消息框，则可用函数_ msgbox 来实现。97. 已知n为一个三位正整数，写出求n中十位数的Visual Basic表达式(n10) mod10。98. 若要获得用户在驱动器列表控件中所选择的驱动器,可通过访问该对象的_ Drive _ 属性来实现。99. 表达式(4.82)*7 Mod 3.14的运行结果是_2。100. 目录列表框(DirListBox)中，当前文

24、件夹对应项目的Listlndex属性值为_ T。101. 利用Line方法可以画直线 、 矩形 和实心矩形。102. Visual Basic的菜单可分为下拉式菜单和 弹出式菜单两种。103. 在Visual Basic中，文件列表框和 通用对对话框控件具有Filename属性。104. 在VB中，用于产生输入对话框的函数是Inputbox,其返回值类型为_字符型,若要利用该函数接收数值型的数据，则可利用_Val_函数对其返回值进行转换而得 到。105. 用Pic tureBox和I mage控件装载图形图像时，为了使图形图像与所在的控件大小相等, 可以改变106. 形状的Shape属性可以取

25、_6_个值，分别代表各种不同的形状。107. 如果在图片框上使用绘图方法绘制一个圆，则图片框的_B0k2l0I一属性不会对该圆 的外观产生影响。PictureBox的 stretch 属性和Image的autosize _ 属性。108. 求d与b之积除以c的余数，用VB表达式为mod(a*b)/c) 。109. Visual Basic常见控件中可以作为其他控件容器的控件有_框架_和图片框。110. Visual Basic的菜单可在_菜单编辑器一中设计完成。若要使某项菜单在运行时不可 见,可设置该菜单对象的 Visible 属性为False来实现；若要使某项菜单在运行 时失效，则应设置菜单

26、项对象Enabled _属性为False。111. 在代码设计中，为了使定时器Timer1能处于关闭状态，使系统不响应它的Timer ()事 件，可以设置 Timer1.Enabled二False 或 _ timer1.Interval=0 _。112. 表达式 Chr(Asc(“R”)- Asc(“A”)+Asc(“a”)的值是_ 匚_。113. Print Mid$(Str$(-1234),3, 2)的结果为_23。程序阅读题四、阅读下列程序，写出运行结果。1、程序1Private Sub Command1_Click()Dim x As Integer, s As Integerx =

27、Val(Inp ut Box(请输入一个正整数二)If x ia = a + xx = x + 3LoopEnd Sub写出程序运行时连续3次单击Commandl后，al.dat文件的最终结果。 程序阅读题答案:1.s=5s=10s=402.w=3 k=2w=4 k=4w=5 k=6w=6 k=8DB4.y=5 a=5y=15 a=10y=30 a=15五. 程序填空题 仔细阅读下列各小题的程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个 正确答案。1. 【程序说明】本程序求3100之间的所有素数(质数)并统计个数，同时将这些素数从小到大依次写入顺序文件e： dataout.txt

28、，素数的个数显示在窗体Form1上。【程序】Private Sub Command1_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 IfNext t1(4) Close #1End Sub(1) A、Open e:dataout.t

29、xt For Output As #1B、Open e:dataout.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.Prin t素数个数：；countB、Print #l 素数个数：；Count

30、C、Forml.Prin t素数个数：；countD、Form1.Prin t素数个数：Count2. 程序说明由输入对话框输入(设n为大于零且小于30的自然数),计算下列表达式并在标签框Label1 上显示。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 + lsum= (7)Loop Until k = nLabell.

31、Caption = 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. 下面的程序完成以下功能：窗体上有两个命令按钮“产生”(Commandl)和“排序” (Command2)。单击“产生”按钮时，随机产生10个1, 20范围内的整数放在数组A中，并在窗体上输出。单击“排序”按钮时，用选

32、择法排序这10个数并输出。Dim A(l0) As IntegerPrivate 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 IntegerPrintPrint 选择排序后的数列：For i = 1 To 9Min = A(i)For j = (8) To 10If A(j) Min ThenTemp =

33、 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 As Integer StaticjAsInteger j = j + 1 i = i + 1 Printi=;Str(i), j=; S

34、tr(j)End SubDim i, j As Integer Private Sub Form_Click() j = j + 1i = i + 1Printi=;Str(i), j=; Str(j)End Sub参考答案:1 左: 右:I=1j=1I=1j=11=11=1j=2j=31=21=3j=2j=3九. 写出下面程序执行后的结果(其中在Form_Click ()事件中调用了子过程Proc)。Priva te Sub Form_Click()Dim x, y As IntegerDim u, v As Integerx = 1y = 2u = 3Proc x, yu = u + x

35、+ yPri nt x二；St r(x), y二；St r(y), u二；St r(u)End SubPrivate Sub Proc(ByVal a As Integer, ByRef b As Integer)Dim u As Integera = a + 1b = b + 1u = u + a + bPri nt a二；St r(a), b二；St r(b), u二；St r(u)End Sub程序阅读题答案：2a=2b=3u=5x=1y=3y=5十.用输入对话框输入x,根据下式计算对应的y,并在窗体上输出y的值。o x=10注：程序写在命令按钮Commandl的Click事件中。答案程

36、序如下:Private Sub Command1_Click()Dim x As Singlex = Val(Inpu tBox(x二，请输入数据)Select Case xCase Is 10 y = Sqr(x) + Sin(x)Case 10y = 0Case Elsey = 2 * x 八 3 + 6End SelectPrint y二；yEnd Sub十一.共用户界面如下图所示，用于实现左右两个组合框中数据的左移和右移功能。程序开 始运行时，在左边组合框中生成10个由小到大排列的随机3位正整数(假设在设计阶段该组合框的Sorted属性值已设置为True, 现要求完成：、单击“”按钮，

37、左边组合框中的10个数全部移到右边组合框中，并由大到小排列， 同时使“VV”按钮能响应，“”按钮不能响应。、单击“VV”按钮，右边组合框中的10个数全部移到左边组合框中，并由小到大排列， 同时使“”按钮能响应，“VV”按钮不能响应。、单击“结束”按钮，结束程序运行。用户界面部分程序代码如下:Private Sub Form_load()Dim i As IntegerLabel1.Caption =组合框 1Label2.Caption =组合框 2CmdRight.Caption=CmdRight.Enabled= TrueCmdLeft.Caption =vvCmdLeft.Enabled

38、 =FalsecmdExit.Caption =结束ComboLeft.Text = For i = 1 To 10ComboLeft.AddItem Int(Rnd * 900) + 100 Next iComboRight.Text = End Sub请分别编写3个命令按钮的单击事件。答案程序如下：Private Sub cmdExit_Click()EndEnd SubPrivate Sub CmdLeft_Click()Dim i As Integer, last As Integerlast = ComboRight.ListCount - 1For i = 0 To lastCom

39、boLeft.AddItem ComboRight.List(0) ComboRight.RemoveItem 0Next iCmdLeft.Enabled = FalseCmdRight.Enabled = TrueEnd SubPrivate Sub CmdRight_Click()Dim i As Integer, last As Integerlast = ComboLeft.ListCount - 1For i = 0 To lastComboRight.AddItem ComboLeft.List(last - i)ComboLeft.RemoveItem last - iNext iCmdLeft.Enabled = TrueCmdRight.Enabled = FalseEnd Sub