Visual Basic程序设计期末综合练习题一

1、Visual Basic程序设计期末综合练习题一一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言,采取了(的编程机制。A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2.在Visual Basic中,窗体文件的扩展名为(。A.vbpB.frmC.clsD.bas3.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(。A.设计模式B.编写代码模式C.中断模式D.执行模式4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(。B.Mytext*TextC.Mytext.(

2、Text5.下列关于变量的说法不正确的是(。A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6.关于对象的属性不正确的是(。A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计7.在设计阶段,双击窗体上的某个控件时,打开的窗体是(。A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8.要在窗体的标题内显示“myfrm”,使用的语句是(。9.在VB中,

3、下列变量名不合法的是(。A.file_1B.fileC.file-1D.file_1_210.在设计动画时,用时钟控件来控制动画速度的属性是(。A.EnabledB.MoveC.IntervalD.Timer11.要从ForNext循环中退出循环,应使用(语句。A.ExitB.Exit ForC.ContinueD.Stop Loop12.文本框ScrollBars属性设置了非零值,却没有效果,原因是(。A.文本框中没有内容B.文本框的Locked属性为TrueC.文本框的MultiLine属性为TrueD.文本框的MultiLine属性为False13.要利用公用对话框控件来显示“打开文件”

4、对话框,需要调用控件的(方法。A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor14.下列赋值语句正确的是(。A.x = y +zB.y + z = xC.-y= xD.4 = x +y15.确定一个控件在窗体上位置的属性是(。A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left16.VB程序中设置断点的按键是(。A.F5键B.F6键C.F9键D.F10键17.如果希望以模态方式显示窗体Form1,下列正确的语句是(。D.以下都不正确18.用语句Dim A(-2To 3As Integer所定义的数组的元素的个数

5、是(。A.3B.4C.5D.619.如果创建了命令按钮的控件数组,那么Click事件的参数是(。A.CaptionB.TagC.IndexD.没有参数20.要向图片框Picture1中加载“d:hainanzhiwu.bmp”图像文件,应使用语句(。21.如果要在窗体代码编辑器的”通用”部分定义私有Sub过程,则正确的语句是(。A.Public SubB.Private SubC.Public FunctionD.Private Function22.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释,要折行书写,可以在行末使用续行字符(,表示下一行是当前行的继续。A.直接回车B.

6、一个下划字符”_”C.一个空格加一个下划字符”_”D.一个空格加一个连字符(-23.下列叙述不正确的是(。A.注释语句是非执行语句,仅对程序的有关内容起注释作用,客观存在不被解释和编译B.注释语句可以放在代码中的任何位置C.注释语句不能放在代码中的任何位置D.代码中加入注释语句的目的是提高程序的可读性24.VB程序中通常不会产生错误提示的是(。A.编译错误B.实时错误C.运行时错误D.逻辑错误25.ADO对象模型含有七种对象,其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是(。A.CommandB.ConnectionC.RecordsetD.Field26.使用ADO模型时,

7、建立Recordset和Connection对象的连接的属性是(。A.ExecuteB.CommandTypeC.OpenD.ActiveConnection27.要发送数据,通常使用Winsock控件的(。A.SendData方法B.Listen方法C.Accept方法D.GetDate方法28.下列只能用程序代码设置,不能通过属性窗口设置的属性是(。A.Drive属性B.Pattern属性C.Visible属性D.Index属性二、填空题1.每个应用程序必须有一个惟一的文件。2.欲设置定时器的时间间隔为1秒,则属性Interval的值为。3.表达式5 + 21 2 * 3 Mod 2的值是

8、。4.表达式5 + 9 Mod 2 3 + 2的值是。5.列表框中项目的序号是从开始的。6.计时器控件响应的事件是。8.执行赋值语句a = "abc" + "def",变量a的值是。9. VB中的程序错误类型主要有编译错误、等三种。10.在VB中,将Foxpro称为外部数据库,Access称为,SQL Server称为。11.数据库应用程序属于一种非常典型的前后台软件结构,而前后台之间进行通信的主要机制称为。12.若窗体Form1左上角坐标为(0,600,右下角的坐标为(800,-200。则X轴的正向向,Y轴的正向向。13.用Dim A(3,3语句声明二

9、维数组后,数组A的元素共有个。14.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到3,第二维下标从0到3,则相应的数组声明语句为。15.果不适先确定变量的数据类型,则可以把它声明为变量。16.tretch属性设置为时,图像框可自动改变大小以适应其中的图形。三、阅读程序题阅读下列程序并写出程序运行结果1.Private Sub Form_Click(Static a As StringDim b As Stringa = a + "A"b = b + "B"Text1 = aText2 = bEnd Sub写出程序运行时

10、连续单击三次窗体后,文本框Text1和Text2显示结果。2.Private Sub Form_Click(Static Sum As IntegerFor i = 1 To 4Sum = Sum + iNext iPrint SumEnd Sub写出程序运行时点击窗体两次后,变量Sum的值。3.Private Sub Command1_Click(Dim A(1 To 5 As IntegerDim x As IntegerFor i = 1 To 5A(i = iNext ii = 1Do While x < 7A(i = A(i + xx = x + 3i = i + 1LoopT

11、ext1.Text = A(1Text2.Text = A(3End Sub写出程序运行时单击窗体后,Form1上的输出结果。4.Private Sub Form_Click(Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5If j > 3 Thenc = c + 5Exit ForElsek = k + 5End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后,Form1上的输出结果。5.Private Sub Command1_Click(Dim X As Intege

12、r, Y As IntegerX = 1 : Y = 1For i = 1 To 4For j = 1 To iY = Y + jNext jX = X + YNext iPrint XEnd Sub写出程序运行时单击命令按钮后,窗体Form1上的输出结果。6.Private Sub Command1_Click(Dim A(1 To 5 As IntegerDim b As IntegerFor b = 1 To 5A(b = bNext bText1.Text = A(b - 2End Sub写出程序运行时单击Command1后,文件框Text1中的输出结果。7.Function F(a

13、As Integer, b As Integer As IntegerF = a + bEnd FunctionPrivate Sub Form_Click(Dim a As Integer, b As Integer, z As Integera = 4:b =5z = F(a, bPrint zEnd Sub写出程序运行时单击窗体后,Form1上的输出结果。8.Function F(a As IntegerDim b As IntegerStatic c As Integerb = b + 2c = c + 2F = a + b + cEnd FunctionPrivate Sub Com

14、mand1_Click(Dim a As Integera = 4For i = 1 To 3Print F(aNext iEnd Sub写出程序运行时,单击命令按钮在窗体上的输出结果。四、完善程序题1.假设用Access创建了一个名为“学生.MDB”的数据库,并在其中创建了一张名为“学生基本情况”的数据表,表中存放了学生的基本信息,如图1所示。现在要求利用VB编写一个数据库查询程序,程序的运行界面如图2所示,基本逻辑是:首先文本框(Text1中输入希望查询的学生学号,然后点击“查询”按钮(Command1,如果数据库中存在该学号,则分别在Text2、Text3、Text4中显示学号、姓名、籍

15、贯信息,否则提示用户“记录不存在”并使Text1获得焦点,要求用户重新输入。当点击退出按钮(Command2时关闭本窗体。 图1用Access创建的学生基本情况数据表 图2 查询程序运行界面程序如下,请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load(1Private Sub Command1_Click(Dim strSQL As StringDim ADOrs As 3 RecordsetADOrs.ActiveConnection = 4strSQL = "Select * From 学生基本情况Where 学号=&qu

16、ot; + " ' " + Text1 + " ' "5If Not ADOrs.EOF ThenText2 = ADOrs.Fields("学号"Text3 = ADOrs.Fields("姓名"Text4 = ADOrs.Fields("籍贯"ElseMsgBox "要查询的学号不存在,请重新输入!", vbOKOnly, "信息提示"Text1 = ""Text1.SetFocusEnd IfEnd SubPriv

17、ate Sub Command2_Click(UnLoad MeEnd2.列表框应用程序要求从文本框中输入课程名称,然后按“添加”按钮,将该课程名程添加到列表框中;当选择列表框中某一项后,按“删除”按钮,则从列表框中删除该项;当选择列表框中某一项后,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图3所示。Text1List1Command1Command2Command3图3程序如下,请补充完整。Private Sub Form_Load(L

18、ist1.AddItem "V isual Basic程序设计"List1.AddItem "SQL SERVER数据库应用"List1.AddItem "信息管理系统"List1.AddItem "ERP原理与应用"List1.AddItem "网络实用技术基础"List1.AddItem "系统开发规范与文档编写"List1.AddItem "信息系统测试"End SubPrivate Sub Command1_Click(If Text1.Text

19、<> "" Then1 Text1.Text '将文本框中的内容加到列表框中Text1.Text = ""2MsgBox "请在文本框中输入信息!"End IfEnd SubPrivate Sub Command2_Click(3 List1.ListIndex '删除选定的项目End SubPrivate Sub Command3_Click(If Command3.Caption = 4 ThenText1.Text = 5Text1.SetFocusCommand1.Enabled = FalseCo

20、mmand2.Enabled = FalseCommand3.Caption = "修改确认"ElseList1.List(List1.ListIndex = Text1.TextCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Text =""Command3.Caption = "修改"End IfEnd Sub五、编写程序题编写一工资调整程序。若基本工资大于等于2000元,增加工资20%,若小于1800元大于1300元,则增加工资15%;若小于1300元则增加工资10%。要求

21、在文本框Text1中输入某职工的基本工资,单击“计算”按钮,在标签框Label1中输出增加后的工资。程序运行界面如图4所示。 图42.请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物(1在200元以上者,按九五折优惠;(2在400元以上者,按九折优惠;(3800元以上者,按八折优惠。在窗体上添加两个文本框和一个命令按钮,要求在Text1中输入购物商品总金额,单击命令按钮,在Text2中输出优惠价。程序运行结果如图5所示。 图 5答案:一、单项选择题1.C2.B3.B4.D5.A6.D7.C8.B9.C 10.C 11.B 12.D 13.B 14.A 15.C 16.C 17.C 18.D 19.C 20.D 21.B 22.C 23.C 24.D 25.C 26.D 27.A 28.A二、填空题1.vbp2.10006.Timer7.Picture1. Picture = LoadPrcture("pictureflower.jpg"8.abcdef9.实时错误逻辑错误10.本地数据库远程数据库11.数据库引擎12.右上13.1614. Dim A(1To 3,0To 3 As String15变体型(V ariant16.alse17.服务程序处于