Visual Basic程序设计复习要点及练习0506okWord文档下载推荐.docx

1、26.“x是偶数”，用VB表达式表示为（D）。D、x/2=Int（x/2）27. Dim x As Boolean定义变量x的数据类型为（ D ）型。D、逻辑28. Kill语句在VB中的功能是（C）。C、清内存29. RmDir语句在VB中的功能是（A）。A、删除磁盘上的目录或文件夹30. Static x As Integer 定义x是一个（ C ）变量。C、静态31. VB中将变量wd声明为Word应用程序对象的方法是（）。 A、Dim wd As Word.Application B、Dim wd As Excel.Application C、Dim wd As Application

2、.Word D、Dim wd As Word32. VB中将变量xl声明为Excel工作表对象的方法是（）。 A、Dim xl As Excel.Worksheet B、Dim xl As Excel.Workbook C、Dim xl As Excel.Application D、Dim xl As Excel33. VB中将变量xl声明为Excel工作簿对象的方法是（）。 A、Dim xl As Excel B、Dim xl As Excel.Application C、Dim xl As Excel.Worksheet D、Dim xl As Excel.Workbook34. 按照变量

3、的作用域可将变量划分为（C）。C、全局变量、模块级变量、过程级变量35. 按照指定的小数位数进行四舍五入运算的函数是（ D ）。D、Round36. 把数值型转换为字符串型需要使用的函数是（ C ）。C、Str37. 程序运行时，为了清除Image控件（Image1）中的图形，执行的语句是（ D ）。 D、Image1.Picture = LoadPicture（）38. 窗体的Load事件的触发时机是（ D ）。D、窗体被加载时39. 当用户单击窗体时，将触发窗体的（ C ）事件。C、Click40. 对于定时器控件（Timer），设置其定时是否开启的属性是（B）。B、Enabled41.

4、关于语句行，下列说法正确的是（ C ）。C、一行可以写多条语句42. 可获得字符的ASCII码的函数是（ D ）。D、Chr43. 如果对象的名称为Cat，而且对象有一个属性Dog，那么在代码中引用该属性的正确格式是（ B ）。B、Cat.Dog44. 如果准备读文件，打开顺序文件“text.dat”的正确语句是（ C ）。 C、Open text.dat For Input As # 1 45. 如果准备读写二进制文件，打开文件“F.dat”的正确语句是（ A ）。 A、Open F.dat For Binary As # 1 46. 如果准备写文件，打开顺序文件“text.dat”的正确语

5、句是（ D ）。 D、Open For OutPut As # 147. 设置对象的边框类型的属性是（ D ）。D、BorderStyle48. 无论何种控件，共同具有的属性是（ D ）。D、Name属性49. 要绘制不同形状的图形，需要设置Shape控件的（ A ）属性。A、Shape 50. 要绘制多种式样的直线，需要设置Line控件的（ C ）属性。A、Shape51. 要利用公共对话框控件来显示“打印”对话框，需要调用控件的（A）方法。A、ShowPrinter52. 要使文本框中的内容在运行时不能编辑，需将文本框的（ C ）属性设置为True。 C、Locked53. 要退出Do W

6、hileLoop循环，可使用的语句是（ D ）。D、Exit Do54. 要退出ForNext循环，可使用的语句是（ C ）。C、Exit For55. 要在文本框（TextBox）中显示多行内容，需将文本框的（ C ）属性设置为True。 C、MultiLine56. 一个事件过程的入口语句Private Sub Form_Initialize（）中，Form是对象名，而Initialize是（ C ）。C、事件名57. 一条语句可以分多行书写，在行的末尾用续行字符表示一行尚未结束，续行字符是（ D ）。D、一个空格加一个下划线58. 与传统的程序设计语言相比，Visual Basic最突出

7、的特点是（ D ）。 D、事件驱动编程机制59. 在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（ B ）。 B、工程资源管理器窗口 1数学表达式写成等价的Visual Basic表达式为 。答案：10（1/2）*cos（50*3.14/180）， 或者Sqr（10）*cos（50*3.14/180）2删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为Kill C:TEMP*.tmp。3Visual Basic程序开发有三种模式，即设计模式、运行模式和中断模式。4执行指令Line（200,300）-（400,500）后，CurrentX=400。设CurrentX=50,

8、CurrentY=100，执行指令“Line（100,20）-Step（300,500）”后，CurrentY = 520 。5ADO数据模型中一般可通过Connection对象的Execute方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。6已知a=3,b=4,c=5,表达式ab and Not ca Or cb And ca+b的值是True。7为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所 使用的语句为Picture1. Picture = LoadPrcture（picturefile.jpg）。8设某个程序中要用到一个二

9、维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为Dim A（0To5,-2To5） As String 。9Visual Basic一般用4种类型的文件保存，分别是扩展名为frm的窗体文件，扩展名为.bas的标准模块文件，扩展名为.cls的类模块文件和扩展名为.vbp的工程文件。10将图片框PictureBox的AutoSize属性设置成Ture 时，图片框能自动调整大小，以适应其中的图片。11若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 右 ，Y轴的正向向 上。12 Left（“abc

10、d”,2）函数的返回值是 ab ; Right（“abcd”,2）函数的返回值是 cb。13Vb应用程序与数据库进行通信的主要机制称为数据引擎 。14Winsock控件主要用来编制 TCP/IP 或UDP协议的通话程序。15假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是 Dim ADOcn As Connection 。16在VB中，将Foxpro称为 外部数据库 ，Access称为 本地数据库 ，SQL Server称为 远程数据库 。17常用的VB网络编程控件主要有Winsock、Internet Transfer、WebBrowser 三种。18以（

11、600,600）为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是 Circle（600,600）,800 。19以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。Private Sub Drive1_Change（） Dir1.Path=Drive1.Drive End SubPrivate Sub Dir1_Change（） File1.Path=Dir1.Path 20. 在Visual Basic程序中实现复制文件”d:text.doc”到e:盘根目录下的语句为 FileCopy”d:text.doc”,”e: tex

12、t.doc” 。三、阅读程序题阅读下列程序并写出程序运行结果循环次数X初值是否满足循环条件X终值n1是3224否1Private Sub Command1_Click（） x = 0 Do While x 20 x = （x + 1） * （x +3） n = n + 1 Loop Text1.Text = Str（n） Text2.Text = Str（x） Text3.Text = Val（Text1.Text） + Val（Text2.Text）文件框Text3的结果是：262. Private Sub Command1_Click（） Dim x As IntegerStatic s

13、As Integer x = Val（InputBox（请输入一个正整数=） If x 3的条件a初值a终值1621不满足循环条件 Dim i As Integer, a As Integer a = 0 For i = 1 To 6 If i 3 Then a = a + 5 a = a + 2 Next iPrint i, a 写出程序运行时单击窗体后，Form1上的输出结果。 答案：7 218. Sub Change（ByVal x As Integer, ByVal y As Integer） Dim t As Integer t=x x=y y=t Print x,yEnd sub

14、Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a,b 写出程序运行时单击窗体后，Form1上的输出结果 4 33 4四、完善程序题 1列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。 图 1

15、程序如下，请补充完整。Private Sub Form_Load（） List1.AddItem 北京-上海北京-广州北京-四川北京-西安北京-哈尔滨北京-沈阳北京-长春 If Text1.Text Then 1 将文本框中的内容加到列表框中 2 MsgBox 请在文本框中输入信息！Private Sub Command2_Click（） 3 删除选定的项目Private Sub Command3_Click（） If Command3.Caption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command

16、2.Enabled = 6 Command3.Caption = 修改确认 List1.List（List1.ListIndex） = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 修改1List1.AddItem Text1.Text2Else 3List1.RemoveItem List1.ListIndex 4 5 List1.Text 6 False 7 知识点：3.3.3列表4控件；3.4.9流程控制语句2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序

17、运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。 图2程序代码如下，请补充完整 Drive1.Drive = 1 File1.Pattern = *.bmp;*.gif;*.jpgPrivate Sub Drive1_change（） Dir1.Path = 2 Text1.Text = Drive1.Drive 3 Text1.Text = 4 Private Sub File1_click（） Picture1. 5 =

18、 LoadPicture（File1.Path + + File1.FileName） FileName = File1.Path + + File1.FileName Text1.Text = FileName12 Drive1.Drive3 File1.Path = Dir1.Path4 Dir1.Path5 PictureP122 5.1.3代码设计3使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。基本逻辑是：假设在以D盘的根目录下有一个名为exam.txt的文本文件。当点击“打开”按钮（Command1）时，程序将exam.Txt文件中的内容显示在文本框（Tex

19、t1）中，当点击“新建”按钮（Command2）时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击“保存”按钮（Command3）时，将Text1中的内容保存在exam.txt文件中。当点击“退出”按钮（Command4）时关闭本窗体。 图3 Dim A As String Text1 = Open 1 Do While Not EOF（1） Input #1, A Text1 = Text1 +2 4 Open F1.Txt For Output As #1 5 Close #1Private Sub Command4_Click（） Unload Me1 exam.txt2 A3 Close #14 Text1 = 5 Write #1, Text1P128 5.3.1 顺序文件4已知存在一名为“学生”的SQL Server数据库，其中的“students”