1、VisualBasic程序设计期末综合练习题一Visual Basic程序设计期末综合练习题一一、单项选择题1Visual Basic是一种面向对象的可视化编程语言，采取了（ ）的编程机制。A从主程序开始执行 B按过程顺序执行 C事件驱动 D按模块顺序执行2在Visual Basic中，窗体文件的扩展名为（ ）。A.vbp B.frm C.cls D.bas3Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。A设计模式 B编写代码模式C中断模式 D执行模式4如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是
2、（ ）。AText.Mytext BMytext*Text CMytext.(Text) DMytext.Text5下列关于变量的说法不正确的是（ ）。A局部变量在声明它的过程执行完毕后就被释放了 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量是指那些在过程中用Dim语句或Static语句声明的变量 6关于对象的属性不正确的是（ ）。A对象的属性一般有属性名和属性值 B可通过属性窗口设置属性的值C可通过程序代码设置属性的值 D对象的所有属性值均可在设计时设计7在设计阶段，双击窗体上的某个控件时，打开的窗体是（ ）。A工程资源管理器窗口 B工具箱
3、窗口 C代码编辑器窗口 D属性窗口8要在窗体的标题内显示“myfrm”,使用的语句是（ ）。AForm.caption=myfrm BForm1.caption=myfrm CForm1.Printmyfrm DForm.Printmyfrm 9在VB中，下列变量名不合法的是（ ）。Afile_1 Bfile Cfile-1 Dfile_1_210在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 AEnabled BMove CInterval DTimer 11要从ForNext循环中退出循环，应使用（ ）语句。AExit BExit For CContinue DStop Loop1
4、2文本框ScrollBars属性设置了非零值，却没有效果，原因是（ ）。 A文本框中没有内容 B文本框的Locked属性为TrueC文本框的MultiLine属性为True D文本框的MultiLine属性为False13要利用公用对话框控件来显示“打开文件”对话框，需要调用控件的（ ）方法。AShowPrinter BShowOpen CShowSave DShowColor14下列赋值语句正确的是（ ）。Ax = y +z By + z = x C-y= x D4 = x +y15确定一个控件在窗体上位置的属性是（ ）。AWidth和Height BWidth或Height CTop和Le
5、ft DTop或Left 16VB程序中设置断点的按键是（）。AF5键BF6键CF9键DF10键17如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）。AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确18用语句Dim A(-2To 3)As Integer所定义的数组的元素的个数是（ ）。 A3 B4 C5 D619如果创建了命令按钮的控件数组，那么Click事件的参数是（ ）。ACaption BTagCIndex D没有参数20要向图片框Picture1中加载“d:hainanzhiwu.bmp”图像文件，应使用语句（ ）。AP1.Pi
6、cture=LoadPicture(d:hainanzhiwu.bmp) BP1.Picture=LoadPicture(d:hainanzhiwu.bmp )CPicture1.Picture= d:hainanzhiwu.bmp DPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp ) 21如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。APublic Sub BPrivate SubCPublic Function DPrivate Function22在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），
7、要折行书写，可以在行末使用续行字符（ ），表示下一行是当前行的继续。A直接回车 B一个下划字符”_” C一个空格加一个下划字符”_” D一个空格加一个连字符(-)23. 下列叙述不正确的是（ ）。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B.注释语句可以放在代码中的任何位置 C.注释语句不能放在代码中的任何位置 D.代码中加入注释语句的目的是提高程序的可读性 24VB程序中通常不会产生错误提示的是（）。A编译错误B实时错误C运行时错误D逻辑错误 25ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（ ）。 A.C
8、ommand B.Connection C.Recordset D.Field26使用ADO模型时，建立Recordset和Connection对象的连接的属性是（）。AExecute BCommandTypeCOpen DActiveConnection27要发送数据，通常使用Winsock控件的（）。ASendData方法 BListen方法CAccept方法 DGetDate方法 28下列只能用程序代码设置，不能通过属性窗口设置的属性是（ ）。ADrive属性 BPattern属性 CVisible属性 DIndex属性二、填空题1每个应用程序必须有一个惟一的 文件。 2. 欲设置定时器
9、的时间间隔为1秒，则属性Interval的值为 。3表达式5 + 21 2 * 3 Mod 2的值是 。4表达式5 + 9 Mod 2 3 + 2的值是 。5列表框中项目的序号是从 开始的。6计时器控件响应的事件是 。 7为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1，所使用的语句为 。8执行赋值语句a = abc + def，变量a的值是 。9. VB中的程序错误类型主要有编译错误 、 等三种。10在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。11数据库应用程序属于一种非常典型的前后台软件结构，而前后台
10、之间进行通信的主要机制称为 。12若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。13用Dim A(3,3)语句声明二维数组后，数组A的元素共有 个。14设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从0到3，则相应的数组声明语句为 。15.果不适先确定变量的数据类型，则可以把它声明为 变量。 16.tretch属性设置为 时，图像框可自动改变大小以适应其中的图形。17.insock1.Listen语句的含义是 。三、阅读程序题 阅读下列程序并写出程序运行结果1Private S
11、ub Form_Click() Static a As String Dim b As String a = a + A b = b + B Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。2Private Sub Form_Click() Static Sum As Integer For i = 1 To 4 Sum = Sum + i Next i Print SumEnd Sub写出程序运行时点击窗体两次后，变量Sum的值。3Private Sub Command1_Click() Dim A(1 To 5)
12、As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x 3 Then c = c + 5 Exit For Else k = k + 5End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。5. Private Sub Command1_Click() Dim X As Integer, Y As Integer X = 1 : Y = 1 For i = 1 To 4 For j = 1 To i Y = Y + j Next j X = X
13、+ Y Next i Print XEnd Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。6. Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim b As Integer For b = 1 To 5 A(b) = b Next b Text1.Text = A(b - 2)End Sub写出程序运行时单击Command1后，文件框Text1中的输出结果。7. Function F(a As Integer, b As Integer) As Integer F = a + bEnd FunctionPriv
14、ate Sub Form_Click() Dim a As Integer, b As Integer, z As Integer a = 4: b =5z = F(a, b) Print zEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。8. Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 4 For i = 1
15、 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。四、完善程序题1假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。
16、当点击退出按钮(Command2)时关闭本窗体。 图1用Access创建的学生基本情况数据表图2 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 2 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:学生.MDBEnd SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = 4 strSQL = Select
17、 * From 学生基本情况 Where 学号= + + Text1 + 5 If Not ADOrs.EOF Then Text2 = ADOrs.Fields(学号) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍贯) Else MsgBox 要查询的学号不存在，请重新输入!, vbOKOnly, 信息提示 Text1 = Text1.SetFocus End IfEnd Sub Private Sub Command2_Click() UnLoad Me End2列表框应用程序要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加
18、到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图3所示。 图 3程序如下，请补充完整。Private Sub Form_Load() List1.AddItem Visual Basic程序设计 List1.AddItem SQL SERVER数据库应用 List1.AddItem 信息管理系统 List1.AddItem ERP原理与应用 Li
19、st1.AddItem 网络实用技术基础 List1.AddItem 系统开发规范与文档编写 List1.AddItem 信息系统测试End SubPrivate Sub Command1_Click() If Text1.Text Then 1 Text1.Text 将文本框中的内容加到列表框中 Text1.Text = 2 MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() 3 List1.ListIndex 删除选定的项目End SubPrivate Sub Command3_Click() If Command3.C
20、aption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 修改 End IfEnd Sub五、编写程序题编写一工资调整程序。若基本工资大于等于2000元，增加工资20
21、%，若小于1800元大于1300元，则增加工资15%；若小于1300元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。 图42请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上者，按九五折优惠；（2）在400元以上者，按九折优惠；（3）800元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图5所示。 图 5答案：一、单项选择题
22、1.C 2.B 3.B 4.D 5.A 6.D 7.C 8.B 9.C 10.C 11.B 12.D 13.B 14.A 15.C 16.C 17.C 18.D 19.C 20.D 21B 22C 23C 24D 25.C 26.D 27.A 28.A 二、填空题1.vbp210003648506Timer7Picture1. Picture = LoadPrcture(pictureflower.jpg)8abcdef9实时错误 逻辑错误10本地数据库 远程数据库11.数据库引擎12右 上1316 14. Dim A(1To 3,0To 3) As String15变体型（Variant）1
23、6.alse17.服务程序处于侦听状态 三、阅读程序题1.AAA B2.10 203.1 9 4.8 175 406 4798 81012 四、完善程序题11 Set ADOcn = New Connection2ADOcn.Open3 New4 ADOcn5 ADOrs.Open strSQL21List1.AddItem 2Else 3List1.RemoveItem 4 修改 5 List1.Text 五、编写程序题参考答案1Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(Text1.Text) Sel
24、ect Case x Case Is = 1800 y = x * 1.2 Case Is = 1300 y = x * 1.15 Case Else y = x * 1.1 End Select Label3.Caption = yEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub 2Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 200 Then y = x Else If x 400 Then y = 0.95 * x Else If x 800 Then y = 0.9 * x Else y = 0.8 * x End If End If End If Text2.Text = yEnd Sub
