电大Visual Basic程序设计作业答案
- 格式：pdf
- 大小：255.51 KB
- 文档页数：15
文档推荐
-
VisualBasic程序设计_0004页数:5
-
8966 VisualBasic程序设计页数:150
-
VisualBasic程序设计作业题解页数:29
下载文档原格式
合集下载
国开电大形考作业答案-Visual Basic程序设计-形考作业3
形成性考核作业三（2022秋）1. 1.如果创建了命令按钮数组控件，那么Click事件的参数是（）。
单选题 (3 分) 3分1. A.Index2. B.Caption3. C.Tag4. D.没有参数正确答案: A2. 2.按照变量的作用域可将变量划分为（）。
单选题 (3 分) 3分1. A.公有、私有、系统2. B.全局变量、模块级变量、过程级变量3. C.动态、常态、静态4. D.Public、Private、Protected正确答案: B3. 3.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）。
单选题 (3 分) 3分1. A.MenuItem.Enabled=False2. B.MenuItem.Enabled=True3. C.MenuItem.Visible=True4. D.Menultem.Visible=False正确答案: A4. 4.为了使目录路径列表Dir1的内容符合驱动器列表框Drive1的选择，应当（）。
单选题 (3 分) 3分1. A.在Dir1_Click事件中加入Dir1.Path=Drive1.Drive2. B.在Drive1_Click事件中加入Dir1.Path=Drive1.Drive3. C.在Dir1_Click事件中加入Drive1.Path=.Drive.Path4. D.在Dir1_Click事件中加入Drive1.Path=.Dir1.Path正确答案: B5. 5.当拖动滚动条中的滚动块时，将触发滚动条事件是（）。
单选题 (3 分) 3分1. A.Move2. B.Change3. C.Scroll4. D.正确答案: C6. 6.使用（）方法可以向列表框中添加项目。
单选题 (3 分) 3分1. A.AddItem2. B.Clear3. C.RemoveItem4. D.SetFocus正确答案: A7.7.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。
国家开放大学《VisualBasic程序设计》形考作业1-4参考答案
国家开放大学《VisualBasic程序设计》形考作业参考答案形考作业11.一个VB应用程序可以包含几个vbp文件( )a. 2个b. 可以没有c. 1个d. 不受限制2.有以下程序代码Text1.Text="Visual Basic程序设计",则Text1，Text ，和"Visual Basic程序设计"分别代表( )a. 对象，值，属性b. 对象，方法，属性c. 属性，对象，值d. 对象，属性，值3.启动VB后，就意味着要建立一个新的( )a. 窗体b. 程序c. 文件d. 工程4.后缀为.bas的文件表示( )a. 类模块文件b. 标准类模块文件c. 窗体二进制数据文件d. 窗体文件5.当一个工程中含有多个窗体时，其中的启动窗体是( )a. 在“工程属性”对话框中指定的窗体b. 启动VB时创建的第一个窗体c. 第一个添加的窗体d. 最后一个添加的窗体6.在文本框控件中将Text的内容全部显示为所定义的字符的属性是( )a. 需要编程来实现b. Passwordc. PasswordChard. 以上都不是7.Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是( )a. 从主程序开始执行b. 按过程顺序执行c. 按模块顺序执行d. 事件驱动8.下列四项中合法的变量名是( )a. a/bcb. 4abcc. abcd. integer9.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是( )a. 该可执行文件有病毒b. 以上原因都不对c. 缺少.frm窗体文件d. 运行的机器上无VB系统10.无论何种控件，共同具有的属性是( )a. Enabledb. ForeColorc. Textd. Caption11.以下控件具有Caption属性的分别是（）a. TextBoxb. %33.333 %Labelc. CheckBoxd. CommandButton12.关于标签控件的使用，以下叙述中正确的是：（）a. 标签中显示的文本内容是可以改变的b. 当标签控件中显示的文本内容发生变化时触发Change事件c. 可以通过程序指令改变标签控件在窗口中的位置d. 标签控件在窗口中的位置一旦设定就不能更改13.以下VB文件名中，后缀不是.bas的文件分别有（）a. 窗体二进制数据文件b. 类模块文件c. 窗体文件d. 标准类模块文件14.对表达式16/4-2^5*8/4MOD5\2计算错误的结果分别是（）a. 20b. 2c. 4d. 1415.当一个工程中含有多个窗体时，以下哪些窗体可以不是启动窗体（）a. 最后一个添加的窗体b. 在“工程属性”对话框中指定的窗体c. 第一个添加的窗体d. 启动VB时创建的第一个窗体16.如果要求图像框Image控件不要自动适应其中的图形大小，应（）a. 将控件的Stretche属性设为Trueb. 将控件的AutoSize属性设为Truec. 将控件的AutoSize属性设为Falsed. 将控件的Stretche属性设为False17.以下属于标签控件Appearance属性的属性值有：（）a. Trueb. Flatc. Falsed. 3D18.文本框控件的ScrollBar属性设置，可以有以下不同的值（）a. verticalb. Horizontalc. Noned. Both19.文本框控件的Enabled属性的作用，是用于决定其（）a. 在程序运行时是否能够可见b. 在程序运行时是否能够显示用户输出的数据c. 在程序运行时是否能够响应用户生成的事件d. 在程序运行时是否能够接收用户输入的数据20.标签控件的Alignment属性，用来设置标签文本的对齐方式，可以有以下不同的属性值（）a. 居中对齐b. 右对齐c. 低端对齐d. 左对其21.在VB程序设计中，如果仅仅需要让应用程序在窗体中显示文本信息，可以使用（Label）控件。
Visual Basic程序设计作业参考答案
10
窗体
作业2
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
C
B
D
A
B
D
A
A
D
A
二、填空题:
题号
参考答案
1
对象列表框，属性显示排列方式，属性列表框，属性说明框
2
Text1.text=”Hello”
3
标准控件ActiveX控件
4
Top Left Width Height
5
Shift
6
Shift＋ctrl
7
《Visual Basic程序设计》作业参考答案
作业1
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
B
C
D
A
C
B
A
D
C
B
二、填空题:
题号
参考答案
1
学习版专业版企业版
2
通过“开始菜单”中的“程序”命令
通过“开始”菜单中的“运行”命令
3
文件 退出
4
ALT＋Q
5
13
6
7
8
.vbp,.frm
9
标准菜单 功能菜单
3
Path。
三、实训：（略）
作业12
一、选择题：
1
2
C
D
二、实训：（略）
作业13、作业14、作业15、作业16（略）
5
运行（执行）
6
1
作业5答案
窗体
作业2
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
C
B
D
A
B
D
A
A
D
A
二、填空题:
题号
参考答案
1
对象列表框，属性显示排列方式，属性列表框，属性说明框
2
Text1.text=”Hello”
3
标准控件ActiveX控件
4
Top Left Width Height
5
Shift
6
Shift＋ctrl
7
《Visual Basic程序设计》作业参考答案
作业1
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
B
C
D
A
C
B
A
D
C
B
二、填空题:
题号
参考答案
1
学习版专业版企业版
2
通过“开始菜单”中的“程序”命令
通过“开始”菜单中的“运行”命令
3
文件 退出
4
ALT＋Q
5
13
6
7
8
.vbp,.frm
9
标准菜单 功能菜单
3
Path。
三、实训：（略）
作业12
一、选择题：
1
2
C
D
二、实训：（略）
作业13、作业14、作业15、作业16（略）
5
运行（执行）
6
1
作业5答案
2023年电大省考VisualBasic程序设计形考答案资料
Visual Basic程序设计_0001一、单项选择题（共10 道试题，共40 分。
）1. 一种VB应用程序可以包括几种vbp文献？（）A. 1个B. 可以没有C. 2个D. 可以包括多种2. 下列（）对象在运行时一定是不可见旳。
A. LineB. TimerC. ShapeD. Frame3. 假如Winsock1.LocalPort=0，那么应用程序将使用（）。
A. 注册端口B. 公认端口C. 常用端口D. 随机端口4. 假如要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框旳（）属性。
A. CaptionB. PasswordCharC. TextD. Char5. 要使图片框自动地与窗体右对齐，应当设置它旳（）属性。
A. AlignB. AutoSizeC. LeftD. Width6. 要在窗体旳标题栏中显示“我旳第一种应用程序”，使用旳语句是（）。
A. Form1.Print"我旳第一种应用程序"B. Form.Print"我旳第一种应用程序"C. Form.caption="我旳第一种应用程序"D. Form1.caption="我旳第一种应用程序"7. 体现式7+10 Mod 3*2+2（）。
A. 1B. 7C. 6D. 138. 在VB程序旳如下几种错误中，最具隐藏性和破坏性旳是（）。
A. 运行时错误B. 编译错误C. 逻辑错误D. 实时错误9. 按照变量旳作用域可将变量划分为（）。
A. 公有、私有、系统B. 动态、常数、静态C. 全局变量、模块级变量、过程级变量D. Public、 Private、 Protected10. 无论何种控件，共同具有旳属性是（）。
A. TextB. NameC. CaptionD. ForeColor二、判断题（共10 道试题，共40 分。
）1. 通过VB编译生成旳文献具有“.exe”文献扩展名，该文献只能在VB环境下执行。
2060电大《visualbasic程序设计》期末综合练习一及答案.doc
: 合练(69)【Visual Basic程序设计】期末综合练习一及答案Visual Basic程序设计期末综合练习一2012 年6 月7 H一、单项选择题（将正确答案填在括号内）1.后缀为.fm的文件表示（）。
A.类模块文件B.窗体文件C.标准类模块文件D.窗体二进制数据文件2.窗体的Load事件的触发时机是（）。
A.用户单击窗体时B・窗体被加载时C.窗体显示之后D.窗体被卸载时3.与传统的程序设计语言相比，Visual Basic授突出的特点是）。
A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术4.无论何种控件，共同具有的属性是( )oA. Text属性B. Caption 属性C. Name属性D. Autosize 属性5.有程序代码如下：Textl .Text =" VB简单易学，功能强大”则Textl > Text、和” VB简单易学，功能强大”分别代表()oA.对象，值，属性B.对象，属性，值C.对彖，方法，属性D.属性，对彖，值6.刚建立一个新的标准EXE 工程后，不在工具箱中出现的控件是（）。
A.单选按纽B.图片框C.框架D.通用对话框7.如果要在文本框中键入字符吋，只显示某个字符，如星号（* ）,应设置文本框的（）属性。
A . CaptionB . PasswordChar C. TextD. Char8.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是（）。
A.Text.MytextB. Mytext.TextC. Mytext.（Text）D. Mytext*Text9.将数据项"China"添加到列表框Listl中成为第一项，应使用的语句是（）。
A . List 1. AddItem''China'',0B.Listl.AddItem,,China,\lListl.AddItem,,China,\A. SINA > HelpD 、FlB 、 F10C 、 Esc14.以下可以作为Visual Basic 变量名的是（)oC- COS ( X)D. X ( -1 )15.不属于VB 数据库引擎的是（ ）o A. ODBCB. Jet 引擎D. Listl.Addltem^l,China"10. 要在窗体的标题栏内显示”欢迎您！ ”，使用的语句是（）。
最新电大《VisualBasic程序设计》形考作业任务01考试题及答案
最新电大《VisualBasic程序设计》形考作业任务01考试题及答案最新电大《VisualBasic程序设计》形考作业任务01-06网考试题及答案100%通过考试说明：《VisualBasic程序设计》形考共有6个任务。
任务1至任务2是客观题，其它为主观题。
任务1至任务6需在考试中多次抽取试卷，直到出现01任务_0001、02任务_0001、03任务_0001、04任务_0004、05任务_0001、06任务_0001试卷，就可以按照该套试卷答案答题。
做考题时，利用本文档中的查找工具，把考题中的关键字输到查找工具的查找内容框内，就可迅速查找到该题答案。
本文库还有其他教学考一体化答案，敬请查看。
01任务01任务_0001 一、单项选择题（共25道试题，共50分。
）1.启动VB后，就意味着要建立一个新（）。
A.窗体B.程序C.文件D.工程2.应用程序打包后，其包文件的后缀为（）。
A..exeB..cabC..txtD..ocx 3.当一个工程中含有多个窗体时，其中的启动窗体是（）。
A.启动VB时创建的第一个窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体 4.下列说法中错误的是（）。
A.应用程序的界面是窗体B.应用程序的界面是对象C.每个应用程序都要生成一个工程D.一个应用程序由若干个VisualBasic文件组成5.每建立一个窗体，工程管理器窗口中就会增加一个（）。
A.工程文件B.窗体文件C.标准模块文件D.类模块文件 6.当运行程序时，系统自动执行启动窗体的（）事件过程。
A.LoadB.ClickC.UnloadD.GotFocus 7.VB集成开发环境中，提供控件的窗口是（）。
A.工具栏B.工具箱C.属性窗口D.工程管理器8.确定一个窗体或控件的大小的属性是（）。
A.Top或LoftB.Top和LoftC.Width或HeightD.Width和Height 9.下列关于窗体的说法不正确的是（）。
VisualBasic程序设计-国家开放大学电大学习网形考作业题目答案
VisualBasic程序设计【实操题】按要求将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
一、形考任务1.请同学选择【第1章】-【实战演练】“实验1 欢迎程序”或【第2章】-【实战演练】“实验2 计时秒表程序”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
2.请同学选择课程【第3章】-【实战演练】“实验3 冒泡排序程序”，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
3.请同学选择课程【第4章】-【实战演练】“实验4 菜单设计”或【第5章】-【实战演练】“实验5鼠标MouseMove事件应用”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
4.请同学选择课程【第6章】-【实战演练】“实验6 word文件显示程序”或【第7章】-【实战演练】“实验7 绘制图形程序”或【第8章】-【实战演练】“实验8 网络下载程序”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
5.请同学选择课程【第9章】-【实战演练】“实验9 进销存管理信息系统”，在VB集成开发环境中认真完成实验。
《Visual Basic程序设计》习题参考答案
一、选择题1.A2.D3.D4.A二、填空题1.windows2.学习版、专业版、企业版，企业版3.height、width4.Dblchick5.shift、ctrl6.红第2章一、选择题1.D2.B3.A4.B5.D二、填空题1.对象框、属性显示方式、属性列表、属性解释2.Text1.text=”Hello”3.标准控件、Active控件、可插入对象4.用鼠标单击窗口的任何部位、执行“视图”菜单中的“属性窗口”命令、按F4键、按组合键Ctrl+PgDn或Ctrl+PgUp5.shift或ctrl一、选择题1.B2.C3.A4.A5.C二、填空题1.const2.string*153.过程4.！5.通用第4章一、选择题1.B2.C3.A4.B5.B二、填空题1.-562.5、10、2003、63.””、# #4.12345.68一、选择题1.C2.A3.C4.C二、填空题1. 572. 002.45、2.449、24.49E-01、-2.4495第6章一、选择题1.B2.C二、填空题1.AutoSize2.0、03.Picture三、编程题1.略2.略第7章一、略二、2、721、略2、略3、略4、略第9章1、略2、略3、略第10章一、选择题1.C2.A二、填空题1.左键、右键、中键2.MousePointer、99、MouseIcon一、选择题1.B2.D3.D4.C二、填空题1.菜单项属性区、编辑区、菜单项显示区2.43.Unload4.IniDir、FileName三、编程题略第12章一、选择题1.B2.C二、填空题1. MDIChild、True2.QueryUnload3.Arrange一、编程题1.略2.略3.略4.略5.略6.略。
《Visual_Basic程序设计》试题及其答案
《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言，广泛应用于图形用户界面(GUI)的开发。
下面是一套Visual_Basic程序设计的试题，以及详细的答案解析。
一、概念题（共10题，每题2分，共20分）1. 什么是Visual_Basic程序设计？答案：Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE)，用于Windows平台的程序开发和编程。
2. Visual_Basic程序设计的特点是什么？答案：Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。
3. 什么是控件？答案：控件是Visual_Basic程序设计中用于构建用户界面的基本元素，如按钮、文本框、标签等。
4. Visual_Basic程序中的数据类型有哪些？答案：Visual_Basic支持多种数据类型，包括整数、浮点数、字符串、布尔值等。
5. 什么是条件结构？答案：条件结构是一种根据不同条件执行不同操作的程序结构，如If语句和Select Case语句。
6. 什么是循环结构？答案：循环结构是一种重复执行特定操作的程序结构，如For循环和While循环。
7. 什么是函数？答案：函数是一段可重复调用的代码，通常用于实现特定功能，并可以返回结果。
8. 如何定义和调用函数？答案：在Visual_Basic中，可以使用Function关键字定义函数，并使用函数名调用函数。
9. 什么是异常处理？答案：异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制，以保证程序的稳定性。
10. Visual_Basic程序如何进行调试？答案：Visual_Basic提供了丰富的调试工具，包括断点调试、单步调试等，以帮助程序员发现和解决问题。
二、编程题（共2题，每题40分，共80分）题目一：设计一个Visual_Basic程序，实现计算器的基本功能。
国家开放大学《VisualBasic程序设计》形考作业1-4参考答案
国家开放大学《VisualBasic程序设计》形考作业参考答案形考作业11.一个VB应用程序可以包含几个vbp文件( )a. 2个b. 可以没有c. 1个d. 不受限制2.有以下程序代码Text1.Text="Visual Basic程序设计",则Text1，Text ，和"Visual Basic程序设计"分别代表( )a. 对象，值，属性b. 对象，方法，属性c. 属性，对象，值d. 对象，属性，值3.启动VB后，就意味着要建立一个新的( )a. 窗体b. 程序c. 文件d. 工程4.后缀为.bas的文件表示( )a. 类模块文件b. 标准类模块文件c. 窗体二进制数据文件d. 窗体文件5.当一个工程中含有多个窗体时，其中的启动窗体是( )a. 在“工程属性”对话框中指定的窗体b. 启动VB时创建的第一个窗体c. 第一个添加的窗体d. 最后一个添加的窗体6.在文本框控件中将Text的内容全部显示为所定义的字符的属性是( )a. 需要编程来实现b. Passwordc. PasswordChard. 以上都不是7.Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是( )a. 从主程序开始执行b. 按过程顺序执行c. 按模块顺序执行d. 事件驱动8.下列四项中合法的变量名是( )a. a/bcb. 4abcc. abcd. integer9.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是( )a. 该可执行文件有病毒b. 以上原因都不对c. 缺少.frm窗体文件d. 运行的机器上无VB系统10.无论何种控件，共同具有的属性是( )a. Enabledb. ForeColorc. Textd. Caption11.以下控件具有Caption属性的分别是（）a. TextBoxb. %33.333 %Labelc. CheckBoxd. CommandButton12.关于标签控件的使用，以下叙述中正确的是：（）a. 标签中显示的文本内容是可以改变的b. 当标签控件中显示的文本内容发生变化时触发Change事件c. 可以通过程序指令改变标签控件在窗口中的位置d. 标签控件在窗口中的位置一旦设定就不能更改13.以下VB文件名中，后缀不是.bas的文件分别有（）a. 窗体二进制数据文件b. 类模块文件c. 窗体文件d. 标准类模块文件14.对表达式16/4-2^5*8/4MOD5\2计算错误的结果分别是（）a. 20b. 2c. 4d. 1415.当一个工程中含有多个窗体时，以下哪些窗体可以不是启动窗体（）a. 最后一个添加的窗体b. 在“工程属性”对话框中指定的窗体c. 第一个添加的窗体d. 启动VB时创建的第一个窗体16.如果要求图像框Image控件不要自动适应其中的图形大小，应（）a. 将控件的Stretche属性设为Trueb. 将控件的AutoSize属性设为Truec. 将控件的AutoSize属性设为Falsed. 将控件的Stretche属性设为False17.以下属于标签控件Appearance属性的属性值有：（）a. Trueb. Flatc. Falsed. 3D18.文本框控件的ScrollBar属性设置，可以有以下不同的值（）a. verticalb. Horizontalc. Noned. Both19.文本框控件的Enabled属性的作用，是用于决定其（）a. 在程序运行时是否能够可见b. 在程序运行时是否能够显示用户输出的数据c. 在程序运行时是否能够响应用户生成的事件d. 在程序运行时是否能够接收用户输入的数据20.标签控件的Alignment属性，用来设置标签文本的对齐方式，可以有以下不同的属性值（）a. 居中对齐b. 右对齐c. 低端对齐d. 左对其21.在VB程序设计中，如果仅仅需要让应用程序在窗体中显示文本信息，可以使用（Label）控件。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic 程序设计作业 1
一、选择题 1． D 2． B 3． C 4． C 5． B 6． D 7． A 8． B 9． A 10． C 14．D 15．A 二、填空题 1．视图 工具箱 2．对象 事件 3．.vbp .frm 4．窗体 控件 菜单 5．完成某种特定的功能 对象名.方法名 Form1.Show 6．Multiline True 7．4000 8．AutoSize True 9．窗体布局窗口 10．txtshow.text="GOOD WORK！" 11．Click()、frm1.show 12．单击 双击 装载 多 响应某个事件后所执行的程序代玛 13．完成某种特定的功能 对象名.方法名 Form1.Show 14．工具 选项 选项 自动语法检测 15．Timer Interval ms
4． Private Sub Command1_Click() Unload Me End Sub Private Sub Option1_Click() Text1.Text = 10 * 2 End Sub Private Sub Option2_Click() Text1.Text = 10 / 2 End Sub Private Sub Option3_Click() Text1.Text = 10 + 2 End Sub Private Sub Option4_Click() Text1.Text = 10 - 2
4
2． Private Sub Form_Load() Dim x As Integer x = 100 Do Until x > 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) End If x=x+1 Loop End Sub 3． Private Sub Form_Click() Print "*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12 Print For I=15 to 18 Print I; For j=3 to 12 Step 3 Print Tab(3*j);j*I; Next j Print Next I End sub
11． （1）2*Cos*Sin/(2*) (2) Sqr(s*(s-a)*(s-b)*(s-c)) (3) Sin(45*3.14/180) 12． （1）x>=1 And x<12 (2) A+B>=C Or a-c<=c (3) a>0 And b>0 Or(a<0 And b<0) 13．False 14．For While Do 15．3 三、阅读下列程序，给出程序运行结果。
1
3．参考答案 答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码， 程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。 在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响 应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序 代码。事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身 的消息触发。这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运行所经过的代码路径是不确 定的，它的执行流程由用户来决定。在程序设计时，不需要指出先执行哪部分代码，或按什么顺序执行代 码，只需编写针对某个事件的程序代码即可。 4．参考答案 答：事件驱动是 VB 应用程序的基本机制，其基本过程是： （1）启动应用程序，装载和显示窗体。 （2）窗体或窗体上的控件等待事件的发生。事件可由用户引发（例如键盘操作或鼠标点击） 、可由系 。 统引发（例如定时器控件） 、也可由代码间接引发（例如当代码装载其他窗体时产生的 Load 事件） （3）当某个事件发生后，执行其对应的事件过程代码。 （4）重复执行第 2 和第 3 步。直到遇到 End 语句或单击“结束”按钮停止程序的运行。 四、程序设计题 1． Private Sub Form_Load() Text1.Text = "VB 程序设计" Text1.FontSize = 16 End Sub Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True End Sub 2． Private Sub Command1_Click() Text1.Text = "" Text2. Text = "" [Text3.Text = "" End Sub Private Sub Command2_Click() If Text1 Text = " " Or Text2.Text = "" Or Text3.Text = " " Then MsgBox "成绩输入不全！" Else Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) /3 End If Sub End
2
Private Sub Command3_Click() Unload Me End Sub 3． Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "至少要输出单价！" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then Text2.Text = 1 If Text3.Text = "" Then Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Text3.Text End Sub
3
1．程序运行后，单击窗体，输出结果为：5050。 2．
3．
4． 3.4 5．
3
* *** ***** ******* ********* 四、程序设计题 1． Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then y=x Else If x < 200 Then y = 9.5 * x Else If x < 300 Then y = 0.9 * x Else If x < 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Tvate Function Day(n As Integer) Select Case n Case 0 Day = "星期日" & Chr(13) & "(Sunday)" Case 1 Day = "星期一" & Chr(13) & "(Monday)" Case 2 Day = "星期二" & Chr(13) & "(Tuesday)" Case 3 Day = "星期三" & Chr(13) & "(Wednesday)" Case 4 Day = "星期四" & Chr(13) & "(Thursday)" Case 5 Day = "星期五" & Chr(13) & "(Friday)" Case 6 Day = "星期六" & Chr(13) & "(Saturday)" End Select End Function Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer n = Val(Text1.Text) If KeyAscii = 13 Then If n >= 0 And n < 7 Then Label1.Caption = Day(n) Else MsgBox "请输入 0~6 之间的整数！" End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 6． 新建一个工程，在默认的窗体 Form1 上放置一个 Picture 控件，然后编写如下代码。 Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox "You pressed right Button" Picture1.MousePointer = vbArrow End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.MousePointer = vbUpArrow End Sub
11． C
12． C
13． B
cmd1
Click
三、问答题 1．参考答案 答：可视化编程是目前最直观的一种编程方法，人们一般用 Visual 一词表示它。之所以叫做“可视” ， 是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作。因此，可视化语言是目前最好的 Windows 应用程序开发工具。 在这种语言中引入了控件的概念，每个控件都有若干方法和事件，并通过一系列的属性来控制控件的 外观。利用这些控件，编程过程就如同画画，随意点几下鼠标，一个按钮就完成了，这些工作在使用传统 编程语言的情况下，需要编写大量复杂的程序代码才能实现。 可视化编程主要用到了事件驱动机制，其原理是：当应用程序运行后，程序处于等待状态，当某个事 件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处于等待另一个事件 发生的状态。 2．参考答案 答：对象是代码和数据的封装体，在 VB 中， “数据”表现为属性， “代码”则表现为事件和方法。建 立一个对象后，其操作通过与该对象的有关属性、事件和方法来描述。 属性是一个对象的基本特性，每个对象都有它自己的属性。通过修改对象的属性，可以改变对象的外 观和功能。 方法就是要对象执行的动作，一般可以将它理解为 VB 提供的一种特殊的过程和函数。其特殊性在于， 这些过程和函数是封装在对象内部的，是在对象上实施的某种操作功能。 事件就是在对象上所发生的事情。对象的事件是由 VB 预先设置好的、能被对象识别的动作。用户不 能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方 法。
一、选择题 1． D 2． B 3． C 4． C 5． B 6． D 7． A 8． B 9． A 10． C 14．D 15．A 二、填空题 1．视图 工具箱 2．对象 事件 3．.vbp .frm 4．窗体 控件 菜单 5．完成某种特定的功能 对象名.方法名 Form1.Show 6．Multiline True 7．4000 8．AutoSize True 9．窗体布局窗口 10．txtshow.text="GOOD WORK！" 11．Click()、frm1.show 12．单击 双击 装载 多 响应某个事件后所执行的程序代玛 13．完成某种特定的功能 对象名.方法名 Form1.Show 14．工具 选项 选项 自动语法检测 15．Timer Interval ms
4． Private Sub Command1_Click() Unload Me End Sub Private Sub Option1_Click() Text1.Text = 10 * 2 End Sub Private Sub Option2_Click() Text1.Text = 10 / 2 End Sub Private Sub Option3_Click() Text1.Text = 10 + 2 End Sub Private Sub Option4_Click() Text1.Text = 10 - 2
4
2． Private Sub Form_Load() Dim x As Integer x = 100 Do Until x > 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) End If x=x+1 Loop End Sub 3． Private Sub Form_Click() Print "*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12 Print For I=15 to 18 Print I; For j=3 to 12 Step 3 Print Tab(3*j);j*I; Next j Print Next I End sub
11． （1）2*Cos*Sin/(2*) (2) Sqr(s*(s-a)*(s-b)*(s-c)) (3) Sin(45*3.14/180) 12． （1）x>=1 And x<12 (2) A+B>=C Or a-c<=c (3) a>0 And b>0 Or(a<0 And b<0) 13．False 14．For While Do 15．3 三、阅读下列程序，给出程序运行结果。
1
3．参考答案 答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码， 程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。 在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响 应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序 代码。事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身 的消息触发。这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运行所经过的代码路径是不确 定的，它的执行流程由用户来决定。在程序设计时，不需要指出先执行哪部分代码，或按什么顺序执行代 码，只需编写针对某个事件的程序代码即可。 4．参考答案 答：事件驱动是 VB 应用程序的基本机制，其基本过程是： （1）启动应用程序，装载和显示窗体。 （2）窗体或窗体上的控件等待事件的发生。事件可由用户引发（例如键盘操作或鼠标点击） 、可由系 。 统引发（例如定时器控件） 、也可由代码间接引发（例如当代码装载其他窗体时产生的 Load 事件） （3）当某个事件发生后，执行其对应的事件过程代码。 （4）重复执行第 2 和第 3 步。直到遇到 End 语句或单击“结束”按钮停止程序的运行。 四、程序设计题 1． Private Sub Form_Load() Text1.Text = "VB 程序设计" Text1.FontSize = 16 End Sub Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True End Sub 2． Private Sub Command1_Click() Text1.Text = "" Text2. Text = "" [Text3.Text = "" End Sub Private Sub Command2_Click() If Text1 Text = " " Or Text2.Text = "" Or Text3.Text = " " Then MsgBox "成绩输入不全！" Else Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) /3 End If Sub End
2
Private Sub Command3_Click() Unload Me End Sub 3． Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "至少要输出单价！" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then Text2.Text = 1 If Text3.Text = "" Then Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Text3.Text End Sub
3
1．程序运行后，单击窗体，输出结果为：5050。 2．
3．
4． 3.4 5．
3
* *** ***** ******* ********* 四、程序设计题 1． Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then y=x Else If x < 200 Then y = 9.5 * x Else If x < 300 Then y = 0.9 * x Else If x < 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Tvate Function Day(n As Integer) Select Case n Case 0 Day = "星期日" & Chr(13) & "(Sunday)" Case 1 Day = "星期一" & Chr(13) & "(Monday)" Case 2 Day = "星期二" & Chr(13) & "(Tuesday)" Case 3 Day = "星期三" & Chr(13) & "(Wednesday)" Case 4 Day = "星期四" & Chr(13) & "(Thursday)" Case 5 Day = "星期五" & Chr(13) & "(Friday)" Case 6 Day = "星期六" & Chr(13) & "(Saturday)" End Select End Function Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer n = Val(Text1.Text) If KeyAscii = 13 Then If n >= 0 And n < 7 Then Label1.Caption = Day(n) Else MsgBox "请输入 0~6 之间的整数！" End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 6． 新建一个工程，在默认的窗体 Form1 上放置一个 Picture 控件，然后编写如下代码。 Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox "You pressed right Button" Picture1.MousePointer = vbArrow End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.MousePointer = vbUpArrow End Sub
11． C
12． C
13． B
cmd1
Click
三、问答题 1．参考答案 答：可视化编程是目前最直观的一种编程方法，人们一般用 Visual 一词表示它。之所以叫做“可视” ， 是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作。因此，可视化语言是目前最好的 Windows 应用程序开发工具。 在这种语言中引入了控件的概念，每个控件都有若干方法和事件，并通过一系列的属性来控制控件的 外观。利用这些控件，编程过程就如同画画，随意点几下鼠标，一个按钮就完成了，这些工作在使用传统 编程语言的情况下，需要编写大量复杂的程序代码才能实现。 可视化编程主要用到了事件驱动机制，其原理是：当应用程序运行后，程序处于等待状态，当某个事 件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处于等待另一个事件 发生的状态。 2．参考答案 答：对象是代码和数据的封装体，在 VB 中， “数据”表现为属性， “代码”则表现为事件和方法。建 立一个对象后，其操作通过与该对象的有关属性、事件和方法来描述。 属性是一个对象的基本特性，每个对象都有它自己的属性。通过修改对象的属性，可以改变对象的外 观和功能。 方法就是要对象执行的动作，一般可以将它理解为 VB 提供的一种特殊的过程和函数。其特殊性在于， 这些过程和函数是封装在对象内部的，是在对象上实施的某种操作功能。 事件就是在对象上所发生的事情。对象的事件是由 VB 预先设置好的、能被对象识别的动作。用户不 能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方 法。