Visual Basic程序设计期末复习一.doc

Visual Basic程序设计期末复习一一、单项选择题 1能够改变标签(Label)控件显示标题的属性是（ B ）。AName BCaption CText DBorder2当一个工程中含有多个窗体时，其中的启动窗体是（ C ）。A启动VB时创建的第一个窗体 B第一个添加的窗体C在“工程属性”对话框中指定的窗体 D最后一个添加的窗体 3.当运行程序时，系统自动执行启动窗体的（ A ）事件。ALoad BUnload CClick DLostFocus4下列4项中合法的变量名是（ D ）。A2xyz BIntegerCx-yz Dx_yz5表达式24 / 2 - 2 3 *4 / 4 Mod 5 3（ A ）A12 B16C20 D326要清除List列表框控件中的所有项目，可采用的方法是（ B ）AErase BClear CClick DDelete7下列正确的赋值语句是（ C ） Ax+y=z B2=x+y Cz=x+y Dx=Integer+28可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引（ A ）。AListIndex BListCount CListText DLisItem9.若窗体Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么X轴和Y轴的正方向是（ D ）A向左和向上 B向左和向下C向右和向下 D向右和向上 10如果仅需要得到当前系统时间，则可以使用哪个函数（ A ）ATime BYearCNowDDate11数学关系8y40表示成正确的VB表达式为（ C ）A、8=y40 B、8=y AND40 C、8=y AND y40 D、8=y OR y4012Dim A(-1 To 4, 5) As String定义的数组包含的元素个数是（ B ）A30 B36 C25 D2013应用程序打包后，其包文件的后缀是（ A ）A.cab B.exeC.ocx D.vbp14能够实现“窗体总在最前端”界面效果的API函数是（ A ）ASetWindowPos BSetWindowAPICPrivate DPublic15 某窗体的Name属性为MyFrm，则它的Load事件的过程名为（ D ）AMyFrm_LoadBMe_Load CForm1_Load DForm_Load16MsgBox函数的返回值的类型是（ A ）A整型 B字符串C逻辑型 D日期型17 以读方式打开D盘中的 Text.dat文件，正确的语句是（ B ）AopenD:text.dat For Output As # 1 Bopen D:text.dat For Input As # 1 Copen D:text.dat For Input As Dopentext.dat For Random As # 118在VB中，Access数据库属于（ A ）A本地数据库 B外部数据库C远程数据库 DOLE数据库19当Winsock控件处于关闭状态时，其State属性的值是（ B ）A1 B0C2 D-120后缀为.Vbp的文件表示VB 的（ C ）A类模块文件 B窗体文件C工程文件 D标准类模块文件21在设计动画时，用时钟控件来控制动画速度的属性是（ B ） AEnabled BInterval CTimer DMove22下列数据对象模型中采用OLE DB访问数据库的是（ C ）。ADAOBRDOCADODRDO和ADO23下列控件中不能响应Click事件的是（ D ）。AFrame BLabel CForm DTimer24文本框不具备的属性是（ D ）。AEnabled BVisible CBackColor DCaption二、填空题1.VB提供控件的窗口是 工具箱 窗口。2Timer控件只有一个事件，该事件的名称是 Timer 。3 Left(“abcdef”,2)函数的返回值是 ab 。 4执行指令Line(200,200)-(600,600)后，CurrentX等于 600 。5对命令按钮的Picture属性装入.bmp图形文件后，该命令按钮上并没有显示所需要的图形，原因是没有对 style 属性设置为1(Graphical)。6若窗体Form1左上角坐标为(-250,300)，右下角坐标为(350,-200)，则X轴的正向向 右，Y轴的正向向 上 。7Winsock1.Listen语句的含义是 使程序处于侦听状态，等待客户访问 。8Winsock1.Connect语句的含义是 用于向远程主机发出链接请求 。9Winsock控件主要用来编制TCP/IP或 UDP 协议的通话程序。10程序的运行结果和程序员的设想有出入时产生的错误称为 逻辑错误 。11利用SendKeys “Tab”语句可以向当前活动窗体发送一个Tab键，那么如果希望发送一个回车键，则正确的语句应该是 SendKey“Enter” 。12Vb应用程序与数据库进行通信的主要机制称为 数据库引擎 。 13按文件的存取方式，可将文件分为顺序文件、 随机文件 和 二进制文件 。14假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是 ADOrs.Open ”Select * From Table1”。15Dim a As String，则运行时变量a的初始值是 空字符串 。如果不事先使用Dim语句声明a变量，那么a的默认数据类型是 Variant 。16变量的声明方法有隐式和 显示 声明两种，如果采用隐式声明方法，那么VB会自动将变量声明为 变体型 。17矩形、三角形、正方形三种图形中，不能用Shape控件绘制的是 三角形 。18一个VB应用程序可以包含 1 个vbp文件。 19ADO模型中一般可通过 Connection 对象的Execute方法执行增加、删除、修改SQL语句。20全局变量在整个应用程序中有效，一般在标准模块中使用 Public 语句声明。三、阅读程序题阅读下列程序并写出程序运行结果1Private Sub Form_Click() Static a As Integer Dim b As Integer a = a+2 b = b+2 Text1=a Text2=bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1 6和Text2 3显示结果。2Private Sub Form_Click() Static a As String Dim b As String a = a + A b = b + B Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1 AAA和Text2 B显示结果。3Private Sub Command1_Click() Dim n As Integer, y As Integer, x As 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 3、 Text2 42和 Text3 9的输出结果。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 2 Thenk = k + 5 Else k = k + 2 End If Next iPrint i, kEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。5 146.Private 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上的输出结果。4 67Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。20 10四、完善程序题1假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。 图1用Access创建的学生基本情况数据表图2 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 SetADOcn=New Connection 2 ADOcn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:学生.MDBEnd SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 New Recordset ADOrs.ActiveConnection = 4 ADOcn strSQL = Select * From 学生基本情况 Where 学号= + + Text1 + 5 ADOrs.Open strSOL If 6 Not ADOrs.EOF Then Text2 = ADOrs.Fields(学号) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍贯) Else MsgBox 要查询的学号不存在，请重新输入!, vbOKOnly, 信息提示 Text1 = 7 Text1.SetFocus End IfEnd Sub Private Sub Command2_Click() UnLoad Me End2使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。基本逻辑是：假设在以C盘的根目录下有一个名为F1.txt的文本文件。当点击“打开”按钮(Command1)时，程序将F1.Txt文件中的内容显示在文本框(Text1)中，当点击“新建”按钮(Command2)时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击“保存”按钮(Command3)时，将Text1中的内容保存在F1.txt文件中。当点击“退出”按钮(Command4)时关闭本窗体。记事本程序运行界面程序如下，请补充完整。Private Sub Command1_Click() Dim strtxt As String Text1 = Open G:VBaa.Txt For Input As #1 Do While 1 Not EOF（1） Input #1, strtxt Text1 = Text1 + 2 strtxt Loop 3 Close #1 End SubPrivate Sub Command2_Click() Text1 = End SubPrivate Sub Command3_Click() 4 Open“G：VBaa.Txt”For Output As #1 Write #1, 5 Text1 Close #1End SubPrivate Sub Command4_Click() Unload MeEnd Sub3列表框应用程序。要求从文本框(Text1)中输入姓名，然后按“回车”键，把姓名添加到列表框(List1)中；当选择列表框中某一项后，按“删除”按钮(Command1)，则从列表框中删除该项。程序运行结果如下图所示。 Private Sub Text1_KeyPress( 1 KeyAscii As Intege ) If KeyAscii = 2 13 Then If Text1 Then List1.AddItem 3 Text1 Text1 = Else MsgBox 请先输入姓名!, vbOKOnly, 信息提示 End If End IfEnd SubPrivate Sub Command1_Click() If List1.ListIndex = 4 0 Then 5 List1.RemoveItem List1.ListIndex Else MsgBox 请先选择一个项目!, vbOKOnly, 信息提示 End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub五、编写程序题1.编写一程序，要求单击“开始”按钮(Command1)，在列表框(List1)中输出1100之间偶数，单击清除按钮(Command2)，清除文本框中的全部内容。程序运行结果如下