电子科技大学网络教育《VB程序设计》在线作业答案

vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。

2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。

3．事件是由Visual Basic预先定义的对象能够识别的动作。

4．新建⼯程时系统会⾃动将窗体标题设置为Form1。

5．控件的属性值不可以在程序运⾏时动态地修改。

6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。

7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。

8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。

9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。

10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。

⼆、选择题1．⼯程⽂件的扩展名为。

A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。

A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。

A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。

A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。

A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。

客观题_0001试卷总分：100 测试时间：240单项选择题判断题一、单项选择题（共20 道试题，共80 分。

）1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。

A. ListB. ListindexC. TextD. Listcount2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。

A. 加号（+）B. 减号（-）C. 星号（*）D. 感叹号（!）3. 保存新建的工程时，默认的文件夹是（）。

A. My DocumentB. VB98C. "\ "D. Windows4. 要清除列表框的所有内容，可用（）方法来实现。

A. RemoveTtemB. ClsC. ClearD. 以上均不可以5. 用标准工具栏中的工具按钮不能执行的操作是（）。

A. 添加工程B. 打印源程序C. 运行程序D. 打开工程6. 改变驱动器列表框的Drive属性值，将激活（）事件。

A. ChangeB. ScollC. KeyDownD. KeyUp7. 下列语句语法正确的是（）。

A. a=1 b=2 c=3B. a=l：b=2：c=3C. a=1，b=2，c=3D. a=1；b=2；c=38. 要在窗体Form1内显示“myfrm”，使用的语句是（）。

A. Form. print "myfrm"B. Form.caption="myfrm"C. Form1.print "myfrm"D. Form1.caption="myfrm"9. 图象框Image没有的属性是（）。

A. PictureB. AppearanceC. AutoRedrawD. 以上属性都没有10. 可获得字符的ASCII码的函数是（）。

A. ValB. FixC. AscD. Chr11. 计时器没有的属性是（）。

判断题：（共20题每题2分）1、为了使一个控件在运行时不可见，应将该控件的Enable属性值设置为False。

2、当用Load命令将窗体装入内存时，一定触发窗体的Load事件和Activate事件。

3、面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。

4、将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。

5、方法是Visual Basic对象可以响应的用户操作。

6、对象是基本的运行实体，它既包括了数据（属性），也包括作用于对象的操作（方法）和对象的响应动作（事件）。

7、属性是用来描述和反映对象特征的参数，不同的对象具有各自不同的属性，对象的所有属性都可以在属性窗口中设置。

8、Visual Basic中将一些通用的过程和函数编写好并封装作为方法供用户直接调用。

9、每个对象都有一系列预先定义好的事件，但要使对象能响应具体的事件，则应编写该对象相应的事件过程。

10、在打开一个Visual Basic工程进行修改后，当要另存为一个文件名时，可单击“工程另存为”命令，因为其同时会保存窗体文件。

11、使用MsgBox函数与MsgBox过程可接受用户输入数据。

12、If语句中的条件表达式中只能使用关系或逻辑表达式。

13、在Select Case情况语句中，各分支（即Case表达式）的先后顺序无关。

14、要实现同样的循环控制，在Do While-Loop和Do-Loop While循环结构中给定的循环条件是一样的。

15、一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。

16、For循环语句正常结束（即不是通过Exit For语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”＋“步长”。

17、VB要求程序员在使用变量前，必须事先声明。

18、在模块的声明段中用Private和Dim语句声明的数组为模块级数组。

19、顺序文件的每一个记录都有固定长度，每一个记录都有一个记录好。

VB程序设计+闭卷+A+3+92分•• A、工具箱;•B、文本框;•C、工具栏;•D、属性窗口;••A、编辑、生成可执行程序、运行程序，但不能调试程序•B、编辑、调试、运行程序，但不能生成可执行程序•C、编辑、调试、运行程序，也能生成可执行程序•D、编辑、调试、生成可执行程序，但不能运行程序•• A、函数过程形参的类型与函数返回值的类型没有关系•B、在函数过程中，过程的返回值可以有多个•C、如果不指明函数过程参数的类型，则该参数不能有数据类型的参数•D、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传••A、T op•B、Width•C、Left•D、Enabled••A、可以通过Print方法在图片框中输出文本•B、清空图片框控件中图形的方法之一是加载一个空图形•C、图片框控件可以作为容器使用•D、用图片框控件的Stretch属性可以自动调整图片框中图形的大小••A、Z;•B、False;•C、A;•D、True;••A、0,009.86•B、009.86•C、9.86•D、0,009.86••A、For i=1 To List1.listCount ...... Next i•B、For i=0 To ListCount-1 ...... Next i•C、For i=1 To ListCount ...... Next i•D、For i=0 To List1.ListCount-1 ......Next i••A、"ABC"＞"AbC"•B、"VISUAL"=UCase("Visual")•C、"Integer"＞"Int"•D、"the"＜＞"they"•• A、选择结构，循环结构，顺序结构•B、递归结构，选择结构，循环结构•C、过程结构，输入输出结构，转向结构•D、选择结构，过程结构，顺序结构••A、FontItalic•B、FontName•C、FontBold•D、FontSize••A、DblClick•B、Enabled•C、Unload•D、Load••A、Combo1.RemoveItem 3•B、Combo1.RemoveItem Text•C、Combo1.RemoveItem Combo1.Listcount•D、Combo1.RemoveItem 2••A、设计状态•B、中断状态•C、编写代码状态•D、运行状态••A、T ext•B、Visible•C、Style•D、MultiLine••A、对象•B、事件•C、动作•D、属性••A、Dim a(3,4)?As Integer•B、Dim a[3,4]?As Integer•C、Dim a(n,n)?As Integer•∆、∆ιμ α(3 4)?Aσ Iντεγερ••A、Load;•B、Timer;•C、Run;•D、Click;••A、True•B、出错信息•C、1•D、False•• A、属性、事件、方法•B、属性、过程、方法•C、控件、窗体、事件•D、属性、事件、事件过程••A、second;•B、学生信息;•C、a(x*y);•D、1xyz;••A、BOF•B、LOC•C、LOF•D、EOF••A、20•B、1•C、4•D、8•• A、1 3 5•B、1 3.4 5.8•C、无数据输出•D、1 4 7A、∆ο ΩηιλεΛοοπ循环可能不执行， ∆οΛοοπ Yντιλ循环至少执行一次•B、Do While…Loop循环和Do…Loop Until循环可能都不执行•C、Do While…Loop循环和Do…Loop Until循环至少都执行一次•D、Do While…Loop循环至少执行一次，Do…Loop Until循环可能不执行二、判断，共10题/每题2.0分/共20.0分：••A、正确•B、错误••A、错误•B、正确•• A、正确•B、错误••A、错误•B、正确••A、正确•B、错误•• A、错误•B、正确•• A、错误•B、正确•B、错误•23、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a, b As Integera = val(InputBox("Enter the First integer"))b = val(InputBox("Enter the Second integer"))Print a + bEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是和（）••A、579•B、123456•C、456•D、123••A、0.02567•B、0.00002567•C、0.0002567•D、0.002567••A、Picture•B、DisabledPicture•C、DownPicture•D、Style•B、错误••A、正确••A、正确••A、错误•B、正确•B、正确•B、错误•B、正确•B、错误••A、正确•B、错误••A、错误••A、11;•B、12;•C、9;•D、10;••A、Value;•B、Name;•C、Index;•D、Caption;••A、Mid(string);•B、Trim(string);•C、LTrim(string);•D、Instr(string1,string2);••A、100;•B、10;•C、1;•D、1000;••A、参数x,y用来设置鼠标当前位置的坐标•B、通过Button参数判定当前按下的是键盘上哪一个键•C、Shift参数只能用来确定是否按下Alt和Ctrl键•D、Shift参数只能用来确定是否按下Shift键••A、a_2•B、Float•C、a-b•D、2xy••A、2.4•B、5•C、3•D、1••A、T abStop•B、Enabled•C、TabIndex•D、Visible••A、IsDate;•B、Date;•C、TimeOfDate;•D、Now;••A、字符串•B、数值或字符串(视输入的数据而定)•C、变体•D、数值••A、34 0•B、7 9•C、死循环•D、9 7••A、Beijing＜CR＞ShangHai•B、＜CR＞beijing＜CR＞ShangHai•C、ΔBeijingΔ•D、BeijingShangHai＜CR＞••A、.bas•B、.frx•C、.vbp•D、.frm••A、代码•B、方法•C、命令•D、对象••A、Button;•B、Label;•C、Form;••A、Visual•B、11•C、Basic•D、6••A、显示当前驱动器或指定驱动器上某文件夹的路径•B、显示当前驱动器或指定驱动器上的某目录下的文件名•C、显示根目录下的文件名•D、只显示当前路径下的文件•B、8•C、9••A、单选框•B、定时器•C、通用对话框•D、命令按钮23、语句format(1234.5678 , ”####.00”)的结果为：（）A、“1234.57”;B、“1234.56”;C、1234.56;D、1234.57;48、常量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是变量。

1.在窗体中添加一个命令按钮，然后编写如下程序: Private Sub Command1_Click() Dima As Integer, b As Integer a=InputBox("Enter the Firstinteger") b=InputBox("Enter the Secondinteger") Print b+a End Sub程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123,那么输出结果是()。

A.246B.123C.456D.123123【参考答案】：A2.在窗体上画一个名称为Command的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x =10 Case 2,4,6 x = 20 Case Is<10 x = 30 Case 10 x = 40 End SelectText2.Text = x End Sub程序运行后，如果在文本框Text1中输入10, 然后单击命令按钮，那么在Text2中显示的内容是()。

A.10B.20C.30D.40【参考答案】：A3.指出下面哪个语句不是写文件语句()。

A.PrintB.OutputC.WriteD.Put【参考答案】：B4.窗体上有一组合框Combol,窗体加载时的代码如下：Private SubForm_Load() Combol. AddItem "电视机〞Combol. AddItem "录像机〞Combol. AddItem “VCD Combol. AddItem “组合音响〞End Sub 要在文本框Textl中显示列表中的第三个工程，那么正确的语句的是()。

第 1 章概述一、叙述题1．简述VB具有哪些特点。

（1）面向对象的可视化设计工具（2）事件驱动的编程机制（3）易学易用的应用程序集成开发环境（4）结构化的程序设计语言（5）充分利用Windows资源（6）开放的数据库功能与网络支持2．简述事件驱动的程序设计原理。

解答：VB程序的运行没有固定的顺序，它通过事件来激活某个对象，随着该对象的活动，会引发新的事件，这个事件又可能使另一个对象激活，对象之间就是以这种方式联系在一起的。

每个事件都可以通过一段程序（称为“事件过程”）来响应，在事件发生时，系统将自动执行相应的事件过程，用以实现指定的操作并达到运算、处理的目的。

为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序，这就是VB事件驱动的程序设计原理。

3．VB的集成开发环境由哪些元素组成？解答：标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。

4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？解答：VB集成开发环境的工具栏可以自定义，方法是：用鼠标右击标准工具栏的任意位置，可以打开或关闭其余工具栏。

标准工具栏中包含的按钮有：添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。

5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？解答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

6．简述用VB开发应用程序的一般步骤。

（1）创建应用程序界面（2）设置界面上各个对象的属性（3）编写对象响应事件的程序代码（4）保存工程（5）运行和调试应用程序（6）创建可执行程序二、单选题1．D VB是一种面向对象的可视化程序设计语言。

VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。

2、当正常安装VB6.0后，误把Window子目录删除。

当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。

因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。

3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。

4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。

5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。

6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。

7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。

VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。

9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。

Visual Basic 程序设计试题一、单项选择题(每小题2分，共30分}1.与传统的程序设计语宵相比，VisualBasic最突出的特点是( C )。

A. 结构化程序设计B.程序开发环境C.事件驱动的编程机制D程序调试技术2.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是( D )A设计模式B中断模式c.执行模式D编写代码模式3. 下列关于窗体的说法不正确的是( B )。

A.窗体的标题由Caption属性确定B.窗体的Name属性Caption属性相同C.窗体的背景图片由其Picture 属性设成D.通过设置Icon属性可使窗体获得最小化时的图标4.工程文件的后缀是( B )。

A.frmB..vbp c.bas D..cls5.要在窗体的标题内显示"myfrm"，使用的语句是( D )。

A.Form1.Print"myfrm" B. Form.Print"myfrm"C.Form.caption="myfrm"D.Form1.caption="myfrm"6.在设计动画时，用时钟控件来控制动画速度的属性是( B )。

A.Enab led B.IntervalC.TimerD.Move7.关于语句行，下列说法正确的是( D )。

A一行只能写一条语句 B.长度不能超过255个学符C.每行的首学符必须大写D一条语句可以分多行书写8.假定已在窗体上画了多个控件，井有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是( A )。

A.单击窗体上没有控件的地方B.单击任一个控件C不执转任何操作D.双击窗体的标题栏9.下列关于变量的说法不正确的是( D )。

A.局部变量是指那要是在过程中用Dim语句或Static语句声明的变量B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量在声明它的过程孰行完毕后就被释放了10.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( C )。

VB程序设计教程习题解答vb程序设计教程习题解答《VB编程课程》（第三版）问题解决习题1答案一、多项选择题1.1visualbasic6.0分为3种版本，不属于这3种版本的是a）学习版b）专业版c）企业版d）业余版【答】d。

1.2在以下方法中，无法退出Visual Basic的方法是a）按Alt+Qb）按下alt+f组合键，然后按esc键c）按f10键，然后按f键，再按x键d）打开“文件”菜单→“退出”命令【答】b。

1.3 visual basic集成的主窗口不包括a）属性窗口b）标题栏C）菜单栏d）工具栏[answer]a。

1.4下列操作可以打开立即窗口的是a）ctrl+db）ctrl+fc）ctrl+gd）ctrl+e【答】c。

二、填空题1.5与传统编程语言相比，Visual Basic最突出的特点是。

[答：]事件驱动编程机制。

1.6如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。

[答：]功能键F10或alt。

1.7建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。

【答】“工程”菜单。

三、思考问题1.8简述visualbasic的特点。

[答：]与通用编程语言相比，VB具有以下特点：（1）可视化设计平台；（2）面向对象设计方法；（3）事件驱动编程机制；（4）结构化设计语言；(5)充分利用windows资源；（6）开放数据库功能和网络支持。

1.9简述visualbasic集成开发环境的组成。

[答：]VB6 0集成开发环境不仅有标准Windows环境的标题栏、菜单栏和工具栏，还有工具箱、属性窗口、项目管理器窗口、表单设计器、即时窗口和表单布局窗口等有用的开发工具。

(1)标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化m还原、关闭按钮。

菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了vb编程的常用命令。

答案+我名字在线考试——正在答题作业提交11.表达式2\2 * 2/2 * 2 mod 2的结果是(A)0(B)25(C)5(D)12.下列自定义标识符中非法的是：(A)Me(B)My(C)third(D)fIRst3.表达式“A”Like “[A-Z]”的结果为：(A)A(B)Z(C)TRUE(D)FALSE4.表达式x >= 20 and x<= 100，其中x=37时，结果为：(A)100(B)20(C)TRUE(D)flase5.逻辑表达式1>0 and Not 2<7 or 2>6的值为(A)0(B)FALSE(C)3(D)TRUE6.表达式x /=2 ,其中x = 24，运算后x的取值为：(A)12(B)6(C)48(D)247.下列可以作为VB变量的是：(A)a(x*y)(B)学生信息(C)1xyz(D)second8.表达式x *=2 ,其中x = 25，运算后x的取值为：(A)50(B)625(C)25(D)279.表达式100 mod 12 的结果为：(A)10(B)4(C)8(D)610.下列自定义标识符中合法的是：(A)1My(B)class(C)forth(D)@home11.表达式4<< 3 的结果为：(A)8(B)4(C)32(D)1612.表达式“张三”Like “张_*”的结果为：(A)张(B)TRUE(C)FALSE(D)张三13.后缀为.vbp的文件表示VB的(A)类模块文件(B)窗体文件(C)标准类模块文件(D)工程文件14.下列变量名合法的是(A)a_2(B)a-b(C)2xy(D)float15.后缀为.bas的文件表示VB的(A)工程文件(B)窗体文件(C)类模块文件(D)标准类模块文件16.下列语句是二维数组引用的是：(A)g(2)(3)(B)g(2,3)(C)g[2,3](D)g[2][3]17.同一行中书写多个语句的间隔符号为：(A)冒号( : )(B)箭头（->）(C)小数点( . )(D)减号( - )18.表达式1 + 25\ 6 * 2 / 3 mod 4 的值是(A)1(B)0(C)3(D)219.数据关系3<x≤10表示成正确的VB表达式为(A)3<x<=10(B)3<x and x<=10(C)3<x or x<=10(D)3<x and <=1020.表达式“Windows”Like “W_*_s”的结果为：(A)indow(B)FALSE(C)Windows(D)TRUE在线考试——正在答题作业提交21.下列语句正确的是(A)x=1; y=2; z=3(B)x=1 y=2 z=3(C)x=1, y=2, z=3(D)x=1 : b=2: z=32.下列语句哪个为二维数组的定义语句：(A)dim g [2,3](B)dim g[2][3](C)dim g(2 ,3)(D)dim g(2)(3)3.设a = “Visual Basic”，下面使b=”Basic”的语句是(A)b=left(a,8,12)(B)b=mid(a,8,5)(C)b=right(a,5,5)(D)b=left(a,8,5)4.求平方根的数学函数名为：(A)Math.Abs(B)Math.Sqr(C)Math.Exp(D)Math.PI5.获取字符串子串的函数为：(A)Mid(string)(B)Istr(string1,string2)(C)Trim(string)(D)LTrim(string)6.设置窗体有可见边框及标题栏，无最小化和最大化按钮，不能调整大小，BorderStyle属性应该设置为(A)2-Sizable(B)0-None(C)1-Fixed Single(D)3-Fixed Dialog7.窗体Caption属性的含义为(A)决定窗体标题栏显示的内容(B)设置窗体的大小(C)设置窗体的边框样式(D)决定是否显示窗体的控制菜单图标8.去掉字符串前后空格的函数为：(A)Mid(string)(B)LTrim(string)(C)Istr(string1,string2)(D)Trim(string)9.获取当前系统日期和时间的函数名为：(A)Now(B)Today(C)IsDate(D)TimeOfDate10.语句format(1234.5678 , ”####.00”)的结果为：(A)1234.56”(B)1234.55(C)1234.56(D)1234.5711.下列说法正确的是(A)静态局部变量是在过程中用static语句声明的(B)局部变量的作用域仅限于声明它的过程(C)局部变量在声明它的过程执行完毕后就被释放了(D)局部变量是指那些在过程中用Dim语句或Static语句声明的变量12.隐藏窗体所需要设置的属性是(A)ShowInTaskbar(B)Enable(C)Movable(D)Visible13.文本框控件的值是哪个属性(A)Caption(B)Value(C)Index(D)Name14.获取当前系统日期的函数名为：(A)Date(B)Now(C)TimeOfDate(D)IsDate15.引用对象的属性和方法使用的符号为：(A)小数点( . )(B)减号( - )(C)箭头（->）(D)冒号( : )16.VB提供控件的窗口是(A)文本框(B)工具箱(C)工具栏(D)属性窗口17.数学表达式sin30°写成VB的表达式为(A)sin30(B)sin(30)(C)sin(30°)(D)sin(30*3.14/180)18.窗体ControlBox属性的含义为(A)设置窗体的大小(B)决定是否显示窗体的控制菜单图标(C)决定窗体标题栏显示的内容(D)设置窗体的边框样式19.下列赋值语句正确的是(A)a=2×b(B)x=y+z(C)-b=a(D)y/z=a20.语句format(123.4567,”0000.00”)的结果为：(A)“0123.45”(B)“0123.46”(C)”123.45”(D)”123.46”在线考试——正在答题作业提交31.程序代码：text1.text = “UESTC”中，Text1,Text,“UESTC”分别代表( )(A)对象，方法，属性(B)对象，值，属性(C)对象，属性，值(D)属性，对象，值2.在窗体上按下鼠标左键时产生的事件是(A)KeyDown(B)MouseMove(C)MouseUp(D)MouseDown3.在设计菜单添加菜单项时，需要添加一个分隔条，标题设置为：(A)感叹号(B)减号(C)星号(D)加号4.修改控件属性，一般可以使用属性窗口，也可以通过什么形式赋值(A)代码(B)对象(C)方法(D)命令5.窗体的Load事件的触发时机是(A)窗体被加载时(B)用户单击窗体时(C)窗体显示之后(D)窗体被卸载时6.InputBox函数返回值的类型是(A)逻辑型(B)字符串(C)整数(D)日期型7.UBOUND函数的作用是(A)获取数组的下界(B)获取数组的长度(C)获取数组的上界(D)获取数组的维度8.按照变量的作用域可将变量划分为(A)动态、常熟、静态(B)公有、私有、系统(C)全局变量、模块级变量、过程级变量(D)Public、Private、Protected9.Dim arr(15)所定义的数组元素个数是(A)17(B)15(C)16(D)1410.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是(A)代码窗口(B)工程资源管理器窗口(C)窗体设计(D)属性窗口11.控件共有的属性是(A)Name(B)Caption(C)Text(D)Autosize12.能够改变标签显示标题的属性是(A)Caption(B)Name(C)Border(D)Text13.动态数组需要以下哪个关键字重新定义(A)Private(B)ReDim(C)DIM(D)Public14.如下数组声明语句，正确的是(A)Dim a[1,1] as interger(B)Dim a(2,2) as integer(C)Dim a(n,n) as integer(D)Dim a(4 4) as integer15.如果将文本框的什么属性设置为False，则运行时不能进行文本编辑(A)TabStop(B)MultiLine(C)Enabled(D)Visible16.键盘事件的执行顺序是(A)KeyPress,KeyDown,KeyUp(B)KeyDown,KeyPress,KeyUp(C)KeyUp,KeyDown,KeyPress(D)KeyUp,KeyPress,KeyDown17.下列语句不正确的是(A)使用ReDim语句可以改变数组的每一维的大小(B)使用ReDim语句可以改变数组的类型(C)使用ReDim语句可以对数组的所有元素进行初始化(D)使用ReDim语句可以改变数组的维数18.当运行程序时，系统自动执行启动窗体的(A)Load事件过程(B)Click事件过程(C)GotFocus事件过程(D)Unload事件过程19.如果想让文本框中的内容在运行时不能编辑，需设置文本框的属性是(A)MultiLine(B)Tabstop(C)Enabled(D)Visible20.msgbox函数的返回值类型是(A)日期型(B)字符串(C)逻辑型(D)MsgBoxResult。

答案+我名字在线考试——正在答题作业提交11.表达式2\2 * 2/2 * 2 mod 2的结果是(A) 0(B) 25(C) 5(D) 12.下列自定义标识符中非法的是：(A) Me(B) My(C) third(D) fIRst3.表达式“A”Like “[A-Z]”的结果为：(A) A(B) Z(C) TRUE(D) FALSE4.表达式x >= 20 and x<= 100，其中x=37时，结果为：(A) 100(B) 20(C) TRUE(D) flase5.逻辑表达式1>0 and Not 2<7 or 2>6的值为(A) 0(B) FALSE(C) 3(D) TRUE6.表达式x /=2 ,其中x = 24，运算后x的取值为：(A) 12(B) 6(C) 48(D) 247.下列可以作为VB变量的是：(A) a(x*y)(B) 学生信息(C) 1xyz(D) second8.表达式x *=2 ,其中x = 25，运算后x的取值为：(A) 50(B) 625(C) 25(D) 279.表达式100 mod 12 的结果为：(A) 10(B) 4(C) 8(D) 610.下列自定义标识符中合法的是：(A) 1My(B) class(C) forth(D) @home11.表达式4<< 3 的结果为：(A) 8(B) 4(C) 32(D) 1612.表达式“张三”Like “张_*”的结果为：(A) 张(B) TRUE(C) FALSE(D) 张三13.后缀为.vbp的文件表示VB的(A) 类模块文件(B) 窗体文件(C) 标准类模块文件(D) 工程文件14.下列变量名合法的是(A) a_2(B) a-b(C) 2xy(D) float15.后缀为.bas的文件表示VB的(A) 工程文件(B) 窗体文件(C) 类模块文件(D) 标准类模块文件16.下列语句是二维数组引用的是：(A) g(2)(3)(B) g(2,3)(C) g[2,3](D) g[2][3]17.同一行中书写多个语句的间隔符号为：(A) 冒号( : )(B) 箭头（->）(C) 小数点( . )(D) 减号( - )18.表达式1 + 25\ 6 * 2 / 3 mod 4 的值是(A) 1(B) 0(C) 3(D) 219.数据关系3<x≤10表示成正确的VB表达式为(A) 3<x<=10(B) 3<x and x<=10(C) 3<x or x<=10(D) 3<x and <=1020.表达式“Windows”Like “W_*_s”的结果为：(A) indow(B) FALSE(C) Windows(D) TRUE在线考试——正在答题作业提交21.下列语句正确的是(A) x=1; y=2; z=3(B) x=1 y=2 z=3(C) x=1, y=2, z=3(D) x=1 : b=2: z=32.下列语句哪个为二维数组的定义语句：(A) dim g [2,3](B) dim g[2][3](C) dim g(2 ,3)(D) dim g(2)(3)3.设a = “Visual Basic”，下面使b=”Basic”的语句是(A) b=left(a,8,12)(B) b=mid(a,8,5)(C) b=right(a,5,5)(D) b=left(a,8,5)4.求平方根的数学函数名为：(A) Math.Abs(B) Math.Sqr(C) Math.Exp(D) Math.PI5.获取字符串子串的函数为：(A) Mid(string)(B) Istr(string1,string2)(C) Trim(string)(D) LTrim(string)6.设置窗体有可见边框及标题栏，无最小化和最大化按钮，不能调整大小，BorderStyle属性应该设置为(A) 2-Sizable(B) 0-None(C) 1-Fixed Single(D) 3-Fixed Dialog7.窗体Caption属性的含义为(A) 决定窗体标题栏显示的内容(B) 设置窗体的大小(C) 设置窗体的边框样式(D) 决定是否显示窗体的控制菜单图标8.去掉字符串前后空格的函数为：(A) Mid(string)(B) LTrim(string)(C) Istr(string1,string2)(D) Trim(string)9.获取当前系统日期和时间的函数名为：(A) Now(B) Today(C) IsDate(D) TimeOfDate10.语句format(1234.5678 , ”####.00”)的结果为：(A) 1234.56”(B) 1234.55(C) 1234.56(D) 1234.5711.下列说法正确的是(A) 静态局部变量是在过程中用static语句声明的(B) 局部变量的作用域仅限于声明它的过程(C) 局部变量在声明它的过程执行完毕后就被释放了(D) 局部变量是指那些在过程中用Dim语句或Static语句声明的变量12.隐藏窗体所需要设置的属性是(A) ShowInT askbar(B) Enable(C) Movable(D) Visible13.文本框控件的值是哪个属性(A) Caption(B) Value(C) Index(D) Name14.获取当前系统日期的函数名为：(A) Date(B) Now(C) TimeOfDate(D) IsDate15.引用对象的属性和方法使用的符号为：(A) 小数点( . )(B) 减号( - )(C) 箭头（->）(D) 冒号( : )16.VB提供控件的窗口是(A) 文本框(B) 工具箱(C) 工具栏(D) 属性窗口17.数学表达式sin30°写成VB的表达式为(A) sin30(B) sin(30)(C) sin(30°)(D) sin(30*3.14/180)18.窗体ControlBox属性的含义为(A) 设置窗体的大小(B) 决定是否显示窗体的控制菜单图标(C) 决定窗体标题栏显示的内容(D) 设置窗体的边框样式19.下列赋值语句正确的是(A) a=2×b(B) x=y+z(C) -b=a(D) y/z=a20.语句format(123.4567,”0000.00”)的结果为：(A) “0123.45”(B) “0123.46”(C) ”123.45”(D) ”123.46”在线考试——正在答题作业提交31.程序代码：text1.text = “UESTC”中，Text1,Text,“UESTC”分别代表( )(A) 对象，方法，属性(B) 对象，值，属性(C) 对象，属性，值(D) 属性，对象，值2.在窗体上按下鼠标左键时产生的事件是(A) KeyDown(B) MouseMove(C) MouseUp(D) MouseDown3.在设计菜单添加菜单项时，需要添加一个分隔条，标题设置为：(A) 感叹号(B) 减号(C) 星号(D) 加号4.修改控件属性，一般可以使用属性窗口，也可以通过什么形式赋值(A) 代码(B) 对象(C) 方法(D) 命令5.窗体的Load事件的触发时机是(A) 窗体被加载时(B) 用户单击窗体时(C) 窗体显示之后(D) 窗体被卸载时6.InputBox函数返回值的类型是(A) 逻辑型(B) 字符串(C) 整数(D) 日期型7.UBOUND函数的作用是(A) 获取数组的下界(B) 获取数组的长度(C) 获取数组的上界(D) 获取数组的维度8.按照变量的作用域可将变量划分为(A) 动态、常熟、静态(B) 公有、私有、系统(C) 全局变量、模块级变量、过程级变量(D) Public、Private、Protected9.Dim arr(15)所定义的数组元素个数是(A) 17(B) 15(C) 16(D) 1410.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是(A) 代码窗口(B) 工程资源管理器窗口(C) 窗体设计(D) 属性窗口11.控件共有的属性是(A) Name(B) Caption(C) Text(D) Autosize12.能够改变标签显示标题的属性是(A) Caption(B) Name(C) Border(D) Text13.动态数组需要以下哪个关键字重新定义(A) Private(B) ReDim(C) DIM(D) Public14.如下数组声明语句，正确的是(A) Dim a[1,1] as interger(B) Dim a(2,2) as integer(C) Dim a(n,n) as integer(D) Dim a(4 4) as integer15.如果将文本框的什么属性设置为False，则运行时不能进行文本编辑(A) TabStop(B) MultiLine(C) Enabled(D) Visible16.键盘事件的执行顺序是(A) KeyPress,KeyDown,KeyUp(B) KeyDown,KeyPress,KeyUp(C) KeyUp,KeyDown,KeyPress(D) KeyUp,KeyPress,KeyDown17.下列语句不正确的是(A) 使用ReDim语句可以改变数组的每一维的大小(B) 使用ReDim语句可以改变数组的类型(C) 使用ReDim语句可以对数组的所有元素进行初始化(D) 使用ReDim语句可以改变数组的维数18.当运行程序时，系统自动执行启动窗体的(A) Load事件过程(B) Click事件过程(C) GotFocus事件过程(D) Unload事件过程19.如果想让文本框中的内容在运行时不能编辑，需设置文本框的属性是(A) MultiLine(B) Tabstop(C) Enabled(D) Visible20.msgbox函数的返回值类型是(A) 日期型(B) 字符串(C) 逻辑型(D) MsgBoxResult。

西电《V程序设计》在线作业一、单选题（共 25 道试题，共 100 分。

）1. 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为ommn1的命令按钮。

窗体Form1的程序代码如下： Privt Su ommn1_lik() im s Intgr =10 ll g(Form2,) n Su Privt Su g(f s Form,x s Intgr) y=IIf(x>10,100,-100) f,Show f.ption=y n Su 运行以上程序，正确的结果是. Form1的ption属性值为100. Form2的ption属性值为-100. Form1的ption属性值为-100. Form2的ption属性值为100正确答案：2. 在窗体上画一个名称为Fil1的文件列表框，并编写如下程序： Privt Su Fil1_llik() x=Shll(Fil1.FilNm,1) n Su 以下关于该程序的叙述中，错误的是(). 13. 14. 27. 16正确答案：3. Su过程与Funtion过程最根本的区别是()。

. Su过程可以使用ll语句或直接使用过程名调用，而Funtion过程不可以。

. Funtion过程可以有参数，Su过程不可以。

. 两种过程参数的传递方式不同。

. Su过程的过程名不能返回值，而Funtion过程能够通过过程名返回值。

正确答案：4. 以下叙述中错误的是(). 在KyPrss事件过程中不能识别键盘的按下与释放. 在KyPrss事件过程中不能识别回车键. 在Kyown和KyUp事件过程中，将键盘输入的""和""视作相同的字母. 在Kyown和KyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符正确答案：5. 若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是(). kolor. orrStyl. Forolor. kStyl正确答案：6. 以下能在窗体Form1的标题栏中显示“Visulsi窗体"的语句是(). Form1.Nm="Visulsi窗体". Form1.Titl="Visulsi窗体". Form1.ption="Visulsi窗体". Form1.Txt="Visulsi窗体”正确答案：7. 选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为() . T>=1.7 n W<=62.5. T<=1.7 Or W>=62.5. T>1.7 n W<62.5. T>=1.7 Or W<62.5正确答案：8. 以下关于多重窗体程序的叙述中，错误的是(). 用Hi方法不但可以隐藏窗体，而且能清除内存中的窗体. 在多重窗体程序中，各窗体的菜单是彼此独立的. 在多重窗体程序中，可以根据需要指定启动窗体. 对于多重窗体程序中，而且单独保存每个窗体正确答案：9. 以下关于Msgox的叙述中，错误的是(). Msgox函数返回一个整数. 通过Msgox函数可以设置信息框中图标和按钮的类型. Msgox语句没有返回值. Msgox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量正确答案：10. 当对被选择的控件进行对齐、调整大小等操作时，将以()为准。

电子科大20春《VB程序设计》在线作业3试卷总分:100 得分:100一、单选题(共20 道试题,共100 分)1.将命令按钮设为默认命令按钮，应设置为True的属性是（）。

A.ValueB.EnabledC.DefaultD.Cancel答案:C2.DataCombo控件的RowSource属性是表示（）。

A.给DataComebo控件提供列表项的字段B.给DataCombo控件提供列表项的数据源C.目的表的数据源D.更新目的表的字段答案:B3.在下列动作中，不能引发命令按钮Click事件的是（）。

A.把焦点转移到按钮上，然后按回车B.如果按钮有快捷字母键，按Alt+快捷字母键C.在按钮上单击鼠标左键D.在按钮上单击鼠标右键答案:D4.以下关于焦点的叙述中，错误的是（）。

A.当文本框的Enabled属性为False时，其Tab顺序不起作用B.当文本框失去焦点时，触发LostFocus事件C.如果文本框的TabStop属性为False，则不能接收从键盘输入的数据D.可以用TabIndex属性改变Tab顺序答案:C5.可以与ADO数据控件绑定的控件必须具有（）属性。

A.RecordSourceB.DataSourceC.ConnectionstringD.Caption答案:B6.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2,4,6 x = 20 Case Is<10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（）。

电子科技大学2022 年9 月《VB 程序设计》作业考核试题及答案参考1. 设 a=“Visual Basic”，下面使b=“Basic”的语句是( )。

A.“b=Left(a，8，12)”B.“b=Mid(a，8，5)”C.“b=Rigth(a，5，5)”D.“b=Left(a，8，5)”参考答案： B2. C 语言中表达式 a＋＋＋＋＋＋＋＝1，词法分析后，能识别出的单词个数是_______。

A．10B．9C．7D．6C 语言中表达式 a＋＋＋＋＋＋＋＝1，词法分析后，能识别出的单词个数是_______。

A．10B．9C．7D．6正确答案： D尽管这个表达式在 C 语言的语法上看是错误的，但在词法分析阶段只进行单词识别，不会判读语法是否正确，所以识别出 6 个单词，分别是 a、＋＋、＋＋、＋＋、＋＝和 1。

3. 编译程序的执行效率与速度不如直译程序高。

( )编译程序的执行效率与速度不如直译程序高。

( )错误4. 已知 AX=003AH。

请根据 AX 值用指令实现： BL=03H，BH=0AH，CX=03H+0AH，DX=2×3AH，SI=0A3H，DI=0A03H。

已知 AX=003AH。

请根据 AX 值用指令实现： BL=03H，BH=0AH，CX=03H+0AH，DX=2×3AH，SI=0A3H，DI=0A03H。

MOV BX,AX :BX=003AHMOV DX,AX ;DX=003AHSHL DX,1 ;DX=2×3AHMOV CL,4ROR AL,CL ;AL=A3HMOV SL,AX :SI-00A3HROR BX,CL ;BX=A003H,BL=03HSHR MOV BH,CLCH,00H;BH=0AHMOV CL,BL ;CX=0003HADD CL,BH ;CX=03H+0AH5. 在水平标尺上______，标尺相应位置设置特殊制表符。

A) 单击鼠标左键 B) 单击鼠标右键 C) 双击鼠标左键 D在水平标尺上______，标尺相应位置设置特殊制表符。

《VB程序设计》作业参考答案一．选择题1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－72BB二．填空题(1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And(6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random（11）事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text(16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr（21）Output ；Write #1,StuNo,StuName,StuEng三．编程题1.Option Base 1Private Sub Form_click()Dim a(3) As Integer, m As IntegerDo While m <> -1 And i < 3m = InputBox("请输入第" & i + 1 & "条边")i = i + 1a(i) = mIf a(i) < 0 ThenMsgBox "输入错误，请重新输入！"i = i - 1End IfLoopIf a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Thens = (a(1) + a(2) + a(3)) / 2s = Sqr(s * (s - a(1)) * (s - a(2)) * (s - a(3)))Print "三角形的面积是"; sElseMsgBox "三条边不能构成三角形！"EndEnd IfEnd Sub2.Option Base 1Private Sub Form_click()Dim a, ba = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)Dim c(8)For i = 1 To 8c(i) = a(i) + b(i)Print c(i);Next iEnd Sub3.Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print spc(3); Chr$(KeyCode); spc(3); Hex$(KeyCode); spc(3); Oct$(KeyCode); spc(3); KeyCode End SubPrivate Sub Form_Load()PrintShowPrint spc(3); "按键"; spc(3); "16进制"; spc(3); "8进制"; spc(3); "10进制"PrintEnd Sub4.Dim a(3) As Long, s As Long, p As Long '通用-声明Sub Su(n As Long) '通用subp = 1For i = 1 To np = p * iNext iEnd SubFunction F(n As Long) As Long '通用Functionp = 1For i = 1 To np = p * iNext iF = pEnd FunctionPrivate Sub Command1_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")Call Su(a(i))s = s + pNext iPrint "用Sub过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; s End SubPrivate Sub Command2_Click()s = 0For i = 1 To 3a(i) = InputBox("请输入第" & i & " 个数的值:")s = s + F(a(i))Next iPrint "用Function过程求得"; a(1); "! +"; a(2); "! +"; a(3); "! ="; s End SubPrivate Sub Command3_Click()EndEnd Sub。

vb程序设计课后习题答案VB程序设计课后习题答案在学习VB程序设计课程的过程中，课后习题是巩固知识、提高能力的重要环节。

通过认真完成课后习题，我们不仅可以加深对知识点的理解，还可以提高编程能力和解决问题的能力。

下面我将为大家分享一些VB程序设计课后习题的答案，希望能够对大家的学习有所帮助。

1. 编写一个VB程序，实现输入两个数，计算它们的和并输出。

```Private Sub btnCalculate_Click()Dim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2lblResult.Caption = "结果为：" & sumEnd Sub```2. 编写一个VB程序，实现输入一个数，判断它是奇数还是偶数并输出。

Private Sub btnJudge_Click()Dim num As Integernum = Val(txtNum.Text)If num Mod 2 = 0 ThenlblResult.Caption = "这是一个偶数"ElselblResult.Caption = "这是一个奇数"End IfEnd Sub```3. 编写一个VB程序，实现输入一个数，计算它的阶乘并输出。

```Private Sub btnFactorial_Click()Dim num As IntegerDim result As IntegerDim i As Integernum = Val(txtNum.Text)result = 1For i = 1 To numresult = result * iNextlblResult.Caption = "结果为：" & resultEnd Sub```通过以上几个例子，我们可以看到，VB程序设计课后习题涵盖了基本的输入输出、运算符的使用、条件判断和循环等知识点。