2012.07VB程序设计电大期末考试试题

1、试卷代号 :2231 中央广播电视大学 20112012学年度第二学期 开放专科 期末考试 VisuaIBasic 程序设计试题 2012 年 7 月 一、单项选择题 每小题 2 分，共 30 分 ) ( D )。 D 标准类模块文件 ( C )。 1. 后缀为 . bas 文件的 文件表示 VB 的 A类模块文件B窗体文件C工程文件 2. 无论何何控件，共同具有的属性是 A Text属性B Caption 属性 C. Name 属性 D. Autosize 属性 3. 如果对象的名称为Mytext，而且对象有一个属性Text那么在代码中引用该属性的正确格 式是 ( B )。 A. Text.

2、Mytext B.Mytext.Text C.Mytext.(Text) D.Mytext*Text 4. 在设计动画时，用时钟控件来控制动画速度的属性是( B )。 A. EnabIed B.IntervaI C.Timer D.Move 5. 要在窗体上显示 欢迎您!，使用的语句是 ( C )。 A.Form.caption=欢迎您!B.Forml.caption=欢迎您! ( D )。 B. 长度不能超过255个字符 D 一条语句可以分多行书写 ( B )。 C. 3x=y C.Form1.print欢迎您! D.Form.print欢迎您! 6. 关于语句行，下列说法正确的是 A.行只

3、能写一条语句 c.每行的首字符必须大写 7. 下列正确的赋值语句是 D.s=n *r*r FormI，下列正确的语句是(C )。 C.Forml.Showl D.以下都不正确 ( C )。 A.x 十 y=20B.y=x+20 8. 如果希望以模态方式显示窗体 A.Form1.Show B.Form1.Show0 9. 对于定时器(Timer)控件，设置其定时是否开启的属性是 A.Index B.Tag C.Enabled D.Left VB在应用程序执行时，总是把 (B )指定 10. 多窗体程序是由多个窗体组成，在缺省情况下， 为启动窗体 A.不含任何控件的窗体B.设计时的第一个窗体 C.

4、包含控件最多的窗体D.命名为FrmI的窗体 11. Dim I As Integer，则运行时变量 I的初始值是(A )。 A.O B.1C.-1 D.空值 12. 使用ADO数据模型时，建立 Recordset和Connection对象连接的属性是(C )。 A.Execute B.Open C.ActiveConnection D.CommandType 13. 下列关于变量的说法不正确的是( D )。 A. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B. 局部变量的作用域仅限于声明它的过程 C. 静态局部变量是在过程中用Static语句声明的 D. 局部变量在声明

5、它的过程执行完毕后就被释放了 14. 下列数据对象模型中采用。LEDB访问数据库的是(B )。 A.DA( ) B.ADO C.RDO D.RDO和 ADO 15. 为了在运行时把 dzpic 文件夹下的图形文件 a.jpg 装入图片框 Picture1 中，所使用的语句 为( B )。 A.Picture1.Text=LoadPicture(d:pica.jpg) B. P icture1. Picture=Load Picture(d:pica.j pg) C. P icture1. Picture=Load Picture(d:pica.j pg) D. P icture1. Pictu

6、re =Load(d:pica.j pg) 二、填空题(每小题2分，共 20分) 16. 在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语 句，然后按 F1键。 17. 表达式8十13Mod2铃4+3的值是16 18. 全局变量在整个应用程序中有效，一般在标准模块中使用Public语句声明。 19. 若窗体Form1左上角坐标为(0, 600)，右下角的坐标为(800，一 200)。则X轴的正向 右， y轴的正向向上 20. 将图片框的AutoSize属性设置成Tru时，可使图片框根据图片调整大小。 21. Winsock控件主要用来编制基于TCP/lP或UDP协议的网

7、络应用程序。 22. VB中，Access数据库属于 本地数据库。(说明是哪种数据库类型) 23. VB应用程序与数据库进行通信的主要机制称为数据库引擎 24. 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标 从1到3，第二维下标从一 1到2，则相应的数组声明语句为Dim A (I To 3 , -1 To 2) As String 25. 列表框控件中最后一项的序号等于ListCount属性减丄。 三、阅读程序题共25分) 阅读下列程序并写出程序运行结果。 26. (6 分 Private Sub Comma ndLCIickO Dim Sum1 As In t

8、eger , Sum2 As In teger Sum1=O, Sum2=2 For I =1 to 2 For j =1 to i Sum2=sum2*j Nextj Sum1=sum1+sum2 Next i Print Sumi End Sub 写出程序运行时单击 Comma nd 1按纽后，Form 1上的输出结果。 27. (6 分 Private Sub Comma ndLCIickO Do While x 50 x = (x 十 1) *(x + 2) n = n 十 1 Loop Textl. Text = Str( n) Text2. Text = Str(x) End Su

9、b 写出程序运行时单击Comma nd l按纽后，text1和text2上的输出结果 o 182 28.(6 分) Private Sub Form_ClickO A=3;b=4 Prin t A=; a;B=; b Call mult(a) Prin t A=;a;B=;b End Sub Private Sub mult(x) x = 3 十 x b = 5 十 b End Sub 写出程序运行后，单击窗体时的输出结果。 A=3B=4 A=6B=4 29.(7 分) Private Sub Comma ndl_Click() Static b As In teger Dim I As In

10、 teger I =1 Do b = b 十 I I = I + 1 Loop While I = 4 Textl. Text = b Text2. Text =I End Sub 写出程序运行时两次单击Commandl按纽后，文本框 Text1、Text2上的输出结果。 105 205 四、完善程序题(共1 0分) 假设在C盘根目录中存在一个名为 “学生.MDB”的Access数据库，其中包含一张名为“学生基本情况” 的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图2所示，基本逻辑是：分别在 Text1、Text2、Text3中

11、输入学号、姓名、籍贯信息，然后点击“保存按钮(Command1)将该记录添加到数 据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦 点置于Text1上，等待用户修改或重新输入。当点击退出按钮 (Command2)时关闭本窗体。 A; 学号 2009001 fEHJf 旧出 程序如下，请补充完整。 Private Sub Form_Load() 1ADOcn.Open”Provider=Microsoft.Jet.OLEDB40;Dataource=学生.mdb;Persist Security In fo=False End Sub Private

12、 Sub Comma nd1_Click() Dim strSQL As Stri ng 2 Dim ADOrs As New Recordset_ 3 ADOrs.ActiveC onn ectio n = ADOc n Dim ADOrs As New Recordset ADOrs.ActiveCo nn ection = ADOc n strSQL = Select * from 学生基本情况 ADOrs.O pen 4 strSQL If Not ADOrs.EOF The n MsgBox 学号已经存在，请重新输入 Text1.SetFocus Else strSQL = In s

13、ert Into 学生基本情况 Where 学号=+ Text1 + !, vbOKOniy,信息提示” (学号，姓名，籍贯)” strSQL = strSQL + Values ( + Text1 + , + Text2 + , + Text3 + ) 5 ADOcn. Execute strSQL MsgBox 添加成功!, vbOKOniy,信息提示” End If End Sub Private Sub Comma nd2_Click() Un load Me End Sub 五、编写程序题共15分) 31.编写简单的工资计算程序，要求在 Text1、Text2、Text3中分别输入基本工资、奖金、扣 款，单击计算按钮(Command1)后，首先计算”应发工资(Text4)，然后根据”应发工资”计算 个人所得税(Text5)，最后计算出实发工资(Text6)。 (1) 应发工资=基本工资+奖金一扣款 (2) 个人所得税的计算规则假设为： 当应发工资在1000元以内部分(含 1000元)，不扣所得税。 当应发工资大于1000，但小于等于4000元时，超过1000元的部分按15%计算所得税。 当应发工资大于 4000,按20%扣税。 程序运行结果如图3所示。 IB岀 Private Sub Comma nd1 Click() Text4 = Val(Text I