《vb程序设计》期末复习题及答案.docx

vb程序设计期末复习题及答案vb程序设计期末复习题及答案 一、填空题 1创建一个VB应用程序三个主要的步骤是_、_和_。 2当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_窗口中，把此文本框的_属性设置成空白。 3Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_控件；若允许用户输入文本，则应使用_控件。 4窗体的常用方法有_、_、_和_。 5要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_。 6若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ _ _ End Sub 7Visual Basic 6种类型的表达式是_、_、_、 _、_、_。Visual Basic根据表达式的_来确定表达式的类型。 8表达式93 7 Mod 2 2 的值是_。 9已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_。表达式c>a And Not b<c的值是_。 10日期表达式 #2/24/02# - #2/12/02# 的值为_。 11数学表达式sin2x+ 写成等价的Visual Basic表达式为_。 12设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为_。 13事件就是在对象上所发生的事情，Visual Basic中的事件如_、_、_等。一个对象响应的事件可以有_个，用户不能建立新的事件。事件过程是指_。假设某一事件过程如下： Private Sub cmd1_Click Form1.Caption="VB示例" End Sub 则响应该过程的对象名是_，事件名是_。 14对象的方法用于_。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为_，例如，对窗体Form1使用Show方法，应写成_。 15PictureBox控件可通过设置其_属性为True使之可自动调整大小；而Image控件可通过设置其_属性为True，使其加载的图片能自动调整大小以适应Image。 16在Visual Basic程序中实现复制文件“c:”到d:盘根目录下的语句为_。 二、单项选择题 1下列控件中没有Caption属性的是 A、标签 B、文本框 C、框架 D、命令按纽 2除框架外，能对单选按纽分组的控件是。 A、窗体 B、标签 C、图片框 D、图像 3下列符号不能作为VB中变量名的是。 A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz 4 下列不属于Visual Basic数据文件的是。 A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件 5若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置。 A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、PasswordChar属性值为* 6表达式2*32+2*8/4+32的值为。 A、64 B、31 C、49 D、42 7表达式mid("abcdefg",3,2)的值是 A、abc B、cd C、bcd D、abcde 8数学表达式Sin25°写成VB表达式是。 A、Sin25 B、Sin C、Sin D、Sin 9Sub过程与 Function过程最根本的区别是。 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。 D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 10选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为 A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列对象不能响应 Click事件的是 A、列表框 B、图片框 C、窗体 D、计时器 12在Visual Basic中，按文件的访问方式不同，可以将文件分为 A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASC文件和二进制文件 13将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的方法。 A、ShowOpen B、ShowSave C、ShowColor D、ShowFont 三、指出下列句中的错误，修改或者说明原因。 1sum和int.sum都可以作为VB的变量名。 2变量名的长度最长可达1024个字符。 3下列程序运行结果：3，3 Option Explicit Private Sub Command1_Click Dim a，b As Integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4程序可以改变定长字符串的内容和长度。 5Variant是一种特殊的数据类型，可以包含任何种类型的数据。 6下列程序运行结果为True Private Sub Command1_Click a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2 End Sub 7#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999# 8可以在窗体的通用部分声明静态变量。 9使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。 10事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。 11将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。 12当图像控件的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。 四、读程序题，写出程序运行结果。 1Private Sub Form_Click For I = 1 To 9 For j = 1 To 30 - 3 * I Print " " Next j For k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub 2 Option Explicit Private Sub Command1_Click Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3 For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); "*" Next Y Print Next X 4 Private Sub Form_Activate Print "aa" & "bb",-5 * 6,Not 2 <= 3 Print "aa" & "bb" -5 * 6; Not 2 <= 3 Print Print "30+60", Print 30 + 60 ？ ？"30+60" 30 + 60 End Sub 5 X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z 五、编程题 1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1、文本框2、文本框3、文本框4，和三个按钮：命令按钮1、命令按钮2、命令按钮3组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 2设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 3设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签中的文字的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。 4任意输入3个数，求大小排第二的那个数，写出程序代码。 VB期末复习参考答案 一、填空题 1创建应用程序界面 设置属性 编写代码 2属性、text 3Label TextBox 4Load方法 Show方法 Hide方法 Unload方法 5txtshow.text="GOOD WORK" 6Click、frm1.show 7算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 运算符 81 9True False 1012 11Sin(x) 2 + Sqr(x 2 - y 2) / (2 * x) 12Dim A(1 To 5，-2 To 6) As String 13单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14完成某种特定的功能 对象名.方法名 Form1.Show 15AutoSize Stretch 16FileCopy "c:"，"d:" 二、单项选择题 1B 2C 3C 4D 5D 6B 7B 8D 9D 10C 11D 12A 13C 三、指出下列句中的错误，修改或者说明原因。 1int.sum 不正确。变量名中不能包括小数点。 2变量名的长度最长可达255个字符。 3 3.6 ， 4 因为a 不是整型变量。 4不正确。程序不可以改变字符的长度，这是VB规定。 5不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。 6False 。逻辑表达式计算结果。 7不正确。两个日期型数据相减，其结果是一个数值型数据。 8不正确。静态变量为局部变量，只能在过程中声明。 9正确。 10正确。 11正确。 12不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。 四、读程序题，写出程序运行结果。 1程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2程序运行后，单击按钮Command1，输出结果为：120。 aabb 11 3. * * * * * 4. -30 aabb-30 False 30+60 90 30+60 90 5. 13 五、编程题 1 Private Sub Command1_Click Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub 9 False Private Sub Command2_Click a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If a = "" Or b = "" Or c = "" Then MsgBox "成绩填写不完全！", vbCritical Else Text4.Text = (Val(a) + Val(b) + Val(c) / 3 End If End Sub Private Sub Command3_Click Unload Me End Sub 2 Private Sub Command1_Click x = Val(Text1.Text) If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 3 Private Sub Check1_Click If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click Unload Me End Sub 4 a = Val(InputBox("输入第一个数：") b = Val(InputBox("输入第二个数：") c = Val(InputBox("输入第三个数：") If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox ("求大小排第二的数是：" & b) VB期末考试试题 A卷 一、 填空题 1、VB程序设计的主要特点是 和 。 2、在VB中，最主要的两种对象是 和 。 3、工程是构成应用程序文件的 。 4、方法是VB提供的一种 ，用来完成一定的操作。 5、浮点类型数据包括单精度型和_数据。 6、事件是窗体或控件对象识别的_。 7、可用窗体的_ 方法在窗体中显示文字。 8、 复选框控件Value属性指示复选框处于_或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的 和 属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的 出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用 作为消息框的标题。 12、设x34.58，语句Print Format(x,“000.0”)的输出结果是 。 13、在VB 中，数值型变量的初值为 ，Varant型变量的初值为 ，布尔型变量的初值为 。 14、设置窗体的 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句 。 二、选择题 1、菜单控件只包括一个事件，即 ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 。 Private Sub Command1_Click( ) Print "VB" Print "Hello! " Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:"20/4-2的结果为 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 。 A.Show B.Hide C.Load D.UnLoad 12、以下选项中，不是 Visual Basic控件的是 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 。 A.代码窗口 B工具箱 C项目窗口 D属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 。 A.ControlBox B.MinButton C.MaxButton D.BorderStyle 15、设有如下语句： StrlInputBox 从键盘上输人字符 “示例”后，Strl的值是 。 A“输入” B“ ” C“练习” D“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 。 A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 。 AEnabled BValue CInterval DText 19、能够改变复选框中背景颜色的属性是 。 AValue BFontColor CBackColor DFont 20、窗体能响应的事件是 。 AActiveForm BLoad CDrive DChange 三、判断题(判断下列正确与否，正确的打，错误的打。) 1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。 2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。 3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。 4、通过改变属性窗口中的Name属性，来改变窗体的标题。 5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。 6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。 7、已知PMsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。 8、工程文件的扩展名是 .vbg 。 9、VB允许设计和使用用户自己设计的控件。 10、OptionButton控件没有DblCliek事件。 11、同一条记录中的各数据具有相同的类型。 12、使用Data控件可以直接显示数据库中的数据。 13、ImageList 是一个图像容器控件，可用作工具栏的图像库。 14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。 15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除。 16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。 17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。 18、使用数组定义语句：Dim D$，则数组D中各元素的值为空。 19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。 20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。 四、读程序题，写出程序运行结果 1、 Private Sub Form_Click Static SUM As Integer I = 1 Do While I<=10 SUM = SUM + I I = I + 1 Loop Print SUM End Sub 运行程序，第一次单击窗体： 第二次单击窗体： 2、 Private Sub Form_Click Print "*" Tab(6); 2, Tab(15); 5 Print For I = 15 To 16 Print I; For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Next j Print Next I End Sub 程序运行结果： 五、编程题 窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip。请填空： Private Sub Form_load( ) =loadPicture(“c:picball.ico”) .Interval=200 End Sub Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 y=y+100 Picture1.Move End Sub 有一个单击按钮过程，其作用是产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空： Private Sub Command1_Click Dim x As Integer, N% Dim Counter As Integer (1) Timer For N=1 To 50 X=Rnd* (2) If (3) =2 Then Print x Counter= (4) (5) Next N Print Counter End Sub VB程序设计与应用参考答案 一、填空题 1 2 3 4 5 答案 题号 答案 题号 答案 题号 答案 二、选择题 答案 题号 可视化设计 事件驱动编程 6 特殊子程序 11 高度16 0 1 C 6 7 双精度 12 宽度(Width) 17 空 2 A 7 窗体 8 动作 13 中央 18 False 3 B 8 控件 9 Print 14 工程1 19 Picture 4 C 9 集合 10 选中 15 34.6 20 Cls 5 A 10 答案 题号 答案 题号 答案 三、判断题 答案 答案 1 11 D 11 D 16 C 2 12 D 12 A 17 A 3 13 4 14 5 15 A 13 A 18 C 6 16 7 17 B 14 A 19 C 8 18 9 19 B 15 D 20 B 10 20 四、程序阅读题： 1 、 55 2、 110 、 * 2 5 15 30 75 16 32 80 五、编程题 1、Picture1.Picture 2、 Timer1 3、 x ,y (二) 1、 Randomize 2、 Rnd*41+60 3、 x Mod 6 4、 Counter1 5 End If 一、单项选择题 1在代码中引用一个控件时，应使用控件的属性。 ACaption BName CText DIndex 2设变量x = 4，y = -1，a = 7，b = -8,下面表达式的值为“假”。 Ax+a <= b-y B x > 0 AND y < 0 Ca = b OR x>y D x+y > a+b AND NOT (y < b) 3表达式Int(Rnd*71)+10产生的随机整数范围是。 A B C10，80 D10，81 4函数Sgn(3.1416)的返回值是。 A-1 B0 C1 D以上都不对 567890属于类型数据。 A整型 B单精度浮点数 C货币型 D长整型 6下列变量名中正确的是。 A3S BPrint CSelect My Name DSelect_1 7下列赋值语句是有效的。 Asum = sum -sum Bx+2 = x + 2 Cx + y = sum Dlast = y / 0 8以下的控件或方法具有输入和输出双重功能的为。 APrint BTextbox COptionbutton DCheckbox 9若要获得列表框中被选中的列表项的内容，可以通过访问属性来实现。 AName BListIndex CListCount DText 10下列代码的运行结果为。 Private Sub command1_click Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x) End Sub A2 B3 C4 D5 二、填空题 1写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。 2代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。 3写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。 4函数Len(“abcdef”)的返回值是(6) 。 5设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为False 。 三、将下列数学表达式转换为VB表达式。 1a2+2ab+b2 ： a2+2*a*b+b2 28exln10 ：8*exp(x)*log(10) 32sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4) 6在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。 1在VB 6.0中，扩展名为.vbp的文件称为 A