程序设计语言VB习地的题目集含详解

1、实用标准文案程序设计语言 VB课程习题集一、单选题1. Visual Basic是一种面向（）的程序设计语言。A. 用户B. 事件C. 程序D. 对象2. 在Visual Basic6.0 中规定工程文件的扩展名是（）。A. vbpB. forC. frmD. bas3. Visual Basic6.0 中规定窗体文件的扩展名是（）。A. forB. frmC. vbpD. bas4. 如何使一个标签或按钮控件在运行时不可用（）。A.把它的Visible属性设置成 False精彩文档实用标准文案B.把它的Visible属性设置成TrueC. 把它的Enabled 属性设置成 FalseD. 把

2、它的Enabled属性设置成True5. 控件的字体可在属性窗口的（）属性中调整？A. FontB. ColorC. TextD. Capti on6. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。A. ValueB. CancelC. DefaultD. En abled7. 在VB中，记录对象数据的是（）。A. 方法B. 事件C. 属性D. 语句8. 在文本框上显示文本的属性是（）。A. Value精彩文档实用标准文案B. TextC. PrintD. En abled9. I nputBox 函数返回值的类型为（）。A. 字符串B. 数值C. 变体D. 数值或字符

3、串（视输入的数据而定）10. 设有语句：a = InputBox（"请输入数值："，”输入示例", "100"）程序执行后 若从键盘上输入数值20并按回车键则变量a的值是（）。A. 字符串"20"B. 字符串"120"C. 默认值100D. 数值12011. 下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。A. Label 控件B. TextBox 控件C. Timer 控件D. Comma ndButt on控件12.语句PRINT "25*4"的输出结果是（）精彩文档A

4、. 25*4B. "100"C. 100D. 出现错误信息13. 只能用来显示字符信息的控件是（）。A. 文本框B. 标签框C. 图片框D. 图像框14. 下列可作为 Visual Basic 变量名的是（）。A. A%AB. 4AC. ?xyD. Stemp15. 下列哪个符号不能作为VB中的变量名（）A. timeflyB. pass4C. mi n4 maxD. R816. 在窗体内声明的变量是（）。A. 局部变量B. 模块变量C. 公共变量D. 任意变量17. 语句Dim x As Integer 作用是：将x定义为（）变量。A. 单精度型B. 整型C. 布尔型D.

5、 字符型18. 在VB中,用Boolean来表示的数据类型是（）。A. 长整型B. 字符型C. 布尔型D. 单精度型19. 定义常量需要用到的关键字是（）。A. ConstB. DimC. PrivateD. Public20. 如果要处理3.1415类数据，使用的变量类型应该是（） 精彩文档A. Si ngleB. LongC. In tegerD. Stri ng21. 表达式 2*3A2+2*8/2+3A2的值为（）。A. 27B. 31C. 35D. 4222. 数学表达式 XA2+3XY 对应的VB算术表达式是（）A. X*2+3X*YB. X*X+3XYC. X*X+3*X*YD.

6、 X*X+3*XY23. 在VB语言中，求余运算符是（）。A. %B. MODC. *D. /24. 判断两个逻辑关系任一满足的逻辑运算是（）。A. OrB. AndC. NotD. Ok25. 表达式 4+5 6 * 7 / 8 Mod 9 的值是（）。A. 4B. 5C. 6D. 726. 选拔身高T超过1.7米且体重 W小于60公斤的人，表示该条件的布尔表达式为（）。A. T>=1.7 And W<=60B. T<=1.7 Or W>=60C. T>1.7 And W<60D. T>=1.7 Or W<6027. VB中下列逻辑表达式书写正

7、确的是（）。A. a>b and a>cB. a>b>cC. a wbD. a 工122的值是（）。28. 设 x=4,y=8,z=7 ，表达式 x<y And （Not y>z） Or z<x 精彩文档实用标准文案A. 1B. -1C. TRUED. FALSE29. Sqr（81）+Fix（3.6） 的值是（）。A. 12B. 7C. 8D. 930. 把字符串“123 ”转换为数值123时应该使用的函数是（）A. StrB. VaiC. Le nD. Log31. 表达式 Abs （ -3）+int（3.14）的值为（）。A. 5B. 6C. 0

8、.14D. 6.1432. I nt（R nd * 100）表示的是（）范围内的一个整数。A. 0,100B. 1,99C. 0,99D. 1,10033. Len( "Friend ”)的值是()。A. 6B. 7C. 8D. 934. Int(-3.14)的值是()。A. -3B. -3.14C. -4D. 3.1435. Right (“banana ” , 4 )的值是()。A. baB. bananaC. nanaD. ban36. 表达式 Mid( “Hello ” , 2, 3)的值是()。A. “ II ”B. “Ilo ”C. “ ell”D. “ ello ”37

9、. 语句 if 3*4>=10 then a=1 else a=2执行后，a 的值为（）。A. 12B. 10C. 1D. 238. 语句If x=1 Then y=1,下列说法正确的是（）。A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式，y=1为赋值语句D. x=1为赋值语句，y=1为关系表达39. 下面程序段中，（）不是把两个数中的大值赋给变量Max。A. Max=llf（x>y,x,y）B. If x>y The n Max=x Else Max=yC. Max=x : If y>=x Then Max=yD. If y

10、>=x The n Max=yMax=x40. 在Select判断结构中，下面的表述中不正确的是（）。精彩文档实用标准文案A. Case 1B. Case a > 5C. Case 3 To 6D. Case is <10）次。41. 由"For i=1 To 16 Step 3"决定的循环结构被执行（A. 4B. 5C. 6D. 742. Dim a（5, 5） As Long定义的数组元素的个数是（A. 10B. 11C. 25D. 3643. 用于清空数组数据的关键字是（）。A. EraseB. LboundC. UboundD. Redim44.

11、下列关于do whileloop 和doloop while 循环执行循环体次数的描述正确的是精彩文档实用标准文案()°A. do whileloop循环和doloop while循环至少都执行一次B. do whileloop循环可能不执仃，doloop while 循环至少执仃一次C. do whileloop循环至少执仃一次，doloop while 循环可能不执仃D. do whileloop循环和doloop while循环可能都不执行45. For - Next语句属于程序基本结构中的（）°A. 顺序结构B. 循环结构C. 分支结构D. 选择结构46. 下列关于

12、Exit For的说法，正确的是（）。A. 它可以退出任何类型的循环B. 一个循环只能有一个Exit ForC. 每个循环必须有 Exit ForD. Exit For本身是无条件退出循环47. 在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加（）A. ,B. :C.48. 为了将一个语句写在多行上所使用的行续接符是：()。A. &B. _C. 'D. :49. 在一个语句内写多条语句时，每个语句之间分隔符号是()。A. ,B. ；C. :D. '50. Function 过程的定义，不必须有的是()。A. 过程的名称B. 虚参C. En

13、d FunctionD. 给过程赋值51. 下列过程调用语句中，被调用的过程一定是Sub子过程的语句是()。A. Pro1(x)B. Print Pro2(x)C. x= Pro3(x)D. Call Pro4(x)52. Sub过程与Function过程最根本的区别是()。过程不可以A. Sub过程可以用Call语句直接使用过程名调用，而FunctionB. Function 过程可以有形参，Sub过程不可以C. Sub过程不能返回值，而Function 过程能返回值D. 两种过程参数的传递方式不同53. 当拖动滚动条中的滚动块时，将触发滚动条的事件是()。A. MoveB. SetFocu

14、sC. ScrollD. Change54. 列表项选择后得到的选中索引是指()。A. ValueB. ListValueC. I ndexD. ListI ndex55. 定时器定时工作所触发的事件是()。A. Click()B. Cha nge()C. Timer()D. Load()56. 在图片框中加载图形(c:666.jpg)的方法是()。A. Loadpicture("c:666.jpg")B. Loadpicture()C. prin t("c:666.jpg")D. cls57. 以下关于VB列表框的叙述中()是错误的。A. 可通过属性“

15、 Item ”，返回列表框中的项目B. 可通过属性“ Text”，得到当前列表项中的内容C. 可通过属性“ List In dex ”返回当前选中的列表项的索引D. 可通过属性“ ListCount ”返回列表框中项目的数目58. 为了把焦点移到某个指定控件，所使用的方法是()。A. GetFocusB. VisibleC. RefreshD. SetFocus59. 为了隐藏一个窗体，所使用的方法为()。A. LoadB. ShowC. HideD. UnLoad60. 如果窗体被遮挡，通过调用（）方法，可以将其显示。A. HideB. ShowC. U nloadD. load61. VB

16、窗体设计器的主要功能是（）。A. 建立用户界面B. 画图C. 编辑文字D. 编写程序代码62. 窗体的（）方法可以清除窗体上的图形与文本。A. printB. clsC. loadD. circle63. 窗体没有（）属性。A. Cap tio nB. TextC. PictureD. Top精彩文档实用标准文案64. 当一个工程有多个窗体时，其中的启动窗体是（）。A. 第一个添加的窗体B. 最后一个添加的窗体C. 启动VB时建立的窗体D. 在工程属性对话框中指定的窗体65. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。A. 工程资源管理器窗口B. 工具箱窗口C. 代码窗口D.

17、属性窗口66. 以下哪种属性或者方法可以重新定义VB坐标系？（）A. ScaleMode 属性B. Scale 方法C. DrawWidth 和 DrawStyle 属性D. BorderWidth 和 BorderStyle 属性67. 指令 Circle （ 2000，3000），2000，QBColor，- 3.14/2 , - 3.14 将绘制以下哪种图形？（）A. 圆B. 椭圆D.圆弧68. 使用Line方法时，参数 B和F可以组合使用，下列组合中()是不允许的。A. 不使用B和FB. BC. B 和 FD. F69. 执行命令 Line (200, 200 ) step (500,

18、 500 )后，CurrentX =()。A. 200B. 500C. 700D. 30070. 在Visual Basic中，以下选项中表示单击事件的是()。A. KeyUpB. ClickC. ActivateD. Load71. 下面不属于键盘事件的是()。A. KeyUpB. KeyDow nC. KeyPress精彩文档实用标准文案D. Click72. 每当窗体失去焦点时会触发的事件是（）。A. ActiveB. DeactiveC. LostFocusD. I nitialize73. 设在窗体上有一通用对话框控件Commonialog1，通过调用（）语句可以建立"颜色

19、”对话框。A. Commoni alog1.ShowOpe nB. Commoni alog1.Act ion=2C. Com mon ialog1.ShowColorD. Commo nialog1.Actio n=574. 用语句Commonialog1.ShowOpen 建立了 "打开”对话框以后，要得到用户所选择文件的路径及文件名，应使用Commo ni alog1的（）。A. DialogTitle 属性B. FileTitles 属性C. FileName 属性D. I ni tDir 属性75. 用于显示弹出式菜单的方法名是（）。A. ShowOpen精彩文档B. Sh

20、owMe nuC. ShowPopupD. PopupMe nu76. 打开菜单编辑器的快捷键是（）。A. CTRL+FB. Alt+FC. CTRL+ED. Alt+E77. 下列叙述中，错误的是（）。A. 顺序文件打开后，既可以读又可以写B. 随机文件打开后，既可以读又可以写C. 顺序文件打开后，只能读或者只能写D. 顺序文件和随机文件的打开都使用Open语句78. VB编程中顺序文件的处理将用到关键字是（）A. FileB. SaveC. Ope nD. Disk二、填空题1精彩文档实用标准文案79. Private Sub Comma nd1_Click()a=3b=1For i=1

21、To 3f=a + ba=bb=fNext iPrint fEnd Sub以上程序段运行后，f的结果为。80. 设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为 Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()精彩文档实用标准文案Dim arr(5) As In teger, n As In tegerFor i = 1 To 5arr(i) = 2* i

22、Nextfun arr, nText1.T ext = Str( n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是 81. 阅读下列程序段Opti on ExplicitPrivate Sub Comma nd1_Click()Dim str1 As Stri ngDim str2 As Stri ngstr1 = "ABCDEFG"MySub str1, str2Print str2End SubPrivate Sub MySub(ByValDim c As Stri ng精彩文档a As Stri ng, b As Stri ng)实用标准文案Dim

23、 i As In tegerFor i = Len (a)To 1 Step -1c = c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“ print ”语句的输出结果是_82. 在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Comma nd1_Click()x = In t(R nd) + 6If x A 2 > 25 The n y = x A 2 + 5x = In t(R nd) + 4If x a 2 < 25 The n y = x a 2x = In t(R nd) + 5If x a 2 = 25 The n y =

24、 x a 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为 _。83. 阅读下列程序段Private Sub Comma nd3_Click()精彩文档实用标准文案Prin t pl(3, 6)End SubPublic Fun cti on pl(x As Sin gle, n As In teger) As Sin gleIf n = 0 The npl = 1ElseIf n Mod 2 = 1 The npl = x * x + nElsepl = x * x - nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果

25、是 。84阅读下列程序段Private Sub Comma nd2_Click()Fori = 1 To 3x = 1Forj = 1 To 3x = 3 + j精彩文档For k = 1 To 3x = x + 3Next kNext jNext iPrint xEnd Sub运行程序后，单击命令按钮，输出结果是 85. 阅读下列程序段Private Sub Comma nd1_Click()Dim i As In tegerDim k As In tegerk = 0For i = 0 To 10k = k + 1i = i + kNextPrint k; iEnd Sub请问其循环体共执

26、行了 次，i的值是。精彩文档实用标准文案86. Private Sub Comma nd1_Click()Dim i As In tegerDim x As In tegeri = 1x = 2Doi = i + 1x = x + iLoop Un til i >= 7Print i , xEnd Sub单击命令按钮后，i和x的值分别是的结果分别87. 下面程序运行后，a、b、c、dPrivate Sub Comma nd1_Click()Dim a, b, c, d As In tegerDoFor a = 1 To 2b = b + 1If a = 1 The n b = 0c =

27、5程序运行后，单击命令按钮输出结果为 精彩文档d = d + 2 Next aLoop Un til d > 10Print a, b, c, dEnd Sub88.假定有如下的Sub过程:Sub S(x As Sin gle, y As Sin gle)x = t + xy = t - yEnd SubPrivate Sub Comma nd2_Click()Dim a As Sin gle, b As Sin glea = 6b = 4Call S(a, b)Print a, bEnd Sub89. 阅读下列程序段Dim a(3, 3) As In tegerFor m = 1 To

28、 3For n = 1 To 3a(m, n) = (m - 1) * 3 + nNext nNext mFor m = 2 To 3For n = 1 To 2Print a(m, n);Next nNext m程序运行后，显示结果为： 三、综合设计题90. 编制程序实现：在窗体上，单击按钮 1，在文本框中动态显示当前时间；单击按钮 则停止动态显示；单击按钮 3，清除文本框内容。提示：可用定时器控制时间，用系统函 数 Now 显示时间(如 Text1.Text = Now )。91. 编制程序：求出100-200之间所有可以被 3整除的数的总和，将结果用消息框显示 输出。实用标准文案92.

29、编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。93. 编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Textl中显示"Hello"字符。94. 编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB95. 编一程序用于判断一正整数是否为素数。(提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除， 如果都 除不尽，则n就是素数，否则n是非素数。)96. 选用If和Select判断结构中任意一种编写满

30、足下列条件的计税要求的程序：少于1600元，免税；1601-5000 元，征2%的税；多于 5000元，超过部分征 5%的税。97. 有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成 a、b比较大小的子过程，用 c将大数回传。要求按值传送 a、b。98. 编一程序用于求所有的"水仙花数”。所谓"水仙花数”是指一个3位数，其各位数字 精彩文档实用标准文案立方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。99. 设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。100. 编写程序实现：输入三角形的三条

31、边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。101. 编写程序：通过四个命令按钮Command1-Command4 ，在图片框Picture1内分别实现画点、画线、画圆、擦除等功能。102. 编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。103. 编一程序：用三个文本框分别输入a

32、、b、c,求一元二次方程 ax2+bx+c=0 的解x1和x2，只包括实根。104. 编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）答案一、单选题1. D2. A3. B4. C5. A6. C7. C8. B9. A10. A11. B12. A13. B14. D15. D16. B17. B18. C19. A20. A21. C22. C23. B24. A25. B26. C27. A28. D29. A30. B31. B32. C33. A34. C35. C36. C37. C38. C39. D40. B41. C42. D43. A44. B45.

33、B46. D47. C48. B49. C50. B51. D52. C53. D54. D55. C56. A57. A58. D59. C60. B61. A62. B63. B64. D65. C66. B67. C68. D69. C70. B71. D72. C73. C74. C75. D76. C77. A78. C精彩文档实用标准文案、填空题179.980.3081.GFEDCBA82.2083.384.1585.4、1486.7、2987.3、1、 5、 1288. 12、289. 4、5、7、8三、综合设计题90. Private Sub Comma nd1_Click()

34、Timerl.l nterval = 5Timer1.E nabled = TrueEnd SubPrivate Sub Comma nd2_Click()Timer1.E nabled = False精彩文档实用标准文案End SubPrivate Sub Comma nd3_Click()Timerl.E nabled = FalseText1.T ext =""End SubPrivate Sub Timer1_Timer()Text1.T ext = NowEnd Sub91. Private Sub Comma nd1_Click()Dim i, s As In

35、tegerFor i = 100 To 200If i Mod 3 = 0 The n s = s + iNext i"& Str(s)MsgBox ("100-200之间所有可以被 3整除的数的总和为:End Sub92. Private Sub Comma nd1_Click()Dim a(9) , i, j, m As In tegerFor i = 0 To 9a(i) = Val(InputBox(" 第 ” & i + 1 & ” 个数：")Next i精彩文档实用标准文案For i = 0 To 9For j = i

36、 + 1 To 9If a(i) > a(j) Thenm = a(i)a(i) = a(j)a(j) = mEnd IfNext jNext iFor i = 0 To 9Print a(i);Next iEnd Sub93. Private Sub Comma nd1_Click()If Check1.Value = 1 AndCheck2.Value = 1 And Check3.Value = 0 ThenText1.T ext = "Hello"End IfEnd Sub94. Private Sub Comma nd1_Click()Dim i, j As

37、 In teger精彩文档For i = 1 To 4For j = 1 To (2 * i - 1)Prin t "A"Next jPrintNext iFor i = 4 To 1 Step -1For j = (2 * i - 1) To 1 Step -1Prin t "B"Next jPrintNext iEnd Sub95. Private Sub Comma nd4_Click()Dim n, k, i, temp As In tegern = In putBox("请输入一个正整数 ")k = In t(Sqr( n)

38、i = 2temp = 0Do While i <= k And temp = 0精彩文档实用标准文案If n Mod i = 0 Thentemp = 1Elsei = i + 1End IfLoopIf temp = 0 The nPrint n;"是一个素数"ElsePrint n;"不是素数"End IfEnd Sub96. Private Sub Comma nd1_Click()Dim n, p As Sin glen = Val(Text1.T ext)Select Case nCase Is <= 1600p = 0Case

39、1600 To 5000p = (n - 1600) * 0.02Case Elsep = 5000 * 0.02 + (n - 5000) * 0.05End SelectEnd Sub97. Private Sub c1(ByVal a As Single, ByVal b As Single, c)If a > b The n c = a Else c = bEnd SubPrivate Sub Comma nd1_Click()Dim a, b, c As Si nglea = Val(Text1.T ext)b = Val(Text2.T ext)Call c1(a, b, c

40、)Print cEnd Sub98. Private Sub Comma nd1_Click()Dim a, b, c, n As In tegerFor n = 100 To 999a = In t(n / 100)b = In t(n - a * 100)/10)精彩文档实用标准文案c = n - (a * 100 + b * 10)If n = a A 3 + b A 3 + c A 3 The n Print n;NextEnd Sub99. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Sin

41、gle,Y As Si ngle)If Button = 2 ThenPopupMe nu Me nuAEnd IfEnd SubPrivate Sub B_Click(l ndex As In teger)Select Case In dexCase 1Form1.BackColor = vbWhiteCase 2Form1.BackColor = vbYellowCase ElseForm1.BackColor = vbRedEnd Select精彩文档实用标准文案End Sub100. Private Sub Command1_Click()Dim a(2), i, j, m As In tegerFori = 0 To 2a(i) = Val(I nputBox(" 第 ” & i + 1 & ” 条边为：")Next iFori = 0