Visual Basic程序设计试题docx.docx

1、Visual Basic程序设计试题docxVisual Basic程序设计试题一、单项选择题（每小题2分，共30分）1. Visual Basic是一种面向对象的可视化编程语言，采取了（ ）的编程机制。A. 按过程顺序执行 B.从主程序开始执行C.事件驱动 D.按模块顺序执行2.要设置命令按钮的背景图形，必须设置的两个属性是（ ）A. Caption 和 PictureC. Style 和 IconB .、Style 和 Picture D、Value 和 Icon3.工程文件的扩展名是（A. .vbpC. .bas)oB. .frmD. .frx4. 有程序代码如下：Text 1.Text

2、 = 欢迎学习VB程序设计”则Textl, Text ,和”欢迎学习VB程序设计”分别代表（ ）。A.对象，值，属性C.对象，方法，属性B.对象，属性，值D.属性，对象，值5. Visual Basic6. 0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是 （ ）。A. 设计模式 B.编写代码模式C.执行模式 D.中断模式6. 下列控件中，不能改变大小的是（ ）。A. TextBox B. LabelC. Timer D. PictureBox7. 多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。A.不包含任何控件的窗体 B.命名为Frm

3、l的窗体C.包含控件最多的窗体 D.设计时的第一个窗体8. Dim A（1 To 4,0 To 3）定义的数组包含的元素的个数是（ ）。A. 12 B. 16C. 15 D.动态变化9. 如果创建了命令按纽控件数组，则Cilick事件的参数是（ ）。A. CaptionB. IndexC. TagD.没有参数10. 不属于VB数据库引擎的是（ ）A. ODBC B. Jet 引擎C. OLE DB D. BDE11. 要向图片框Pl中加载d:hainanzhiwu.bmp,图像文件，应使用语句（ ）。A. Picture 1 .Picture= d:hainanzhiwu.bmp B. Pic

4、turel.Picture=LoadPicture（Hd:hainanzhiwu.bmp ）C. Pl.Picture=LoadPicture（d:hainanzhiwu.bmp ）D. P1 .Picture=LoadPicture（d:hainanzhiwu.bmp）12.以下属性只能用程序代码设置，不能通过属性窗口设置的是（ ）。A. Index 属性 B. Pattern 属性 C. Visible 属性 D. Drive 属性13. 以下有关Visual Basic语言描述中错误的是（ ）。A. 语句是一行一句，以回车键结束B. 用分隔一行中的多个语句C. 不区分大小写D. 一条语句

5、放在多行中，则在前一行结束处使用续行符“一”连接下一行13.在下列选项中，不能将图像装入图片框和图像框的是（ ）A. 在界面设计时，通过Picture属性装入B. 在界面设计时，手工在图像框和图片框中绘制图形C. 在界面设计时，利用剪贴板把图像粘贴上D. 在程序运行期间，用LoadPicture函数把图形文件装入14. 使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。A. Open B. ExecuteC. CommandType D. ActiveConnection15. 要发送数据，通常使用Winsock控件的（ ）A . Listen B.

6、AcceptC. SendData D. GetData二、填空题（每小题2分，共20分）1. 每个应用程序必须有一个惟一的 文件。2. 表达式132-2A3*5 MOD 6的值是。3. 如果要每隔3s产生一个Timer事件，则Interval属性应设置为。4. VB中的程序错误类型主要有实时错误、 三种。5. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。6. Winsock控件主要用来编制基于 或 协议的网络应用程序。7. 如果不能事先确定变量的数据类型，则可以把它生命为 类型。8. 以写方式打开D盘中的Text, dat文件，正确的语句是9. 全局变量是指那些在 中有效的变

7、量，一般在模块代码编辑器的顶部使用 声明。10. VB中参数传递的机制有两种，一种是 参数，另一种是 参数。三、阅读程序题(共25分)阅读下列程序并写出程序运行结果1. (6 分)Private Sub Form_Click()Dim x As IntegerStatic y As Integerx = x + 2y = y + 3Forml. Print x二； x, y二；yEnd Sub写出程序运行时连续单击三次窗体后，Forml 的输出结果。2. (6 分)Private Sub Command l_Click()x = 0Do While x 60x = (x + 3) * (x +

8、 4)n = n + 1LoopTextl.Text = Str(n)Text2.Text = Str(x)Text3.Text = Val(Textl .Text) + Val(Text2.Text)End Sub写出程序运行后，文件框Text3的结果。3. (6 分)Private Sub Form ClickODim A(1 To 3) As StringDim c As IntegerDim j As IntegerA(l) = 4A (2) = 8A (3) = 12c = 1For j = 1 To 3c = c + Val(A(j)Next jPrint cEnd Sub写出程序

9、运行时单击窗体后，窗体Forml上的结果。4. (7 分)Public Sub changel(ByVai x As Integer, ByVai y As Integer)Dim t As Integert = xx = yy = tEnd SubPublic Sub change2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 22: b = 33changel a, bForml. Prin

10、t A1二；a, B1二；ba = 22: b = 33change2 a, bForml. Print A2=”；a, B2=；bEnd Sub写出程序运行时，单击窗体Forml上的输出结果。四、完善程序题(共10分)1.列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名 程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项； 当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按 钮变为修改确认”。在文本框的内容修改好后，按修改确认”按钮，再把文本框中修改后 的信息送到列表框且“修改确认”按钮变为“修改”。程序运行

11、结果如图1所示。Command 1CommandsTextlListl图1程序如下，请补充完整。Private Sub Form_Load()Listl.Additem Visual Basic 程序设计”Listl.Additem SQLSERVER 数据库应用Listl.Additem 信息管理系统Listl.Additem ERP 原理与应用Listl.Additem 网络实用技术基础Listl.Additem ”系统开发规范与文档编写，Listl.Additem 信息系统测试End SubPrivate Sub Command 1 _Click()If Textl.Text ,H Th

12、en11Textl.Text = MsgBox ”请在文本框中输入信息！ ”End IfEnd SubPrivate Sub Command2_Click()31End SubPrivate Sub Command3_Click()If Commands .Caption = 4Textl.Text = 5Textl.SetFocusCommand 1 .Enabled =将文本框中的内容加到列表框中删除选定的项目ThenCommand2. En abl ed = FalseCommand3 .Caption - 71ElseList 1 .List（List 1 .Listindex） =

13、Text 1.TextCommand 1 .Enabled = TrueCommand2.Enabled = TrueTextl.Text=,HCommands .Caption = 81End IfEnd Sub五、编写程序题（共15分）编写一工资调整程序。若基本工资大于等于800元，增加工资20%,若小于800元大于 600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Textl中输入某职工 的基本工资，单击“计算”按钮，在标签框Labell中输出增加后的工资。程序运行界面如图 4所示。图2答案：一、 单项选择题（每小题2分，共30分）l.C 2.B 3. A 4. B

14、 5.B 6. C 7. D 8. B 9. B 10. D 11. C12. D 13. B 14. D 15. C二、 填空题（每空1分，共15分）1. vbp2. 23. 30004. 逻辑错误编译错误5. Name Index6. TCP/IP UDP7. 变体型（或Variant）8. openD:text.datH For Output As # 19. 整个应用程序 Public10. 引用参数传递（或按址传递） 按值传递三、 阅读程序题（每小题5分，共20分）y=3y=6y=9Bl 二 33B2=221. x=2x=2x=22.2423.254.Al=22A2=33四、 完善程

15、序题(共10分)1 Listl.AddItem Text 1.Text2 Else3 Listl .Removeitem List 1.Listindex4 ”修改”5 List 1.Text6 False7 ”修改确认”8 “修改”五、 编写程序题(共15分)参考答案：Private Sub Commandl_Click()Dim x As Integer, y As Single x = Vai(Textl. Text)Select Case xCase Is = 800y 二 x * 1. 2Case Is = 600y 二 x * 1. 15Case Elsey 二 x * 1. 1End SelectLabel1. Caption = yEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub