vb程序设计教程(第2版)实验1
《程序设计基础—VB程序实验》
《程序设计基础—VB程序实验》说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。
实验1 计算机基本操作实验目的⑴熟悉计算机，能够正确进行开、关机操作。
⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。
⑶理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。
⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。
⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。
实验内容⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。
⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。
⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。
⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。
⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。
⑹将上述文件夹复制到ftp://10.10.9.222上。
实验2 常用软件的基本操作实验目的⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。
⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。
⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。
⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。
掌握Excel中的图形制作方法，能够根据表格做出图形。
实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：①将标题“自我介绍”居中；②将文章中第二段的内容进行分栏，要求中间有分割线；③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；④任意插入一张图片；⑤在文章中的任意位置加底纹。
将做好的文档以2.doc命名并保存。
VB语言程序设计第二版课程设计
VB语言程序设计第二版课程设计一、课程设计目的和要求在学习了VB语言程序设计的基础知识后，本次课程设计旨在通过实践，加深对VB语言的理解，提高实际编程能力。
要求学生能够根据题目要求，独立完成程序设计，并能够对自己的程序进行测试和修正，达到运用VB语言解决实际问题的能力。
二、课程设计内容1. 课程设计题目设计一个学生信息管理系统，要求实现以下功能：1.学生信息的录入、查询、修改和删除；2.学生信息的列表显示和排序，可按照学号、姓名、年龄等信息进行排序；3.学生信息的统计功能，可以统计总人数、男女人数、各年龄段人数等。
2. 思路分析根据题目要求，我们需要实现学生信息的录入、查询、修改和删除功能，这需要利用VB语言中的表单、控件和事件进行开发。
同时，为了方便管理学生信息并能够对学生信息进行统计和排序，我们需要使用VB语言中的数据集合和数组来进行处理。
在程序设计中，我们需要设计一个学生信息表单，其中包括学号、姓名、性别、年龄等字段，然后利用VB语言中的数据控件来实现数据的录入、查询、修改和删除功能。
同时，我们还需要设计一个学生信息列表窗体，并实现按照学号、姓名、年龄等字段进行排序和列表显示的功能。
最后，我们需要实现一个学生信息统计窗体，用于统计总人数、男女人数、各年龄段人数等信息。
3. 程序设计3.1 学生信息表单设计学生信息表单主要用于学生信息的录入、查询、修改和删除功能。
我们需要设计一个表单，包括学号、姓名、性别、年龄等字段，同时将数据写入到数据库中。
具体步骤如下：1.设计表单，设置表单属性和控件属性；2.编写VB代码实现数据录入、查询、修改和删除功能；3.连接数据库，将数据写入数据库中。
3.2 学生信息列表窗体设计学生信息列表窗体主要用于按照学号、姓名、年龄等字段进行排序和列表显示的功能。
我们需要设计一个窗体，包括表格和排序功能，同时从数据库中读取数据并显示到表格中。
具体步骤如下：1.设计窗体，添加表格和排序控件；2.编写VB代码实现数据的读取和排序功能。
vb程序设计教程(潘蕾)第二章 窗体设计1
[PictureBox方法]：
Move：移动 Print（和窗体的Print方法的使用相同） Cls：清除
7)单选按钮（OptionButton）
[用途]：从一组互斥的选项中选择一个。
[属性]：
Caption:标题属性。 Value:取值属性。当单选按钮被选中时，该属性为“True”，否则为 “False” [方法]：
常数 值 vbComboDropDown 和一个不 0 描述 （缺省值）下拉式组合框。包括一个下 拉式列表和一个文本框。可以从列表选 择或在文本框中输入。 1 简单组合框。包括一个文本框 能下拉的列表。可以从列表中选择或在、 文本框中输入。简单 组合框的大小包括 编辑和列表部分。按缺省规定，简单组 合框的大小调整在没有任何列表显示的 状态。增加 Height 属性值可显示列表 的更多部分。 2 下拉式列表。这种样式仅允许 列表中选择。
vbComboDrop-DownList 从下拉式
6）图象（Image）、图片框（PictureBox）
[用途]：图象控件显示来自位图(.bmp)、图标(.ico)或者元文 件；图片控件可以显示文字、图片以及来自增强的元文件、 JPEG 或 GIF 文件的图形。如果控件不足以显示整幅图象， 则裁剪图象以适应控件的大小，还可创建动画。 [PictureBox属性]： Align:对齐属性，指图片框在窗体上的位置。有无、上、下、 左和右五种选择。 Picture:图片属性，为要显示的图片名（演示）。
常数 vbLeftJustify vbRightJustify vbCenter 设置值 描述 0 （缺省值）文本左对齐。 1 文本右对齐 2 文本居中
•注意Text没有
Caption属性
VB教程2
第二章简单的Visual Basic程序设计本章首先以一个最简单的编程例子为切入点，介绍完成一个应用程序的开发过程，然后归纳出VB应用程序的开发步骤。
接着按照归纳出来的步骤，应用于另一个难度更大的程序实例的开发过程。
并介绍如何使自己设计的应用程序在脱离VB的环境下运行，以及如何制作安装盘。
2.1 初识VB应用程序一个VB应用程序称为一个工程，用来完成一个任务。
“工程”一词是由Microsoft公司的VB6.0汉化人员根据英文“Project”直译的，此处似乎称为项目更为合适。
在Microsoft 公司的系列产品Visual FoxPro6.0中，就将Project译为项目。
为了与VB6.0中所用名称一致，本书将仍按“工程”来称呼“项目”。
一个工程由多个文件组成，除了工程文件（扩展名为.vbp）外，还可能包含有窗体文件（扩展名为.frm）、窗体二进制数据文件（扩展名为.frx）、标准模块文件（扩展名为.bas）、类模块文件（扩展名为.cls）、资源文件（扩展名为.res）、ActiveX控件文件（扩展名为.ocx）和图形文件等。
下面介绍一个最简单程序的完成过程。
【例2-1】设计一个程序，运行时用鼠标单击窗体，就在窗体上显示“Hello, Visual Basic!”一行文字。
程序运行结果如图2-1所示。
图2-1 【例2-1】运行结果步骤如下：(1) 启动VB6.0之后，在“新建工程”对话框中单击“打开”按钮，这时就新建了一个工程。
(2) 在窗体设计器中调整所设计窗体Form1的大小。
(3) 通过属性窗口为窗体对象Form1设置属性：在属性窗口左列找到“Caption”属性，然后将其右列中原有的属性值“Form1”改为“例2-1”。
(4) 双击窗体对象Form1，打开代码窗口，在代码窗口标题栏下面右方的事件列表中选择“Click”事件，这时可以看到系统提供一个相应Form_Click()过程的框架：Private Sub Form_Click()End Sub我们在这两行之间输入一个语句：VisualBasic!""Hello,Print添加事件过程代码如图2-2所示。
VB NET程序设计(第2版)
20xx年清华大教材目录 05 作者简介
目录
02 内容简介 04 教学资源
《程序设计（第2版）》是由江红、余青松编著，2020年8月清华大学出版社出版的高等学校计算机科 学与技术教材。该教材可作为高等院校计算机、电子信息、工商管理等相关专业的课程教材。
《程序设计（第2版）》主要基于Visual Studio 2019/.NET Framework 4.7开发和运行环境，讲述 了 16.0的语言基础知识及使用 16.0语言开发应用的实例。
成书过程
《程序设计（第2版）》由华东师范大学江红和余青松共同编写。研究生方宇雄、杨雪瑶、梅旭璋、 余靖阅读了该教材的初稿，并提出了修改意见和建议。
教材目录
参考资料：
教学资源
该教材有配套教材——《程序设计实验指导与习题测试（第2版）》。
该教材各章节涉及的所有源程序代码和相关素材，提供该教材的上机实验指导，以及各章节的习题测试和习 题参考解答。
作者简介
江红，华东师范大学副教授，博士。曾荣获华东师范大学教学成果三等奖、华东师范大学第三届青年教师课 堂教学大奖赛三等奖、华东师范大学优秀任课教师奖、华东师范大学优秀教学改革研究论文二等奖等荣誉。
《程序设计（第2版）》内容共分为3篇。第1篇阐述面向对象程序设计语言的基础知识，内容 包括：语言综述、程序设计基础、语言基础、程序流程和异常处理、数组、面向对象编程、 模块、结构、枚举、多线程编程技术、泛型、特性、语言集成查询。第2篇阐述基于 Framework公共类库 的程序设计，内容包括：文件和流输入/输出、集合和数据库访问。第3篇介绍应用程序设计技术，内容包 括：Windows窗体应用程序、 Web应用程序。
2020年8月，《程序设计（第2版）》由清华大学出版社出版。
VB程序设计第二版课程设计
VB程序设计第二版课程设计1. 课程设计目的本课程设计旨在通过VB程序设计的实践，帮助学生深入理解VB程序设计的基本原理，掌握VB程序设计的基本技能，并能够应用所学知识解决实际问题。
2. 课程设计要求本课程设计要求学生自行选择一个主题，通过VB程序设计实现一个完整的应用程序。
要求应用程序具有以下功能：•用户登录和注册功能；•数据库的增、删、改、查功能；•数据的可视化展示功能；•文件操作功能；•其他扩展功能。
3. 开发环境开发工具：Visual Basic 6.04. 课程设计实施步骤4.1 选题学生可自由选择主题，但必须符合以下要求：•主题具有一定的实际意义；•主题涵盖VB程序设计的基本知识点。
4.2 需求分析学生需根据所选主题，进行需求分析，明确应用程序的功能需求和用户需求等。
4.3 设计方案学生应根据需求分析结果，进行方案设计。
方案设计应包括以下内容：•总体设计方案；•数据库设计方案；•界面设计方案；•功能模块设计方案；•其他相关方案。
4.4 编码实现学生应根据设计方案，使用VB语言进行编码实现。
实现过程中，需注重代码的规范性、可读性和可维护性等。
4.5 调试测试学生应对所编写的程序进行调试和测试，确保程序能够正常运行，并达到预期目标。
4.6 文档撰写学生应按照要求，编写程序设计文档，包括以下内容：•需求分析报告；•设计方案文档；•编码实现文档；•调试测试报告；•其他相关文档。
5. 课程设计评分要求本课程设计满分为100分，具体评分要求如下：•选题：10分；•需求分析：20分；•设计方案：30分；•编码实现：20分；•调试测试：10分；•文档撰写：10分。
6. 总结本课程设计要求学生以实践为基础，通过开发应用程序，掌握VB程序设计的相关知识和技能。
同时，通过对VB程序设计的实践探索，提高学生的综合分析、解决问题和创新能力。
VB习题解答
作用：在对象上输出信息 对象：窗体、图形框或打印机(Printer) ，省略对象在窗体上输出。 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。 无 ；，时换行。 开始打印的位置是由对象的CurrentX和CurrentX属性决定， 缺省为打印对象的左上角0，0。 注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的 AutoRedraw为True。
3.常用方法
[对象.]SetFocus：是把光标移到指定的文本框对象中。
4.文本框的应用 数据过滤
例2.7 要求输入合法的数字数据。当输入结束时（按Tab键），对于 输入正确的数据，显示正确信息；对输入的非数字数据，则响铃 (Beep)、显示错误信息、清除文本框中的内容，并使焦点重新回到文 本框。 • Text2_ LostFocus 当输入结束按Tab键时，该事件激发。 • IsNumeric(Text2)：判断是否输入非数字数据。 • Text2.SetFocus：使焦点重新回到文本框。
例2.3
控件设置
默认控件名 标题 有关属性设置 Name Caption 颜色、对齐、 Form1 MousePointer=99,MouseIcon=Key04.ico 鼠标属性例 左对齐 Alignment=0， BorderStyle =1 Label1 居中 Alignment=1，BorderStyle =1 Label2 自动 AutoSize=True， WordWarp=False， BorderStyle =1 Label3 背景白 BackColor= &H00FFFFFF&， BorderStyle =0 Label4 前景红 ForeColor= &H000000FF&， BorderStyle =0 Label5
第二版vb实验报告
实验四 选择结构程序设计
一、实验目的
1．掌握逻辑表达式的正确使用方法。
2．掌握单分支、双分支和多分支条件语句结构的使用方法。
3. 掌握选择结构的嵌套
二、实验内容
1 有函数：
⎪⎩⎪⎨⎧≥-<≤-<=)
10(124)101(2
3)1(x x x x x x
y 写一个程序，输入x 值后，则输出相应y 值。
要求用“If …ElseIf …EndIf ”和用“Select Case ”两种方法完成该题目。
1.IF 的写法
2.select 的写法
2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。
3 编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。
图3-2 实验3-3程序运行界面
进一步要求：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，<60为“不及格”来划分并显示上述信息。
4 编写完整的一元二次方程求根的程序
思考题：
1、对于多重选择，使用if嵌套时，注意配对关系
2、使用选择结构时，要注意防止出现“死语句”，即永远也不可能出现的语句。
实验1简单VB程序设计
实验1 简单VB程序设计【实验目的】1 学习怎样启动和退出VB，熟悉VB的工作环境。
2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。
3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。
4 基本掌握用VB开发应用程序的一般步骤。
【实验环境】VB6.0 奔腾586【实验内容】1. 启动和退出VB2. 打开和关闭窗口3. 设置窗体属性4. 设置控件属性5. 设计简单界面6. 开发一个简单的应用程序【实验步骤】1. 启动和退出VB（1）可用以下方法启动VB法1 用“开始”菜单的“程序”命令。
法2 用“开始”菜单的“运行”命令。
（2）可用以下方法退出VB法1 单击主窗口右上角的“关闭”按钮。
法2 执行“文件”菜单的“退出”命令。
2. 打开和关闭窗口（1）打开工程资源管理器窗口法1 单击工具栏上的“工程资源管理器”按钮。
法2 执行“视图”菜单中的“工程资源管理器”命令。
法3 CTRL+R（2）打开窗体设计器窗口法1 执行“视图”菜单中的“对象窗口”命令。
法2 SHIFT+F7法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。
（3) 激活属性窗口法1 按F4键法2 单击工具栏上的“属性窗口”按钮。
法3 执行“视图”菜单中的“属性窗口”命令。
（4) 关闭窗口法1 单击窗口右上角的关闭按钮。
法2 ALT+F43. 设置窗体属性（1）激活窗体，打开属性窗口。
（2）在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。
（3）在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中选择一种颜色。
（4）在属性窗口中选择“DrawStyle”属性条，然后单击右端的箭头，在下拉显示的列表中选择“Dot”。
（5）在属性窗口中，把Top，Left，Height，Width属性的值分别设置为500，1000，3000，4000，观察窗体的变化。
vb实验报告答案全(2)(1)
实验一问答题：1、答：常见的有visual Basic、C++、Java、SQL。
用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。
程序是针对某个任务编写的有序代码的集合。
软件是程序和文档的集合。
它们的关系是：代码 < 程序 < 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。
它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。
4、答：参考课本第9页5、答：类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。
对象——是类的一个实例，继承了类的属性、方法。
控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。
事件——响应对象的动作，它发生在用户与程序交互时。
如单击控件、鼠标移动、键盘按下。
过程——指附在该对象上的程序代码，是事件的处理程序。
6、答：参考课本12页到17页。
实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。
2、答标签label是用来显示信息的，不具有输入功能。
属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。
文本框用来输入、输出数据，编辑文本。
属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。
3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。
4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。
实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进！"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为：Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3) 或mid(s,1,3)操作题：2.Private Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End Sub4.Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m) + m)y = Int(Rnd * (n - m) + m)z = Int(Rnd * (n - m) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select三、程序结果1. X=4 y=132. 10操作题：1.方法一：Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub方法二：Option ExplicitPrivate Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2.Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是："; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是："; x; y; zEnd Sub4.方法一：Private Sub Command1_Click() x = Val(InputBox("请输入上网时间:")) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法二：Private Sub Command1_Click() Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3.Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。
VB实验及答案
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。 （2）设置对象的属性
【步骤】
（ 1 ） 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then
VB实验报告1-9
实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。
2．熟悉Visual Basic 的集成开发环境。
3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。
2、编一程序，计算任意输入的正整数的平方根。
3、编写一个应用程序，界面如图1-1所示。
窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。
（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。
2).程序主要代码。
3).运行结果（输入与输出）。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。
2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。
程序设计项目化教程项目1搭建vb运行环境
VB中的条件语句包括If语句和 Select Case语句。If语句用 于根据条件执行不同的代码 块，而Select Case语句用于 根据表达式的值执行不同的 代码块。
循环语句
VB中的循环语句包括For循环 、While循环和Do循环。For
循环用于重复执行一段代码 指定的次数，While循环用于
VB将与人工智能、大数据 等先进技术结合，拓展应 用领域。
VB编程教育将更加普及和 深入，培养更多的编程人 才。
感谢您的观看
THANKS
05
总结与展望
ห้องสมุดไป่ตู้
本项目的收获与不足
了解了VB编程的基本概念 和语法。
掌握了VB运行环境的搭建 流程。
收获
01
03 02
本项目的收获与不足
• 学会了如何使用VB进行简单的程 序开发。
本项目的收获与不足
01
不足
02
对于VB的高级特性和应用还不够熟悉。
03
在项目开发过程中，团队协作和沟通有待 加强。
变量的声明和赋值
在VB中，变量需要先声明后使用。可以使用Dim语句声明变量，并使用赋值符号为其赋值。变量的作用域和生命周 期根据其声明的位置而定。
常量
常量是在程序运行期间不能改变其值的变量。在VB中，可以使用Const语句声明常量，并为其指定一个 值。常量的作用域和生命周期与变量相同。
VB的控制结构
04
对于项目需求的理解和把握需要进一步提 高。
对VB编程的展望和未来发展
01
展望
02
VB编程语言将继续在教育领域发挥重要作用。
03
随着技术的不断发展，VB将集成更多的新特性和功 能。
VB_实验1
（3） 运行错误 运行时错误指VB在编译通过后，
运行代码时发生的错误。这类错误往往 是指令代码执行了一非法操作引起的。 例如类型不匹配、试图打开一个不存在 的文件等。
5
运行错误指指令代码执行了一非法操作 引起的。例如类型不匹配、试图打开一 个不存在的文件等。
6
（4） 逻辑错误 程序运行后，得不到所期望的结果，这说
当程序不在中断模式下执行时是不可以通过监视窗
口看到要监视的内容的。
ቤተ መጻሕፍቲ ባይዱ
8
为了捕获运行时间错误，可以使用哪些语句？
答：可以使用以下语句： （1）On Error Goto Line 语句 （2）On Error Resume Next 语句 （3） On Error Goto 0 语句
9
编写一个程序，如何使用On Error Resume Next 语句来捕获和处理运行时间错误
25
程序代码： Private Sub Form_Load()
Text1.Text = "VB6.0" '装载窗体时设置文本框显 示文本内容属性值 Text1.Font.Size = 20 '装载窗体时设置文本框 显示文本字体大小属性值 End Sub
Private Sub Command1_Click() Text1.Move 0, 0 ' 单击"左上角"按钮时用Move方法
2. 字母和数字形状相似 小写字母“l”和数字“1”形式相同、小写字母“o”
与数字“0”。 3. 对象名称(Name)属性写错
Text1、Text2、Command1 txtInput、txtOutput、cmdOk
18
4.对象的属性名、方法名、标准函数名写错 尽量使用自动列出成员功能。正确的系统按规定
《VB程序设计》实验指导书
《VB程序设计》实验指导书18学时实验一VB集成环境及简单应用程序的建立一、实验目的1．掌握Visual Basic启动和退出的方法。
2．熟悉Visual Basic的集成开发环境。
3．掌握Visual Basic程序设计的基本步骤。
4. 掌握窗体的使用方法。
二、实验内容1 启动Visual Basic，然后创建一个“标准 EXE”工程。
了解Visual Basic集成开发环境下各组成部分及其作用。
【要求】（1）在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置。
（2）在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。
（3）在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”。
（4）尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。
2 编写一个简单的应用程序。
要求窗体的标题为“简单VB实验”；窗体中有一个标题为“显示”的按钮；单击该按钮后在窗体上显示蓝色的“江西农业大学”。
【步骤】（1）设计应用程序的界面；（2）设置对象的属性；（3）编写事件代码；（4）程序的运行及保存。
【提示】在窗体上显示“江西农业大学”有两种方法：（1）用Print方法：颜色应该设置窗体的前景色。
（2）用一个标签控件：颜色应该设置标签控件的前景色。
【思考】为什么在以上两种方法中在颜色的设置问题上有所不同？3 窗体无最大化和最小化按钮。
在窗体装入时，在窗体的标题栏显示“装入窗体”，并在窗体上装入一幅图片作为背景；当用户单击窗体，在标题栏显示“鼠标单击”，在窗体上显示“单击窗体”；当用户双击窗体，在标题栏显示“鼠标双击”。
去除窗体的背景图案，并显示“双击窗体”。
实验二VB常用控件的使用一、实验目的1．掌握基本控件（标签、命令按钮和文本框）的基本使用方法。
2. 掌握Visual Basic程序设计的基本步骤。
二、实验内容1 利用标签做浮雕效果文字。
VB程序设计第2版第1章 程序设计基础
第 传统流程图:
一 章
开始
N-S流程图:
1
程 序
0S
输出S
0S
设
1I
1I
计
结束
基
S+IS
S+IS
础
I+1I
I+1I
No
2021/7/13
I>100
Yes
1
直到I>100 输出S
17
三种基本结构有以下共同的特点：
第 ➢只有一个入口、一个出口
一 ➢每个基本结构中的每一部分都有机会被执行到
章 程 ➢结构内不存在“死循环”
章 2 . 算法的特性
程 序
有穷性、确定性、有效性、有0个到若干个输入、
设 有1个到若干个输出。
计 基
3. 算法的表示形式
础 (1) 用自然语言表示算法
例如：将两个变量X和Y的值互换。算法表示：
步骤1 将X值存入中间变量Z中：X Z
步骤2 将Y值存入变量X中：Y X
步骤3 2021/7/13 将中间变量Z的值存入Y中：Z Y 9
消息传递建立事物间的联系。
2021/7/13
19
1. 对象 (Object)
在自然界中，用于描述某一实体。如房屋、人、
第 汽车等。
一 章
在计算机中，将数据和处理该数据的过程、函数
程 或子过程打包在一起而生成的新的数据类型称为对
序 象，它是代码和数据的组合，可以作为一个单位来
设 计
处理。对象可以是窗口、模块、数据库和控件等，
序 2. 结构化程序设计方法
设 计
自顶向下、逐步求精、模块化
基
础
2021/7/13
《Visual Basic程序设计教程(第2版)》习题参考答案
习题1一、单选题1．D 2．D 3．B 4．B 5．C 6．A7．A 8．A 9．B 10．B 11．B 12．B二、多选题1．ADE 2．AB 3．BCDE 4．CD 5．CE三、填空题1．属性，方法，事件 2．解释，编译 3．设计，运行，中断 4．Command2_Click 5．中央，代码 6．MyForm.frm 7．(1)Cmd1_Click()，(2)Txt1.Text="VB语言程序设计"习题2一、单选题1．(1)A，(2)C 2．A 3．B 4．B 5．B 6．D 7．B 8．A 9．A 10．B 11．B 12．A 13．B二、多选题1．BD 2．CD 3． AD三、填空题1．(1) (2+x*y)/(2–y*y) (2) a^2–3*a*b/(3+a)(3) x^(3/8)+Sqr(y^2+4*a^2a/(x+y^3))2．Int(50+6*Rnd)3．(1)138， (2)3， (3)214， (4) 70， (5) "45"， (6)04． "系统管理数据库"习题3一、单选题1．C 2．B 3．B 4．D 5．B 6．C 7．B 8．D 9．C 10．(1)A， (2)C 11．A 12．B 13．D 14．B二、多选题1．AC 2．ABF 3．BE三、填空题1．$000,124 2．Label1.Caption="a*b=" 3．Height，Width4．2 5．Text1.SetFocus6．Multiline, ScrollBars, 2 7．24，2423习题4一、单选题1．C 2．B 3．C 4．C 5．D 6．B 7．(1)D，(2)A，(3)B 二、多选题1．ABCFGHJ 2．BE 3．CDE 4．AE三、填空题1．60000 2．O&pen 3．(1) "0" To "9"；(2) "a" To "z", "A" To "Z"；(3) Else习题5一、单选题1．C 2．(1)D，(2)C 3．A 4．(1)B，(2)C，(3)B 5．B 6．B二、填空题1．(1) 4次，n=13；(2) 3次，n=8；(3) 3次，n=27；(4) 1次，n=12 2．227 3．0 4．Style 5．下拉列表框6．AddItem，RemoveItem或Clear 7．(1)ItemA，(2) ItemD，(3) ItemD，(4) ItemA习题6一、单选题1．D 2．A 3．B 4．C 5．C 6．A 7．(1)D (2)A (3)B 二、多选题1．AD 2．CD三、填空题1．二, 12; 1, 3; -1, 22． 0 1 2 31 0 1 22 1 0 13 2 1 03． Name, Index 4．(1) 0 To Index， (2)Val(Text1(k).Text)习题7一、单选题1．B 2．C 3．B 4．B 5．C 6．D 7．A 8．C 9．D 10．C 二、填空题1．EF 2．(1)14，(2) 2，(3)10 3．(1)10，(2)28，(3)6，(4) 64．(1)Power(x,n-1)*x，(2)Power = x习题8一、单选题1．B 2．D 3．D 4．A 5．B 6．D 7．A8．(1)D，(2)D 9．B 10．A 11．D二、填空题1． Get, Put2．(1) Open "Myfile3.txt" For Output(2) Write #1, StNo, StMb (3) Close #13． (1) Open " Myfile3.txt" For Input As #1 (2) EOF(1)(3) Input #1, StNo, StMb习题9单选题1．B 2．D 3．D 4．B 5．A 6．A习题10一、单选题1．C 2．(1)A，(2)C 3．C 4．A 5．(1)A，(2)D 6．A 7．D 8．B 9．D二、填空题1．(1)Change，(2)Value，(3)Scroll，(4)Value2．Circle(Scale.Width/2,Scale.Height/2),10003．(1) P1.Picture ，(2) P2.Picture，(3) P2.Picture = P3.Picture4．KeyDown，KeyPress，KeyUp 5．MouseDown，MouseUP6．菜单编辑器，顶；PopUpMenu7．(1) Button.Index (2) BackColor = RGB(255, 0, 0)(3) BackColor = RGB(0, 255, 0) (4) BackColor = RGB(0, 0, 255)8．(1)DragMode, (2)1，(3)0 9．(1)Action, (2)4, (3)ShowFont10．(1)KeyPress， (2)Cls， (3)CurrentY = Y， (4) Button=1习题11一、单选题1．C 2．C 3．A 4．D 5．A 6．D 7．D 8．C9．D 10．D 11．C 12．A 13．B二、填空题1．Select 职工号,基本工资 From 工资表 Where 基本工资>5002．Update 职工表 Set 姓名="伍小明" Where 职工号="00018"3．Select 学籍表.班号,Avg(成绩表.英语) From 成绩表,学籍表 Where 学籍表.学号=成绩表.学号 Group By 学籍表.班号4．Update 工资表 Set 基本工资=基本工资+1005．Delete From 工资表 Where 基本工资<2006．Insert Into 学籍表(学号,姓名,性别,年龄,班号) Values("951009","林东生","男",20,"31")(完)。