VB章节习题集.doc

第一章 练习题单选题1. 对于窗体，下面（ ）属性在程序运行时其属性设置起作用。D（A）MaxButton （B）BorderStyle （C） Name （D） Left2. 要使Print 方法在Form_Load事件中起作用，要对窗体的（ ）属性进行设置。C（A）BackColor （B）ForeColor （C） AutoRedraw （D） Caption3. 要使标签控件显示时不覆盖其背景内容，要对（ ）属性进行设置。D（A）BackColor （B）ForeColor （C） BorderStyle （D） BackStyle4. 要使命令按钮不可操作，要对（ ） 设置。A（A） Enabled （B）Visible （C） BackColor （D）Caption5. 文本框没有（ ）属性。D（A）Enabled （B）Visible （C） BackColor （D）Caption6. 不论何控件，共同具有的是（ ）属性。B（A）Text（B）Name（C） ForeColor （D）Caption7. 要使Form1窗体的标题栏显示”欢迎使用VB”，以下（ ）语句正确。A（A）Form1.Caption=”欢迎使用VB”（B）Form1.Caption=欢迎使用VB（C）Form1.Caption=欢迎使用VB（D）Form1.Caption=”欢迎使用VB”8. 要使某控件在运行时不可显示，应对（ ）进行设置。B（A） Enabled （B） Visible （C） BackColor （D） Caption9. 要使窗体在运行时不可以改变窗体的大小和没有最大，最小化按钮，只要对下面（ ）进行设置。B（A）MaxButton （B） BorderStyle （C） Width （D） MinButton10. 当运行程序时候，系统自动执行启动窗体的（ ）事件过程。A（A）Load （B）Click （C） Unload （D） GotFocus11. 当文本框的ScrollBars 属性设置了非零值，却没有效果，原因为：B（A）文本框中没有内容（B）文本框的MultiLine属性为False（C）文本框的MultiLine属性为True（D）文本框的Locked属性为True12. 要判断在文本框时否按了Enter键，应在文本框的（ ）事件中判断。D（A）Change （B）KeyDown （C）Click （D）KeyPress13. 在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的窗口是（ ）。C（A）窗体布局窗口 （B）立即窗口 （C）代码窗口 （D）监视窗口14. 保存新建的工程时，默认的路径是（ ）。B（A） My Documents （B） VB98 （C） （D）Windows15. 当需要上下文帮助时，选择要帮助的“难题”，然后按（ ）键，就可以出现MSDN窗口及所需帮助信息。D（A）Help （B） F10 （C） Esc （D） F1第二章 练习题单选题1. 在一个语句内写多条语句时，每个语句之间用（ ）符号分隔。B（A）, （B） ： （C） 、 （D） ；2. 一句语句要在下一行继续写，用（ ）符号作为续行符。C（A）+ （B） - （C） _ （D）3. 下面（ ）是合法的变量名。A（A）X_YZ （B）123ABC （C）integer （D）X-Y4. 下面（ ）是不合法的整常数。D（A）100 （B）&O100 （C）&H100 （D）%1005. 下面（ ）是合法的字符常数。B（A）ABC$ （B）ABC （C）ABC （D）ABC6. 下面（ ）是不合法的单精度型常数。D（A）100! （B）100.0 （C）1E+2 （D）100.0D+27. 下面（ ）是合法的单精度型变量。A $字符型，#双精度（A）num! （B）sum% （C）xinte$ （D）mm#8. 表达式16/4-25*8/4 MOD 52的值为（ ）。B /优先级最低其次是MOD（A）14 （B）4 （C）20 （D）29. 数学关系3=x10表示成正确的VB表达式为（ ）。B（A）3=X10 （B） 3=X AND X=3 OR X10 （D） 3=X AND 1010. 、/、MOD、*四个算术运算符中，优先级别最低的是（ ）。C（A） （B） / （C） MOD （D） 、11. 与数学表达式对应，VB的不正确表达式是（ ）。D（A）a*b/(3*c*d) （B）a/3*b/c/d （C） a*b/3/c/d （D）a*b/3*c*d12. Rnd函数不可能为下列（ ）值。B（A） 0 （B） 1 （C） 0.1234 （D）0.000513. Int(198.555*100+0.5)/100的值为（ ）。C（A）198 （B） 199.6 （C）198.56 （D）20014. 已知A$=12345678， 则表达式Val(Left$(A$,4)+Mid(A$,4,2)的值为（ ）。B（A） 123456 （B）123445 （C） 8 （D） 615. Print DateAdd (m,1,#1/30/2000#)语句显示的结果是（ ）。A（A）00-2-29 （B）00-2-28 （C）00-2-30 （D）00-1-3116. 表达式DateDiff (y, #12/30/1999#, #1/13/2000#)的结果是（ ）。C（A）1 （B） 11 （C）14 （D） 9917. 表达式Len(123程序设计ABC)的值为（ ）。A（A）10 （B）14 （C）20 （D）1718. 表达式LenB(123程序设计ABC)的值为（ ）。C（A）10 （B）14 （C）20 （D）1719. 下面正确的赋值语句是（ ）。C（A）X+Y=30 （B）Y=*R*R （C） Y=X+30 （D）3*Y=X20. 为了给X,Y,Z三个变量赋值为1，下面正确的赋值语句是（ ）。A（A）X=1:Y=1:Z=1 （B） X=1,Y=1,Z=1（C）X=Y=Z=1 （D）XYZ=121. 赋值语句：A123MID(1234356,3,2) 执行后，A变量的值为（ ）。D（A）12334 （B）123 （C） 12334 （D）15722. 赋值语句：A123 & MID(1234356,3,2) 执行后，A变量的值为（ ）。A（A）12334 （B）123 （C） 12334 （D）157第四章 练习题单选题1. 以下（ ） 式正确的FOR.NEXT 的结构。B（A）For x=1 To Step 10 （B）For x=3 To 3 Step -3. Next x Next x （C）For x=1 To 10 （D）For x=3 To 10 Step 3 Re: . . Next x Next yIf i=10 Then Goto Re2. 以下循环能正常结束的是（ ）。C（A） i=5 （B）i=1DoDo i=i+1 i=i+2 Loop Until i0Loop Until i=13. 下面程序运行的结果为（ ）。B For i=3 To 1 Step 1Print spc(5-i);For j=1 To 2*i-1 Print “*”;Next jPrint Next i（A） * （B） * （C） * （D） * * * * * * * *4. 当在文本框输入ABCD四个字符时候，窗体上显示的是（ ）。C Private Sub text1_change( )Print text1; 分号(;)光标定位在上一个显示的字符后End Sub（A）ABCD （B） A （C） AABABCABCD （D）A B AB C ABC D ABCD5. 那个程序不能正确表示1！，2！，3！，4！的值（ ）。B（A） For i=1 To 4（B） For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j Next j Print n Print nNext i Next i（D） n=1 （D） n=1 For j=1 To 4 j=1 n=n*jDo While j=4 Print n n=n*j Next j Print n j=j+1 Loop第六章 练习题单选题1. 设有下面的说明Public Sub F1(n%) . n=3*n+4 .End SubPrivate Sub Command11_Click ( ) Dim n%, m% n = 3 m = 4 . 调用F1语句 .End Sub下面是有效的调用是（ ）。B ?，全是正确的（A） F1 n+m （B） F1 m （C） F1 5 （D） F1 m+52. 下面子过程语句说明合法的是（ ）。D 定义不能嵌套，函数才能有返回值（A）Sub f1(ByVal n%() （B） Sub f1(n%) as integer（C）Function f1%(f1%) （D） Function f1(ByVal n%)3. 要想从子过程调用后返回两个结果，正确的是（ ）。C 缺省为传址 ByRef（A）Sub f2 (ByVal n%, ByVal m%)（B）Sub f1 (n%, ByVal m%) （C）Sub f1 (n%, m%)（D）Sub f2 (ByVal n%, m%)4. 下面程序运行后的结果是（ ）。A n是传址，m是传值Public Sub f1(n%, ByVal m%) n = n Mod 10 m = m 10End SubPrivate Sub Command1_Click( ) Dim x%, y% x = 12 y = 34 Call f1(x, y) Print x, yEnd Sub（A）2 34 （B） 12 34 （C） 2 3 （D） 12 35. 下面程序运行结果是（ ）。D 递归调用Private Sub Command1_Click( ) Print p1(3, 7)End SubPublic Function p1!(x!, n%)递归进入p1(3, 7) =3*9=27p1(3, 3) =3*3=9p1(3, 1) = 3*1=3p1(3, 0) =1递归返回 If n = 0 Then p1=1 ElseIf n Mod 2 =1 Then p1 = x * p1(x, n 2) Else p1 = p1(x, n 2) x EndIf EndIfEnd Function（A）18 （B） 7 （C） 14 （D） 276. 下面程序运行结果是（ ）。C 缺省为传址 ByRefDim a%, b%, c%Public Sub p1 (x%, y%) Dim c% x = 2 * x : y = y + 2 : c = x + yEnd SubPublic Sub p2 (x%, ByVal y%) Dim c% x = 2 * x : y = y + 2 : c = x + yEnd SubPrivate Sub Command1_Click( ) a = 2 : b = 4 : c = 6 Call p1(a, b) Print a=;a; b=;b; c=;c Call p2(a, b) Print a=; a; b=; b; c=;cEnd Sub（A）A=2 B=4 C=6 （B）A=2 B=6 C=10 A=4 B=6 C=10 A=8 B=8 C=16（C） A=4 B=6 C=6 （D） A=4 B=6 C=14 A=8 B=6 C=6 A=8 B=8 C=67. 下面程序运行结果是（ ）。B 静态变量将保留上一次的值Public Sub proc(a%( ) Static i% Do a(i) = a(i) + a( i + 1) i = i + 1 Loop while i2End SubPrivate Sub Command1_Click( ) Dim m%, i%, x%(10) For i=0 To 4 : x(i) = i + 1 : Next i For i=1 To 2 : call proc(x) : Next i For i=0 To 4 : Print x(i); : Next iEnd Sub（A）3 4 7 5 6 （B） 3 5 7 4 5 （C） 2 3 4 4 5 （D） 4 5 6 7 8第七章 练习题单选题1. 下列控件中，没有caption 属性的是（ ）。B（A）框架 （B） 列表框 （C） 复选框 （D） 单选按钮2. 复选框的value属性为1时，表示（ ）。B（A）复选框未被选中 （B） 复选框被选中（C） 复选框内右灰色的勾 （D） 复选框操作有错误3. 用来设置粗体字的属性是（ ）。C（A）FontItalic （B） FontName （C）FontBold （D） FontSize 4. 将数据项”china” 添加到列表框(List1)中成为第一项应使用（ ）语句。A（A）List1.Additem chian,0（B）List1.Additem china,1（C）List1.Additem 0, china（D）List1.Additem 1, china5. 引用列表框(List1)最后一个数据项应使用（ ）。B 下标从0至Listcount-1（A）List1.List(List1.Listcount)（B）List1.List(List1.Listcount-1)（C）List1.List(Listcount)（D）List1.List(Listcount-1)6. 假如列表框有4个数据项，那么把数据项china添加到列表框的最后，应使用（ ）语句。D（A）List1.Additem 3,china（B）List1.Additem china,List1.listcount-1（C）List1.Additem china,3（D）List1.Additem china,List1.listcount7. 运行下面程序，列表框中的数据项是（ ）。Dremove前1 2 3 4 5 6第一次remove1 3 4 5 6第二次remove1 3 5 6第三次remove1 3 5 Sub Form_Click( ) For i=1 To 6List1.additem i Next i For i=1 To 3List1.removeitem i Next iEnd Sub（A）1,5,6 （B）2,4,6 （C）4,5,6 （D）1,3,58. 如果列表框中没有被选定的项目，则执行List1.Removeitem List1.Listindex 语句的结果是（ ）。D（A）移去第一项 （B）移去最后一项（B） 移去最后假如列表的一项 （D） 以上都不对9. 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，计算机将发出（ ）次Beep声。D 一秒钟发出10次Sub Timer1_Timer( ) For i =1 To 10 Beep Next iEnd Sub（A）1000 （B） 10000 （C） 10 （D） 以上都不对10. 下面说法正确的是（ ）。D（A）在程序运行期间时钟控件可显示在窗体上（B）在列表框中不能进行多项选择（C）在列表框中能够将项目按字母顺序从大到小排列（D）框架也有Click和 DblClick事件11. 文本框中有选定的文本，执行Text1.Seltext=hello的结果是（ ）。B（A）hello将替换原来的文本 （B）hello将插入到原来的文本之前（C）Text1.SelLength为5（D）文本框中只有hello12. 在用菜单编辑器设计菜单时，必须输入的项为（ ）。D（A）快捷键 （B） 标题 （C） 索引 （D） 名称13. 下面说法中，错误的为（ ）。B（A）每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件（B）除了Click事件外，菜单项还能响应其他的如DblClick等事件（C）菜单项的快捷键不能任意设置（D）在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择14. 在下列关于通用对话框的说法中，错误的为（ ）。D（A）CommonDialog1.ShowFont显示字体对话框（B）在打开或另存为对话框中,用户选择的文件名可以由FileTitle属性返回（C）在打开或另存为对话框中,用户选择的文件名及其路径可以由FileName属性返回（D）通用对话框可以用来制作和显示帮助对话框15. 以下正确的为（ ）。C（A）CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|*.Bmp（B）CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|*.Bmp（C）CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|*.Bmp（D）CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|*.Bmp16. 在窗体从内存卸载的过程中会发生很多事件，发生的顺序为（ ）。B（A）Terminate, QueryUnload, Unload（B）QueryUnload, Unload, Terminate（C）QueryUnload, Terminate, Unload（D）Unload, QueryUnload, Terminate17. 下面关于多重窗体的说法中，正确的为（ ）。B（A）作为启动对象的Main子过程只能放在窗体模块内（B）如果启动对象是Main子过程，则程序启动不加载任何窗体以后由该过程根据不同情况来定是否加载或加载哪一个窗体（C）没有启动窗体，程序不能执行（D）以上都不对18. 下列（ ）控件没有Min，Max和Value属性。D Slider滑动块控件 （A）Slider （B） ProgressBar （C） UpDown （D） SSTab SSTab选项卡控件19. 当Slider控件的Min属性为1，Max属性为40