Visual Basic程序设计期末复习

1、Visual Basic程序设计期末复习一、单项选择题 1能够改变标签(Label)控件显示标题的属性是（ ）。AName BCaption CText DBorder2当一个工程中含有多个窗体时，其中的启动窗体是（ ）。A启动VB时创建的第一个窗体 B第一个添加的窗体C在“工程属性”对话框中指定的窗体 D最后一个添加的窗体 3.当运行程序时，系统自动执行启动窗体的（ ）事件。ALoad BUnload CClick DLostFocus4下列4项中合法的变量名是（ ）。A2xyz BIntegerCx-yz Dx_yz5表达式24 / 2 - 2 3 *4 / 4 Mod 5 3（）A12

2、B16C20 D326要清除List列表框控件中的所有项目，可采用的方法是（ ）AErase BClear CClick DDelete7下列正确的赋值语句是（ ） Ax+y=z B2=x+y Cz=x+y Dx=Integer+28可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引（ ）。AListIndex BListCount CListText DLisItem9.若窗体Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么X轴和Y轴的正方向是（ ）A向左和向上 B向左和向下C向右和向下 D向右和向上 10如果仅需要得到当前系统时间，则

3、可以使用哪个函数（ ）ATime BYearCNowDDate11数学关系8y<40表示成正确的VB表达式为（ ）A、8<=y<40 B、8<=y AND<40 C、8<=y AND y<40 D、8<=y OR y<4012Dim A(-1 To 4, 5) As String定义的数组包含的元素个数是（ ）A30 B36 C25 D2013应用程序打包后，其包文件的后缀是（）A.cab B.exeC.ocx D.vbp14能够实现“窗体总在最前端”界面效果的API函数是（）ASetWindowPos BSetWindowAPICPriv

4、ate DPublic15 某窗体的Name属性为MyFrm，则它的Load事件的过程名为（ ）AMyFrm_LoadBMe_Load CForm1_Load DForm_Load16MsgBox函数的返回值的类型是（）A整型 B字符串C逻辑型 D日期型17 以读方式打开D盘中的 Text.dat文件，正确的语句是（ ）Aopen"D:text.dat" For Output As # 1 Bopen" D:text.dat" For Input As # 1 Copen" D:text.dat" For Input As Dopen

5、"text.dat" For Random As # 118在VB中，Access数据库属于（）A本地数据库 B外部数据库C远程数据库 DOLE数据库19当Winsock控件处于关闭状态时，其State属性的值是（）A1 B0C2 D-120后缀为.Vbp的文件表示VB 的（）A类模块文件 B窗体文件C工程文件 D标准类模块文件21在设计动画时，用时钟控件来控制动画速度的属性是（ ） AEnabled BInterval CTimer DMove22下列数据对象模型中采用OLE DB访问数据库的是（）。ADAOBRDOCADODRDO和ADO23下列控件中不能响应Click

6、事件的是（ ）。AFrame BLabel CForm DTimer24文本框不具备的属性是（ ）。AEnabled BVisible CBackColor DCaption25刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。A单选按纽 B图片框 C通用对话框 D文本框26与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术27将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。A缺少.frm窗体文件 B运行的机器上无V

7、B系统C该可执行文件有病毒 D以上原因都不对 28启动VB后，就意味着要建立一个新（ ）。A文件 B窗体C程序 D工程29在VB环境中，标准类模块文件的扩展名是（ ）。A.vbp B.frm C.bas D .frx30Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。A设计模式 B执行模式C中断模式 D编写代码模式31下列4项中合法的变量名是（ ）。A45 xyz BSingleCx-yz Dx_yz32表达式64 / 2 - 2 3 * 9 / 3 Mod 8 3（）A0 B32C20 D433 要在窗体的标题内显示“myfrm”,使用的语句是

8、（ ）AForm1.Print"myfrm" BForm.Print"myfrm" CForm.caption="myfrm" DForm1.caption="myfrm"34无论何种控件，共同具有的属性是（）AText BNameCCaption DForeColor35按照变量的作用域可将变量划分为（ ） A公有、私有、系统 B全局变量、模块级变量、过程级变量 C动态、常数、静态 DPublic、 Private、 Protected36确定一个控件在窗体上位置的属性是（ ）AWidth或Height BWid

9、th和Height CTop或Left DTop和Left37要退出DoLoop循环，可使用的语句是（ ）语句。 AExit BExit For CExit Do D End Do38表达式8+10 Mod 22+3的值是（ ）A、4 B、11 C、12 D、1339.下列关于变量的说法不正确的是（ ）。A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量在声明它的过程执行完毕后就被释放了40以下叙述中错误的是（ ）。A一个工程中只能有一个Sub Main过程 B窗体的Show方法的

10、作用是将指定的窗体载入内存并显示该窗体C窗体的Hide方法和Unload方法的作用完全相同 D若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体41要绘制多种形状的图形，需要设置Shape控件的（ ）属性ABorderstyle B ShapeCFillStyle DStyle42VB程序中通常不会产生错误提示的是（）。A编译错误B实时错误C运行时错误D逻辑错误43当Winsock控件处于关闭状态时，其State属性的值是（ ）A0 B 1C2 D644下列正确的赋值语句是（ ）。Ax+y=50 By=p*r*r Cy=x+50 D3y=x45使图像框Image控件中的图像自动适应控件

11、的大小应（）。A将控件的 Stretche属性设为True B将控件的 Stretche属性设为FalseC将控件的 AutoSize属性设为True D 将控件的 AutoSize属性设为False 46目录列表框的Path属性的作用是（ ）A显示当前驱动器或指定驱动器上的路径 B显示当前驱动器或指定驱动器上的某目录下的文件名C显示根目录下的文件名D只显示当前路径下的文件47下列数据对象模型中采用OLE DB访问数据库的是（）。ADAOBADOCRDODRDO和ADO48使用ADO数据模型时，使Recordset和 Connection对象建立连接的属性是（）。ACommandType BA

12、ctiveConnection COpen DExecute49如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）Aopen"text.dat" For wrire As # 1 Bopen"text.dat" For Binary As # 1 Copen"text.dat" For Input As # 1Dopen"text.dat" For Random As # 1二、填空题1.VB提供控件的窗口是 窗口。2Timer控件只有一个事件，该事件的名称是 。3 Left(“abcdef”,2)

13、函数的返回值是 。 4执行指令Line(200,200)-(600,600)后，CurrentX等于 。5对命令按钮的Picture属性装入.bmp图形文件后，该命令按钮上并没有显示所需要的图形，原因是没有对 属性设置为1(Graphical)。6若窗体Form1左上角坐标为(-250,300)，右下角坐标为(350,-200)，则X轴的正向向 ，Y轴的正向向 。7Winsock1.Listen语句的含义是 。8Winsock1.Connect语句的含义是 。9Winsock控件主要用来编制TCP/IP或 协议的通话程序。10程序的运行结果和程序员的设想有出入时产生的错误称为 。11利用Sen

14、dKeys “Tab”语句可以向当前活动窗体发送一个Tab键，那么如果希望发送一个回车键，则正确的语句应该是 。12Vb应用程序与数据库进行通信的主要机制称为 。 13按文件的存取方式，可将文件分为顺序文件、 和 。14假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是 ”Select * From Table1”。15Dim a As String，则运行时变量a的初始值是 。如果不事先使用Dim语句声明a变量，那么a的默认数据类型是 。16变量的声明方法有隐式和 声明两种，如果采用隐式声明方法，那么VB会自动将变量声明为 。17矩形、三角形、正方形三种图

15、形中，不能用Shape控件绘制的是 。18一个VB应用程序可以包含 个vbp文件。 19ADO模型中一般可通过 对象的Execute方法执行增加、删除、修改SQL语句。20全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。21用Line方法画直线后,当前坐标在 。22.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。23应用程序打包后，其包文件的后缀为 。24如果要每隔10s产生一个Timer事件，则Interval属性应设置为 。 25每个应用程序都有开始执行的入口，在VB中将这种窗体称为 。26控件数组的名字由 属性指定，而数组中的每个元

16、素由 属性决定。27数学关系15x<45表示成正确的VB表达式为 。28以窗体Form1的中心为圆心，画一个半径为300的圆的语句是 。 29假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是 30在VB中，将Foxpro称为 ，Access称为 ，SQL Server称为 。31设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到4，第二维下标从-1到4，则相应的数组声明语句为 。32若窗体Form1左上角坐标为（0，500），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。33全局变量在整个应用程

17、序中有效，一般在模块代码编辑器的顶部用 语句声明。34列表框中项目的序号是从 开始的。35Winsock控件主要用来编制 或 协议的通话程序。36Vb应用程序与数据库进行通信的主要机制称为 。37Image控件的Stretch属性设置为 时，图像框可自动改变大小以适应其中的图形。38在整个程序运行时，用Static声明的局部变量是静态的，其值可以在该过程所在的模块运行期间 ，而用Dim声明的变量只能在 才存在。三、阅读程序题阅读下列程序并写出程序运行结果1Private Sub Form_Click() Static a As Integer Dim b As Integer a = a+2

18、b = b+2 Text1=a Text2=bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。2Private Sub Form_Click() Static a As String Dim b As String a = a + "A" b = b + "B" Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。3Private Sub Command1_Click() Dim n As Integer, y As Integer, x As

19、Integer a = 1Do While a < 20 n = n + 1 b = a + b a = a * (a + 1) Loop Text1.Text = n Text2.Text = a Text3.Text = bEnd Sub写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。4Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x < 3 A(

20、i) = A(i) * x x = x + 2 i = i + 1 Loop Text1.Text = A(1) Text2.Text = A(2)End Sub写出程序运行时单击Command1后，文本框Text1、Text2的输出结果。5Private Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 4 If i > 2 Thenk = k + 5 Else k = k + 2 End If Next iPrint i, kEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。6.Pri

21、vate Sub Form_Click()Dim i As Integer, k As Integer, c As Integer For i = 1 To 5 If i Mod 2 = 0 Then k = k + 2 Else c = c + 2 End If Next i Print k, cEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。7Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, yEnd SubPrivate Sub F

22、orm_Click() Dim a As Integer, b As Integer a = 10: b = 20Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。8Private Sub Form_Click() Static Sum As Integer For I = 1 To 5 Sum = Sum + I Next I Print SumEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。9Private Sub Form_Click()Dim c As Integer, j As Integer, k As In

23、tegerk = 0c = 1For j = 1 To 6 If j > 4 Then c = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，c,k的值分别是：10 .Private Sub Command1_Click()Dim s As DoubleDim i As Integer s = 5 i = 1 Do While i < 9 i = i + 2 s = s + i Loop Text1.Text = sEnd Sub文件框Text1的输出结果是：11.Private Sub

24、 Command1_Click() Dim X As Integer, Y As Integer X = 0: Y = 1 For i = 1 To 3 For j = 1 To i Y = Y * j Next j X = X + Y Next i Print XEnd Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。12.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

25、_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。13.Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = "2" A(2) = "4" A(3) = "6" A(3) = "8" c = 1 For j = 1 To 4 c = c + Val(A(

26、j) Next j Print cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果： 四、完善程序题1假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退

27、出按钮(Command2)时关闭本窗体。 图1用Access创建的学生基本情况数据表图2 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 2 End SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = 4 strSQL = "Select * From 学生基本情况 Where 学号=" + " ' "

28、; + Text1 + " ' " 5 If 6 Then Text2 = ADOrs.Fields("学号") Text3 = ADOrs.Fields("姓名") Text4 = ADOrs.Fields("籍贯") Else MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示" Text1 = "" 7 End IfEnd Sub Private Sub Command2_Click() UnLoad Me

29、End2使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。基本逻辑是：假设在以C盘的根目录下有一个名为F1.txt的文本文件。当点击“打开”按钮(Command1)时，程序将F1.Txt文件中的内容显示在文本框(Text1)中，当点击“新建”按钮(Command2)时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击“保存”按钮(Command3)时，将Text1中的内容保存在F1.txt文件中。当点击“退出”按钮(Command4)时关闭本窗体。记事本程序运行界面程序如下，请补充完整。Private Sub Command1_Click() Dim s

30、trtxt As String Text1 = "" Open "G:VBaa.Txt" For Input As #1 Do While 1 Input #1, strtxt Text1 = Text1 + 2 Loop 3 End SubPrivate Sub Command2_Click() Text1 = ""End SubPrivate Sub Command3_Click() 4 Write #1, 5 Close #1End SubPrivate Sub Command4_Click() Unload MeEnd Sub

31、3列表框应用程序。要求从文本框(Text1)中输入姓名，然后按“回车”键，把姓名添加到列表框(List1)中；当选择列表框中某一项后，按“删除”按钮(Command1)，则从列表框中删除该项。程序运行结果如下图所示。 Private Sub Text1_KeyPress( 1 ) If KeyAscii = 2 Then If Text1 <> "" Then List1.AddItem 3 Text1 = "" Else MsgBox "请先输入姓名!", vbOKOnly, "信息提示" End I

32、f End IfEnd SubPrivate Sub Command1_Click() If List1.ListIndex >= 4 Then 5 Else MsgBox "请先选择一个项目!", vbOKOnly, "信息提示" End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub4列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项

33、送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List1Command3Command2Command1Text1 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem "李敏" List1.AddItem "张华" List1.AddItem "吕晓烨" List1.AddItem "赵巍" List1.AddItem "袁莉

34、" List1.AddItem "王津" List1.AddItem "何小渴" List1.AddItem "崔宁" List1.AddItem "何月"End SubPrivate Sub Command1_Click() If Text1.Text <> "" Then 1 Text1.Text = "" Else MsgBox "请在文本框中输入信息！" End IfEnd SubPrivate Sub Command2_Cl

35、ick() 2 End Sub Private Sub Command3_Click() If Command3.Caption = "修改"Then Text1.Text = 3 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 4 Else 5 Command1.Enabled = True Command2.Enabled = True Text1.Text = 6 Command3.Caption = "修改" End IfEnd

36、 Sub5在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。程序如下，请补充完整。Private Sub Form_Load() 1 File1.Pattern = "*.bmp;*.gif;*.jpg"End SubPrivate Sub Drive1_change() Dir1.Path = 2 3 = Drive1.Driv

37、eEnd SubPrivate Sub Dir1_Change() 4 Text1.Text = 5 End SubPrivate Sub File1_click() Picture1. 6 = LoadPicture(File1.Path + "" + File1.FileName) FileName = File1.Path + "" + File1.FileName Text1.Text = 7 End Sub6已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表