VB章节习题集_评讲

1、第一章 练习题单选题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）

2、 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

3、. 要使某控件在运行时不可显示，应对（ ）进行设置。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

4、）文本框的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.

5、当需要上下文帮助时，选择要帮助的“难题”，然后按（ ）键，就可以出现MSDN窗口及所需帮助信息。D（A）Help （B） F10 （C） Esc （D） F1填空题16. 进入VB集成环境，发现没有显示“工具箱”，应选择 菜单的 选项，使“工具箱”窗口显示。视图 工具箱17. 要使新建工程时，在模块的“通用声明”段自动加入Option Explicit语句，应对 菜单的 的 选项卡进行相应的选择。工具 选项 编辑器18. 刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 的 属性设置。窗体 字体19. 当对文本框的ScrollBar的属性设置为2，但没有滚动条显示，是因为没有对 属性设

6、置为True 的原因。Multiline /此题重复20. 当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对 属性设置为1。Style21. 若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过 菜单的 的 选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则要执行 语句。工程 工程属性 通用 Form1.show22. 在文本框中，通过 属性能获得当前插入点所在的位置。Selstart23. 要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了 的属性为True。Locked2

7、4. 在窗体上已建立了多个控件如Text1 Label1 Command1。若要使程序已运行焦点就定位在Command1控件上，应对Command1控件设置 属性的值为 。Tabindex 0第二章 练习题单选题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 （

8、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<=x<10表示成正确的VB

9、表达式为（ ）。B（A）3<=X<10 （B） 3<=X AND X<10（C） X>=3 OR X<10 （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.55

10、5*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/1

11、999#, #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

12、=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填空题23. 在VB中，1234，1234& ,1.2346E+5,1.2346D+5四个常数分别表 ， ， ， 类型。整型

13、% 长整型& 单精度型! 双精度型# (货币型$字符型)24. 表示X是5的倍数或是9的倍数的表达式为 。(X Mod 5=0) Or (X Mod 9=0)25. 已知A=3.5，B=5.0，C=2.5，D=True 则表达式：A>=0 AND A+C>B+3 OR NOT D的值为 。False '(A>=0) AND (A+C>B+3) OR (NOT D)26. int(-3.5)，int(3.5)，fix(-3.5)，fix(3.5)，round(-3.5)，round(3.5)的值分别为多少 ， ， ， ， ， 。4 3 3 3 4 4/In

14、t 取小于或等于 Round四舍五入 Fix取整27. 表达式Ucase(Mid("abcdefgh", 3, 4)的值为 。CDEF28. 计算离你毕业还有多少个星期的函数表达式为 。（假定毕业日期为7/1/2007）DateDiff("ww", now, #7/1/2007#)第三章 练习题程序阅读题1. 下面程序运行后的结果为 。7 x=Int (Rnd( )+3'x = 3 If x2 >8 Then y=x2+1 If x2=9 Then y=x2-2 '这句是关键If x2<8 Then y=x3Print y2.

15、 下面程序的功能为 。统计输入的若干个数中奇数和与偶数和存放在M,N中Dim n%, m%Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 ThenIf IsNumeric(Text1) Then' IsNumeric字符转换为数字 Select Case Text1 Mod 2 Case 0 N=N+Text1 Case 1 M=M+Text1 End SelectEnd IfText1=""Text1.SelFocusEnd IfEnd Sub程序填空题3. 程序填空。Dim Count

16、1%Private Sub Text1_KeyPress (KeyAscii As Integer)If ="(" Thenchr(keyascii) Count1=Count1+1ElseIf =")" Thenchr(keyascii) 。Count1=Count1-1End IfIf KeyAscii=13 ThenCount1=0 If Then Print "左右括号配对" ElseIf ThenCount1>0 Print "左括号多于右括号" Count1; "个"Else

17、Print "右括号多于左括号" -Count1; "个"End IfEnd IfEnd Sub4. 输入字符，统计有多少个元音字母，有多少其他字母，直到按了回车键结束并显示结果。大小写不区分。Dim County%, Countc% Private Sub Text1_KeyPress (KeyAscii As Integer) Dim c$C= .UCase(chr(keyascii) If "A"<=C AND C<="Z" Then Select Case . C Case ."A&q

18、uot;, "E", "I", "O", "U" County=County+1 Case .Else Countc=Countc+1 End SelectEnd IfIf .Then keyascii=13 Print "元音字母有"County: "个" Print "其他字母有"Countc; "个"End IfEnd Sub第四章 练习题单选题1. 以下（ ） 式正确的FOR.NEXT 的结构。B（A）For x=1 To St

19、ep 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 i<0Loop Until i=10（C） i=10 （D）i=6Do Do i=i+1 i=i-2Loop Until i>0Loop Until i=13. 下面程序运行的结果为（ ）。B For i=3 T

20、o 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！的

21、值（ ）。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程序阅读题6. 要使下列FOR语句循环执行20次，循环变量的初值应当为 .。33 For k= .To -5 Step -2'循环次数int(终值初值

22、)/步长1)7. 下面程序段显示 .个“*”。10 For i=1 To 5'1+2+3+4，第一次循环没有进行 For j=2 To i Print “*” Next jNext i8. 以下程序运行后。 Si, Sj, Sk, i, j, k的结果分别为 .。3 6 1 4 4 4Private Sub Command1_Click( ) Si=0: Sj=0 For i=1 To 3 For j=1 To i Sk=0 For k=j To 3 Sk=Sk+1 Next k Sj=Sj+1 Next j Si=Si+1 Next i Print Si, Sj, Sk, i, j,

23、 kEnd Sub9. 下面程序运行后的结果为 .。2 20 3 21 4 22 5 23Private Sub Command1_Click( )'此题关键是+和&运算符的使用 P48For i=0 To 3 Print Tab(4*i+1); "2" + i; "2" & i;Next iEnd Sub10. 程序运行结果 .。*$*$Private Sub Command1_Click( )a $= "*": b $= "$"For i=1 To 4 If i Mod 2 = 0 Th

24、en x $= string ( len(a$) + i, b$ )Else x $= string( len(a$) +i, a$)EndIfPrint x$;Next iEnd Sub程序填空题11. 输入字符，要求将字符顺序倒置。 Private Sub Command1_Click( )'此段程序采用的是折半交换法'Mid(C,N1,N2)取字符串C中从第N1个字符开始向右取N2个字符，默认N2到结束， Dim a$, i%, c$, d$, n%a = InputBox$ (“input char”)n = .len(a)For i =1 To .n2 c = Mid

25、(a, i, 1) Mid(a,i,1) = . Mid(a,n-i+1,1) . = cMid(a,n-i+1,1) Next iPrint a End Sub12. 找出被3，5，7除，余数为1的最小的5个正整数。Private Sub Command1_Click( )Dim Countn, nCountn=0n =1Don = n + 1 If . Then n Mod 3=1 And n Mod 5=1 And n Mod 7=1Print n Countn = Countn+1 End IfLoop .While Countn<5End Sub13. 猴子每天吃掉的桃子是所有

26、桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？Private Sub Command1_Click( ) Dim n, i x = 1 For i = 6 To 1 Step 1 .x=(x+1)*2 '剩下的是一半少一个 Next i Print "原来共有" x; "个桃子" End Sub14. 键盘输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub Command1_Click ( )Dim m, x, Tag As Boolean'两种情况循环中断：Tag=False（x是合数）, m&g

27、t;=x2（x是素数）Tag = Falsex = InputBox ("input num")Do While Not Tag M=2: Tag= .True Do While Tag And (m < ( x 2 ) If x Mod m=0 Then . Else .Tag=False m=m+1 Loop If Not Tag Then x = x + 1LoopPrint xEnd Sub 15. 将一个正整数分解为质因数乘积。如，2342*3*3*13 Private Sub Command11_Click( )Dim n, Factor, First A

28、s BooleanN = InputBox ("input num")Factor =2' Factor为因数First = TrueDoDo While .n Mod Factor=0 If First Then Print n; "=" Factor; Else Print "*" Factor; End If .n = n Factor '这样做可以避免合数因数出现 First = False Loop Factor = Factor + 1Loop Until factor > nEnd Sub第五章 练

29、习题程序阅读题1. 运行结果为 .。下标越界Dim aa = Array (1, 2, 3, 4, 5, 6, 7)For i = LBound (a) To UBound(a)' LBound返回最小可用下标 a(i) = a(i) * a(i)'UBound 返回数组上界下标Next iPrint a(i)'此时i = UBound(a)+12. 运行结果为 .。 Option Base 11 2 32 3 13 2 3 Private Sub Command1_Click( )Dim a(3,3)For i =1 To 3 For j =1 To 3If j>

30、;1 And i>1 Then a (i, j) = a(a(i-1, j-1), a(i, j-1) + 1 Else a (i, j) = i * j End If Print a(i, j); " " Next jPrint Next iEnd Sub1 2 3 4 693. 运行结果为 .。Option Base 1Private Sub Command1_Click ( )Dim a, b (3, 3)a = Array (1, 2, 3, 4, 5, 6, 7, 8, 9 )For i =1 To 3 For j =1 To 3 b (i, j) = a

31、(i*j) If (j>=i) Then Print Tab(j*3); b(i,j);tab(n)是绝对偏移量,从该列的开头开始计算,移动n个字符的位置.spc(n)是相对偏移量.从光标处开始计算,移动n个字符的位置.space是插入多少个空格. Next j PrintNext i End Sub程序填空题4. 随机产生6位学生的分数（范围1100），存放在数组a中，以每2分一个“*”显示。如图：Private Sub Command1_Click( ) Dim a( 1 To 6) For i=1 To 6 a(i) = .Int(Rnd*100+1) '随机数通式：Int

32、(Rnd*范围基数) Print .string(a(i)2,"*"); a(i) '注意分号的作用Next iEnd Sub5. 输出大小可变的正方形图案，最外圈是第一层，要求每层上用的数字与层数相同。 Option Base 1 '强之声明下标从1开始 Private Sub Form_Click( )Dim a( )N = InputBox("input N") '本例N为9 .ReDim a(n, n)For i = ( ) 1 To (n+1)2 '每一层图案上要显示的数字 For j = i To n i +

33、1 '数组中元素存放对应的数字 For k = i To n i + 1本例是第一次是所有元素填1；第二次行列起点终点分别分别增加1和减少1，再填增大1的元素值，这时外层元素没有被重填，保留原来的值；依次执行下去。 .a(j, k)=i Next k Next jNext iFor i =1 To n For j =1 To n Print tab(j*3);a(i, j); Next j .Print Next iEnd Sub6. 在一维数组中利用移位的方法显示如图结果Private Sub Form_Click( )Dim a ( 1 To 7) For i =1 To 7 a(

34、i) = i: Print a(i); Next i Print For i =1 To 7 t = .a(7)'先把最后一个元素暂存在t For j = 6 To 1 .step 1'从后向前，元素一次后移 .a(j+1)=a(j) Next j a (1) = t For j =1 To 7 Print a(j); Next jPrint Next iEnd Sub7. 矩阵转置（就是行列互换），矩阵的值为3080之间的随机值。Option Base 1Private Sub Command1_Click( ) Dim a%(2,3), b(3,2), i%, j%, n%

35、 N =5 For i =1 To 2For j=1 To 3 . a(i, j)=Int(Rnd*51+30) ' 赋初值 Print a(i, j) Next j Print Next i For i=1 To 3 For j=1 To 2 . b(i, j)=a(j, i) ' 转置 Print b(i, j); Next j Print Next iEnd Sub8. 下面程序将输入的一个数插入到按递减的有序数列中。插入后该序列仍有序。Private Sub Form_Click( ) Dim a, i%, n%, m% a =Array(19,17,15,13,11,

36、9,7,5,3,2,1) n = Bbound(a) ReDim . preserve a(n+1)' preserve保留原数组中的值 m = Val(InputBox(“输入想插入的数“) For i = Bbound(a)-1 To 0 step-1 If m>=a(i) Then'尚未找到合适的位置 .a(i+1)=a(i) If i = 0 Then a(i)=m'已经到了数组首部，则直接插入 Else .a(i+1)=m Exit For EndIf Next i For i =0 To Bbound(a) Print a(i) Next iEnd S

37、ub9. 冒泡法排序 Private Sub Form_Click( )Dim a, n%, j%, i%, ta = Array (19, 5, 15, 7, 11, 9, 23, 6, 3, 1)n = Ubound(a)For i = 0 To n-1For j=0 To n-i-1 If a(j) > a(j+1) Then .t=a(j) .a(j)=a(j+1) a (j+1)=t EndIf Next jNext iFor i=0 To Ubound(a) Print a(i)Next i End Sub第六章 练习题单选题1. 设有下面的说明Public Sub F1(n

38、%) . 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

39、. 要想从子过程调用后返回两个结果，正确的是（ ）。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