试卷代号：2231 座位■ 中央广播电视大学2010一2011学年度第一学期“开放专科”期末考试 Visual Basic程序设计 试题 2011年1月 题号 二 三 四 五 总 分 分数 得 分 评卷人 一、单项选择题（每小题2分，共30分）】 1.对于定时器(Timer)控件，设置其定时是否开启的属性是( )。 A.Index B.Tag C.Enabled D.Left 2.应用程序打包后，其包文件的后缀是( ). A..exe B..cab C..ocx D..vbp 3.无论何种控件，共同具有的属性是()。 A.Text属性 B.Caption属性 C.Name属性 D.Autosize属性 4.为了保存一个Visual Basic应用程序，下列说法正确的是()。 A.只保存窗体文件(.frm) B.只保存工程文件(.vbp) C.分别保存工程文件和标准模块文件(.bas) D.分别保存工程文件、窗体文件和标准模块文件 1418
试卷代号 2 2 座位号OJ 中央广播电视大学 11学年度第一学期"开放专科"期末考试 Visual Basic 序设 试题 2011 年1 |题号|一|二|三|四|五|总分| |分数 I I I I I I |得分|评卷人| 题{每小题 2分，共 0分} I I I 1.对于定时器 m盯〉控件，设置其定时是否开启的属性是( )。 A. Index B. Tag c. Enabled D. Left 2. 应用程序打包后 包文 后缀 )。 A. • exe B. . cab C. .ocx D. . vbp 3. 论何种控件 )。 A. Text B. Caption C. Name D. Autosize 4. 保存 个Visual Basic 下列 正确 )。 A.只保存窗体文件<. [rm) B. 存工程文 <. vbp) C. 保存 程文件 模块文件 (. bas) D. 程文 文件 1418
5.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。 A.单选按纽 B.图片框 C.框架 D.通用对话框 6.窗体文件的后缀是( ）。 A..frm B..vbp C..bas D..cls 7.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正 确格式是()。 A.Text.Mytext B.Mytext.Text C.Mytext.(Text) D.Mytext Text 8.Line(100,100)-Step(600,600)将在窗体()画一直线。 A.(100,100)到(600,600) B.(100,100)到(500,500) C.(100,100)到(700,700) D.(500,500)到(600,600) 9.要在窗体的标题栏内显示“欢迎您！”，使用的语句是()。 A.Form.caption="欢迎您！" B.Forml.caption="欢迎您！" C.Forml..print"欢迎您！" D.Form.print"欢迎您！" 10.如果想让文本框中的内容在运行时不能编辑，需将文本框的( )属性设置为True。 A.Locked B.MultiLine C.TabStop D.Visible 11.关于语句行，下列说法正确的是( )。 A.一行只能写一条语句 B.长度不能超过255个字符 C.每行的首字符必须大写 D.一条语句可以分多行书写 12.要清除List列表框控件中的所有项目，可采用的方法是()。 A.Erase B.Delete C.Clear D.Click 13.以下可以作为Visual Basic变量名的是( ）。 A.SIN B.ABI C.COS(X) D.X(-1) 1419
5. 建立 个新 准EXE 工程后 不在工具 中 出 )。 A. 选按纽B. 架D. 话框 6. 后缀 )。 A. . frm B. . vbp C. . bas D. . cIs 7. 为Mytext 且对象 性Text 中 引 确格式是( )。 A. Text. Mytext B. Mytext. Text C. Mytext. (Text) D. Mytext 祷Text 8. Line(100 , 100) 一Step(600 ，600) )画一直线。 A. (1 0 0 0 0 0 0 0 0 B. (100 ，100) 到(500 ，500) C. (1 0 0 0 0 0 0 D. (500 ，500) 到(600 ，600) 9. 题栏 显示 )。 A. Form. caption=" B. Form!. caption=" C. Form!. print "欢迎您!" D. Form. print "欢迎您!" 10. 文本框 容在运 )属性设置为 rue。 A. Locked C. TabStop B. MultiLine D. Visible 11. 法正 )。 A. 能写一条语句B.长度不 过255 C. 必须 写D. 条语 12. 要清除List 表框控 所有项 可采用 法是 )。 A. Erase C. Clear B. Delete D. Click 13. 下可 为Visual Basic 名 的 )。 A. SIN B. AB1 C. COS(X) D. XC-I) 1419
14.下列正确的赋值语句是()。 A.x十y=20 B.S=π*r*r C.3x=y D.y=x+20 15,如果要在文本框中键人字符时，只显示某个字符，如星号()，应设置文本框的 ()属性。 A.Caption B.Text C.PasswordChar D.Locked 得 分 评卷人 二、填空题（每小题2分，共20分】 l6.为了在运行时把当前路径下的图形文件picturefile.jPg装人图片框Picturel,所使用 的语句为 17.将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。 18.Winsock控件主要用来编制基于 或 协议的网络应用程 序。 19.VB应用程序与数据库进行通信的主要机制称为 20.列表框控件中最后一项的序号等于ListCount属性减 21.全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。 22.表达式14/2-23￥7MOD6的值是 23.变量的声明方法有隐式和两种，如果采用隐式声明方法，那么VB会自动将 变量声明为」 24.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语 句，然后按键。 25.若已建立了Forml和Form2两个窗体，默认启动窗体为Forml。通过工程菜单的 菜单项，可将启动窗体设置为Form2。 1420
14. 列正 赋值 A. x+y=20 B. s=π 祷r 赞r C. 3x=y D. y=x十20 15. 果 要 在 文本 框 示 某 ，应设置文本框的 ( )属性. A. Caption B. Text C. PasswordChar D. Locked |得分|评卷人| I I I 1420 二、填空题{每小题 2分，共 0分} 时，可使图片框根据图片调整大小。 或协议的网络应用程 语句声明
得 分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果。 26.(6分) Private Sub Command1_Click() Dim Suml As Integer,Sum2 As Integer Suml 1:Sum2 2 For i=1 To 3 For j=1 Toi Sum2=Sum2￥j Next j Suml Sum1 +Sum2 Next i Print Suml End Sub 写出程序运行时单击Commandl按纽后，Forml上的输出结果。 27.(6分) Private Sub Command1_Click() ×=1 Do While x<50 x=(x+1)*(x+2) n=n+1 Loop Text1.Text Str(n) Text2.Text Str(x) End Sub 写出程序运行时单击Commandl按纽后，textl和text2上的输出结果。 28.(6分) Private Sub Commandl_Click() Dim A(1 To 6)As Integer Dim b As Integer For b 1 To 6 A(b)=b Next b Text1.Text A(b-2) End Sub 写出程序运行时单击Commandl按纽后，Textl上的输出结果。 1421
|得分|评卷人| I I I 三、阅读程序题{共 阅读下列程序井写出程序运行结果. 26. (6 Private Sub CommandLClickO Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For i = 1 To 3 For j = 1 To i Sum2 = Sum2 Next j Sum1 = Sum1 + Sum2 Next i Print Sum1 End Sub 写出程序运行时单击 按纽后 1上的输出结果。 27. (6 Private Sub CommandLClickO x = 1 Do While x < 50 x = (x + 1)铃 + 2) n=n+1 Loop Textl. Text = Str(n) Text2. Text = Str(x) End Sub 写出程序运行时单击 mm 按纽后 text1 和text2 结果 28. (6 Private Sub CommandL Click O Dim A(l To 6) As Integer Dim b As Integer For b = 1 To 6 A(b) = b Next b Textl. Text = A(b - 2) End Sub 写出程序运行时单击 按纽 Textl 结果 1421
29.(7分) Public Sub changel(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x-y y=t End Sub Public Sub change2(x As Integer,y As Integer) Dim t As Integer t=x x-y y=t End Sub Private Sub Form_Click() Dim a As Integer,b As Integer a=20:b=40 changel a,b Forml.Print "Al=";a,"B1=";b a=20:b=40 change2 a,b Forml.Print "A2=";a,"B2=";b End Sub 写出程序运行时，单击窗体Forml上的输出结果。 得 分 评卷人 四、完善程序题（共10分】 30.假设用Access创建了一个名为“HRM.mdb”的数据库，并在其中创建了一张名为“档 案”的数据表，表中存放了人员的基本信息，如图1所示。 要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序结果。程序的设计界 面和运行结果如图2所示。 壁竹么： 历 王 0002 邦进 0003 图1用Access创建的档案数据表 1422
29. (7 Public Sub changel<ItyVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x=y y=t End Sub Public Sub change2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Form_ClickO Dim a As Integer, b As Integer a = 20 , b = 40 change1 a , b Forml.Print "A1="; a , "B1="; b a = 20: b = 40 change2 a , b Forml. Print IIA2="; a , "B2="; b End Sub 写出程序运行时，单击窗体 1上的输出结果。 |得分|评卷人| I I I 四、完善程序题{共 30. 用Access 为"HRM. mdb" 一张 案"的数据表，表中存放了人员的基本信息，如图 1所示。 要求使用 O对象和 d控件设计数据库列表显示程序结果。程序的设计界 面和运行结果如图 2所示。 l用 ccess创建的档案数据表 1422