VisualBasic程序设计复习题及参考答案

1、中南大学网络教育课程（专科）考试复习题及答案 Visual Basic程序设计与应用 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填 在题后的括号内。 1. Visual Basic 程序中分隔一行中各语句的字符是（ ）。 A） B）: C） D）_ 2. 下列可作为 Visual Basic 的变量名的是（ ）。 A: FilenameB: A （ A B ） C: A%DD :Print 3. 要让菜单项无效，应将（ ）属性值设置为 False 。 A. VisibleB.EnabledC. MoveableD.Checked 4. 以下过程是（ ）事

2、件。 Prviate Sub Form_Load（ ） End Sub a：命令按钮的单击 B:命令按钮的装载 c。窗体的装载 D:窗体的单击 5. Vb 中描述文件扩展名的是（ ）属性。 A:DriveB:Pattern c: FileNameD:Path 6. 关于 Visual Basic 中事件的说法中，不正确的为（）。 A）事件是由 Visual Basic 预先定义好的，能够被对象识别的动作 B）Dblclick （双击）是 Visual Basic 中的一种事件 c） 一个对象可以识别一个或多个事件 D） 对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件

3、中可设置滚动条是（ ）。 A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在 Visual Basic 中建立一个空窗体， （ ） 不会是其默认名。 A. Form1B. Form2C. FormxD. Form10 9. Const One&=1，贝U One%（）类型的常数。 A）整型 B）字节型 C）长整型 D）单精度型 10. 关于逻辑型数据，下列说法错误的是（ ）。 A. 逻辑型数据只有两种可能值： True 或者 False B. 当把逻辑值转换为数值时False转为0, True转为1 C. 当把其他类型数据转换为逻辑数据时，非0数转换为True, 0转换为

4、False D. 逻辑型数据以 2 个字节存储 11. 以下（ ）不是 Visual Basic 的特点。 A: 结构化程序设计 B: 集成可视化程序开发环境 C:事件驱动编程机制D:可将用户的编程思想自动转换成程序代码 12. 窗体的 load 事件可以被用来实现的功能为（ ）。 A: 确定窗体的位置 B: 从内存中清楚一个窗体 C: 在程序启动时对属性和变量初始化D: 重画窗体 13. 单复选框的控件名称为（ ）。 A.OptionBotton B.CheckBoxC.PictureBoxD. Image 14. 若要禁止窗体被移动,可设置窗体的（ ）属性为 False。 A Moveab

5、leB: MoveC: MinButtonD: ControlBox 15. 若要设置定时器的定时间隔设为10秒,应将（ ）属性值设为 10000。 A. IntervalB. ValueC. EnabledD. Text 16. 以下（ ）是文件夹列表框。 A. DirListBox B. DriveListBox C. FileListBox D. ComboBox 17. 以下（ ）可从通用对话框的“字体”对话框中返回用户选择的字体名。 A. FileName B. Path C. FontName D. Color 18. 下列哪个操作可以清除文本框对象 Text1 的内容（ ）。 A

6、. Text1.Text= B. Text1.cls C. Text =D. cls 19. 要想通过单击 Comma nd1 弹出 Form2 窗体,则可在 Comma nd1的单击事件中，使用（ ）命 令。 A. Load Form2 B. Form2.Show C. Form2.SetFocus D.Form2.PopupMenu 20. 以下属性中只在运行时起作用的为（ ）。 A. Caption 属性 B.Visible属性 C. BorderStyle 属性 D.Picture 属性 21. 在运行时,若要使文本框获得输入焦点,可调用文本框对象的（）方法来实现。 A. Refres

7、h B. GetFocus C. SetFocus D. Tab 22. 在窗体中利用 Print 方法输出文本信息时,信息的输出位置由（）属性设置。 A. Left B. Top C. x,y D. CurrentX,CurrentY 23. 语句： Dim student（10,5 to 100） 定义的是一个（ ）维数组。 A. 2B.3 C.5 D.10 24. 默认情况下,语句： Dim student（10 to 11 ,4） 定义的数组有（ ）个元素。 A. 20 B.22C.10 D.11 25. 已 知 Eng(1)=90 , Math(1)=80 , Comp(1)=95

8、Total(1)= Eng(1)+Math(1)+Comp(1) , 则 Total(1)= ( )。 A. 265 B.90 C.80 D.95 26. 已知在“通用”代码有以下语句： Dim A( ) As Integer 则,在某一事件代码中使用( )是正确的。 A. ReDim A(30,4) B. ReDim A(4) As C. ReDim A(100)D. ReDim A( ) 27. Int (-23.512 )的值为( )。 A.-23 B.-24 C.24 D.23 28. 将 ASCII 码转换成字符串的函数是( )。 A. Chr$ B. Str$ C. Asc D.

9、Val 29. 表达式 Mid(Beijing2008,4,4) 的值是( )。 A. Beij B. jing C. inj2 D. 2008 30. A$=+3.14+2，贝U Vai (A$)的值为()。 A. +3.14+2 B. +5.14 C. 3.14 D. 5.14 、填空题：请把答案填在题中横线上。 1. Visuai Basic 中有一种控件组合了文本框和列表框的特性 , 这种控件是 。 2. Visuai Basic 提供的对数据文件的三种访问方式为随机访问方式 , 和二进制访 问方式。 3. 为了能在运行时把 d:pic 文件夹下的图形 a.jpg 装入图片框 Pict

10、ure1, 所使用的语句为 4. 计时器控件能有规律的以一定时间间隔触发 事件 ,并执行该事件过程中的程序代 码。 5. Visuai Basic 应用程序中标准模块文件的扩展名是 。 2 6. 与数学表达式 cos (a+b) (3+x)+5对应的Visual Basic表达式是. 7. 要同时选定窗体上的多个控件 , 可以按住 或键,然后依次单击窗体上的各控 件. 8. 在 Visual Basic 中最基本的对象是 . 9. 要在 Visual Basic 工程中添加一个新的窗体 ,可以在主窗口的工具栏中选择 按钮 . 10. 在代码窗口中 , 输入某行代码并按回车键之后 , 如果代码变

11、成 颜色 , 说明该行代码有 语法错误 . 三、程序改错： 1. 程序功能：已知 24 有 8个正整数因子 (即： 1,2,3,4,6,8,1 2,24) ，而 24正好被其因子个 数 8 整除。问 100,300 之间有多少个这样的数。程序中有两行有错误。改正错误，使它 能输出正确的结果。 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer Dim x As Integer Dim i As Integer n2 = 0 For x = 100 To 300 n2 = 0 For i = 1 To 100 If x Mo

12、d i = 0 Then n1 = n1 + 1 End If Next i If x Mod n1 = 0 Then n2 = n2 + 1 End If Next x Print n2 End sub 2. 程序功能：利用函数 pd 计算 15000 之间能被 17 和 37 整除的数的个数。程序中有错误， 改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() Dim i As Integer Dim s As Integer s = 0 For i = 1 To 5000 If pd(i) Then s = s + 1 Next i Print s

13、 End Sub Private Function pd(x As Integer) As Boolean If x Mod 17 = 0 Or x Mod 37 = 0 Then pd = True Else pd = False End If End Fuction 3. 程序功能：根据整型参数m计算100-999的平方根的倒数之和。程序的函数fun()中有 一行有错误，改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(100, 999), #.#) End Sub Private Function fun(m A

14、s Integer, n As Integer) As Single y = 0 For i = m To n t = 1 / Sqr(i) y = y + t Next i fun = t End Function 四、程序填空题。 1. 士兵在演练过程中，队伍变换成10、21、35、60 行时，队形都能成为矩形。问参加演练的士兵 最少有多少人？ Private Sub Form_Click() Dim a%, b%, c%, d%, n% a = 10 b = 21 c = 35 d = 60 n = 60 Do While n = n + 1 Loop Print n End Sub 2

15、. 用cos(x)疋1 xA2/2!+xA4/4!-+(-1)A(n)*(x(2n)/(2n)!的公式求近似值，直到最后一项绝对值 小于0.00001为止。设x = 7。 Private Sub Form_click() Dim x As Integer, i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox( 请输入 x： ) i = 0 z = 1 y = 1 Do While Abs(z) 0.00001 factor = 1 i = i + 1 For j = 1 To 2 * i factor = fac

16、tor * j Next j xpower = x A (2 * i) y = y + z Loop Print format(y, 0.#) End Sub 3. 已知一个数列的前 3项为 0，0，1，从第 4项开始，每项为前 3 项的和，编程求此数列的第 39 个数。 Private Sub Form_Click() Dim i%, f0&, f1&, f2&, f3& FontSize = 14: FontBold = True f0 = 0 f1 = 0 f2 = 1 For i =4 to 39 f0 = f1 f1 = f2 f2 = f3 Next i Print f3 End

17、Sub 五、编程题： 1、编写程序，验证输入的3 位正整数是否为同构数。 X 若出现在自己的平方数的末 3 位，则 X 是 同构数。如 625 的平方是 390625，则 625 为同构数。 2. 设有如下两组数据： A: 1 ， 2，3， 4， 5，6， 7， 8, 9, 10 B: 100, 99, 98, 97, 96, 95,94, 93, 92, 91, 编写一个程序，把上面两级数据分别读入两个数组中，然后把两个数组中对应的元素相加，即 1+10010+ 91。并把相应的结果放入三个数组中，最后输出第3个数组的值。 3. 用Circle方法画圆弧和椭圆弧。如下图所示。要求：中心点相同

18、，圆弧长度和角度随机，颜色 随机，圆弧数为20。 4. 在图片框中用 PSet方法随机地产生若干个彩色的点。窗体上有3个命令按钮：“画点”、“清 除”、和“退出”。如下图所示。 PSet 方法：对象名.Pset :Step ( x,y ):,颜色 六、问答题(15分) 1. 简述多文档及其特性。 简述对话框的分类和特点。 VB程序设计与应用答案 、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填 在题后的括号内。 1 2 3 4 5 B A B C B 6 7 8 9 10 D C C C D 11 12 13 14 15 D C A A A 16 17 18

19、19 20 A C A A B 21 22 23 24 25 C D A C A 26 27 28 29 30 C B A B C 二、填空题：请把答案填在题中横线上。 1. 组合框 2. 顺序访问方式 3. Picture1.picture=LoadPicture(d:pica.jpg ” 4. Timer 5. .bas 6. (cos(a+b) )A2/(3*x)+5 7. Shift Ctrl 8. 窗体 9. 添加窗体 10. 红色 三、程序改错题 1. 第七行n2 = 0 改成n1 = 0 第八行 For i = 1 To 100 改成 For i = 1 To x 2. 第一行O

20、r改成 And 3. 第十行fun = t 改成fun = y 四、程序填空题 1. (a * 1000 + b * 100 + c * 10 + d) * e = b * 1000 + c * 100 + d * 10 + e 2. 100 - i - j = (100 - 5 * i - j) * 2 3. c = (i Mod 100) 10 五、编程题： 1. 编程代码为： Private Sub Comma nd1_Click() Dim i, m As In teger For i = 100 To 999 m = (i * i) Mod 1000 If i = m The n P

21、rint i End If Next i End Sub 2. 编程代码 Private Sub Comma nd1_Click() Dim a(10), b(), c(10) As In teger Fori = 1 To 10 a(i) = i Next i b = Array(100, 99, 98, 97, 96, 95, 94, 93, 92, 91) Fori = 1 To 10 c(i) = a(i) + b(i - 1) Print c(i) Next i End Sub 随机，圆弧数为20。 3. 用Circle方法画圆弧和椭圆弧。如下图所示。要求：中心点相同，圆弧长度和角度

22、随机，颜色 Private Sub Comma nd2_Click() pi = 3.1415926 a1 = 0 c = 1 DrawWidth = 1 For r = 100 To 2000 Step 100 a2 = (a2 + (pi / 2) Mod (2 * pi) Circle (1800, 1200), r, QBColor(c), a1, a2 a1 = a1 + (pi / 4) c = c + 1 Next r End Sub DrawWidth = DrawWidth + 1 Private Sub Comma nd3_Click() Cis End Sub 4. 编程

23、代码为： Private Sub Comma nd1_Click() Picture1.DrawWidth = 10 For i = 1 To 100 r = In t(256 * Rnd) g = In t(256 * Rnd) b = In t(256 * Rnd) x = Rnd * Width y = Rnd * Height Picture1.PSet (x, y), RGB(r, g, b) Next i End Sub Private Sub Comma nd2_Click() Picture1.Cls End Sub Private Sub Comma nd3_Click() End End Sub 六、问答题简述多文档及其特性。 答： 定义：多文档界面 （MDI， Multiple Document Interface）允许创建在单个容器窗体中包含多 个窗体的应用程序。绝大多数基于 Windows 的大型应用程序都是多文档界面，例如， Microsoft Word 和 Microso