《vb程序设计》期末复习题及答案
vb期末考试和答案
vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。
《Visual BASIC程序设计》期末考试选择题复习(180题)
1. Visual Basic集成开发环境中不包括下列哪些窗口( )。
A、工具箱窗口B、工程资源管理器窗口C、属性窗口D、命令窗口参考答案是：D2. 在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。
A、代码窗口B、窗体设计窗口C、属性窗口D、工程资源管理器窗口参考答案是：D3. 在正常安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中不能启动Visual Basic的是：( )。
A、通过“开始”菜单中的“程序”命令B、通过“我的电脑”找到vb6.exe，双击该文件名C、通过“开始”菜单中的“运行”命令D、进入DOS方式，执行vb6.exe文件参考答案是：D4. Visual Basic 6.0工程文件的扩展名是( )。
A、.vbpB、.frmC、.basD、.cls参考答案是：A5. Visual Basic6.0是面向( )的程序设计语言。
A、过程B、工程C、事件D、对象参考答案是：D6. 下列关于Visual Basic编程特点的叙述中，错误的是( )。
A、Visual Basic 是采用事件驱动编程机制的语言B、构成Visual Basic 程序的多个过程没有固定的执行顺序C、Visual Basic 程序既可以编译运行，也可以解释运行D、Visual Basic 程序不是结构化程序，不具备结构化程序的3 种基本结构参考答案是：D7. Visual Basic 6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是( )。
A、设计状态B、编写代码状态C、运行状态D、中断状态参考答案是：B8. 在Visual Basic 6.0中要获取上下文相关帮助，只需将光标定位在相应位置，再按( )A、F1B、F2C、F3D、F4参考答案是：A9. Visual Basic 6.0集成开发环境的主窗口中不包括( )。
A、标题栏B、菜单栏C、状态栏D、工具栏参考答案是：C10. 下列可以激活属性窗口的操作是( )。
vb程序设计题及答案
vb 程序设计题及答案篇一：vb 程序设计试题及答案】txt> 一、单选题1. visual basic 是一种面向对象的可视化程序设计语言，采取了a 的编程机制。
(a) 事件驱动(b) 按过程顺序执行(c) 从主程序开始执行(d) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对d 属性进行设置。
(a) backcolor (b) borderstyle(c) forecolor (d) backstyle3. 在visual basic 中最基本的对象是c ，它是应用程序的基石，是其他控件的容器。
(a) 文本框(b) 命令按钮(c) 窗体(d) 标签4. 要判断在文本框是否按下enter 键，应在文本框的d 事件中判断。
(a) change (b)keydown(c) click (d)keypress5. 数学表达式3W xIO在vb中的逻辑表达式为d 。
(a) 3=x10(b) 3=x and x10(c) x=3 or x1O (d) x=3 and x1O6. rnd 函数不可能为下列b 值。
(a) O (b) 1(c) O.1234 (d) O.OOO57. 赋值语句:a=123+mid(123456 ，3，2)执行后，a 变量中的值是d(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=I then y=I ，下列说法正确的是c 。
(a) x=I 和y=I 均为赋值语句(b) x=I 和y=I 均为关系表达式(c) x=I 为关系表达式，y=I 为赋值语句(d) x=I 为赋值语句，y=I 为关系表达式9. 下面程序段表示求两个数中的大数，d 不正确。
(a) max=iif(xy ，x，y) (b) if xy then max=x eIse max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10. 当在文本框中输入“ a bcd ”4个字符时，窗体上显示的是c。
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
vb程序设计期末复习题及答案
vb程序设计期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________;2．当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的__________窗口中,把此文本框的_____________属性设置成空白;3．Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用___________控件；若允许用户输入文本,则应使用_____________控件;4．窗体的常用方法有__________、___________、___________和___________;5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ,应当编写的语句是____________________________________;6．若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空;Private Sub Cmdopen_ ________________________________End Sub7．Visual 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="VB示例"End Sub则响应该过程的对象名是______________,事件名是_____________;14．对象的方法用于__________________;当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为________________,例如,对窗体Form1使用Show方法,应写成_________________;15．PictureBox控件可通过设置其__________属性为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、xyz4．下列不属于Visual Basic数据文件的是 ;A、顺序文件B、随机文件C、二进制文件D、数据库文件5．若要求从文本框中输入密码时在文本框中只显示号,则应用在此文本框的属性窗口中设置 ;A、Text属性值为B、Caption属性值为C、Password属性值为空D、PasswordChar属性值为6．表达式23^2+28/4+3^2的值为 ;A、64B、31C、49D、427．表达式mid"abcdefg",3,2的值是A、abcB、cdC、bcdD、abcde8．数学表达式Sin25°写成VB表达式是 ;A、Sin25B、Sin25C、Sin25°D、Sin251809．Sub过程与 Function过程最根本的区别是 ;A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以;B、Function过程可以有参数,Sub过程不可以;C、两种过程参数的传递方式不同;D、Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值;10．选拔身高T超过1.7米且体重W小于公斤的人,表示该条件的布尔表达式为A、T>= And W<=B、T<= Or W>=62.5C、T> And W<D、T>= Or W<11.下列对象不能响应 Click事件的是A、列表框B、图片框C、窗体D、计时器12．在Visual Basic中,按文件的访问方式不同,可以将文件分为A、顺序文件、随机文件和二进制文件B、文本文件和数据文件C、数据文件和可执行文件D、ASCⅡ文件和二进制文件13．将通用对话框CommonDialog的类型设置成“颜色”对话框,可调用该对话框的方法;A、ShowOpenB、ShowSaveC、ShowColorD、ShowFont三、指出下列句中的错误,修改或者说明原因;1．sum和都可以作为VB的变量名;2．变量名的长度最长可达1024个字符;3．下列程序运行结果：3,3Option ExplicitPrivate Sub Command1_ClickDim a,b As Integera =b == a= bEnd Sub4．程序可以改变定长字符串的内容和长度;5．Variant是一种特殊的数据类型,可以包含任何种类型的数据;6．下列程序运行结果为TruePrivate Sub Command1_Clicka = 1b = 2c = 3= c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub7．12/31/1999 - 12/20/1999的运算结果是12/11/19998．可以在窗体的通用部分声明静态变量;9．使用声明语句建立一个变量后,Visual Basic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串"",定长字符串用空格填充,Variant变量被初始化为 Empty,布尔型的变量被初始化为False;10．事件过程通常由事件驱动执行,而Sub过程通过过程调用执行;11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法;12．当图像控件Image的Stretch属性为True时,Image控件能自动调整自己的尺寸与显示的图片匹配;四、读程序题,写出程序运行结果;1．Private Sub Form_ClickFor I = 1 To 9For j = 1 To 30 - 3 IPrint " ";Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext I2．Option ExplicitPrivate Sub Command1_Click Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S iNext iPrint SEnd Sub3．For X = 5 To 1 Step -1For Y = 1 To 6 - XPrint TabY + 5; "";Next YNext X4．Private Sub Form_ActivatePrint "aa" & "bb",-5 6,Not 2 <= 3 Print "aa" & "bb"; -5 6; Not 2 <= 3 PrintPrint "30+60",Print 30 + 60"30+60"; 30 + 60End Sub5．X=1Do While X<=10If X Mod 7 =0 ThenY = X + 6Z = XEnd IfX = X + 2LoopPrint X,Y,Z五、编程题1．设计一个计算程序;该程序用户界面如图所示,由四个文本框：文本框1text1、文本框2text2、文本框3text3、文本框4text4,和三个按钮：命令按钮1command1、命令按钮2command2、命令按钮3command4组成;程序运行后,用户单击清除按钮,则清除文本框中显示的内容;单击计算按钮,如果成绩填写不完全,则给出提示信息,否则计算三科平均成绩;单击退出按钮则退出;2．设计程序;要求：从文本框Text1中接收输入的数据,当单击确定按钮command1时,如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中,选中其中的文本;3．设计一个欢迎程序;该程序用户界面如图所示;要求程序运行后,用户选中粗体复选框时,标签Label1中的文字欢迎您的字体变成粗体,用户选中斜体复选框时,标签的字体变成斜体;若取消选中,则恢复原字体;单击结束,则退出;4．任意输入3个数,求大小排第二的那个数,写出程序代码;VB期末复习参考答案一、填空题1．创建应用程序界面设置属性编写代码2．属性、text3．Label TextBox4．Load方法 Show方法 Hide方法 Unload方法5．="GOOD WORK"6．Click、7．算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式运算符8．19．True False10．1211．Sinx ^ 2 + Sqrx ^ 2 - y ^ 2 / 2 x12．Dim A1 To 5,-2 To 6 As String13．单击双击装载多响应某个事件后所执行的程序代码 cmd1 Click14．完成某种特定的功能对象名.方法名15．AutoSize Stretch16．FileCopy "c:\","d:\"二、单项选择题1．B 2．C 3．C 4．D 5．D 6．B 7．B8．D 9．D 10．C 11．D 12．A 13．C三、指出下列句中的错误,修改或者说明原因;1．不正确;变量名中不能包括小数点;2．变量名的长度最长可达255个字符;3． , 4因为a 不是整型变量;4．不正确;程序不可以改变字符的长度,这是VB规定;5．不完全正确;Variant是一种特殊的数据类型,除了定长字符串数据及用户定义类型外,可以包含任何种类型的数据,这是VB规定;6．False ;逻辑表达式计算结果;7．不正确;两个日期型数据相减,其结果是一个数值型数据;8．不正确;静态变量为局部变量,只能在过程中声明;9．正确;10．正确;11．正确;12．不正确;该属性设为Ture时,Image控件不能自动调整自己的尺寸与显示的图片匹配,而可以使图片自动扩展以适应控件的尺寸;四、读程序题,写出程序运行结果;1．程序运行后,单击窗体,输出结果为：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 12．程序运行后,单击按钮Command1,输出结果为：120;3.4.aabb -30 Falseaabb-30 False30+60 9030+60 905.11 13 9五、编程题1．Private Sub Command1_Click= ""= ""= ""= ""End SubPrivate Sub Command2_Clicka = Trimb = Trimc = TrimIf a = "" Or b = "" Or c = "" Then MsgBox "成绩填写不完全", vbCriticalElse= Vala + Valb + Valc / 3End IfEnd SubPrivate Sub Command3_ClickUnload MeEnd Sub2．Private Sub Command1_Clickx = ValIf x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 ThenPrint xElse= 0= LenEnd IfEnd Sub3．Private Sub Check1_ClickIf = 1 ThenElseEnd IfEnd SubPrivate Sub Check2_ClickIf = 1 ThenElseEnd IfEnd SubPrivate Sub Command1_ClickUnload MeEnd Sub4．a = ValInputBox"输入第一个数："b = ValInputBox"输入第二个数："c = ValInputBox"输入第三个数："If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tMsgBox "求大小排第二的数是：" & bVB期末考试试题 A卷一、填空题1、VB程序设计的主要特点是 1 和 2 ;2、在VB中,最主要的两种对象是 3 和 4 ;3、工程是构成应用程序文件的 5 ;4、方法是VB提供的一种 6 ,用来完成一定的操作;5、浮点类型数据包括单精度型和___7__数据;6、事件是窗体或控件对象识别的___8____;7、可用窗体的___9_ 方法在窗体中显示文字;8、复选框控件Value属性指示复选框处于____10___或禁止状态暗淡的中的某一种;9、在VB中,修改窗体的 11和 12 属性值,可改变窗体的大小;10、双击工具箱中的控件图标,可在窗体的 13 出现一个尺寸为缺省值的控件;11、在MsgBox函数中,如果缺省title参数,则使用 14 作为消息框的标题;12、设x＝,语句Print Formatx,“000.0”的输出结果是 15 ;13、在VB 中,数值型变量的初值为 16 ,Varant型变量的初值为 17 ,布尔型变量的初值为18 ;14、设置窗体的 19 属性,可在窗体上显示图片;15、程序运行工程中,清除MP图片框中的图片应使用语句 20 ;二、选择题1、菜单控件只包括一个事件,即 1 ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件;A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件如图所示的Max属性所设置的是 2 ;A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select Form student 中的表示 3 ;A、所有记录B、所有字段C、所有表D、都不对4、以下选项中,不属于标签的属性是 4 ;A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 5 ;A、CaptionB、NameC、TextD、Label6、设置一个单选按钮OptionButton所代表选项的选中状态,应当在属性窗口中改变的属性是6 ;A、CaptionB、NameC、TextD、Value7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的 7 ;A、在标题项中输入&,然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时,在窗体上将显示 8 ;Private Sub Command1_ClickPrint "VB";Print "Hello ";Print "VB"End SubA、 VBHelloVBB、 VBHelloVBC、 VBD、 VBHello VB HelloVB9、语句Print "The answer is:";20/4-2的结果为 9 ;A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件 10 ;A、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去,其实现的方法是 11 ;12、以下选项中,不是 Visual Basic控件的是 12 ;A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后,Visual Basic将显示的窗口是 13 ;A.代码窗口 B．工具箱 C．项目工程窗口 D．属性窗口14、可决定窗体的左上角是否有控制菜单的属性是 14 ;15、设有如下语句：Strl＝InputBox"输人","","练习"从键盘上输人字符“示例”后,Strl的值是 15 ;A．“输入” B．“” C．“练习” D．“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 16 ;A. Form1_Click C. Frm1_Click D. Me_Click17、窗体的hide属性的含义是 17 ;A.隐藏B.展现C.装入D.卸载18、若要设置定时器控件的定时时间,需设置的属性是 18 ;A．Enabled B．Value C．Interval D．Text19、能够改变复选框中背景颜色的属性是 19 ;A．Value B．FontColor C．BackColor D．Font20、窗体能响应的事件是 20 ;A．ActiveForm B．Load C．Drive D．Change三、判断题判断下列正确与否,正确的打√,错误的打ⅹ;1、三种方式的组合框都允许用户输入哪些不在列表框中的选项;2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件;3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”;4、通过改变属性窗口中的Name属性,来改变窗体的标题;5、创建VB应用程序的三个主要步骤是：1创建应用程序界面2设置控件3编写代码;6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量;7、已知P＝MsgBox“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$10,则数组D中各元素的值为空;19、如果在一行中输入多条语句,各语句之间用使用；分隔;20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误;四、读程序题,写出程序运行结果1、 Private Sub Form_ClickStatic SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub运行程序,第一次单击窗体：第二次单击窗体：2、 Private Sub Form_ClickPrint ""; Tab6; 2, Tab15; 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab3 j; j I;Next jPrintNext IEnd Sub程序运行结果：五、编程题一窗体中有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动100twip20分之一像素;请填空：Private Sub Form_load1 =loadPicture“c:\pic\”2 .Interval=200End SubPrivate Sub Timer1_TimerStatic x , y As Integerx=x+100y=y+1003End Sub二有一个单击按钮过程,其作用是产生50个60～100的随机数,统计其中被6整除余2的个数,并将这些数输出;请填空：Private Sub Command1_ClickDim x As Integer, N%Dim Counter As Integer1 TimerFor N=1 To 50X=Rnd 2If 3 =2 ThenPrint xCounter= 45Next NPrint CounterEnd Sub一 10分1 、 552、 110二、 10分2 515 30 7516 32 80五、编程题 20分一1、2、 Timer13、 x ,y二 1、 Randomize2、 Rnd41+603、 x Mod 64、 Counter＋15 End If一、单项选择题共10分1．在代码中引用一个控件时,应使用控件的B属性;A．Caption B．Name C．Text D．Index2．设变量x = 4,y = -1,a = 7,b = -8,下面表达式A的值为“假”;A．x+a <= b-y B． x > 0 AND y < 0C．a = b OR x>y D． x+y > a+b AND NOT y < b3．表达式IntRnd71+10产生的随机整数范围是C ;A．10,80 B．10,81 C．10,80 D．10,814．函数Sgn的返回值是C ;A．-1 B．0 C．1 D．以上都不对5．67890属于 D 类型数据;A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是D;A．3S B．Print C．Select My Name D．Select_17．下列赋值语句 A 是有效的;A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为B;A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容,可以通过访问D属性来实现;A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为B ;Private Sub command1_clickDim m10For k = 1 To 10mk = 11 - kNext kx = 5Print m2 + mxEnd SubA．2 B．3 C．4 D．5二、填空题10分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 表达式;6分 1．a2+2ab+b2 ： a^2+2ab+b^2 2．8exln10 ：8expxlog10 3．2sin450cos450 ：2sin4cos46．在VB 中,用户定义常量使用 Const 语句,声明变量使用 Dim 语句; 1．在VB 中,扩展名为.vbp 的文件称为 A ; A 工程文件 B 窗体文件C 类模块文件D 标准模块文件2．在VB 集成开发环境的设计模式下,用鼠标双击窗体上的某个对象后,打开的窗口是 A ;A 代码窗口B 窗体设计窗口C 属性窗口D 工程资源管理器窗口 3．设有变量定义语句Dim a%,则变量a 的数据类型是 A ; A 整型 B 单精度类型 C 双精度类型D 字符串类型4．下列表达式中,值为False 的是 D ;A "AB"<"abc"B "ABC" = UCase"abc"C "ABCD"<"abc"D Mid"ABCD",3,1=Left"ABCD",35．函数InStr"ABCDEF", "CD"的值是 B ; A 2B 3C TrueD CDEF6．下列程序运行后,单击窗体,输出结果是 C ; Private Sub Form_ClickDim a As Integer, b As Integer a = 3 b = 5Print a + b; a & b End Sub A 8 8 B 35 35C 8 35D 35 87．下列程序运行后,单击窗体,输出结果是 B ; Private Sub Form_Click a = 3: b = 7a = a +b : b = a – b : a = a - b Print a; b End Sub A 4 3 B 7 3 C 3 7 D 10 78．下面程序段所表示的数学关系式是 C ; If a < b ThenIf d = c Then x = 1 Elsex = 2 End If A ⎩⎨⎧≠≥=<=)(2)c (1d c b a d b a x 且且B ⎩⎨⎧≠<=<=)(2)c (1d c b a d b a x 且且C ⎩⎨⎧≥=<=)(2)c (1b ad b a x 且D ⎩⎨⎧≠=<=)(2)c (1d c d b a x 且9．下列程序运行后,单击窗体,输出结果是 C ; Private Sub Form_Click s = 0: k = 1 Dos = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A 15 B 10 C 1 D 010．下列程序段的输出结果是 B ; For k = 4 To 2 Step -2 m = k Next kPrint m; k; A 2 2 B 2 0 C 2 1 D 0 011．用下面的语句定义数组,则数组中的元素个数是 D 个;Option Base 1Dim A-1 To 2,5 As IntegerA 5B 10C 15D 2012．下面程序段的输出结果是 C ; Dim a4 As Integer, s As Integer For k = 1 To 4 ak = 2 k Next kFor k = 1 To 4 Step 2 s = s + ak Print s; Next k A 8 B 20 C 2 8 D 2 6 12 2013．设有如下的用户自定义类型Private Type Stuname As String 10 age As Integer End Type则以下正确引用该类型成员的代码是 B ; A ="zhang" B Dim s As Stu= "zhang"C Dim s As Type Stu = "zhang"D Dim s As Type = "zhang" 14．用“ B ”关键字声明的变量称为全局变量; A PrivateB PublicC DimD Static15．在窗体上放置一个文本框,程序运行后,在文本框中输入abc,但显示的却是,可能的原因是该文本框的 D 属性值已经被设置为""; A FontB TextC NameD PasswordChar16．在VB 中,Print是对象的 B ;A 属性B 方法C 事件D 名称17．在VB 中,要判断复选框是否为选中状态,使用的属性是 D ;A CaptionB CheckedC SelectedD Value18．设列表框List1中共有3个列表项,如右图所示;则下列语句中,能够删除最后一个列表项的是 A ;A 2B "项目C"C List1. ListcountD List1. ListIndex19．组合框分为下拉式组合框、简单组合框和下拉式列表框,在“属性”窗口中这三种类型是由 A 属性设置的;A StyleB FillStyleC BackStyleD BorderStyle20．用户单击滚动条的空白处滑块与两端滚动箭头之间的区域时,Value属性所增加或减少的值,是由 D 属性决定的;A MinB MaxC SmallChangeD LargeChange21．将图片文件“”作为背景图片,装入当前窗体,正确的语句是 D ;A =B = LoadPictureC =""D = LoadPicture""22．要将两个单选按钮放置在同一个框架内,使它们成为一组,正确的操作是 A ;A 先放置一个框架,然后在框架中放置两个单选按钮B 先放置两个单选按钮,再放置一个框架,放置框架时覆盖在单选按钮上C 先放置两个单选按钮,再放置一个框架,然后将两个单选按钮拖动到框架内D 以上三种方法都正确23．计时器控件能够响应的事件是 D ;A LoadB ClickC ChangeD Timer24．要使命令按钮处于无效状态,可以设置按钮的 B 属性值为False;A CaptionB EnabledC StyleD Visible25．如果在一个工程中有多个窗体和模块,则VB默认的启动对象是 C ;A 第一个标准模块B 最后一个被添加的窗体C 设计时的第一个窗体D 最后一个被添加的标准模块26．在窗体上放置一个图像框,名称为Image1;程序运行时,要保持图像框大小不变,使框中的图片能够自动适应图像框的大小,可以执行语句 B ;A =TrueB =TrueC =FalseD =False27．使用“菜单编辑器”建立菜单项之间的分隔线时,在菜单项的“标题”中输入的符号是 A ;A 减号-B 下划线_C & D28．要将窗体Form1从内存中卸载,正确的语句是 D ;A B Load Form1C D UnLoad Form129．在窗体上单击时,会触发鼠标事件MouseDown,其事件过程的一般格式如下：Private Sub Form_MouseDownButton As Integer, Shift As Integer, X As Single, Y AsSingle …… End Sub此时,如果单击的是鼠标右键,则Button 参数的值是 B ; A 1 B 2 C 3 D 4 30．获取文件的长度字节数,可以使用的函数是 B ;A LENB LOFC EOFD LOG1．数学表达式yx y3改写为VB 表达式,形式是 1 ;答案 sqr3y /x+y 2．在VB 中,InputBox 函数返回值的数据类型是 2 ;答案：字符串类型或String 3．语句 Print Tab5;"ABC" 的功能是 3 ;答案：从第5列开始输出字符串“ABC ”4．下面程序段的功能是：在文本框Text1中输入一个数值x,如果满足5<x<10,那么输出“Yes ”,否则输出“No ”;请填空; x =Val 答案5 < x And x <10If 4 Then Print "Yes" Else Print "No"5．设a=1,b=2,c=3,语句 Print a < b Or b < c And c < a 的输出结果是 5 ;答案：True6．在窗体上放置一个标签,名称为Label1,使用语句 6 可以把标签的前景色设置为蓝色; = vbBlue 或 RGB0,0,255 或QBColor9 7．在窗体上放置一个图像框,名称为Image1,要使该图像框向下移动10个默认单位twip,正确的语句是 = 7 答案： + 10 8．使用“菜单编辑器”建立了一个主菜单,名称为menu1;要把它作为窗体Form1的快捷菜单也称为弹出式菜单弹出,使用的语句是： 答案：PopupmenuForm1. 8 menu19．在窗体上放置一个通用对话框控件,名称为CommonDialog1;使用该控件建立“打开”文件对话框时,要求只能显示文本文件即扩展名为“.txt ”的文件,则正确的设置语句是CommonDialog1. 9 ="文本文件.txt|.txt"; 答案：Filter 10．设磁盘上已存在顺序文件“”,为了从文件中顺序读取数据而打开该文件,正确的语句是 Open "" For 10 As 1; 答案：Input 1．下列面程序运行后,单击窗体,输出结果是 1 ;答案：1 3 9Private Sub Form_Click s = 0For n=1 To 3 p = 1For k = 1 To n p = p k Next k s = s + p Print s; Next n End Sub2．下列程序运行后,单击窗体,输出结果是 2 ;答案：7Private Sub Form_Click m = 0For k = 1 To 4Select Case kCase 1, 2m = m + 1Case Is > 3m = m + 2Case 1 To 4m = m + 3End SelectNext kPrint mEnd Sub3．在窗体上放置一个文本框,名称为Text1;下列程序运行后,单击窗体,Text1中显示的内容是3 ; 答案：adePrivate Sub Form_Click= ""s = "aBd12Re"For k = 1 To Lensch = Mids, k, 1If ch >= "a" And ch <= "z" Then= + chEnd IfNext kEnd Sub4．下列程序运行后,单击窗体,输出结果是 4 ; 答案：11 24Option Base 1Private Sub Form_Clickx = Array3, 5, 4, 8, 2, 6, 11, 9, 7, 4p = x1: s=0For k = 2 To UBoundxIf xk > p Thenp = xks = s + pEnd IfNext kPrint p; sEnd Sub5．下列程序运行后,单击窗体,输出结果是 5 ; 答案：1 5 1Private Sub Form_ClickDim a1 To 3, 1 To 3For i = 1 To 3For k = 1 To 3If k = 1 Or i = k Thenai, k = 1Elseai, k = i + kEnd IfNext kNext iPrint a1, 1; a2, 3; a3, 3End Sub6．在窗体上放置一个命令按钮,名称为Command2,并编写如下代码;Private Sub Command2_ClickDim m As Integer, n As Integer, g As Integerm = 18: n = 12: g = 0Call sub1m, n, gPrint m; n; gEnd SubPublic Sub sub1ByVal a As Integer, ByVal b As Integer, c As IntegerIf a < b Then t = a: a = b: b = tDo While b <> 0r = a Mod ba = bb = rLoopc = aEnd Sub程序运行后,单击命令按钮,则输出结果是 6 ;答案：18 12 67．在窗体上放置一个命令按钮,名称为Command3,并编写如下代码;Private Sub Command3_ClickDim k As Integerk = 1Print fun1k;Print fun1k;Print fun1k;End SubFunction fun1a As Integer As IntegerStatic c As IntegerDim b As Integera = a + 2:b = b + 2:c = c + 2fun1 = a + b + cEnd Function程序运行后,单击命令按钮,则输出结果是 7 ;答案：7 11 158．在窗体上放置一个文本框,其名称为Text1,并编写如下代码;Dim s As StringPrivate Sub Text1_KeyPressKeyAscii As Integers = s + ChrKeyAsciiPrint s;End Sub程序运行后,在文本框中输入abc,则窗体上输出的内容是 8 ;答案：aababc1．在窗体上放置一个计时器和一个标签,计时器名称为Timer1,标签名称为Label1;下列程序的功能是：1在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；2每触发一次Timer事件能够将标签上的字号加大2,当字号超过当前窗体的宽度时,将字号恢复为8;程序中有一处．．错误,请更正;说明错误时可以使用每条语句前的编号;1 Private Sub Form_Load2 = 5 答案：2003 = True4 End Sub5 Private Sub Timer1_Timer6 = + 27 If > Then8 = 89 End If 10 End Sub2．下列程序的功能是计算1+3+5+…+99的和s;程序中有一处．．错误;请更正;说明错误时可以使用每条语句前的编号;1s = 0 2 k = 13 Do While k <= 994 k = k + 2 答案：将4、5调换顺序5 s = s + k6 Loop 7Print s1．在窗体上放置一个列表框,名称为List1；放置一个文本框,名称为Text1；放置一个命令按钮,名称为Command1,Caption 属性值为“统计3的倍数”;如右图所示;下列程序的功能是：（1） 在窗体的Load 事件中,产生10个20~30含20和30之间的随机整数,并作为列表项逐个添加到列表框List1中;（2） 单击命令按钮Command1时,能够统计列表框中是3的倍数的列表项的个数,并将统计结果显示在文本框Text1中; 请填空完善程序;Private Sub Form_ LoadDim x As Integere RandomizeFor k = 1 To 10 答案：IntRnd 11 + 20 或 Rnd10+20 x = 1 '产生一个20,30之间的随机整数 2 '将x 作为列表项添加到List1中 Next k 答案： x 或 strx End SubPrivate Sub Command1_ClickDim n As Integer ' n:存放是3的倍数的列表项的个数 For k = 3 答案：0 To – 1 或 0 To 9 If Valk 4 = 0 Then 答案： Mod 3 n = n + 1 End If Next k = n End Sub2．下列程序的功能是用近似公式 !1!31!21!111n e +++++≈ 求自然对数的底 e 的值,直到最后一项小于10-4时停止计算;请填空完善程序;Private Sub Form_ClickDim e As Single, n As Integer, p As Single'e: 累加和 p: 参加求和的当前项e = 1: n = 1: p = 1Do While 5 答案：p >= 1e-4e = e + pn = n + 1p = 6 答案：p / nLoopPrint "e的近似值="; eEnd Sub3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：下列程序的功能是单击命令按钮后,根据单选按钮的选中状态,将标签中的“示例文字”设置为相应的字体;请填空完善程序;Private Sub Command1_ClickDim fn As String ' fn:存放选中的字体If 7 Then 答案： = Truefn = "宋体"Elsefn = "隶书"End If8 = fn 答案：End Sub4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值,并返回;单击窗体时,能够输入数组a的10个元素,并调用函数ave,求数组a中所有元素的平均值,并显示输出;请填空完善程序;Option Base 1Private Sub Form_ClickDim a10 As SingleFor i = 1 To 10ai = ValInputBox"输入一个数值"Next iPrint "平均值="; 9 '调用函数ave 答案：aveaEnd SubPublic Function aveb As Single As SingleDim s As SingleDim n As Integern = UBoundbFor k = 1 To ns = s + bkNext k10 答案：ave = s / nEnd FunctionVB期末范围题总汇1．求随机10个整数的最大值、最小值、平均值以及和；Dim a1 To 10Private Sub Command1_ClickRandomize"产生的随机数为："For i = 1 To 10ai = IntRnd 99 + 1ai;Next iEnd SubPrivate Sub Command2_ClickDim max, min, avemax = a1min = a1ave = a1For i = 2 To 10If ai > max Then max = aiIf ai < min Then min = aiave = ave + aiNext i"最大数为："; max"最小数为："; min"平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_ClickDim a, b, c As Integer 'a个b十c百For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 b + 100 c Then MsgBox 100 c + 10 b + aNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_ActivateDim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100For j = 1 To 100For k = 1 To 100If i a + j b + k c = 100 Thenn = n + 1" 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & kEnd IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_ClickOutputWanNumber 1000End Sub4.'求完数的过程Private Sub Form_ClickDim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd If5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a \ 10:'去掉末位数loop until a=0print "sum=";sum:'输出enddim n as stringinput nfor i = 1 to lennsum=sum+valmidn,i,1next iprint sum6.求最小公倍数Private Sub Form_Load= TrueDim n1%, m1%, m%, n%, r%n1 = InputBox"输入n1"m1 = InputBox"输入m1"If m1 > n1 Then '为了求最小公倍数,增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 n1 / nEnd Sub7.求逆序数感觉题目类型太多8. 级数有限项求和问题题目类型太多9. 求质因子问题Private Sub Command1_ClickDim N As Integer, I As IntegerN = ValInputBox"请输入2的整数:"I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_ClickDim i as integer,A26 as integer,n as integer Dim S as string1,Strl as stringStrl=Text1n=LenStrlFor i=1 To nS=MidStrl,i,1If UCaseS>=”A” And UCaseS<=”Z” Then AAscUCaseS-64+1End IfNext iFor i=1 To 26Chr64+i & “:” & AiNetx iEnd SubPrivate Sub Command_ClickEndEnd Sub第二大题1. 判定素数过程Function isprimeNum As Long As BooleanIf Num < 2 Then isprime = False: Exit FunctionDim i As LongFor i = 2 To SqrNumIf Num Mod i = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_ClickDim i As LongFor i = 1 To 1000If isprimei ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数A As Long, B As Long '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIfA >= B, A, B 'x存入最大值Y = IIfA <= B, A, B 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数 = YEnd Function3.冒泡排序过程Private Sub Command1_ClickDim a9 As Integer。
《Visual BASIC程序设计》期末考试编程题复习及答案
第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
《VB程序设计》期末考试试卷(A)附答案
******学院2009-2010学年第二学期《VB程序设计》期末考试试卷（A）附答案一、选择题（2分/题，共60分）（1）要设置窗体上各控件的属性，可以在＿＿＿中进行。
A“窗体布局”窗口B“工程资源管理器”窗口C“属性”窗口D“对象”窗口（2）下面程序段＿＿＿能够正确实现目的：如果x<y,则a=15,否则a=-15。
AIfx<yThena=15a=-15PrintaBifx<yThena=15:Printaa=-15:PrintaCIfx<yThena=15:PrintaElseA=-15:PrintaEndifDIfx<yThena=15a=-15PrintaEndif（3）VB窗体设计器的主要功能是＿＿＿。
A建立用户界面B编写源程序代码C画图D显示文字（4）文本框控件的值是＿＿＿属性。
ACaptionBValueCIndexDText（5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。
A工具箱B“工程”窗口C“代码”窗口D“属性”窗口（6）下列程序段的执行结果是＿＿＿。
X=int(Rnd()+4)SelectcasexCase5Print“优秀”Case4Print“良好”Case3Print”通过”CaseelsePrint”不通过”EndselectA优秀B良好C通过D不通过（7）下列哪个不是窗体的属性＿＿＿。
ACaptionBTextCControlBoxDBorderStyle（8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。
ACombo1.RemoveItemTextBCombo1.RemoveItem2CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount（9）窗体BorderStyle属性的功能是＿＿＿。
A设置窗体的边框大小B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等C决定是否显示窗体的控制菜单图标与状态控制按钮D决定窗体的最大化或最小化按钮是否有效（10）下列可作为VB的变量名的是＿＿＿。
VB程序设计期末复习资料
VB 程序设计期末复习题一、填空题1.在VB 6.0中,变量名最长可达个字符.答案：255解析：规定2.男性(sex)，年龄(age)在18—20岁之间，身高(size)在 1.65米以上，列出逻辑表达式。
答案：sex and age>=18 and age<=20 and size>=1.65解析：规定3.要使一个按钮设为默认按钮,应把此按钮的属性的值设为True.答案：Default解析：规定4.一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示文件. 答案：工程解析：规定5.VB表达式9^2 MOD 45 \2 *3 的值 .答案：4解析：表达式的计算，优先级6.如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为 .答案：退出(&X)解析：规定7.拖动滚动条中的滚动块将会产生Scroll和事件.答案：Change解析：规定8.在利用Visual Basic设计应用程序时，一般会遇到三类错误：语法错误、执行错误和。
答案：逻辑错误解析：规定9.Option Base 1的作用是确定数组的下界为 .答案：1解析：规定10.在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的属性的值设置为True.答案：MultiLine解析：规定11.表达式81\7 MOD 2^2 的值是 .答案：3解析：规定12.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：规定13.把条件1<=X<12写成VB关系表达式为 .答案： x>=1 and x<12 或 x<12 and x>=1解析：规定15.如果要在单击按钮时执行一段代码,则应将这段代码写在事件过程中.答案：click解析：规定16.写出清除标签Label1的显示信息的语句为 .答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""解析：规定17.如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义 .答案： public mystring as string*15解析：规定18.将焦点定位于命令按钮Command1之上的语句为 .答案：Command1.SetFocus 或 SetFocus解析：规定19.滚动条控件有水平滚动条和滚动条.答案：1). 垂直解析：规定20.把整型数1赋给一个逻辑型变量,则逻辑变量的值为 .答案：True解析：规定21.写出清除标签Label1的显示信息的语句为 .答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""解析：规定22.设置计时器对象触发事件的时间间隔用属性.答案：interval解析：规定23.VB中,变量的声明可分为两种方法: 数组和动态数组.答案：静态解析：规定24.大于X 的最小整数的VB表示形式为 .答案：Int(x)+1 或 Int(x) + 1解析：规定25.文本框中所显示的内容是它的属性的值.答案：Text解析：规定26.设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为 . 答案：False解析：规定27.设置计时器控件只能触发事件.答案：timer解析：规定28.文件按照存取方式及其组成结构可以分为顺序文件和 .答案：随机文件解析：规定28.声明单精度常量g(重力加速度)代表9.8可写成 .答案：const g=9.8 或 const g as single =9.8解析：规定29.在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和 .答案：Integer解析：规定30.如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有个元素.答案：21解析：规定31.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：初值超过终值32.表达式 1 and 0的值 .答案：False解析：规定33.一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式 .答案：a<>0 and b^2-4*a*c>=0解析：逻辑表达式的书写34.变量min@表示类型的变量.答案：货币型解析：数据类型35.想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上 .答案：&解析：规定二、程序填空1.以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual 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方法，应写成_________________。
15．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True，使其加载的图片能自动调整大小以适应Image。
16．在Visual Basic程序中实现复制文件“c:\command.”到d:盘根目录下的语句为_______________________________________。
二、单项选择题1．下列控件中没有Caption属性的是（）A、标签B、文本框C、框架D、命令按纽2．除框架外，能对单选按纽分组的控件是（）。
A、窗体B、标签C、图片框D、图像3．下列符号不能作为VB中变量名的是（）。
A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz4．下列不属于Visual Basic数据文件的是（）。
A、顺序文件B、随机文件C、二进制文件D、数据库文件5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）。
A、Text属性值为*B、Caption属性值为*C、Password属性值为空D、PasswordChar属性值为*6．表达式2*3^2+2*8/4+3^2的值为（）。
A、64B、31C、49D、427．表达式mid("abcdefg",3,2)的值是（）A、abcB、cdC、bcdD、abcde8．数学表达式Sin25°写成VB表达式是（）。
A、Sin25B、Sin（25）C、Sin（25°）D、Sin（25*3.14/180）9．Sub过程与 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.5B、T<=1.7 Or W>=62.5C、T>1.7 And W<62.5D、T>=1.7 Or W<62.511.下列对象不能响应 Click事件的是（）A、列表框B、图片框C、窗体 D、计时器12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（）A、顺序文件、随机文件和二进制文件B、文本文件和数据文件C、数据文件和可执行文件D、ASCⅡ文件和二进制文件13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（）方法。
A、ShowOpenB、ShowSaveC、ShowColor D、ShowFont三、指出下列句中的错误，修改或者说明原因。
1．sum和int.sum都可以作为VB的变量名。
2．变量名的长度最长可达1024个字符。
3．下列程序运行结果：3，3Option ExplicitPrivate Sub Command1_Click()Dim a，b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub4．程序可以改变定长字符串的内容和长度。
5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。
6．下列程序运行结果为TruePrivate Sub Command1_Click()a = 1b = 2c = 3Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub7．#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999#8．可以在窗体的通用部分声明静态变量。
9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。
10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。
11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。
12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。
四、读程序题，写出程序运行结果。
1．Private Sub Form_Click()For I = 1 To 9For j = 1 To 30 - 3 * IPrint " ";Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext IEnd Sub2．Option ExplicitPrivate Sub Command1_Click()Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S * iNext iPrint SEnd Sub3．For X = 5 To 1 Step -1For Y = 1 To 6 - XPrint Tab(Y + 5); "*";Next YPrintNext X4．Private Sub Form_Activate()Print "aa" & "bb",-5 * 6,Not 2 <= 3Print "aa" & "bb"; -5 * 6; Not 2 <= 3PrintPrint "30+60",Print 30 + 60？？"30+60"; 30 + 60End Sub5．X=1Do While X<=10If X Mod 7 =0 ThenY = X + 6ElseZ = XEnd IfX = X + 2LoopPrint X,Y,Z五、编程题1．设计一个计算程序。
该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。
程序运行后，用户单击清除按钮，则清除文本框中显示的内容。
单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。
单击退出按钮则退出。
2．设计程序。
要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。
3．设计一个欢迎程序。
该程序用户界面如图所示。