程序设计语言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.把它的Enabled属性设置成True5.控件的字体可在

2、属性窗口的（）属性中调整?A. FontB. ColorC. TextD. Cap ti onTrue的属性是（）。6. 若要将某命令按钮设置为默认命令按钮。则应设置为A. ValueB. CancelC. DefaultD. En abled7. 在VB中，记录对象数据的是（）。A.方法B.事件C.属性D.语句8. 在文本框上显示文本的属性是（）。A. Value精彩文档实用标准文案B. TextC. PrintD. En abled9. I npu tBox 函数返回值的类型为（）。A.字符串B.数值C.变体D.数值或字符串（视输入的数据而定）10.设有语句：a = InputBox（&q

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

4、错误信息13.只能用来显示字符信息的控件是（）。A.文本框B.标签框C.图片框D.图像框14. 下列可作为 Visual Basic变量名的是（）。A. A%AB. 4AC. ?xyD. Stemp15. 下列哪个符号不能作为 VB中的变量名（）。A. timeflyB. Pass416. 在窗体内声明的变量是（）。 精彩文档C. min4 maxD. R8实用标准文案A. 局部变量B. 模块变量C. 公共变量D. 任意变量17.语句Dim x As Integer 作用是：将x定义为（）变量。A. 单精度型B.整型C.布尔型D.字符型18.在VB中,用Boolean来表示的数据类型是（）。A

5、.长整型B.字符型C.布尔型D.单精度型19.定义常量需要用到的关键字是（）。A. ConstB. DimC. PrivateD. P ublic20.如果要处理3.1415类数据，使用的变量类型应该是（）。精彩文档实用标准文案A. Si ngleB. LongC. In tegerD. Stri ng21.表达式 2*3人2+2*8/2+3人2的值为（）。A. 27B. 31C. 35D. 4222.数学表达式XA2+3XY对应的VB算术表达式是（）。A. X*2+3X*YB. X*X+3XYC. X*X+3*X*YD. X*X+3*XY23.在VB语言中，求余运算符是（）。A. %B. M

6、OD24.判断两个逻辑关系任一满足的逻辑运算是（）。精彩文档C. *D. /实用标准文案C. a <bD. a 工122A. 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中下列逻辑表达式书写正确的是（）。A. a&g

7、t;b and a>cB.a>b>c28.设 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. LenD. Log31.表达式 Abs (-3 ) +int(3.14)的值为()。A. 5B. 632. I nt(R nd * 100)表示的是()范围内的一个整数。精彩

8、文档C. 0.14D. 6.14实用标准文案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.a II”lloC.a 11”ellD.“ello37.语句if 3*4>=10 then a=1 e

9、lse a=2执行后，a的值为（A. 12B. 10C. 1D. 238.语句If x=1 The n y=1,下列说法正确的是（A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式，y=1为赋值语句D. x=1为赋值语句，y=1为关系表达ax。39.下面程序段中，（）不是把两个数中的大值赋给变量MA. Max=llf(x>y,x,y)B. If x>y The n Max=x Else Max=y40.在Select判断结构中，下面的表述中不正确的是（）。精彩文档A. Case 1B. Case a > 5C. Case 3 To 6D

10、. 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.下列关于do whileloop和doloop while 循环执行循环体次数的描述正确的是精彩文档实用标准文案()。A. do whileIo op循环和doloop while循环至少都执行一次B. do wh

11、ileloop循环可能不执行，doloop while 循环至少执行一次C. do whileloop循环至少执行一次，doloop while 循环可能不执行D. do whileloop循环和doloop while循环可能都不执行45. For - Next 语句属于程序基本结构中的（A. 顺序结构B. 循环结构C. 分支结构D. 选择结构46.下列关于Exit For的说法，正确的是（）。A. 它可以退出任何类型的循环B. 一个循环只能有一个Exit ForC.每个循环必须有Exit ForD. Exit For本身是无条件退出循环47.在Visual Basic代码窗口中，将某一条语

12、句加以注释和说明时，应在语句前加（）。A. ,B. :C. '()。48.为了将一个语句写在多行上所使用的行续接符是:A. &B.B. 'C. :49.在一个语句内写多条语句时，每个语句之间分隔符号是（）。A. ,B. ；C. :D. '50. Fun ction 过程的定义，不必须有的是（A. 过程的名称B.虚参C. End FunctionD.给过程赋值51. 下列过程调用语句中，被调用的过程一定是Sub子过程的语句是（A. P ro1(x)B. Print P ro2(x)C. x= P ro3(x)D. Call P ro4(x)精彩文档实用标准文案52

13、. Sub过程与Function 过程最根本的区别是（）。A. Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B. Function 过程可以有形参，Sub过程不可以C. Sub过程不能返回值，而Function 过程能返回值D.两种过程参数的传递方式不同53.当拖动滚动条中的滚动块时，将触发滚动条的事件是（）A. MoveB. SetFocusC. ScrollD. Change54.列表项选择后得到的选中索引是指（）。A. ValueB. ListValueC. I ndexD. ListI ndex55.定时器定时工作所触发的事件是（）。A. Click()

14、56.在图片框中加载图形（c:666.jpg）的方法是（）。A. Load picture("c:666.j pg")B. Load picture()C. prin t("c:666.j pg")D. cls57.以下关于VB列表框的叙述中（）是错误的。A.可通过属性“Item ”，返回列表框中的项目B.可通过属性“Text”，得到当前列表项中的内容C.可通过属性“ListIndex ”返回当前选中的列表项的索引D.可通过属性“ListCount ”返回列表框中项目的数目58.为了把焦点移到某个指定控件，所使用的方法是()。A. GetFocusB.

15、VisibleC. RefreshD. SetFocus59. 为了隐藏一个窗体，所使用的方法为（）。A. LoadB. ShowC. HideD. UnLoad精彩文档实用标准文案60. 如果窗体被遮挡，通过调用（）方法，可以将其显示。A. HideB. ShowC. Un loadD. load61. VB窗体设计器的主要功能是（）。A. 建立用户界面B.画图C.编辑文字D.编写程序代码62. 窗体的（）方法可以清除窗体上的图形与文本。A. printB. clsC. loadD. circle63. 窗体没有（）属性。A. Ca ptionB. TextC. PictureD. Top精

16、彩文档实用标准文案64. 当一个工程有多个窗体时，其中的启动窗体是（A. 第一个添加的窗体B. 最后一个添加的窗体C. 启动VB时建立的窗体D. 在工程属性对话框中指定的窗体65. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）A.工程资源管理器窗口B. 工具箱窗口C. 代码窗口D. 属性窗口66. 以下哪种属性或者方法可以重新定义VB坐标系？（）A. ScaleMode属性B. Scale 方法C. DrawWidth和DrawStyle 属性D. BorderWidth和 BorderStyle 属性67.指令 Circle （ 2000，3000），2000，QBColor，-

17、 3.14/2 , - 3.14 将绘制以下哪种 图形？（）A.圆B.椭圆C.扇形精彩文档实用标准文案D.圆弧）是不允许的。68.使用Line方法时，参数 B和F可以组合使用，下列组合中（A.不使用B和FB. BC. B 和 FD. F69.执行命令 Line (200, 200 ) step (500, 500 )后，CurrentX =(A. 200B. 500C. 700D. 30070.在Visual Basic中,以下选项中表示单击事件的是（）。A. KeyUpB. ClickC. ActivateD. Load71.下面不属于键盘事件的是（B. KeyDow nC. KeyP re

18、ss精彩文档A. KeyUp实用标准文案D. Click72.每当窗体失去焦点时会触发的事件是（）。A. ActiveB. DeactiveC. LostFocusD. I nitialize73.设在窗体上有一通用对话框控件Commonialog1，通过调用（）语句可以建立“颜色”对话框。A. Commoni alog1.Show OpenB. Commoni alog1.Act ion=2C. Commo nialog1.ShowColorD. Common ialog1.Act ion=574.用语句 Commonialog1.ShowOpen建立了 “打开”对话框以后，要得到用户所选D

19、. I nitDir属性择文件的路径及文件名，应使用 Commo nialog1 的（）。A. DialogTitle 属性B. FileTitles 属性C. FileName 属性75.用于显示弹出式菜单的方法名是（）。A. ShowO pen精彩文档实用标准文案B. ShowMe nuC. Show PopupD. PopupMenu76.打开菜单编辑器的快捷键是（）。A. CTRL+FB. Alt+FC. CTRL+ED. Alt+E77.下列叙述中，错误的是（A.顺序文件打开后，既可以读又可以写B. 随机文件打开后，既可以读又可以写C. 顺序文件打开后，只能读或者只能写D. 顺序文件

20、和随机文件的打开都使用Open语句78. VB编程中顺序文件的处理将用到关键字是（）。A. FileB. SaveC. OpenD. Disk二、填空题1精彩文档实用标准文案79. P rivate Sub Comma nd1_Click()a=3b=1For i=1 To 3f=a + ba=bb=fNext iPrint fEnd Sub以上程序段运行后，f的结果为80. 设有如下通用过程:Public Sub fun (a() As In teger, x As In teger)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为 Text1的

21、文本框和一个名称为 Command1 的命令按钮，然后编写如Private Sub Comma nd1_Click()精彩文档实用标准文案Dim arr(5) As In teger, n As In tegerFori = 1 To 5arr(i) = 2* iNextfun arr, nText1.T ext = Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是81. 阅读下列程序段Op ti on Exp licitPrivate Sub Comma nd1_Click()Dim str1 As Stri ngDim str2 As Stri ngstr1 =

22、 "ABCDEFG"MySub str1, str2Print str2End SubPrivate Sub MySub(ByVala As Stri ng, b As Stri ng)Dim c As Stri ng精彩文档实用标准文案Dim i As In tegerFor i = Len (a)To 1 Ste p -1c = c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“ print ”语句的输出结果是82. 在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Comma nd1_Click()x = In t(R nd

23、) + 6If x A 2 > 25 The n y = x 人 2 + 5x = In t(R nd) + 4If x A 2 < 25 The n y = x 人 2x = In t(R nd) + 5If x A 2 = 25 The n y = x a 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为83. 阅读下列程序段Private Sub Comma nd3_Click()精彩文档实用标准文案Print P 1(3, 6)End SubP ublic Fun cti on p l(x As Sin gle, n As In teger) A

24、s Sin gleIf n = 0 The npl = 1ElseIf n Mod 2 = 1 The npl = x * x + nElsepl = x * x - nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是84. 阅读下列程序段Private Sub Comma nd2_Click()Fori = 1 To 3Forj = 1 To 3x = 3 + j精彩文档实用标准文案End SubFor k = 1 To 3Next kNext jNext iPrint xEnd Sub运行程序后，单击命令按钮，输出结果是85.阅读下列程序段Pr

25、ivate Sub Comma nd1_Click()Dim i As In tegerDim k As In tegerFor i = 0 To 10NextPrint k; i请问其循环体共执行了精彩文档次，i的值是实用标准文案86. P rivate Sub Comma nd1_Click()Dim i As In tegerDim x As In tegerDoLoop Un til i >= 7Print i , xEnd Sub单击命令按钮后，i和x的值分别是87.下面程序运行后，a、b、c、d的结果分别Private Sub Comma nd1_Click()Dim a,

26、b, c, d As In tegerDoFor a = 1 To 2If a = 1 The n b = 0 c = 5精彩文档Next aLoop Un til d > 10Print a, b, c, dEnd Sub88.假定有如下的Sub过程:Sub S(x As Sin gle, y As Sin gle)End SubPrivate Sub Comma nd2_Click()Dim a As Si ngle, b As Sin gleCall S(a, b)Print a, bEnd Sub程序运行后，单击命令按钮输出结果为精彩文档89.阅读下列程序段Dim a(3, 3)

27、 As In tegerFor m = 1 To 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，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮 3，清除文本框内容。提示：可用定时器控制时间，用系统函数 Now 显示时间(如 Text1.Text = Now )。91.编制程序：求出100-200之间所有可以被 3整除的数的总和，将结果

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

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

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

31、方程 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. A精彩文档20. A21. C22. C23. B24. A25. B26. C27. A28. D29. A30. B31. B32. C33. A34. C35. C36. C37. C38. C39. D精彩文档40. B41. C42. D43. A44. B45.

32、B46. D47. C48. B49. C50. B51. D52. C53. D54. D55. C56. A57. A58. D59. C精彩文档实用标准文案End Sub60. 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、 142986.87.1、 5、 1288.12、289.90.综合设计题Private Sub Comma nd1_Click()Tim

33、erl .In terval = 5Timer1.E nabled = TruePrivate Sub Comma nd2_Click()Timer1.E nabled = False精彩文档End SubPrivate Sub Comma nd3_Click()Timerl.E nabled = FalseText1.T ext =""End SubP rivate Sub Timer1_Timer()Text1.T ext = NowEnd Sub91. P rivate Sub Comma nd1_Click()Dim i, s As In tegerFor i =

34、100 To 200If i Mod 3 = 0 The n s = s + iNext iMsgBox ("100-200之间所有可以被 3整除的数的总和为：” & Str(s)End Sub92. P rivate 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 + 1 To 9If a(i) > a

35、(j) Thenm = a(i)a(i) = a(j)a(j) = mEnd IfNext jNext iFor i = 0 To 9Print a(i);Next iEnd Sub93. P rivate Sub Comma nd1_Click()If Check1.Value = 1 AndCheck2.Value = 1 And Check3.Value = 0 ThenText1.T ext = "Hello"End If94. P rivate Sub Comma nd1_Click()Dim i, j As In teger精彩文档实用标准文案Fori = 1

36、To 4For j = 1 To (2 * i - 1)Prin t "A"Next jPrintNext iFor i = 4 To 1 Ste p -1For j = (2 * i - 1) To 1 Step -1Prin t "B"Next jPrintNext iEnd Sub95. P rivate Sub Comma nd4_Click()Dim n, k, i, temp As In tegern = Inp utBox（"请输入一个正整数 "）k = In t(Sqr( n)temp = 0Do While i &l

37、t;= k And temp = 0 精彩文档If n Mod i = 0 Thentemp = 1ElseEnd IfLoopIf temp = 0 The nPrint n;"是一个素数”ElsePrint n;"不是素数”End IfEnd Sub96. P rivate Sub Comma nd1_Click()Dim n, p As Si ngle n = Val(Text1.T ext)Select Case nCase Is <= 1600Case 1600 To 5000p = (n - 1600) * 0.02精彩文档Case Elsep = 500

38、0 * 0.02 + (n - 5000) * 0.05End SelectEnd Sub97. P rivate Sub c1(ByVal a As Sin gle, ByVal b As Si ngle, c)If a > b The n c = a Else c = bEnd SubPrivate Sub Comma nd1_Click()Dim a, b, c As Sin glea = Val(Text1.T ext)b = Val(Text2.T ext)Call c1(a, b, c)Print cEnd Sub98. P rivate Sub Comma nd1_Clic

39、k()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 人 3 + c 人 3 The n Print n;NextEnd Sub99. P rivate Sub Form_MouseDow n(Butt on As In teger, Shift As In teger, X As Sin gle,Y As Si ngle)If Button = 2 ThenPop

40、upMenu MenuAEnd 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 npu tBox("第 ” & i + 1 & ”条边为：")Next iFori = 0 To 2For j = i + 1 To 2If a(i)