《2022年程序设计语言VB_习题集 .pdf》由会员分享，可在线阅读，更多相关《2022年程序设计语言VB_习题集 .pdf（25页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 1 页 共 25 页程序设计语言VB 课程习题集西南科技大学成人、网络教育学院版权所有习题【说明】 ：本课程程序设计语言VB （编号为 01001）共有单选题 , 填空题 1,简答题 , 综合设计题等多种试题类型，其中，本习题集中有 简答题 等试题类型未进入。一、单选题1. Visual Basic 是一种面向（D ）的程序设计语言。A. 用户B. 事件C. 程序D. 对象2.在 Visual Basic6.0 中规定工程文件的扩展名是（A ） 。A. vbp B. for C. frm D. bas 3. Visual Basic6.0 中规定窗体文件的扩展名是（B） 。A. for B
2、. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（C ） 。A. 把它的 Visible 属性设置成False B. 把它的 Visible 属性设置成True C. 把它的 Enabled 属性设置成False D. 把它的 Enabled 属性设置成True 5.控件的字体可在属性窗口的（A）属性中调整？A. Font 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 25 页 - - - - - - - - - 第 2 页 共 25
3、页B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True 的属性是（ C ） 。A. Value B. Cancel C. Default D. Enabled 7.在 VB 中，记录对象数据的是（）C。A. 方法B. 事件C. 属性D. 语句8.在文本框上显示文本的属性是（）。B A. Value B. Text C. Print D. Enabled 9. InputBox 函数返回值的类型为（）。A A. 字符串B. 数值C. 变体D. 数值或字符串（视输入的数据而定）10.设有语句： a = InputBox( 请输入数值 :
4、, 输入示例 , 100) 程序执行后 ,若从键盘上输入数值 20 并按回车键 ,则变量 a的值是（）。A A. 字符串 20 B. 字符串 120 C. 默认值 100 D. 数值 120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。B A. Label 控件B. TextBox 控件C. Timer 控件D. CommandButton 控件12.语句 PRINT 25*4 的输出结果是（） 。A A. 25*4 B. 100 C. 100 D. 出现错误信息名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - -
5、- 名师精心整理 - - - - - - - 第 2 页，共 25 页 - - - - - - - - - 第 3 页 共 25 页13.只能用来显示字符信息的控件是（）。B A. 文本框B. 标签框C. 图片框D. 图像框14.下列可作为Visual Basic 变量名的是（） 。D A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB 中的变量名（） 。D A. timefly B. pass4 C. min4max D. R8 16.在窗体内声明的变量是（）。B A. 局部变量B. 模块变量C. 公共变量D. 任意变量17.语句 Dim x As In
6、teger 作用是 :将 x 定义为（）变量。B A. 单精度型B. 整型C. 布尔型D. 字符型18.在 VB 中,用 Boolean 来表示的数据类型是（）。C A. 长整型B. 字符型C. 布尔型D. 单精度型19.定义常量需要用到的关键字是（）。A A. Const B. Dim C. Private D. Public 20.如果要处理3.1415 类数据，使用的变量类型应该是（）。A A. Single B. Long C. Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - -
7、 - - - 第 3 页，共 25 页 - - - - - - - - - 第 4 页 共 25 页D. String 21.表达式 2*32+2*8/2+32的值为（）。C A. 27 B. 31 C. 35 D. 42 22.数学表达式X2+3XY对应的 VB 算术表达式是（） 。C A. X*2+3X*Y B. X*X+3XY C. X*X+3*X*Y D. X*X+3*XY 23.在 VB 语言中，求余运算符是（）。B A. B. MOD C. * D. / 24.判断两个逻辑关系任一满足的逻辑运算是（）。A A. Or B. And C. Not D. Ok 25.表达式 4+5 6
8、 * 7 / 8 Mod 9 的值是（）。B A. 4 B. 5 C. 6 D. 7 26.选拔身高T 超过 1.7 米且体重W 小于 60 公斤的人，表示该条件的布尔表达式为（）。C A. T=1.7 And W=60 B. T=60 C. T1.7 And W=1.7 Or Wb and ac B. abc C. ab D. a122 28.设 x=4,y=8,z=7 ，表达式 xz) Or z=10 then a=1 else a=2 执行后， a 的值为（） 。C A. 12 B. 10 C. 1 D. 2 38.语句 If x=1 Then y=1, 下列说法正确的是（） 。C A.
9、 x=1 和 y=1 均为赋值语句B. x=1 和 y=1 均为关系表达式C. x=1 为关系表达式，y=1 为赋值语句D. x=1 为赋值语句，y=1 为关系表达39.下面程序段中， （）不是把两个数中的大值赋给变量ax。D A. Max=IIf(xy,x,y) B. If xy Then Max=x Else Max=y C. Max=x ：If y=x Then Max=y D. If y=x Then Max=y Max=x 40.在 Select 判断结构中，下面的表述中不正确的是（）。B A. Case 1 B. Case a 5 C. Case 3 To 6 D. Case is
10、 25 Then y = x 2 + 5 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 25 页 - - - - - - - - - 第 13 页 共 25 页x = Int(Rnd) + 4 If x 2 = 7 Print i , x End Sub 单击命令按钮后，i 和 x 的值分别是7 、29 。87.下面程序运行后，a、b、c、d 的结果分别3 1 5 12。Private Sub Command1_Click() Dim a, b, c, d As In
11、teger Do For a = 1 To 2 b = b + 1 If a = 1 Then b = 0 c = 5 d = d + 2 Next a Loop Until d 10 Print a, b, c, d End Sub 88.假定有如下的Sub 过程：Sub S(x As Single, y As Single) t = x x = t + x 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 25 页 - - - - - - - - - 第 15 页 共
12、 25 页y = t - y End Sub Private Sub Command2_Click() Dim a As Single, b As Single a = 6 b = 4 Call S(a, b) Print a, b End Sub 程序运行后，单击命令按钮输出结果为12 2。89.阅读下列程序段Dim a(3, 3) As Integer For m = 1 To 3 For n = 1 To 3 a(m, n) = (m - 1) * 3 + n Next n Next m For m = 2 To 3 For n = 1 To 2 Print a(m, n); Next
13、n Next m 程序运行后，显示结果为：4 5 7 8。三、综合设计题90.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数 Now 显示时间（如Text1.Text = Now ） 。91.编制程序：求出100-200 之间所有可以被3 整除的数的总和，将结果用消息框显示输出。92.编制程序：利用输入框输入10 个不同的整数，将它们从小到大排序，并打印输出。93.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3 选中而 2 未选中时，才在 Text1 中显示 Hello 字
14、符。94.编一程序能实现在窗体上打印出如下图所示的图形。A AAA 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 25 页 - - - - - - - - - 第 16 页 共 25 页AAAAA AAAAAAA BBBBBBB BBBBB BBB B 95.编一程序用于判断一正整数是否为素数。（提示：只能被1 和本身整除的正整数称为素数。为了判断一个数n 是不是素数，可以将n 被 2 到 sqr(n)之间的所有整数除，如果都除不尽，则n 就是素数，否则n 是非素数。
15、）96.选用 If 和 Select 判断结构中任意一种编写满足下列条件的计税要求的程序：少于 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.编写
16、程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。101.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1 内分别实现画点、画线、画圆、擦除等功能。102.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮 2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。103.编一程序：
17、用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0 的解 x1和 x2，只包括实根。104.编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）,答案名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 25 页 - - - - - - - - - 第 17 页 共 25 页一、单选题1. D 2. A 3. B 4. C 5. A 6. C 7. C 8. B 9. A 10. A 11. B 12. A 13. B 14. D 15. D
18、 16. B 17. B 18. C 19. A 20. A 21. C 22. C 23. B 24. A 25. B 26. C 27. A 28. D 29. A 30. B 31. B 32. C 33. A 34. C 35. C 36. C 37. C 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 25 页 - - - - - - - - - 第 18 页 共 25 页38. C 39. D 40. B 41. C 42. D 43. A 44. B 45
19、. B 46. D 47. C 48. B 49. C 50. B 51. D 52. C 53. D 54. D 55. C 56. A 57. A 58. D 59. C 60. B 61. A 62. B 63. B 64. D 65. C 66. B 67. C 68. D 69. C 70. B 71. D 72. C 73. C 74. C 75. D 76. C 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 25 页 - - - - - - - - -
20、第 19 页 共 25 页77. A 78. C 二、填空题 1 79. 9 80. 30 81. GFEDCBA 82. 20 83. 3 84. 15 85. 4、 14 86. 7、 29 87. 3、 1、5、12 88. 12、2 89. 4、 5、7、8 三、综合设计题90. Private Sub Command1_Click() Timer1.Interval = 5 Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Comm
21、and3_Click() Timer1.Enabled = False Text1.Text = End Sub Private Sub Timer1_Timer() Text1.Text = Now End Sub 91. Private Sub Command1_Click() Dim i, s As Integer For i = 100 To 200 If i Mod 3 = 0 Then s = s + i 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 25
22、 页 - - - - - - - - - 第 20 页 共 25 页Next i MsgBox (100-200之间所有可以被3 整除的数的总和为： & Str(s) End Sub 92. Private Sub Command1_Click() Dim a(9) , i, j, m As Integer For i = 0 To 9 a(i) = Val(InputBox( 第 & i + 1 & 个数： ) Next i For i = 0 To 9 For j = i + 1 To 9 If a(i) a(j) Then m = a(i) a(i) = a(j) a(j) = m En
23、d If Next j Next i For i = 0 To 9 Print a(i); Next i End Sub 93. Private Sub Command1_Click() If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 Then Text1.Text = Hello End If End Sub 94. Private Sub Command1_Click() Dim i, j As Integer For i = 1 To 4 For j = 1 To (2 * i - 1) Print A; Nex
24、t j Print Next i For i = 4 To 1 Step -1 For j = (2 * i - 1) To 1 Step -1 Print B; Next j Print 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 25 页 - - - - - - - - - 第 21 页 共 25 页Next i End Sub 95. Private Sub Command4_Click() Dim n, k, i, temp As Integer n = I
25、nputBox( 请输入一个正整数) k = Int(Sqr(n) i = 2 temp = 0 Do While i = k And temp = 0 If n Mod i = 0 Then temp = 1 Else i = i + 1 End If Loop If temp = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub 96. Private Sub Command1_Click() Dim n, p As Single n = Val(Text1.Text) Select Case n Case Is b Then
26、c = a Else c = b End Sub Private Sub Command1_Click() Dim a, b, c As Single 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 25 页 - - - - - - - - - 第 22 页 共 25 页a = Val(Text1.Text) b = Val(Text2.Text) Call c1(a, b, c) Print c End Sub 98. Private Sub Command1_Cli
27、ck() Dim a, b, c, n As Integer For n = 100 To 999 a = Int(n / 100) b = Int(n - a * 100) / 10) c = n - (a * 100 + b * 10) If n = a 3 + b 3 + c 3 Then Print n; Next End Sub 99.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MenuA E
28、nd If End Sub Private Sub B_Click(Index As Integer) Select Case Index Case 1 Form1.BackColor = vbWhite Case 2 Form1.BackColor = vbYellow Case Else Form1.BackColor = vbRed End Select End Sub 100. Private Sub Command1_Click() Dim a(2), i, j, m As Integer For i = 0 To 2 a(i) = Val(InputBox( 第 & i + 1 &
29、 条边为： ) Next i For i = 0 To 2 For j = i + 1 To 2 If a(i) a(j) Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 25 页 - - - - - - - - - 第 23 页 共 25 页m = a(i) a(i) = a(j) a(j) = m End If Next j Next i If a(0) + a(1) a(2) Then If a(0) 2 + a(1) 2 = a(2) 2 Then P
30、rint 能构成直角三角形,面积为： & a(0) * a(1) / 2 Else Print 能构成三角形，但不是直角三角形 End If Else Print 不能构成三角形 End If End Sub 101. Private Sub Command1_Click() Picture1.PSet (Picture1.Width / 2, Picture1.Height / 2) End Sub Private Sub Command2_Click() Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height) End Sub Priva
31、te Sub Command3_Click() Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), 800 End Sub Private Sub Command4_Click() Picture1.Cls End Sub 102. Dim a, b, c As String Private Sub Command1_Click() a = InputBox( 请输入第一个字符串) b = InputBox( 请输入第二个字符串) End Sub Private Sub Command2_Click() c = a + b Ms
32、gBox 连接后的字符串为： & c & 。长度为： & Len(c) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 25 页 - - - - - - - - - 第 24 页 共 25 页End Sub 103. Private Sub Command4_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then x = -c / b Print x Else t
33、 = b * b - 4 * a * c If t m Then t = m: m = n: n = t End If r = m - n Do While r 0 If n r Then t = n: n = r: r = t End If m = n: n = r: r = m - n Loop Print n End Sub 四、简答题（略）,名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 25 页 - - - - - - - - - 第 25 页 共 25 页名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 25 页 - - - - - - - - -