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

1、程序设计复习题及参考答案中南大学网络教育课程( 专科) 考试复习题及答案Visual Basic程序设计与应用一、 选择题: 在每小题给出的四个选项中, 只有一项是符合题目要求的, 请把所选项前的字母填在题后的括号内。1. Visual Basic程序中分隔一行中各语句的字符是( ) 。 A) B) :C) D) _2. 下列可作为Visual Basic的变量名的是( ) 。 A: Filename B: A( AB) C: A%D D : Print3. 要让菜单项无效, 应将( ) 属性值设置为False。 A. Visible B. Enabled C. Moveable D. Che

2、cked4. 以下过程是( ) 事件。Prviate Sub Form_Load( )End Sub A: 命令按钮的单击 B: 命令按钮的装载C; 窗体的装载 D: 窗体的单击5. Vb中描述文件扩展名的是( ) 属性。 A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中, 不正确的为( ) 。 A) 事件是由Visual Basic预先定义好的, 能够被对象识别的动作 B) DblClick( 双击) 是Visual Basic中的一种事件C) 一个对象能够识别一个或多个事件D) 对于一个系统提供的对象能够识别哪些事

3、件, 需要程序员自己定义7. 下列控件中可设置滚动条是( ) 。 A. 检查框( 复选框) B. 框架 C. 文本框 D. 标签框8. 在Visual Basic中建立一个空窗体, ( )不会是其默认名。 A. Form1 B. Form2 C. Formx D. Form109. Const One&=1, 则One为( ) 类型的常数。 A) 整型 B) 字节型C) 长整型D) 单精度型10. 关于逻辑型数据, 下列说法错误的是( ) 。 A. 逻辑型数据只有两种可能值: True或者FalseB. 当把逻辑值转换为数值时False转为0, True转为1 C. 当把其它类型数据转换为逻辑

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

5、体的( ) 属性为False。AMoveable B: Move C: MinButton D: ControlBox15. 若要设置定时器的定时间隔设为10秒, 应将( ) 属性值设为10000。 A. Interval B. Value C. Enabled D. Text16. 以下( ) 是文件夹列表框。A. DirListBox B. DriveListBox C. FileListBox D. ComboBox17. 以下( ) 可从通用对话框的”字体”对话框中返回用户选择的字体名。A. FileName B. Path C. FontName D. Color18. 下列哪个操作

6、能够清除文本框对象Text1的内容( ) 。A. Text1.Text= B. Text1.cls C. Text D. cls19. 要想经过单击Command1弹出Form2窗体, 则可在Command1的单击事件中, 使用( ) 命令。A. Load Form2 B. Form2.Show C. Form2.SetFocus D. Form2.PopupMenu20. 以下属性中只在运行时起作用的为( ) 。 A. Caption属性 B. Visible属性 C. BorderStyle属性 D. Picture属性21. 在运行时, 若要使文本框获得输入焦点, 可调用文本框对象的(

7、) 方法来实现。A. Refresh B. GetFocus C. SetFocus D. Tab22. 在窗体中利用Print方法输出文本信息时, 信息的输出位置由( ) 属性设置。A. Left B. Top C. x,y D. CurrentX,CurrentY23. 语句: Dim student(10,5 to 100) 定义的是一个( ) 维数组。A. 2 B.3 C. 5 D.1024. 默认情况下, 语句: Dim student(10 to 11 ,4) 定义的数组有( ) 个元素。A. 20 B.22 C. 10 D.1125. 已知Eng(1)=90, Math(1)=8

8、0, Comp(1)=95 Total(1)= Eng(1)+Math(1)+Comp(1), 则Total(1)=( ) 。A. 265 B.90 C. 80 D.9526. 已知在”通用”代码有以下语句: 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.2328. 将ASCII码转换成字符串的函数是( ) 。A. Chr$ B. Str$ C

9、. Asc D. Val29. 表示式 Mid(Beijing ,4,4)的值是( ) 。A. Beij B. jing C. inj2 D. 30. A$=+3.14+2, 则Val( A$) 的值为( ) 。A. +3.14+2 B. +5.14 C. 3.14 D. 5.14 二、 填空题: 请把答案填在题中横线上。1. Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是_。2. Visual Basic提供的对数据文件的三种访问方式为随机访问方式,_和二进制访问方式。3. 为了能在运行时把d:pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语句

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

11、已知24有8个正整数因子(即: 1,2,3,4,6,8,12,24), 而24正好被其因子个数8整除。问100,300之间有多少个这样的数。程序中有两行有错误。改正错误, 使它能输出正确的结果。Private Sub Command1_Click()Dim n1 As Integer, n2 As IntegerDim x As IntegerDim i As Integern2 = 0For x = 100 To 300 n2 = 0 For i = 1 To 100 If x Mod i = 0 Then n1 = n1 + 1 End If Next i If x Mod n1 = 0

12、Then n2 = n2 + 1 End IfNext xPrint n2End sub2.程序功能: 利用函数pd计算15000之间能被17和37整除的数的个数。程序中有错误, 改正错误, 使程序能输出正确的结果。Private Sub Command1_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 5000If pd(i) Then s = s + 1Next iPrint sEnd SubPrivate Function pd(x As Integer) As BooleanIf x Mod 17 = 0 Or x Mo

13、d 37 = 0 Thenpd = TrueElsepd = FalseEnd IfEnd Fuction3. 程序功能: 根据整型参数m, 计算100-999的平方根的倒数之和。程序的函数fun()中有一行有错误, 改正错误, 使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(100, 999), #.#)End Sub Private Function fun(m As Integer, n As Integer) As Single y = 0 For i = m To n t = 1 / Sqr(i) y = y + t

14、 Next i fun = tEnd 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 nEnd Sub2. 用cos(x)1x2/2!+x4/4!-+(-1)(n)*(x(2n)/(2n)!的公式求近似值, 直到最后一项绝对值小于0.00001为止。设x7。Pri

15、vate Sub Form_click()Dim x As Integer, i As IntegerDim xpower As SingleDim y As Singlex = Val(InputBox(请输入x: )i = 0z = 1y = 1Do While Abs(z) 0.00001factor = 1i = i + 1For j = 1 To 2 * ifactor = factor * jNext jxpower = x (2 * i)_y = y + zLoopPrint format(y, 0.#)End Sub3. 已知一个数列的前3项为0, 0, 1, 从第4项开始,

16、每项为前3项的和, 编程求此数列的第39个数。 Private Sub Form_Click()Dim i%, f0&, f1&, f2&, f3&FontSize = 14: FontBold = Truef0 = 0f1 = 0f2 = 1For i =4 to 39_f0 = f1f1 = f2f2 = f3Next iPrint f3End Sub五、 编程题: 1、 编写程序, 验证输入的3位正整数是否为同构数。X若出现在自己的平方数的末3位, 则X是同构数。如625的平方是390625, 则625为同构数。2.设有如下两组数据: A: 1, 2, 3, 4, 5, 6, 7, 8,

17、 9, 10B: 100, 99, 98, 97, 96, 95,94, 93, 92, 91,编写一个程序, 把上面两级数据分别读入两个数组中, 然后把两个数组中对应的元素相加, 即1+1001091。并把相应的结果放入三个数组中, 最后输出第3个数组的值。3.用Circle方法画圆弧和椭圆弧。如下图所示。要求: 中心点相同, 圆弧长度和角度随机, 颜色随机, 圆弧数为20。4.在图片框中用PSet方法随机地产生若干个彩色的点。窗体上有3个命令按钮: ”画点”、 ”清除”、 和”退出”。如下图所示。PSet方法: 对象名.PsetStep( x,y) , 颜色六、 问答题( 15分) 1.

18、简述多文档及其特性。简述对话框的分类和特点。VB程序设计与应用答案一、 选择题: 在每小题给出的四个选项中, 只有一项是符合题目要求的, 请把所选项前的字母填在题后的括号内。12345BABCB678910DCCCD1112131415DCAAA1617181920ACAAB2122232425CDACA2627282930CBABC二、 填空题: 请把答案填在题中横线上。1. 组合框2. 顺序访问方式3. Picture1.picture=LoadPicture(”d:pica.jpg”)4. Timer5. .bas6. (cos(a+b) 2/(3*x)+57. Shift Ctrl8.

19、 窗体9. 添加窗体10. 红色三、 程序改错题1. 第七行 n2 = 0 改成 n1 = 0 第八行For i = 1 To 100改成 For i = 1 To x2. 第十一行Or 改成And3. 第十行 fun = t 改成 fun = y四、 程序填空题 1. (a * 1000 + b * 100 + c * 10 + d) * e = b * 1000 + c * 100 + d * 10 + e2. 100 - i - j = (100 - 5 * i - j) * 23. c = (i Mod 100) 10五、 编程题: 1. 编程代码为: Private Sub Comm

20、and1_Click()Dim i, m As IntegerFor i = 100 To 999m = (i * i) Mod 1000If i = m ThenPrint iEnd IfNext iEnd Sub2. 编程代码Private Sub Command1_Click()Dim a(10), b(), c(10) As IntegerFor i = 1 To 10a(i) = iNext ib = Array(100, 99, 98, 97, 96, 95, 94, 93, 92, 91)For i = 1 To 10c(i) = a(i) + b(i - 1)Print c(i

21、)Next iEnd Sub3.用Circle方法画圆弧和椭圆弧。如下图所示。要求: 中心点相同, 圆弧长度和角度随机, 颜色随机, 圆弧数为20。Private Sub Command2_Click()pi = 3.1415926a1 = 0c = 1DrawWidth = 1For r = 100 To Step 100 a2 = (a2 + (pi / 2) Mod (2 * pi) Circle (1800, 1200), r, QBColor(c), a1, a2 a1 = a1 + (pi / 4) c = c + 1 DrawWidth = DrawWidth + 1Next r

22、End SubPrivate Sub Command3_Click()ClsEnd Sub4. 编程代码为: Private Sub Command1_Click()Picture1.DrawWidth = 10For i = 1 To 100r = Int(256 * Rnd)g = Int(256 * Rnd)b = Int(256 * Rnd)x = Rnd * Widthy = Rnd * HeightPicture1.PSet (x, y), RGB(r, g, b)Next iEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd Su

23、bPrivate Sub Command3_Click()EndEnd Sub六、 问答题简述多文档及其特性。答: 定义: 多文档界面(MDI, Multiple Document Interface)允许创立在单个容器窗体中包含多个窗体的应用程序。绝大多数基于Windows的大型应用程序都是多文档界面, 例如, Microsoft Word和Microsoft Excel等。多文档界面可同时打开多个文档, 它简化了文档之间的信息交换。 多文档界面有如下特性: （1） 所有子窗体均显示在MDI窗体的工作区中。用户能够改变、 移动子窗体的大小, 但被限制在MDI窗体中。（2） 当最小化子窗体时,

24、 它的图标将显示在MDI窗体上, 而不是在任务栏中。当最小化MDI窗体时, 所有的子窗体也被最小化, 只有MDI窗体的图标出现在任务栏中。（3） 当最大化一个子窗体时, 它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。（4） MDI窗体和子窗体都能够有各自的菜单, 当子窗体加载时覆盖MDI窗体的菜单。2. 简述对话框的分类和特点。答: 分类: 对话框分为3种类型: 预定义对话框、 通用对话框和自定义对话框（1） 预定义对话框也称预制对话框, 是由系统提供的。VB提供了两种预定义对话框, 即输入框和信息框(或消息框), 前者用InputBox函数建立, 后者用MsgBox函数建立, 具

25、体用法参见第4章。（2） 通用对话框是一种控件, 用这种控件能够设计较为复杂的对话框。（3） 自定义对话框也称定制对话框, 这种对话框由用户根据自己的需要进行定义。输入框和信息框尽管很容易建立, 但在应用上有一定的限制, 很多情况下无法满足需要, 用户能够根据具体需要建立自己的对话框。本章将介绍后两种对话框, 即通用对话框和自定义对话框。 特点: （1） 在一般情况下, 用户没有必要改变对话框的大小, 因此其边框是固定的。（2） 为了退出对话框, 必须单击其中的某个按钮, 不能经过单击对话框外部的某个地方关闭对话框。（3） 在对话框中不能有最大化按钮(Max Button)和最小化按钮(Min Button), 以免被意外地扩大或缩成图标。（4） 对话框不是应用程序的主要工作区, 只是临时使用, 使用后就必须关闭。3.