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

1、Visual Basic 程序设计期末综合练习题二一、单项选择题1一个VB 应用程序可以包含几个vbp 文件（。A1 个B2 个C可以没有D不受限制 2启动VB 后，就意味着要建立一个新（A窗体文件C工程程序后缀.bas 的文件表示（。类模块文件B窗体文件 D窗体二进制数据文件D标准类模块文当一个工程中含有多个窗体时，其中的启动窗体是（。启动VB 时创建的第一个窗体第一个添加的窗体 C最后一个添加的窗体在“工程属性”对话框中指定的窗在文本框控件中将Text 的内容全部显示为所定义的字符的属性是（APasswordBPasswordCharC需要编程来实现以上都不是Visual Basic是一种

2、面向对象的程序设计语言，所采用的编程机制是（A从主程序开始执行按过程顺序执行C事件驱动按模块顺序执7下列四项中合法的变量名是（。Aa-bcC4abc将调试通过的工程经“文件”菜单的“生.exe 文件”编译.exe 后，将该可执文件拿到其它机器上不能运行的主要原因是（。A缺.frm 窗体文件B该可执行文件有病毒C运行的机器上无VB 系统D以上原因都不9无论何种控件，共同具有的属性是（）ATextBNameCCaptionDForeColor有程序代码如下：Text1.Text = Visual Basic 程序设计则Text1，Text ，Visual Basic程序设分别代表（A对象，值，属性

3、对象，方法，属性 C对象，属性，值D属性，对象，值如果仅需要得到当前系统时间，使用的函数是（）ANowBTimeCYearDDate12表达式16/4-25*8/4MOD52（。A20B14C2D4以下叙述中错误的是（。A、一个工程中可以包含多个窗体文件B、 全局变量必须在标准模块中定义C、在设计Visual Basic 型的文件D、在一个窗体文件中用Private 定义的通用过程能被其它窗体调用下列赋值语句正确的是（。Aa+b=cBc=a+bC-a=bD5=a+b要在窗体Form1内显示myfr，使用的语句是（） AForm.caption=myfrmCForm1.print myfrmpr

4、int myfrm确定一个控件在窗体上位置的属性是（）AWidth或Height和HeightCTop或Left和 Left 17将数据项添加到列表框 中成为第一项，应使用的语句是（AList1.AddItemChina,CList1.AddItemChina,1DList1.AddItem1,China如果创建了命令按钮数组控件，那么Click 事件的参数是（）IndexCTag没有参数在设计动画时，用时钟控件来控制动画速度的属性是（）EnabledBIntervalCTimerDMove以下叙述中错误的是（。一个工程中只能有一个Sub Main过程窗体的Show方法的作用是将指定的窗体载入

5、内存并显示该窗体窗体的Hide 方法和Unload方法的作用完全相同若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗21使图像框Image 控件中的图像自动适应控件的大小应（。将控件的 AutoSize 属性设为True将控件的 AutoSize 属性设为将控件的 Stretche 属性设为True将控件的 Stretche 属性设为若使图像框Image 控件自动适应其中的图形大小，应（。将控件的 Stretche 属性设为TrueB将控件的 Stretche 属性设为False 将控件的 AutoSize 属性设为TrueD 将控件的 AutoSize 属性设为在Visual Bas

6、ic 中，变量的默认类型是（）IntegerBDoubleCCurrencyDVariant使用ADO 数据模型时使Recordset 和 Connection 对象建立连接的属性（。CommandTypeBOpenCActiveConnectionDExecute 25下列控件中不能响应Click 事件的是（FrameBLabelCTimerD Form如果准备读文件，打开顺序文”text.dat”的正确语句是（Aopentext.dat For wrire As # 1opentext.dat For Binary As # Copentext.dat For Input As # 1 D

7、opentext.dat For Random As # 用Line 方法画直线,当前坐标在（。A（0，0）、直线起点C、直线终点、容器的中28不属于VB 数据库引擎的是（）AODBCB Jet 引擎CBDEDOLE DBMsgBox 函数的返回值的数据类型是（）字符串B日期型C逻辑型D整型VB 程序中通常不会产生错误提示的是（。编译错误B实时错误C运行时错误D 逻 辑 错 误 31如果希望以模态方式显示窗体Form1，下列正确的语句是（AForm1.Show 0CForm1.Show 1下列关于变量的说法不正确的是（。 A局部变量是指那些在过程中用Dim 语句或Static语句声明的变B局部

8、变量的作用域仅限于声明它的过程 C静态局部变量是在过程中用Static 语句声明的D局部变量在声明它的过程执行完毕后就被释放了改变驱动器列表框的Drive 属性值，将激活（）事件。KeyDownBKeyUpCChangeDScoll在下列选项中，不能将图像装入图片框和图像框的是（A在界面设计时，通过Picture 属性装入B在界面设计时，手工在图像框和图片框中绘制图形 C在界面设计时，利用剪贴板把图像粘贴上 D在程序运行期间，用LoadPicture函数把图形文件装入要发送数据，通常使用Winsock 控件的（。SendData 方法BListen方法CAccept 方法DGetDate方法V

9、B 程序中设置断点的按键是（。A、F5 键B、F6键C、F9 键D、F10键下列数组声明语句，正确的是（）ADim a3,4 As IntegerBDim a(3,4) As IntegerCDim a(n,n) As IntegerDDim a(3 4) As Integer 38当Winsock 控件处于打开状态时，其State 属性的值是（）A0B1C2D6二、填空题TextBox 和 Label 控件用来显示和输入文本如果仅需要让应用程序在窗体中显示本信息，可使用控件；若允许用户输入文本，则应使用控件。在 VB 中要想获得某个相关控件或语句的帮助信息一般可首先选中该控件或语句然后按键。

10、欲设置定时器的时间间隔为2 秒，则属性Interval 的值为。应用程序打包后，其包文件的后缀为。Visual Basic 程序开发有三种模式，即设计模式、模式和式。是应用程序的对外接口，是其它控件的载体和容器。7表达式14/2-23*7 MOD 6 的值是。每个应用程序都有开始执行的入口，在VB 中将这种窗体称为。控件数组的名字由属性指定而数组中的每个元素由性决定。执行赋值语句a=Visual+Basic后，变量a 的值是。在Visual Basic 语言中有三种形式的循环结构其中若循环的次数可以适先确定 可使用循环；若要求先判断循环进行的条件，可使用循。数学关系8x 4 Thenc = c

11、 + 4 Exit ForElsek = k + End IfNext j Print c, k End Sub写出程序运行时单击窗体后，c,k 的值分别是：3Private Sub Command1_Click() Dim s As DoubleDim i As s = 7i = 1Do While i 3 Thenc = c + 5 Exit ForElsek = k + End IfNext j Print c, k End Sub写出程序运行时单击窗体后，c,k 的值分别是：5.Private Sub Form_Click() Dim A(1 To 3) As String Dim c

12、 As IntegerDim j As A(1) = 4A(2) = 8A(3) = 12c = 1For j = 1 To 3c = c + Val(A(j)Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1 上的结果：6Private Sub Form_Click()Dim i As Integer, k As Integer k = 0For i = 1 To 4 If i 2 k = k + 5 Exit ForElsek = k + 2 End IfNext i Print k End Sub写出程序运行时单击窗体后，Form1 上的输出结果。7.Fu

13、nction F(a As Integer) Dim b As Integer Static c As Integerb = b + c = c + F = a + b + End FunctionPrivate Sub Command1_Click()Dim a As Integer a = 4For i = 1 To 3 Print F(a)Next i End Sub写出程序运行时，单击命令按钮在窗体上的输出结果。8.Private Sub Form_Click()Dim I As Integer, j As Integer Dim c As Integerc = 0For I = 1

14、To 4For j = 1 To 2 c = c + 4Next j Next I Print c End Sub文件框Text1 的输出结果是：9.Sub Change(x As Integer, y As Integer)Dim t As t = xx = y = Print x, End SubPrivate Sub Form_Click()Dim a As Integer, b As Integer a = 30: b = 40Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。10.Private Sub Form_Click

15、()Dim i As Integer, k As Integer, c As Integer For i = 1 To 5If i Mod 2 = 0 Then k = k + 2Elsec = c + 2 End IfNext i Print k, c End Sub写出程序运行时单击窗体后，Form1 上的输出结果。四、完善程序题程序运行界面如图1 将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该Text1List1Command1Command2Command3Text1List1Command1Command2Command3图 1程序如下，请补充完整。P

16、rivate Sub Form_Load() List1.AddItem 计算机应用基础 List1.AddItem 程序设计基础 List1.AddItem VB 程序设计List1.AddItem SQLServer 数据库应用 List1.AddItem 网 站 设 计 技 术 List1.AddItem 系统开发规范与文档编写 List1.AddItem 信息系统测试End SubPrivate Sub Command1_Click() If Text1.Text ThenList1. 1Text1.Text将文本框中的内容添加到列表框中Text1.Text = ElseMsgBox

17、请在文本框中输入信息！End If End SubPrivate Sub Command2_Click()List1.RemoveItem 2删除选定的项目End SubPrivate Sub Command3_Click()If Command3.Caption = 修改Text1.Text = 3Text1.SetFocus Command1.Enabled = False Command2.Enabled = FalseCommand3.Caption = 4Else5= Text1.TextCommand1.Enabled = True Command2.Enabled = True

18、Text1.Text = 56Command3.Caption = 7End IfEnd Sub2已知存在一名为“学生”的SQL Server 数据库，其中的“studentsstudents 表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server 数据库； students 表中添加学生记2 所示。图 2程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()连接 SQL Server 数据库Dim strDB As StringstrDB =Provid

19、er=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1If ADOcn Is Nothing ThenSet ADOcn =2 ADOcn.Open strDBEnd If End SubPrivate Sub Command1_Click() 增加学生记录Dim strSQL As StringDim ADOrs3ADOrs. 4=ADOcnADOrs.Open “Select 学号 From Students Where =”+” “+Text1+” “If Not 5ThenMsgBox “你输入的学号已存在，不能新增加！”ElseStrSQL

20、=”Insert Into students (学号,姓名,籍贯, 性别)StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 6MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click() 7End Sub3Drive1 D File1 中所列的图片（*.bmp,*.gif 和则相应的图片显示在图片框Picture1 3 所示。图 3程序代码如下，请补充完整Private Sub Form_Load() Drive1.Drive

21、=File1.Pattern = *.bmp;*.gif;*.jpg End SubPrivate Sub Drive1_change() Dir1.Path = 2Text1.Text = Drive1.Drive End SubPrivate Sub 34End SubPrivate Sub File1_click()Picture1.5= LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileNameText1.Text = FileName End Sub五、编写程序题Drive1

22、的默认驱动器设置为D 盘，选录File1（*.jpFile1则相应的图片显示在图片框Picture1 4 所示。图4程序运行效果购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物）在200元以上者，按9.5）在300元以上者，按93） 400 元以上者，按8 （）600元以上者按7 折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1 中输入购物商品总金额，单击命令按钮，在Text2 中输出优惠后的5 所示。图5程序运行效果编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面图6 所示：图 6 程序运行效果要使用转换的公式是：F=9/5*C+32，其

23、中 F 为华氏温度，C 为摄氏温度。Visual Basic 程序设计期末综合练习题二答案一、单项选择题1.A2.C3.D 4.D5.B 6.C7.B8.C9.B10.C 11.B 12.D 13.D14.B 15.C 16.D 17.B 18.A 19.B20.C 23.D 25.C26.C 27.C 28.C 29.D30.D 31.C32.D33.C3B 35.A 36.C 37.B38.B二 、 填 空 题 1Label2F1320004.cab中断执行窗体758启动窗体9Name10VisualBasic11ForNext 循环DoLoop循环12.8=x AND x30本地数据库远

24、程数据库Circle(ScaleWidth/2,ScaleHeight/2),500Picture1. Picture = LoadPrcture(picturefile.jpg)(或写成Variant型)整个模块或窗体整个应用程序（或工程中所有的模块和所有的过）循环结构 顺序结构19True实时错误 逻辑错误F1F9TCP/IPUDPTimer IntervalNameIndexDim ADOcn As New Connection 26.Dim A(-1 To 2,0 To 3) As Integer 27MainY MOD 4=0 And Y MOD 1000 OR Y MOD 400=

25、0WinsockWebBrowser右上三、阅读程序题1.x=2y=2x=2y=4x=2y=62.543.424.855256.97810128329504050401046四、完善程序题1AddItemList1.ListIndex4修改确认5 List1.List(List1.ListIndex)6 7修改2学生New ConnectionAs New RecordsetActiveConnectionADOrs.EOFstrSQLUnload Me3.1D:Drive1.DriveFile1.Path = Dir1.PathText1.Text = Dir1.PathPicture五、编写程序题1参考答案：Priva