第一篇：《Visual Basic 程序设计》期末试题
《Visual Basic 程序设计》期末试题
注：一、二、三、四题的答案必须按题号和顺序填写到第五页的答案表中，否则无效。
一．单选题（每题1分）。每道题答案只有一个，未选、选错者0分。
1、窗体文件的后缀是（）
A．.bmp
B．.vbp
C．.bas
D．.frm
2、把控件放置在窗体中的最快捷的方法是（）
A．拖放鼠标
B．单击工具箱中的控件并拖动鼠标
C．双击工具箱中的控件
D.单击工具箱中的控件
3、当移动控件、重新设定其尺寸时，（）属性会自动改变。
A．top , left
B．name , caption
C．click, change
D．cancel , default
4、vb主要用于开发哪种环境下的文件：（）
A．DOS
B．WINDOWS
C．DOS 和WINDOWS
D．UNIX
5、（）属性可以使命令按扭对用户产生的命令无效。A．default
B．caption
C．enabled
D．cancel
6、一组复选框中，如果单击一个没有被选中的复选框，则其他已选中的复选框处于（）状态。
A．禁止
B．选中
C．不选中
D．不显示
7、当对象的enabled 和 visible属性为（）时，该对象才能获得焦点。
A．true , false
B．false
C．false , true
D．true
8、当程序运行过程中，需要给用户一些提示信息或警告信息时，应使用（）。
A．msgbox
B．inputbox
C．A,B都可以
D．A,B都不可以
9、表达式val(“16abc”)的值为（）。A．1
B．16
C．16abc
D．abc
10、以下哪个函数用于在一个字符串中查找另一个字符串（）A．mid$()
B．len()
C．instr()
D．right()
11、控件command1的名称属性为com时，则它的click事件过程名为（）。
A．command1_click
B．command—click
C．com_click
D．command1.click
12、窗体form1的名称属性为myfrm时，则它的load事件过程名为（）。
A．form_load
B．me_load
C．myfrm_load
D．form1_load
13、下列控件中，不可改变控件大小的是（）A．frame
B．timer
C．command
D．textbox
14、下列数据中是boolean常量的是（）A．123
B．not
C．true
D．and
15、假定A是boolean型变量，下面赋值语句正确的是：（）
A．A=”TRUE”
B．A=TRUE
C．A=#TRUE#
D．A=”FALSE”
16、表达式10+5 mod 10 9 / 3的值是（）。
A．10
B．15
C．12
D．运算错误
17、若x=5,执行if x then x=0 else x=1的结果为（）。
A．实时错误 B．编译错误 C．x=1 D．x=0
18、为使文本框显示滚动条，必须首先设置的属性是（）。
A．Alignment B．Style C．Multiline D．ScrollBars
19、运行时，当用户向文本输入新的内容，或在程序代码中对文本框的text属性进行赋值从而改变了文本框的text属性时，将触发文本框的（）事件。A．click B．dbclick C．gotfocus D．change 20、组合框的3种不同风格：下拉组合框、简单组合框和下拉列表框由（）属性决定。
A．BorderStyle B．Style C．FillStyle D．DrawStyle
二、多选题（每题2分）。每道题答案至少有一个或者多个，未选全者，得部分分；选错者0分。1．关于程序设计，以下叙述正确的是（）。
A． 结构化程序设计方法把程序的结构规定为：顺序、选择、判断三种基本结构。
B． 面向对象的程序设计更符合人们的思维方式，更易于软件的维护和功能增减。
C． Visual Basic、Visual Foxpro、Visual J++都是面向对象的程序设计语言。
D． 面向过程的程序设计能用继承的方式减短程序开发时间。
2．VB中包含的数组类型有（）
A．数据数组
Ｂ．属性数组
Ｃ．事件数组
Ｄ．控件数组
3．设A=2，B=3，C=4，D=5。以下表达式的值为False的是（）。A．A>B AND C<=D OR 2*A>C C．NOT A<=C OR 4*C=B^2 AND B<>A+C B．3>2*B OR A=C AND B<>C OR C>D D．A+B+C>D OR A*B A．属性用来描述和反映对象的特征，如：控件的名称、标题等。 B．对象的属性只能通过属性窗口进行修改。 C．事件就是发生在对象上的事情，如：单击、双击等。 D．VB中的方法可以是过程或函数，用户只能在代码中调用，不能修改 5．下列实际参数中，可以进行按地址传递的是（）。 A．“X” B．（X）C．X+10 D．X 三、阅读程序，按要求写出程序运行后的结果。（每题5分） 题目所涉及到的对象的属性在设计时均为默认值。答案可先写在代码右侧，然后再填写到答案表中，以答案表中的内容为准。 IF b=”ER” THEN s=s+1 1． 有如下程序 NEXT i a=”A WORKER IS OVER THERE” PRINT s x=LEN(a) 运行后的输出结果是_______ FOR i=1 TO x-1 b=MID(a,i,2) 2． 有如下程序 Dim a(1 to 5)y = 3 * y FOR j=1 TO 5 End Sub a(j)=j*j 4．有如下程序 NEXT j s=6 PRINT a(a(2)*a(3)-a(4)*2)+a(5)SELECT CASE s 运行后输出的结果是 _______ CASE IS<6 f=s+1 3．写出下列程序运行后的输出结果 _______ CASE IS<5 Private Sub Command1_Click() f=s+2 a = 1 CASE IS<4 b = 1 f=s+3 Print “A=”;a;“,B=”;b CASE ELSE Call mult((a), b) f=s+4 Print “A=”;a;“,B=”;b END SELECT End Sub PRINT s;f Sub mult(x, y) 运行输出的结果是______x = 2 * x 四、在下列程序的下划线位置上，填写符合题目要求的内容。（每题5分）说明与第三题相同。 Private Sub Option1_Click(Index 1． 下列代码求出 2．计算:N！的值 As Integer)S=1+2+3+ … +N的值。 N= Val(InputBox(“请输入N的Select Case Private Sub Form_Click()值：”)) Case n = Val(InputBox(“请输入N的 JC=______ Print ”ABC“ For i=1 to 值：”)) Case JC=JC*________ s = Print “DEF” Print “sum=”;sum For i = 1 To Case s = Print “HIJ” 3．单击控件数组中（共有三Next i End Select Print s 个）的不同对象，在窗体上显示End Sub End Sub 不同内容。 4．下列程序的功能是:用函数调用求(S=M!/(N!*(M-N)!),要求M>N)。请将程序填写完整。 Private Sub Command1_Click() Dim m As Integer, n As Integer Function JC(X) S1 = 1 m = InputBox(“请输入M的值”, , 0) For I = 1 To X n = InputBox(“请输入N的值”, , 0) S1 = If m <= n Then Exit Sub Next S = JC = Print S End FunctiEnd Sub 参考答案： 一单选 1 ~10 ：D C A B C C D C B A ~20 ：C A B C B C D C D B 二多选 1~5 ：A、BCD、ABC、ACD、D 三阅读 1、3 2、41 3、A=1 B=1 A=1 B=3 4、S=6 F=10 四．填空题 1、S=0 TO N S=S+I 2、JC=1 TO N JC=JC*I NEXT 3、INDEX 0 1 2、JC（M）/（JC（N）*JC（M-N））S1=S1*I JC=S1 五、编写程序（每题10分，共30分）。 1． Private Sub Form_Click() Timer1.Enabled = True 3． Private Sub Form_Click()Timer1.Interval = 1000 End Sub m = Val(InputBox(“输入M”))Private Sub Timer1_Timer()n = Val(InputBox(“输入N”))Label1.Caption = Time If n>m Then End Sub a = fact(n) b = fact(m)2． Private Sub Form_Click() c = fact(nm))b = Val(InputBox(“请输入数值：”)) Print D c = Val(InputBox(“请输入数值：”)) Else If b > a Then Exit Sub d = a: a = b: b = d End if End If End Sub If c > a Then Private Function fact(x)d = a: a = c: c = d p = 1 End If For i = 1 To x If c > b Then p = p * i d = b: b = c: c = d Next i End If fact = p Print a, b, c End Function End Sub 天津广播电视大学开放教育计算机网络技术专业、计算机信息管理（专科） 《VisualBasic程序设计》课程教学大纲 第一部分大纲说明 一、课程的性质与任务 VisualBasic程序设计课程是中央广播电视大学计算机相关专业的统设（统服）必修课，4学分，72学时，其中实验36学时，开设一学期。 课程的主要内容包括：可视化编程理论概述，VB可视化编程初步，应用程序接口设计及代码编写，VB高级语言技巧，文件处理应用程序设计方法，图形图像和多媒体应用程序设计方法，数据库应用程序设计方法，网络应用程序设计方法，调试与错误处理，Com和ActiveX应用。 通过本课程的学习，使学生掌握可视化程序设计方法和VB程序设计的编程技巧，具备用VB语言进行应用系统开发的初步能力。 二、与相关课程的关系 本课程是中央电大计算机相关专业的统设（统服）必修课。其先修课为计算机应用基础。 三、课程的教学要求 1．掌握VisualBasic语言的语法和VisualBasic程序的基本结构。 2．掌握程序设计方法。 3．掌握程序调试和错误处理的方法。 4．理解可视化编程和面向对象的概念。 5．了解ActiveX的简单应用。 四、课程的教学方法和教学形式建议 1．本课程的特点是：概念多、实践性强、涉及面广，因此建议采用在计算机教室（或计算机多媒体教室）进行讲授的教学形式，讲授、实验与课堂讨论相结合。 2．为加强和落实动手能力的培养，应保证上机机时不少于本教学大纲规定的实验学时。 3．应充分利用网络技术进行授课、答疑和讨论。 五、课程教学要求的层次 本课程的教学要求分为掌握、理解和了解三个层次。掌握是在理解的基础上加以灵活应用；理解是能正确表达有关概念和方法的含义，并且能够进行简单分析和判断；了解即能正确判别有关概念和方法。 在期末考核试卷中（涵盖实验内容），掌握的内容约占总分数的60%，理解的内容约占30%，了解的内容约占10%。 第二部分媒体使用与教学过程建议 一、课程学时分配 课程教学总学时数为72学时，4学分，其中实验课学时为36。各章学时分配如下： 章 教学内容 授课学时 实验学时 2 4 6 5 3 2 2 4 5 5 8 4 2 2 36 第一章 可视化编程理论概述 第二章 VB可视化编程初步 第三章 应用程序接口设计及代码编写 第四章 VB高级语言技巧 第五章 文件处理应用程序设计方法 第六章 图形图像和多媒体应用程序设计方法 4 第七章 数据库应用程序设计方法 第八章 网络应用程序设计方法 第九章 调试与错误处理 第十章 Com和ActiveX应用 合计 3 2 1 36 二、多种媒体教材的总体说明 本课程使用的教学媒体有：文字教材、录像教材、CAI课件和网上教学。 1．文字教材：主要教学媒体，是本课程教与学和考核的基本依据，对其他教学媒体起纽带作用，具有导学功能。文字教材采用分立式，包括主教材和实验教材。 2．录像教材：辅媒体，讲授课程的重点、难点以及在面授教学中难以实现的教学内容，是对文字教材的强化和补充。 3．CAI课件：自测练习，应用程序开发演练，通过交互式教学的特点，以解决学生在自学中遇到的疑难问题。 4．网上教学：教学辅导、答疑，阶段性总结和复习等。 三、教学环节 以文字教材为基础，通过录像教材、CAI课件等辅助教学媒体强化教学的重、难点内容，并通过实验课的训练，加深学生对课程内容的理解，掌握用VB语言进行程序开发的方法和技术。网上教学与教学进度同步，辅以办学试点单位教师的面授辅导，提高教学质量。 四、考核 本课程的考核采用期末终结性考核和形成性考核两种考核方式，期末终结性考核由中央电大根据教学大纲统一命题，占课程总成绩的80%，形成性考核以平时作业的形式完成，占课程总成绩的20%。 第三部分 教学内容和教学要求 第一章可视化编程理论概述（2学时） 一、教学内容： 1．“加法运算”应用程序实例分析 2．VB集成开发环境介绍 3．几种流行的可视化编程工具比较 4．面向对象的概念 二、教学要求： 1．掌握VB工程的概念及管理方法 2．掌握在VB集成环境中获得帮助的方法 3．理解可视化编程的概念和特点 4．了解目前流行的可视化语言的种类和主要特点 5．了解面向对象的概念及其基本机制 第二章VB可视化编程初步（4学时） 一、教学内容： 1．创建第一个应用程序：时钟程序 2．程序代码分析 3．窗体及基本控件 3．事件驱动 4．时钟程序分析 二、教学要求： 1．掌握VB应用程序开发的一般步骤。 2．掌握命令按钮、文本框和标签的使用和MsgBox函数的用法。 3．理解赋值语句和变量的概念。 4．理解对象、属性、方法和事件的概念及其之间的区别和联系。 5．理解事件驱动的原理。 6.了解时钟程序的工作原理 第三章应用程序接口设计及代码编写（6学时） 一、教学内容： 1．“简单的计算器”应用程序任务 2．可视化界面设计基础 3．可视化界面高级设计 4．代码设计基础 5．工程化思想及编程风格 二、教学要求： 1．掌握可视化界面设计的方法 2．掌握变量和常量的作用域、作用范围及用法 3．掌握运算符及流程控制语句的用法 4．理解工程化思想和编程风格 5．理解常用函数的使用方法 6．了解窗体设计的基本原则 7．了解“简单计算器”程序设计过程 第四章VB高级语言技巧（5学时） 一、教学内容： 1．“多功能计算器”应用程序任务 2．数组的使用 3．过程和函数的定义和调用 4．键盘使用技巧 5．鼠标使用技巧 二、教学要求： 1．掌握数组的使用方法 2．掌握键盘、鼠标的使用技巧 3．掌握过程和函数的定义和调用方法 4．掌握API函数的调用方法 5．了解枚举及自定义数据类型 6．了解“多功能计算器”程序设计过程 第五章文件处理应用程序设计方法（3学时） 一、教学内容： 1．“文件管理器”应用程序任务 2．文件系统控件及相关语句 3．标准文件输入/输出 二、教学要求： 1．掌握文件读写的基本方法 2．掌握与文件处理相关的语句和函数的用法 3．理解文件系统控件的基本功能 4．了解“文件管理器”应用程序的开发过程 第六章图形图像和多媒体应用程序设计方法（4学时） 一、教学内容： 1．“指针式时钟”和“VCD播放器”应用程序任务 2．VB坐标系统和颜色 3．相关控件介绍 4．绘图方法 5．图像处理的基本方法 6．播放多媒体信息的基本方法 二、教学要求： 1．掌握图形图像的基本处理方法。 2．理解VB坐标系统的原理。 3．理解“指针式时钟”程序的设计方法 4．理解“VCD播放器”程序设计的方法 5．了解播放多媒体信息的基本方法 第七章数据库应用程序设计方法（6学时） 一、教学内容： 1．“成绩查询”程序任务 2．VB数据对象及数据库访问机制概述 3．数据库控件和可视化数据管理器 4．报表设计 二、教学要求： 1．掌握VB数据库应用程序的基本框架 2．掌握SQL操纵数据的方法 3．理解使用VB数据库引擎操纵数据库的方法 4．理解VB数据对象及数据库访问机制 5．理解数据绑定控件的基本用法 6．了解使用Excel输出报表的方法 7．了解第三方报表控件的引用方法 8．了解DataReport、CrystalReport的使用方法 9．了解可视化数据管理器的使用方法 10．了解“成绩查询”程序的设计过程 第八章网络应用程序设计方法（3学时） 一、教学内容： 1．“网络聊天”程序任务 3．Winsocket控件及网络应用程序设计基础 2．其他网络应用程序设计 二、教学要求： 1．掌握Winsock控件的基本用法 2．了解网络应用程序设计的基础知识 3．了解“网络聊天”应用程序的开发过程 第九章调试与错误处理（2学时） 一、教学内容： 1．程序错误分类 2．程序调试方法 3．错误捕获及处理方法 二、教学要求： 1．掌握程序调试的基本方法 2．掌握错误捕获及处理的基本方法 3．了解程序错误的分类 第十章Com和ActiveX应用（1学时） 一、教学内容： 1．COM简介 2．ActiveX简介 3．COM对象的类型 4．ActiveX与COM的关系 二、教学要求： 1．了解ActiveXEXE组件开发应用方法； 2．了解ActiveXDLL组件开发应用方法； 3．了解ActiveX控件开发应用方法 第四部分 实验内容和实验要求 实验一：VisualBasic开发环境（2学时） 一、实验内容： （1）VisualBasic6.0的安装、启动与退出 （2）定制VisualBasiv6.0的集成开发环境 （3）创建一个简单应用程序 二、实验要求： 1．了解VisualBasic（简称VB）对计算机系统的软、硬件要求。 2．练习VisualBasic6.0的安装，掌握启动与退出VisualBasic6.0的方法。 3．熟悉VisualBasic集成开发环境，掌握工具栏、属性窗口、工程资源管理器窗口、窗体布局窗口、代码编辑器窗口的使用。 实验二：简单程序设计（2学时） 一、实验内容： （1）球表面积和球的体积的程序设计 （2）窗体的新建、属性设置 （3）身份验证程序设计 （4）创建“计时秒表”窗体程序 二、实验要求： 1．掌握建立和运行VisualBasic应用程序的基本步骤。 2．掌握文本框、标签、命令按纽的使用。 3．掌握MsgBox的使用和赋值语句的正确书写规则。 实验三：菜单设计（2学时） 一、实验内容： （1）下拉式菜单设计 （2）弹出式菜单 （3）工具栏设计 二、实验要求： 1．掌握菜单编辑器的使用 2．掌握下拉式菜单和弹出式菜单的设计方法。 3．了解工具栏的设计方法。 实验四：鼠标、键盘、API函数调用（4学时） 一、实验内容： （1）键盘错位程序 （2）实验键盘使用技巧 （3）鼠标事件应用 （4）窗体总在最前端实验 （5）百叶窗图形特效实验 二、实验要求： 1.掌握鼠标和键盘有关事件的使用方法 2.熟悉API函数的引用和调用方法 实验五：文件管理程序设计（5学时） 一、实验内容： （1）Word文件查找显示程序 （2）文件读写程序 二、实验要求： 1．掌握文件管理程序相关控件的使用方法 2．掌握文件管理程序相关函数和过程的使用方法 3．掌握文件管理类程序开发的方法 实验六：绘图和多媒体应用（5学时） 一、实验内容： （1）三角函数曲线的绘制 （2）常见几何图形绘制 （3）CD播放器程序设计 （4）API函数在多媒体中的应用 二、实验要求： 1．掌握建立图形坐标系的方法。 2．掌握VB的图形控件和图形方法以及常见几何图形的绘制。 3．掌握用多媒体控件制作简单多媒体播放器的方法。 4．了解API函数在多媒体中的应用。 实验七：数据库应用程序设计（8学时） 一、实验内容： （1）数据绑定控件的使用方法 （2）VB数据库引擎访问数据库的方法 （3）SQL操纵数据库的方法 二、实验要求： 1．掌握利用SQL语句，通过ADO数据对象管理数据库的方法 2．理解数据库实用程序的框架体系 3．了解数据报表的制作方法 实验八：网络应用程序设计（4学时） 一、实验内容： WinSocket控件的使用方法 二、实验要求： 1．掌握Winsock控件的使用方法 2．了解网络聊天程序的原理 实验九：简单程序调试及错误处理（2学时） 一、实验内容： （1）程序调试实验 （2）错误捕获及处理实验 二、实验要求： 1．掌握断点的设置、监视、跟踪等程序调试方法 2．掌握OnErrorGoto、OnErrorResumeNext等语句的使用 3．理解Error对象的作用 实验十：ActiveX的简单应用（2学时） 一、实验内容： 1．ActiveXEXE组件编程 2．ActiveXDLL组件编程 二、实验要求： 1．了解ActiveXEXE组件的开发和使用方法 2．了解ActiveXDLL组件的开发和使用方法 0 《VB》期末复习题及答案 综合复习题 一、填空题 1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。 2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。 3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。 4．窗体的常用方法有__________、___________、___________和___________。5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是____________________________________。 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ ___________ _____________________ End Sub 7．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 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（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给 4 出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。《VB》期末复习参考答案 一、填空题 1．创建应用程序界面 设置属性 编写代码 2．属性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 运算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com” 二、单项选择题 1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C 三、指出下列句中的错误，修改或者说明原因。1．int.sum 不正确。变量名中不能包括小数点。2．变量名的长度最长可达255个字符。3． 3.6，4 因为a 不是整型变量。 4．不正确。程序不可以改变字符的长度，这是VB规定。 5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。6．False。逻辑表达式计算结果。 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。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9 五、编程题 1． Private Sub Command1_Click()Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub 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 6 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》期末复习题及答案 综合复习题 一、填空题 1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的 属性 窗 口中，把此文本框的__text__属性设置成空白。 3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信 息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是 txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以 下事件过程填空。 Private Sub Cmdopen_ Click()、frm1.show End Sub 7．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 达式c>a And Not b 10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX 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（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。 Visual Basic 程序设计教程 部分习题参考 第四版刘炳文编著清华大学出版社 第五章 5.4、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。Dim a as single For i=1 to 4 a=inputbox（“请输入一个数：”，“数据输入”） sum=sum+a n=n+1 avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 5.5、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。Dim a as variant Fontsize=20 a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；a a=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；a a=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；a a=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；a a=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a 5.7．设a=5，b=2.5，c=7.8，编程序计算： y=（πab）/（a+bc）程序： Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c）print “结果是：”;y 5.8、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。Dim a as long，d as integer，h as integer，s as integer a=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600 print d；“日”；h；“时”；s；“秒” 5.9、自由落体位移公式为：s=gt2/2+v0t 其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。 Dim v as single，t as single，s as single g=9.81 v= inputbox（“请输入初始速度：”，“数据输入”）v=val（v）t=inputbox（“请输入经历的时间：”，“数据输入”）t=val（t）s=g*t*t/2+v*t print “位移量是：”;s 第七章 7.1．编程计算并输出S的值:s=2+4+6+8+„+100 dim i,s as integer s=0 for i=2 to 100 step 2 s=s+i next print s 7.2、我国现有人口为13亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。Private Sub Form_click()Dim p As Double Dim r As Single Dim n As Integer p = 130000000 r = 0.01 n = 0 Do While p <= 200000000 p = p *(1 + r)n = n + 1 Loop Print n;“年后”;“中国人口增加到”;p End Sub 7.3、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。 Dim a as single；b as single；c as single Start: a = inputbox(“请输入第一条边长-1结束：”,”数据输入”)a=val（a）if a=-1 then end end if b=inputbox（“请输入第二条边长”，“数据输入”）b=val（b）c=inputbox（“请输入第三条边长”，“数据输入”）c=val（c） if a+b<=c or a+c<=b or b+c<=a then msgbox（“您输入的三条边长不能构成三角形，请重新输入！”） goto start else l=（a+b+c）/2 s=sqr（l*（l-a）*（l-b）*（l-c））end if print “三角形的面积为：”；s 7.5、编写程序，打印如下所示的“数字金字塔” 1 2 1 …… 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 Private Sub Form_Click()Dim a(1 To 5)As Integer For j = 1 To 5 a(j)= j Next j For i = 1 To 5 Print Tab(301 If j > i Then Print a(2 * i2 For J = I + 1 To Maxi)* 2);a(i, 3i If w(j, 1)> w(j + 1, 1)Then a1 = w(j, 0) a2 = w(j, 1) w(j, 0)= w(j + 1, 0) w(j, 1)= w(j + 1, 1) w(j + 1, 0)= a1 w(j + 1, 1)= a2 End If Next j Next i For i = 0 To 9 Print w(i, 0)Next Print “名次” & “ 运动员” & “ 成绩” For i = 0 To 9 Print “ ” & i + 1 & “ ” & Format(w(i, 0), “000”)& “ ” & w(i, 1)Next End Sub Private Sub Form_Load()For i = 0 To 9 w(i, 0)= InputBox(“请输入第” & i + 1 & “运动员的编号”) w(i, 1)= InputBox(“请输入第” & i + 1 & “运动员的成绩”)Next Command1.Caption = “名次排列” End Sub 8.10．VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0 Private Sub Form_Click() Dim a(1 To 10, 1 To 10)As Integer For i = 1 To 10 For j = 1 To 10 a(i, j)= 0 If i = j Then a(i, j)= 1 If i + j = 11 Then a(i, j)= 1 Print a(i, j);“ ”; Next j Print Next i End Sub 8.12.杨辉三角形每一行是(x+y)的n次方的展开式的各项系数。例如第一行系数是1；第二行1，1；第三行1，2，1„„请编写程序输出n=10的杨辉三角形 Option Base 1 Private Sub Command1_Click()Dim a()As Double m = InputBox(“请输入行数 ”, “输入”, 0)ReDim a(m, m)As Double For i = 1 To m a(i, 1)= 1 For j = 1 To m a(j, j)= 1 If j >= 2 And j <= i1, j1, j) End If Next j Next i For i = 1 To m For j = 1 To m If i >= j Then Print Tab(j * 4);Str(a(i, j)); End If Next j Print Next i End Sub第二篇：《VisualBasic程序设计》课程教学大纲
第三篇：VB程序设计期末模拟试题及答案
第四篇：VB程序设计期末模拟试题及答案
第五篇：visualbasic程序设计教程-第四版-刘炳文编著-清华大学
点击咨询 