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 属性设置成FalseB. 把它的Visible 属性设置成TrueC. 把它的Enabled 属性设置成FalseD. 把它的Enabled
2、 属性设置成True5. 控件的字体可在属性窗口的（）属性中调整？A. FontB. ColorC. TextD. Caption6. 若要将某命令按钮设置为默认命令按钮。则应设置为True 的属性是（ ）。A. ValueB. CancelC. DefaultD. Enabled7. 在VB 中，记录对象数据的是（）。A. 方法B. 事件C. 属性第 24 页 共 24 页D. 语句8. 在文本框上显示文本的属性是（）。A. ValueB. TextC. PrintD. Enabled9. InputBox 函数返回值的类型为（）。A. 字符串B. 数值C. 变体D. 数值或字符串（视输入的
3、数据而定）10. 设有语句：a = InputBox(请输入数值:,输入示例, 100) 程序执行后,若从键盘上输入数值 20 并按回车键,则变量 a 的值是（）。A. 字符串20B. 字符串120C. 默认值 100D. 数值 12011. 下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。A. Label 控件B. TextBox 控件C. Timer 控件D. CommandButton 控件12. 语句 PRINT25*4的输出结果是（）。 A. 25*4B. 100C. 100D. 出现错误信息13. 只能用来显示字符信息的控件是（）。A. 文本框B. 标签框C. 图片框D
4、. 图像框14. 下列可作为 Visual Basic 变量名的是（）。A. A%AB. 4AC. ?xyD. Stemp15. 下列哪个符号不能作为 VB 中的变量名（）。A. timeflyB. pass4C. min4maxD. R816. 在窗体内声明的变量是（）。A. 局部变量B. 模块变量C. 公共变量D. 任意变量17. 语句 Dim x As Integer 作用是:将 x 定义为（）变量。A. 单精度型B. 整型C. 布尔型D. 字符型18. 在 VB 中,用 Boolean 来表示的数据类型是（）。A. 长整型B. 字符型C. 布尔型D. 单精度型19. 定义常量需要用到的
5、关键字是（）。A. ConstB. DimC. PrivateD. Public20. 如果要处理 3.1415 类数据，使用的变量类型应该是（）。A. SingleB. LongC. IntegerD. String21. 表达式 2*32+2*8/2+32 的值为（）。A. 27B. 31C. 35D. 4222. 数学表达式 X2+3XY 对应的 VB 算术表达式是（）。A. X*2+3X*YB. X*X+3XYC. X*X+3*X*YD. X*X+3*XY23. 在 VB 语言中，求余运算符是（）。A. B. MODC. *D. /24. 判断两个逻辑关系任一满足的逻辑运算是（）。A.
6、 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=60C. T1.7 And W=1.7 Or Wb and acB. abcC. abD. a12228. 设 x=4,y=8,z=7，表达式 xz) Or z=10 then a=1 else a=2 执行后，a 的值为（）。A. 12B. 10C. 1D. 238. 语句 If x=1 Then y=1,下
7、列说法正确的是（）。A. x=1 和 y=1 均为赋值语句B. x=1 和 y=1 均为关系表达式C. x=1 为关系表达式，y=1 为赋值语句D. x=1 为赋值语句，y=1 为关系表达39. 下面程序段中，（）不是把两个数中的大值赋给变量ax。A. Max=IIf(xy,x,y)B. If xy Then Max=x Else Max=yC. Max=x ：If y=x Then Max=yD. If y=x Then Max=yMax=x40. 在 Select 判断结构中，下面的表述中不正确的是（）。A. Case 1B. Case a 5C. Case 3 To 6D. Case i
8、s 25 Then y = x 2 + 5 x = Int(Rnd) + 4If x 2 = 7 Print i , xEnd Sub单击命令按钮后，i 和 x 的值分别是、。87. 下面程序运行后，a、b、c、d 的结果分别。Private Sub Command1_Click() Dim a, b, c, d As IntegerDoFor a = 1 To 2 b = b + 1If a = 1 Then b = 0 c = 5d = d + 2 Next aLoop Until d 10 Print a, b, c, d End Sub88. 假定有如下的 Sub 过程：Sub S(x
9、 As Single, y As Single) t = xx = t + x y = t - yEnd SubPrivate Sub Command2_Click() Dim a As Single, b As Single a = 6b = 4Call S(a, b) Print a, bEnd Sub程序运行后，单击命令按钮输出结果为。89. 阅读下列程序段Dim a(3, 3) As Integer For m = 1 To 3For n = 1 To 3a(m, n) = (m - 1) * 3 + n Next nNext mFor m = 2 To 3For n = 1 To 2
10、 Print a(m, n); Next nNext m程序运行后，显示结果为：。三、综合设计题90. 编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2， 则停止动态显示；单击按钮 3，清除文本框内容。提示：可用定时器控制时间，用系统函数 Now 显示时间（如Text1.Text = Now）。91. 编制程序：求出100-200 之间所有可以被 3 整除的数的总和，将结果用消息框显示输出。92. 编制程序：利用输入框输入 10 个不同的整数，将它们从小到大排序，并打印输出。93. 编制程序实现：设计在一框架中包含三个复选框，只有当其1,3 选中而 2 未选中时， 才
11、在Text1 中显示Hello字符。94. 编一程序能实现在窗体上打印出如下图所示的图形。A AAAAAAAA AAAAAAA BBBBBBB BBBBB BBBB95. 编一程序用于判断一正整数是否为素数。（提示：只能被 1 和本身整除的正整数称为素数。为了判断一个数n 是不是素数，可以将n 被 2 到 sqr(n)之间的所有整数除，如果都除不尽，则n 就是素数，否则n 是非素数。）96. 选用If 和Select 判断结构中任意一种编写满足下列条件的计税要求的程序：少于 1600元，免税；1601-5000 元，征 2%的税；多于 5000 元，超过部分征 5%的税。97. 有 a、b、c
12、 三个数，编一程序实现通过文本框给a、b 赋值；再调用能完成a、b 比较大小的子过程，用c 将大数回传。要求按值传送a、b。98. 编一程序用于求所有的水仙花数。 所谓水仙花数是指一个 3 位数，其各位数字立方和等于该数本身。例如：153 就是一水仙花数，因为 153 = 13+53+33。99. 设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。100. 编写程序实现：输入三角形的三条边a,b,c 的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小
13、于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。101. 编写程序：通过四个命令按钮 Command1-Command4，在图片框 Picture1 内分别实现画点、画线、画圆、擦除等功能。102. 编写程序实现：在窗体上单击按钮 1，可通过输入对话框输入两个字符串；单击按钮 2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。103. 编一程序：用三个文本框分别输入 a、b、c，求一元二次方程 ax2+bx+c=0 的解 x1和 x2，只包括实根。104. 编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）答案一、单选
14、题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. B46. D47. C48. B49. C50. B51. D52. C53. D54. D55. C56. A57. A58. D59. C60. B61. A62.
15、 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 Command1_Click() Timer1.Interval = 5 Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.E
16、nabled = FalseEnd SubPrivate Sub Command3_Click() Timer1.Enabled = False Text1.Text = End SubPrivate Sub Timer1_Timer() Text1.Text = NowEnd Sub91. Private Sub Command1_Click() Dim i, s As IntegerFor i = 100 To 200If i Mod 3 = 0 Then s = s + i Next iMsgBox (100-200 之间所有可以被 3 整除的数的总和为： & Str(s) End Su
17、b92. Private Sub Command1_Click()Dim a(9) , i, j, m As Integer For i = 0 To 9a(i) = Val(InputBox(第 & i + 1 & 个数：) Next iFor i = 0 To 9For j = i + 1 To 9If a(i) a(j) Then m = a(i)a(i) = a(j)a(j) = m End IfNext j Next iFor i = 0 To 9 Print a(i);Next i End Sub93. Private Sub Command1_Click()If Check1.V
18、alue = 1 AndCheck2.Value = 1 And Check3.Value = 0 Then Text1.Text = HelloEnd If End Sub94. Private Sub Command1_Click()Dim i, j As Integer For i = 1 To 4For j = 1 To (2 * i - 1) Print A;Next j PrintNext iFor i = 4 To 1 Step -1For j = (2 * i - 1) To 1 Step -1 Print B;Next j PrintNext i End Sub95. Pri
19、vate Sub Command4_Click()Dim n, k, i, temp As Integern = InputBox(请输入一个正整数) k = Int(Sqr(n)i = 2temp = 0Do While i = k And temp = 0 If n Mod i = 0 Thentemp = 1 Elsei = i + 1End If LoopIf temp = 0 ThenPrint n; 是一个素数 ElsePrint n; 不是素数 End IfEnd Sub96. Private Sub Command1_Click()Dim n, p As Single n =
20、Val(Text1.Text) Select Case nCase Is b Then c = a Else c = b End SubPrivate Sub Command1_Click()Dim a, b, c As Single a = Val(Text1.Text) b = Val(Text2.Text) Call c1(a, b, c)Print c End Sub98. Private Sub Command1_Click()Dim a, b, c, n As Integer For n = 100 To 999a = Int(n / 100)b = Int(n - a * 100
21、) / 10) c = n - (a * 100 + b * 10)If n = a 3 + b 3 + c 3 Then Print n; NextEnd Sub99. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu MenuAEnd If End SubPrivate Sub B_Click(Index As Integer) Select Case IndexCase 1Form1.BackColor
22、= vbWhite Case 2Form1.BackColor = vbYellow Case ElseForm1.BackColor = vbRed End SelectEnd Sub100. Private Sub Command1_Click() Dim a(2), i, j, m As IntegerFor i = 0 To 2a(i) = Val(InputBox(第 & i + 1 & 条边为：) Next iFor i = 0 To 2For j = i + 1 To 2If a(i) a(j) Then m = a(i)a(i) = a(j) a(j) = mEnd If Ne
23、xt jNext iIf a(0) + a(1) a(2) ThenIf a(0) 2 + a(1) 2 = a(2) 2 ThenPrint 能构成直角三角形,面积为： & a(0) * a(1) / 2 ElsePrint 能构成三角形，但不是直角三角形 End IfElsePrint 不能构成三角形 End IfEnd Sub101. Private Sub Command1_Click()Picture1.PSet (Picture1.Width / 2, Picture1.Height / 2) End SubPrivate Sub Command2_Click()Picture1.
24、Line (0, 0)-(Picture1.Width, Picture1.Height) End SubPrivate Sub Command3_Click()Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), 800 End SubPrivate Sub Command4_Click() Picture1.ClsEnd Sub102. Dim a, b, c As String Private Sub Command1_Click()a = InputBox(请输入第一个字符串) b = InputBox(请输入第二个字符串
25、) End SubPrivate Sub Command2_Click() c = a + bMsgBox 连接后的字符串为： & c & 。长度为： & Len(c) End Sub103. Private Sub Command4_Click()a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text)If a = 0 Thenx = -c / b Print xElset = b * b - 4 * a * c If t m Thent = m: m = n: n = t End Ifr = m - nDo While r 0 If n r Thent = n: n = r: r = t End Ifm = n: n = r: r = m - n LoopPrint n End Sub四、简答题（略）
