下载文档原格式
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
第一章 VB程序设计初步1．1 Visual Basic的发展Visual Basic（以下简称VB）是Microsoft公司于1991年推出Windows应用程序开发工具。
Visual一词具有“可视化的”、“形象化的”的含义，在语言功能方面，VB与早期的Basic语言基本兼容，但由于VB具有良好的图形用户界面（Graphic User interface，即GUI），因此有人称它为可视化的Basic语言。
和Basic语言相比，VB提供的一系列可视化设计工具，大大简化了应用程序界面的设计工作，不仅易学易用，同时其编程系统采用了面向对象、事件驱动机制，非专业人员也可以使用该语言工具方便地完成基于Windows的应用程序开发，因而一经推出，便获得了巨大成功。
从1991年至1997年，微软相继推出了VB1.0，VB2.0,VB3.0，VB4.0及VB5.0版，1998年发布的Microsoft Visual Studio 98中包含了VB6.0，2000年又推出了。
VB 5.0以前的版本主要用于16位应用程序开发，VB6.0则专为32位操作系统设计。
本书主要介绍VB6.0。
VB6.0包括三种版本，分别为学习版、专业版和企业版。
三种版本适于不同层次的用户。
（１）学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。
适合初学者用来学习开发Windows应用程序。
（２）专业版为专业编程者提供了一整套功能完备的开发工具，包括了学习版中的全部功能，同时加入了ActiveX 控件、Internet控件和报表控件等。
（３）企业版该版本包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。
如无特别说明，本书中内容均基于VB６.０企业版作介绍，所有程序在VB６.０企业版下运行通过，大多数程序可以在专业版和学习版中运行。
VB循环结构程序设计1. 循环结构概述在VB程序设计中，循环结构用于重复执行一段代码块，以实现对特定任务的重复操作。
循环结构可以帮助提高程序的效率和灵活性，在处理一些需要重复操作的情况下非常有用。
2. VB中的循环结构2.1 DoLoop循环DoLoop循环是VB中最基本的循环结构，它可以根据指定的条件重复执行一段代码块，直到满足退出条件为止。
2.1.1 Do While循环Do While循环适用于在循环开始之前就已知循环条件的情况。
在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。
vbDo While condition' 循环体代码Loop2.1.2 Do Until循环Do Until循环与Do While循环相反，它适用于在循环开始之前并不知道循环条件的情况。
在每次循环开始前，会先判断循环条件是否为假，如果为假，则执行循环体中的代码块，然后判断循环条件，直到循环条件为真时退出循环。
vbDo Until condition' 循环体代码Loop2.2 For循环For循环是一种比较常用的循环结构，适用于循环次数已知的情况。
它通过指定循环变量的初始值、终止值和步长来控制循环的次数。
vbFor counter = start To end [Step step]' 循环体代码Next [counter]2.3 While循环While循环适用于在循环开始之前就已知循环条件的情况。
在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。
vbWhile condition' 循环体代码Wend3. 循环结构应用实例以下是一个简单的应用实例，演示了如何使用循环结构来实现对一组数字进行求和的功能。
vbDim sum As IntegerDim num As IntegerDo While num <> 0Console.Write(\。
中职学校VB教案教案标题：VB程序设计教学教学目标：1.了解VB程序设计的基本概念和原理；2.掌握VB程序设计的基本语法和常用控件的使用方法；3.能够独立完成小型VB程序的设计和开发。
教学重点：1.VB程序设计的基本语法；2.常用控件的使用方法；3.小型VB程序的设计和开发能力。
教学难点：1.VB程序设计的高级语法和技巧；2.复杂控件和数据处理的应用。
教学准备：1.VB开发环境；2.笔记本电脑或计算机教室；3.教材和教辅资料；4.实例程序和案例分析。
教学过程：一、引入（10分钟）1.教师向学生介绍VB程序设计的基本概念和应用领域；2.给学生展示一些常见的VB程序，让学生了解VB程序的实际应用；3.介绍本课的教学目标和重点。
二、讲授基础知识（40分钟）1.介绍VB程序设计的基本语法和编程规范；3.通过实例演示，教授VB程序设计的基本流程和调试技巧；4.引导学生使用VB开发环境，亲自操作常用控件，编写简单的程序。
三、案例分析（30分钟）1.分析一个小型的VB程序案例，讲解其设计思路和实现过程；2.带领学生逐步完成案例中的代码实现，让学生参与其中；3.引导学生思考，讨论案例中涉及到的问题和解决方法。
四、实践操作（40分钟）1.学生在教师的指导下，选择一个具体的VB程序设计项目；2.学生自主进行设计和开发，并在教师的帮助下实现功能；3.鼓励学生进行创新，提供必要的指导和帮助。
五、总结回顾（10分钟）1.教师对本节课的教学内容进行总结和回顾；2.学生针对本节课的学习进行评价和反馈；3.鼓励学生继续深入学习VB程序设计知识，自主拓展能力。
教学延伸：1.鼓励学生自主学习VB程序设计的高级语法和技巧；2.提供更复杂的VB程序案例和实例，让学生进行分析和实践；3.组织学生参加VB程序设计的竞赛或项目实践，提高实际应用能力。
以上是一个关于中职学校VB教案的大致框架，根据具体的教学班级和学生情况，可以适当调整和修改教学内容和时间分配。
vb语言程序设计
VB语言（Visual Basic）是一种基于事件驱动式的编程语言，可用
于快速开发GUI应用程序。
它是由微软公司开发的，最初被设计用于Windows操作系统。
VB语言与其他编程语言不同，因为它是一种视觉化编
程语言。
也就是说，程序员可以在屏幕上使用鼠标拖放控件、设置属性等等，而无需手动编写代码。
VB语言也是.NET Framework语言家族中的一员。
以下是编写VB语言的一些基本步骤：
1. 在Visual Studio中打开新的VB窗体应用程序项目。
2.在窗体设计器中选择所需的控件并设置其属性和事件。
3.在代码编辑器中编写程序逻辑，处理控件事件和操作。
4.调试和测试程序，查看并解决任何错误或问题。
5.编译生成可执行文件或程序集，发布和部署应用程序。
VB语言程序设计可以应用于众多领域，例如Windows桌面应用程序、Web应用程序、数据库管理、游戏开发等等。
使用VB语言可以显著提高
开发效率，减少代码量和学习成本，并且拥有大量的支持和资源库。
VB选择结构程序设计教案实例讲解选择结构程序设计教案实例讲解VB作为一种流行的编程语言,在软件开发中被广泛应用。
选择结构作为程序设计的重要内容之一,在VB中也有着重要的应用。
本文将介绍一份VB选择结构程序设计教案,并结合实例进行讲解。
一、教案准备1.教学目的：通过本课程的学习和练习，学生能够了解VB选择结构程序设计的基本原理和步骤；掌握VB选择结构程序设计所需的关键语句和常用函数；并能够灵活运用选择结构程序设计方法解决实际问题。
2.教材参考：《Visual Basic 6.0程序设计》3.教学方法：理论授课、实践练习、案例分析。
4.教学时间：2学时。
二、教案内容1.VB选择结构程序设计的基本概念VB选择结构程序设计是指根据特定条件的真假来选择性地执行不同的程序语句，以达到特定的目的。
选择结构程序设计主要有“单向选择结构”和“双向选择结构”两种。
2.VB选择结构程序设计的步骤(1) 定义变量和输入数据在选择结构程序设计中，需要定义变量来存储要进行比较的数据，以及用来储存比较结果的布尔型变量，同时要求用户输入数据。
(2) 判断条件并给出选项根据比较结果的真假给出不同的选项，可以使用“if then else”语句。
(3) 输出结果将最后结果输出，即可完成整个程序。
3.VB选择结构程序设计所需关键语句和常用函数(1) If Then Else语句If条件语句用于根据条件的真假进行选择性地执行某部分程序。
语法为：If condition Then'如果条件为真执行这里的语句else'如果条件为假执行这里的语句End If(2) And和Or运算符And运算符和Or运算符用于多个条件的判断。
And表示条件“与”的关系，Or表示条件“或”的关系。
(3) Select Case语句Select Case语句用于多个选项的情况。
语法为：Select Case expressionCase value1'执行这里的语句Case value2'执行这里的语句Case Else'执行这里的语句End Select4.实例讲解：下面通过实例来介绍VB选择结构程序设计的具体实现。
《VB程序设计》试卷二一、选择题（每小题1分，共10分）1、改变控件在窗体中的上下位置，应修改控件的__（1）_____属性A .Top B. Left C.Width D. Right2、将通用对话框类型，设置为字体对话框，可修改该控件的____（2）_____属性A. fontB. filenameC. filterD. action3、标签控件最重要的属性是__（3）______A. captionB. textC. nameD. width4、文本框中选定的内容，由下列____（4）_____属性反映。
A. TextB.CaptionC. SeltextD. sellenght5、选中复选框控件时，value属性的值，可以是_ （5）______A.trueB. falseC. 0D.16、设置列表框选中的文本用____（6）____属性A. selectedB. captionC. textD. list7、简单组合框的style值为____（7）_____A .0 B. 1 C. 2 D. 38、在文件列表框的实现文件的多重选择，应修改该控件的___（8）______属性A. filenameB. pattemC. pathD. multiselect9、语句listl.removeitem 1 将删除list.listindext等于___（9）______的项目。
A. 0B. 2C. 3D. 110、计时器的interval属性伪时，表示____（10）_____。
A. 计时器失效 C. 相隔0 毫秒B. 相隔0秒 D. 计时器的enable属性为false二、判断题：（每小题1 分，共10 分）1、全局变量用global或public关键字声明，且仅在通用声明处可以定义。
（11）2、如果某子程序add用public static sub add（）定义，则该子程序的变量都是局部变量。
（12）3、*.bmp格式的图片，如果在autosize设为False的图片框，它会以图片框大小完整显示出来。
（13）4、已知窗体的fillcolor=rgb（255，0，0）红，forecolor=rgb（0，255，0）绿，fillstyle=0（solid）语句circle（200，100），500，，，，2的输出结果是红边绿心的长椭圆。
（14）5、move方法的一般形式是：对象名.move A，B[，C，D]，其中A指Left，C 指width。
（15）6、清除list1列表框对象的内容的语句是list1.cls。
（16）7、清除combo1对象的内容是combo1.clear。
（17）8、对象的可见性用enabled属性设置，可用性用visible属性设置。
（18）9、若要新建一个磁盘上的顺序文件，可用output，append方式打开文件。
（19）10、滚动条控件不可作为用户输入数据的一种方法。
（20）1．F 2. F 3. F 4. F 5. F 6. F 7. T 8. F 9. T 10. F三、填空题1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：___________2.大于X 的最小整数的VB 表示形式为____（22）____。
3.设X$ =“abc123456”则“a”+str$(val(right(X$,4)))的值是____ （23）____________4.数学表达式对应的VB表达式为：_______（24）____________5.拖动滚动条中的滚动框将会产生_______（25）____________、___（26）______________6.请写出清除以下对象内容的语句：文本框____（27）_______,窗体___（28）_________,列表框__（29）_______,组合框___（30）_______四、程序阅读（假如所有的变量类型都已定义）（每小题6分，共18分）1、程序1FOR J=10 TO 5 step –2K=J+1If K<6 then exit forNEXT JPRINT K；J输出的结果______（31）____________2、程序2A=1：I=0SELECT CASE A*2CASE 1A=A+1CASE 2A=A+2CASE ELSEA=A+3END SELECTA的值为______（32）__________3、程序3（注：a为整型变量）open “abc.bat” for output as #1n=8for I=1 to nprint #1,I+1next Iclose #1open “abc.bat” for input as #1for I=1 to ninput #1,aif I mod 5=0 then print a+1next Iclose #1输出结果：____（33）________________五、程序填空（每题2分，共18分）1、统计一顺序文件test.txt中的空格、字母、数字和其它字符个数。
Private Sub Command5_Click()Dim s As String, C As StringDim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer,Other As integerOpen “c:\text.txt”For___（34）__________As #1Do Unit_____（35）________Line Input #1,sL=_______（36）__________For I=l To LC=_____（37）___________If________（38）______________ThenCharacter=character+1Elself_________（39）___________ThenSpac=spac+1Elself________（30）____________Thendigit=digit+1Elseother=other+1End IfNext ILoopClose #1Print “字符个数为：”；character；“数字个数为：”；digitPrint “空格个数为：”；spac；“其它个数为：”；otherEnd Sub2、以下程序是单击命令按钮，将用户在组合框中输入的某一值，与组合框其他项进行比较，如有相同，则将相同表项删除，其他项，则不动。
Private Sub command1_click（）Dim a As String , I As IntegerA$=Trim(Combo1.Text)If a<>””Then_____（41）__________If Combo1.List(i)=a Then ____（42）__________Next IEnd IfCombo1.SetFocusEnd Sub六、综合编程（每题10分，共20分）1、用自定义函数的方法求sum（x），求当-1≤x≤1时，sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!,当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数据错误。
X、N都是由用户输入。
2、已知有100个正数，自小到大，存于数组A中（A（1）——A（100））编制程序，输入正数X，检查它是否存在于A中，若存在，显示对应下标，若不存在，则请将X插入到A中，且不影响A中数组序列。
提示，程序开头可以是：Private Sub Command1_Click()Dim x As Ingeger ,I As Integer,nn As Integer,a(101) As Integer ,j As IntegerNn=100I=1While (I<=nn)A(i)=Val(InputBox(“input number”&”必须大于”& Str(a(I-1)))If a(i)>=a(I-1) ThenI=I+1ElseMsgBox(“请重新输入”& Str(a(i)) & Chr(13) & “必须大于”& Str(a(I-1))))End IfWendFor I=1 To nnPrint a ( I ),If I Mod 4 =0 Then PrintNext IPrint……End sub正确程序是：参考答案：一、判断题：1．F 2. F 3. F 4. F 5. F6. F7. T8. F9. T 10. F二、选择题：11. A 12. D 13. A 14. C 15. D16. D 17. B 18. D 19. D 20. A三．填空题：21．Public mystring as string*15 22．Int(x)+1 23．a345624．（2*sin(3.14159/2)+2*a*exp(b)）/sqr(a*c) 25．Scroll 26．Change 27．Text1.text=””28. Form1.Cls 29. List1.Clear 30. combol1.Clear四、程序阅读题：31．7 4 32． 3 33．7五、程序填空题：34．Input 35．EOF(1) 36．Len(s)37．Mid(s, I , 1) 38．c>=”a”and c<=”z”Or c>=”A”and c<=”Z”39．c=”“40．c>=”0”and c<=”9”41．for I=0 to Combo1.ListCount-1 42．Combo1.RemoveItem i六．综合编程题：1．程序1：Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integern = Val(InputBox("Please input a integer value:"))x = Val(InputBox("Please input a single value:"))If n <= 0 Thenk = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")Exit SubEnd Ifs = sum(x, n)Print sEnd SubFunction sum(x As Single, n As Integer)Dim i As Integer, ss As Longss = 1sum = 0If x > 1 Or x < -1 Thensum = 0ElseFor i = 2 To n + 1ss = ss * isum = sum + x ^ (i - 1) / ssNext iEnd IfEnd Function程序2：Private Sub Command1_Click()Dim x As Integer, I As Integer, nn As Integer, a(101) As Integer, j As Integernn = 100I = 1While (I <= nn)a(I) = Val(InputBox("input number" & "必须大于" & Str(a(I - 1))))If a(I) >= a(I - 1) ThenI = I + 1ElseMsgBox ("请重新输入" & Str(a(I)) & Chr(13) & "必须大于" & Str(a(I - 1))) End IfWendFor I = 1 To nnPrint a(I),If I Mod 4 = 0 Then PrintNext IPrintx = Val(InputBox("Input a Data to Check :"))If x < a(1) ThenFor I = nn + 1 To 2 Step -1a(I) = a(I - 1)Next Ia(1) = xFor I = 1 To nn + 1Print a(I),If I Mod 4 = 0 Then PrintNext IPrintElseIf x > a(nn) Thena(nn + 1) = xFor I = 1 To nn + 1Print a(I),If I Mod 4 = 0 Then PrintNext IPrintElseFor I = 1 To nnIf x = a(I) ThenPrint "已经存在，序号是："; IExit SubElseIf x > a(I) And x < a(I + 1) Thenj = I + 1Exit ForEnd IfEnd IfNext IFor I = nn + 1 To j + 1 Step -1a(I) = a(I - 1)Next Ia(j) = xFor I = 1 To nn + 1Print a(I),If I Mod 4 = 0 Then PrintNext IPrintEnd IfEnd Sub《VB程序设计》试卷三一、选择题（每小题1分，共10分）1．以下的vb 常量中非法的是(1)a. “Good Luck”b. PIc. 1.5E-03d. 16.34122. 骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(2 )a. int(rnd*6+1)b. int(rnd*6)c. int(rnd*7)d. int(rnd(6)+1)3. 要想返回文本框中输入的内容则可利用其( 3 )属性进行编程a.captionb. textd. righttoleft4. 下列不能用commondialog 控件调用的对话框是( 4 )a. open/saveb. helpc. fontd. search5. 要使得窗体一开始运行就充满整个屏幕则须设置( 5 ) 属性a. borderstyleb. appearancec. windowstated. drawmode6. vb 应用程序是分层管理的,其最高的层次为( 6 )a. 工程b. 模块c. 窗体d. 过程7. vb 中的坐标圆点位于( 7 )a. 容器右上角b. 容器左上角c. 容器正中央d. 容器右下角8. 如果从数据文件INPUT.DA T 中读取数据时, 以下打开文件方式中,正确的是( 8 )a. OPEN INPUT.DAT FOR INPUT AS #1b. OPEN INPUT.DAT FOR OUTPUT AS #1c. OPEN “INPUT.DA T” FOR INPUT AS #1d. OPEN “I”, #1 INPUT.DAT9. vb 程序设计中的窗体在oop 中称为( 9 )a. 屏幕b. 事件c. 对象d. 控件10. 以下各表达式中, 计算结果为0的是(10 )a. INT(12.4)+INT(-12.6)b. CINT(12.4)+CINT(-12.6)c. FIX(13.6)+FIX(-12.6)d. FIX(12.4)+FIX(-12.6)二、判断题（每小题1分，共10分）1）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。
