VB程序设计.doc

VB程序设计复习题一、选择题1. 改变控件在窗体中的上下位置，应修改控件的_A_属性A .Top B. Left C.Width D. Right 2. 将通用对话框类型，设置为字体对话框，可修改该控件的_D_属性A. font B. filename C. filter D. action 3. 标签控件最重要的属性是_A_A. caption B. text C. name D. width 4. 文本框中选定的内容，由下列_C_属性反映。A. Text B.Caption C. Seltext D. sellenght 5. 选中复选框控件时，value属性的值，可以是_ D_A.true B. false C. 0 D.1 6. 设置列表框选中的文本用_D_属性A. selected B. caption C. text D. list 7. 简单组合框的style值为_B_A .0 B. 1 C. 2 D. 3 8. 在文件列表框的实现文件的多重选择，应修改该控件的_D_属性A. filename B. pattem C. path D. multiselect 9. 语句listl.removeitem 1 将删除list.listindext等于_D_的项目。A. 0 B. 2 C. 3 D. 1 10. 计时器的interval属性为0时，表示_A_。A. 计时器失效 C. 相隔0 毫秒B. 相隔0秒 D. 计时器的enable属性为false 11. 以下的vb 常量中非法的是 (B)a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 12. 要想返回文本框中输入的内容则可利用其 ( B )属性进行编程a.caption b. d. righttoleft 13. 下列不能用commondialog 控件调用的对话框是 ( D)a. open/save b. help c. font d. search 14. vb 应用程序是分层管理的,其最高的层次为 ( A)a. 工程 b. 模块 c. 窗体 d. 过程 15. vb 程序设计中的窗体在oop 中称为 ( C)a. 屏幕 b. 事件 c. 对象 d. 控件 16. 欲使某命令按钮失效，应修改命令按钮的 (D) 属性。A. Visible B. Caption C. Enable D. Enabled 17. 要使标签能透出窗体的背景，必须设置 (A) 属性。 A. BackStyle B. BorderStyle C. Appearance D. BackColor 18. 用鼠标拖动滚动条中滚动框并释放，将触发滚动条的 (D) 事件。AScroll B.Change C.DragOver D. A和B 19. 组合框的类型由Style属性决定，简单组合框的Style属性值应为 (B) 。A. 0 B. 1 C. 2 D. 3 20. 下面哪些控件不会影响到界面设计效果。 (A) A. 定时器 B. 文本框 C. 标签 D. Line控件 21. Clear方法适用于 (D) 控件。A.图片框 B.窗体 C.复选框 D.组合框 22. 下列哪个变量的取法是不正确的（ C）AsTmeBT_TempCT12%DT_12 23. 如果要设置窗体的标题栏，应选择以下那种属性（ B ）ANameBCaptionCTipsDText 24. 如果要给字体加删除线，可以选择下列那种属性（C） AFontNameBFontSizeCFontStrikethruDFontUnderLine 25. 下列哪个变量的取法是不正确的（D ） ATNameBT_TempCT32DT32# 26. 清除列表框的所有选项应选择下列哪种方法（ A ）AClearBClsCClearItemDRemoveItem 27. 下面哪些控件不会影响到界面设计效果。 (C) A. Label B. Text C. CommonDialog D. Frame 28. 要使得窗体在出现之前就完成相关的程序设置可在 (C ) 事件中进行编程A. linkopen B. KeyPress C. load D. click 29. 要使文本框中显示密码符有效，必须首先设置 （B） 属性。AText B. MultiLine C.Locked D.Enabled 30. 要在垂直位置上移动控件，应利用控件的 (C) 属性。 A. Left B. Width C. Top D.Height 31. 下列表达式中, 其值为0的是 ( C) A. 7/9 B. 7 mod 15 C. 79 D. 15 mod 9 32. 一个对象可以执行的动作和可被对象识别的动作分别称为 （A） 。A、事件、方法 B、方法、事件 C、属性、方法 D、过程、事件 33. 在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual Basic”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为 （B） 。A”Label”、”Label” B、”Label1”、”Visual Basic”C、”Label1”、”Label1” D、”Caption”、”Label” 34. （D） 对象不具有Caption属性。A、Label B、Option C、Form D、Timer 35. Interger类型的变量可存的的最大整数是 （D） 。A、250 B、256 C、32768 D、32767 36. 下列数据类型中，占用内存最小的是 （B） 。A、Boolean B、Byte C、Integer D、Single 37. 已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是 （B） 。A、A=B And B=C And C0 B、A+CB And B+C A And C0C、(A+C)=C And A-C 0 D、A+BC And A-BC And C0 38. 下面 （C） 是日期型常量。A、”12/19/99” B、12/19/99 C、#12/19/99# D、12/19/99二、判断题：1. 全局变量用global或public关键字声明，且仅在通用声明处可以定义。（F） 2. 如果某子程序add用public static sub add（）定义，则该子程序的变量都是局部变量。 （F） 3. move方法的一般形式是：对象名.move A，B，C，D，其中A指Left，C 指width。（F） 4. 清除list1列表框对象的内容的语句是list1.cls。 （F） 5. 清除combo1对象的内容是combo1.clear。 （T） 6. 对象的可见性用enabled属性设置，可用性用visible属性设置。 （F） 7. 滚动条控件不可作为用户输入数据的一种方法。 （F） 8. 只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。 （F） 9. 控件是对象，而窗体不是对象，它只是控件对象的窗口。 （F） 10. TextBox与Label有许多共同特点，它们都能显示和输入文本。 （F） 11. 有的对象属性既可在属性窗口中设定又可在程序代码中设定。 （T） 12. 在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True.(T) 13. 标签没有Change事件和SetFocus方法。 （T） 14. 事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性决定，而Sub过程是由户自定义。 （F） 15. Function函数有参数传递，并且一定有返回值。 (F) 16. 滚动条控件不可作为用户输入数据的方法。 （T） 17. Msgbox函数建立的信息框能显示信息又能输入用户的信息。 (F） 18. Dim i, j as integer 表明i和j都是整型变量。(F) 19. 菜单每一菜单项都是控件，可以通过点击菜单项或通过光标选择并按回车键，以触发Click事件。(T) 20. 某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。(F) 21. 目录列表框中的列表项不可以通过AddItem方法进行添加。(T) 22. 在表达式中，运算符两端的数据类型要求一致。(T) 23. Visual Basic程序的运行，仅能从某一窗体启动，如Form1窗体。(F) 24. VB是一种面向对象的程序设计语言。(T) 25. 在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件。(F) 26. 在VB中，文件菜单的“删除工程”的作用是将当前VB工程在硬盘中删除掉。(F) 27. 有一个程序在属性窗口中设置了它的窗体字体大小为10号，而程序代码若设置了它的窗体字体大小为20号，那么当程序运行后实际的窗体字体大小为20号。(T) 28. 所有的VB 的变量，都有隐含说明字符和强调声明两种方法来定义。(F) 29. 所有的控件在程序运行以后都是可见的。(F) 30. 标签控件可以用来让用户输入数据。(F) 31. 在框架控件上放置的控件可以移动到框架控件的外面。(F) 32. 如果一个列表框一共有5个选项，而当选中第三项时，这时列表框的ListIndex属性为2。(T) 33. 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务。（F） 34. 除了标准控件外，还可引入其它控件及第三方厂商研制的控件。（T） 35. TextBox与Label有许多共同特点，它们都能显示和输入文本。（F） 36. Listl.clear是清除Listl的全部列表项，所以Clear是对象的方法。（T） 37. 有的对象属性既可在属性窗口中设定又可在程序代码中设定。（F） 38. 在框架控件内的几个单选按钮中，可有一个或多个单选按钮的Value属性为True.(F) 39. Variant是一种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error和Null等特殊值。(T) 40. 窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。 (T) 41. 框架控件和形状控件都不能响应用户的鼠标的单击事件。 (T) 42. 在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗体卸载。 (F) 43. 当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会自动反这一条目添加到它的列表框中。(F) 44. 当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件。(F) 45. 如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。（T）三、填空题1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：_Public mystring as string*15_ 2. 设X$ =“abc123456”则“a”+str$(val(right(X$,4)的值是_ a3456_ 3. 拖动滚动条中的滚动框将会产生_ Scroll _、_ Change _ 4. 请写出清除以下对象内容的语句：文本框_ Text1.text=”_,窗体_ Form1.Cls _,列表框_ List1.Clear _,组合框_ combol1.Clear _ 5. 变量min表示_货币数据变量_类型的变量。 6. 如果：I=11：J=3：I=int(-8.6)+IJ+13/3 MOD 5，则I值是_2_ 7. 请写出满足以下条件的 VB表达式：0X10，_ X0 and x=0 and x=100 and x mod 2=0 and x mod 30_。 8. 下列循环语句控制的循环次数为 0 FOR K=1 TO 10 STEP 1 9. 表达式 1 and 0的值 (False) 。 10. 设a=2,b=3,c=4,d=5,表达式 （ab Xor bc） OR bd EQV ac 的结果为 （True） 。 11. a 和b 中有仅只有一个为1，相应的Visual Basic逻辑表达式为 （a=1 xor b=1） 。 12. 设I=5，则由下列循环语句控制的循环次数是 （6） 。Do I=I+2Loop While I4+3 Or 5+310 And Not ( 4+25 EQV 3+52 ) 17. 按照数据文件的存储方法的不同，文件可以分为三种不同的类型：_顺序文件_、_随机文件_和二进制文件。 18. 下列循环语句控制的循环次数为_0_。FOR K=1 TO 20 STEP 2 19. VB表达式92 MOD 45 2 *3 的值_4_。 20. 设x=2,y=4,a=4,b=6,表达式 （ax Xor bx） OR xy IMP yb 的结果为 (True) 。 21. a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为 (a1 xor b1) 。 22. 当x=2时，语句if x=2 then Print x=2 的结果值是 (True) 。 23. 声明单精度常量g(重力加速度)代表98可写成： (const g=9.8) 。 24. VB 的工作模式可分为三种：“_设计_”、“_运行_”以及“_中断_”。 25. 由For k=35 to 0 step 3:next k循环语句控制的循环次数是 （0） 。 26. 想拥有“快捷键”这项功能，必须在“菜单编辑器”中增加一些特殊的设置，也就是在字母之前加上_& 27. 若要在字符串asdgewl中取dge,则使用函数_（ Mid$(asdgewl$,2,3)实现。 28. 设x为大于零的实数，则大于x的最小偶数的Visual Basic表达式是 （iif(int(x) mod 2=0,int(x)+2,int(x)+1)） 29. 设x的初值为5，则由下列循环语句控制的循环次数是 （1） 。 Do While x=5 x=x-1Loop 在上程序中，若x的初值为-5，则循环次数为 (0) 30. sst=”ABC12DE”,则Val(sst)= (0)四、程序阅读（假如所有的变量类型都已定义）1. 程序1FOR J=10 TO 5 step 2 K=J+1 If K6 then exit forNEXT JPRINT K；J输出的结果_7 4_ 2. 程序2 A=1：I=0SELECT CASE A*2CASE 1 A=A+1CASE 2 A=A+2CASE ELSE A=A+3END SELECT A的值为_3_ 3. 程序4C=InputBox(“请输入字符串：”)p=” ”For L=Len(c) To 2 Step 2P=Mid(C, L 1, 2) + PNext LPrint P End Sub 如果输入：ABCDEFG ，则结果：BCDEFG 4. 程序4Dim Y As IntegerPrivate Sub Command_Click() Dim X As Integer X=1 Y=1 Call AA(Y+1) Z=BB(X) Print X, Y, ZEnd SubPrivate Sub AA(ByVal Z As Integer) Y = Z + X Z = X + YEnd SubPrivate Function BB (ByRef Y As Integer) Y = Y + 1 BB=X + YEnd Function 结果：2 2 2 5. 程序5Private Sub Command1_Click()Dim S As Integer, I As IntegerS = 0For I = 1 To 10 If ZS(I) Then If I * 2 = 10 Then Print Str(I * 2) S = S + 1 Else Exit For End If End IfNext 1Prirt “S=” Str(S)End SubPublic Function ZS (ByVal X As Integer) AS BooleanDim J As IntegerJ = 2Do While J X If Int (X / J) = X / J Then Exit Do J = J + 1LoopIf J = X Then ZS = TrueElse ZS = FalseEnd IfEnd Function 结果：6 10 S=3 6. 程序6Private Sub Form_Click() Dim a1 As Integer,a2 As Integer a1=10:a2=100 wu a1,a2 print “a1=”;a1,”a2=”;a2 End SubPrivate Sub wu(b1 As Integer,Byval b2 As Integer) b1=b12:b2=b2 Mod 13 print “b1=”;b1,”b2=”;b2 End Sub 写出程序运行时单击窗体后,在Form1上的输出结果。结果为：b1=5 b2=9 a1=5 a2=100 7. 程序7Private Sub Form_Click( ) Dim k as integer, s as integer, j as integer Form1.clsFor k=1 to 5 s=0 for j=k to 5 s=s+1next jnext kPrint “s=”,s End Sub写出程序运行时单击窗体后的输出结果。 结果为：s=11. 程序8Dim a As IntegerPrivate Sub Command1_Click() Static s As Integer If s 5 Then s = s + a Else s = s * a End If a = sEnd SubPrivate Sub Form_Load() a = 5End Sub当连续按三次Command1按钮后，s的值_625_。 2. 程序9Private Sub Form_Click() For i = 1 To 7 Print Spc(7 - i); If i = 1 Then Print * Else Print *; Spc(2 * (i - 1) - 1); * End If Next iEnd Sub以上程序的输出结果：（32） 3. 程序10Private Sub Form_Click() Dim str1, str2 As String Dim s As String Dim i As Integer str1 = abcdefghijk For i = Len(str1) To 1 Step -2 str2 = str2 & Mid(str1, i, 1) Next iEnd Sub以上程序运行完成以后，str2的值为_ kigeca _。 4. 程序11Dim Y As IntegerPrivate Stub Command_Click() Dim X As Integer X=1 Y=1 Call AA(Y+1) Z=BB(X) Print X, Y, ZEnd SubPrivate Sub AA(ByVal Z As Integer) Y = Z + X Z = X + YEnd SubPrivate Function BB (ByRef Y As Integer) Y = Y + 1 BB=X + YEnd Function 结果：2 2 2 5. 程序12 private sub Form_click() N = 3Dim A(3，3) As IntegerFor I = I To N For J = I To N A(I, J) = (J l) * N + I Next JNext IFor I = 2 To N For J = 1 To I 1TEMP = A(I, J)A(I, J) =A(J, I)A(J, I) = TEMP Next JNext IFor X = 1 To N Print X, A(X, N +X - I), A(X, X)Next X End Sub 结果：1 0 4 2 7 8 6. 程序13Private Sub Command1_Click( ) N=0:x=1:y=0 Do While x20 n = n + 1y = x + yx = x * (x + 1)LoopText1.Text = n= & Str(n)Text2.Text = x= & Str(x)Text3.Text = y= & Str(y)End Sub结果为：n=3 x=42 y=9 7. 程序14Private Sub Form_Click()Dim a As Integer, b As Integer, z As Integera = 1b = 1For n = 1 To 3z = chg(a, b)Form1.Print n=; n, z=, zNext nEnd SubFunction chg(a As Integer, b As Integer) As IntegerDim n As IntegerFor n = 0 To 2a = a + bNext nchg = aEnd Function 写出程序运行时单击窗体后，Form1上的输出结果。n=1 z=4 n=2 z=7 n=3 z=101. 程序15Private Sub Form_Click()Dim x(5) As Integerx(1) = 8x(2) = 3x(3) = 1x(4) = 6x(5) = 4For i = 1 To 4 For j = i + 1 To 5 If x(i) x(j) Then t = x(i): x(i) = x(j): x(j) = tNext j, iFor k = 1 To 5 Form1.Print x(; k; )=; x(k)Next kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1 五、程序填空1. 以下程序是单击命令按钮，将用户在组合框中输入的某一值，与组合框其他项进行比较，如有相同，则将相同表项删除，其他项，则不动。Private Sub command1_click（） Dim a As String , I As Integer A$=Trim(Combo1.Text) If a”Then _ for I=0 to Combo1.ListCount-1_ If Combo1.List(i)=a Then _ Combo1.RemoveItem i _ Next I End If Combo1.SetFocusEnd Sub 2. 下列程序用于对输入的x和n的值，进行计算S=X/2!-X2/3!+x3/4!-x4/5!+.+(-1)n-1xn/(n+1)! Private function Fs(byval x as single.byval n as integer) as single Dim sum as single Dim remultiply as long Dim I as integer Sum=0 Remultiply=_ I _ I=1 Do until _ In _Remultiply=_ remultiply*I _Sum=sum+remultiply_ I=I+1_ _ loop _ _ Fs=sum _ End function 3. 输入三个数，由大到小排序Dim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(Please input first integer, 输入正整数) B = Val(InputBox(Please input second integer, 输入正整数) C = Val(InputBox(Please input third integer, 输入正整数) If _ A=B _ Then nTemp = A: A = B: B = nTemp End If If _ A=C _ Then nTemp = A: A = C: C = nTemp End If If _ B k Then n = i - j m1 =( Int(Sqr(n) ) For m2 = 2 To m1 If n Mod m2 = 0 Then （Exit for） Next m2 If (m2 m1 ) Then Print i; =; j; +; n; , End If Next j Print Next i End Sub 2. 从计算机输入三个数,找出中间数Private Sub FindMidNum( ) X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER) Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER) IF (X=Z ) THENPRINT Y ELSEIF (X=Z ) THENPRINT Z ELSEPRINT XENDIF End Sub 3. 程序说明 由输入对话框输入n（设n为大于零且小于30的自然数），计算下列表达式的值，并在标签框Label1上显示。 程序Private Sub Form_Click( ) Dim n As Integer,sum as Double,k As Integer n=Val(InputBox(“n=”,”请输入自然数n(n0 且n30)”) Do (While n=30) n=val(InputBox(“n=”,”请重输入”) Loop Sum=0 (k=0) do k=k+1 sum= (sum+1/(k*(k+1) Loop Until k=n Label1.Caption=”Sum=”+Str(sum)End Sub收礼盒 分享 应用程序 公共主页 人人生活 人人小组 同名同姓 人人中学 大学百科 人人热点 注册 登录 帮助 给我们提建议 更多海大临时抱佛脚 听说，你们VB考的不错，听说你们VB掐过，听说胡西川这回放水很厉害，。 2012-01-08 全部人人公共主页公共主页 资料 状态 相册 日志 分享 上一篇 下一篇 共36篇 【VB】VB题库选择，填空，判断2012年01月11日 15:22:38 一、判断 共10题 （共计10分）第1题 Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法. 答案：N第2题 Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动. 答案：Y第3题图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作. 答案：N第4题若已在窗体中加入了一个通用对话框:要求在运行时,通过ShowOpen打开对话框时,只显示扩展名为 DOC 的文件,则对通用对话框的 Filter的属性设置应该是: (*.DOC)| ( .DOC) . N第5题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案：Y第6题清除list1列表框对象的内容的语句是list1.cls. 答案：N第7题图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值. 答案：N第8题当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0. 答案：N第9题框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y第10题通用对话框只能用SHOW方法进行调用. 答案：N二、单项选择 共10题 （共计10分）第1题用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:Hide B:Checked C:Visible D:Enabled 答案：C第2题定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分 B:秒 C:毫秒 D:微秒 答案：C第3题要在图片框P1中打印字符串 HowAreYou ,应使用语句().A:Picture1.Print= HowAreYou B:P1.Picture=LoadPicture( HowAreYou )C:P1.Print HowAreYou D:Print HowAreYou 答案：C第4题下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案：C第5题启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1 B:窗体1 C:工程 D:窗体 答案：A第6