VB实验报告8

合集下载

计算机程序设计语言(VB)课程设计实验报告的撰写要求

计算机程序设计语言(VB)课程设计实验报告的撰写要求总体要求：文字通顺，条理清楚，结构合理，格式规范。

☆一套完整的课程设计说明书主要包括：A.封面；B.；C.目录；C.正文；D.参考文献；E.致谢；F.附录等。

课程设计说明书一律左侧装订，装订顺序为：封面→课程设计任务书→目录→正文→参考文献→致谢→附录。

☆正文参考格式：一、设计目的二、系统分析三、系统设计四、系统实现五、系统测试六、总结七、参考文献八、致谢九、附录☆具体要求：1.排版要求页面设置：上下页边距为2.54，左右页边距为2.6；字符间距：标准；页面大小：A4；页码：每页下端居中，全部采用阿拉伯数字排序，如1，2，……，99，100，……等，页码两边不加修饰符，页码编号从正文开始；页眉、页码：页眉为“江苏科技大学南徐学院课程设计”，宋体，五号，居中排列；页码居页面底端居中。

页眉页码均从目录后开始设置。

附录中图纸、原文复印件等可不设置。

2.内容应有目录、中文摘要、关键词、正文、参考文献、致谢、附录；3.“目录”两字用小二号宋体加粗且居中，字与字之间空两个汉字宽，空两行为目录内容，目录内容字体用小4号宋体，页码放在行末，目录内容和页码之间用虚线连接，采用两端对齐。

目录根据正文内容自动生成。

4.中文摘要：主要说明本次课程设计（实习）的目的、内容、方法和主要结果，力求语言精炼准确，字数控制在200字以内。

格式如下（□为一个汉字宽）：□□【摘□要】：（小4号宋体加粗）××××（小4号宋体）5.关键词：关键词是表述说明书（报告）中主要内容信息的单词或术语，关键词数量一般为3-6个，每个关键词之间用逗号隔开。

格式如下：□□【关键词】：（小4号宋体加粗）×××，××，×××（小4号宋体）6.正文：一级标题（1.1）：四号黑体、20磅行距、段前18磅、段后12磅、左对齐；二级标题（1.1.1）：13磅黑体、20磅行距、段前后12磅、左对齐；三级标题（1.1.1.1）：小四号黑体、20磅行距、段前后6磅、左对齐；正文部分：宋体，小四，20磅行距、两端对齐、首行缩进2字符。

《程序设计基础—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的实验目的在于：
1.学习VB的基础语法和编程思想。

2.熟悉VB语言的IDE开发环境，了解其界面、操作方式和功能。

3.通过实现一个简单的文本编辑器，进一步熟悉VB的编程技巧。

实验内容
界面设计
首先，我们需要对文本编辑器的界面进行设计。

我们采用VB自带的Windows Form进行界面设计。

Notepad-UI
Notepad-UI
如图所示，主要包括菜单栏、工具栏、编辑区和状态栏等四个部分。

功能实现
新建、打开和保存
首先，我们需要实现新建、打开和保存功能，这是每个文本编辑器都需要支持的基本操作。

我们可以通过使用VB自带的控件——菜单控件和文件对话框，快速实现这些功能。

```vb ’Tool Strip Menu Item - New File Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click If currentFile <>。

vb评估报告课程设计

vb评估报告课程设计一、课程目标知识目标：1. 学生能理解VB编程语言的基本概念，掌握其语法结构和编程技巧。

2. 学生能掌握VB中的变量声明、数据类型、运算符和表达式等基础知识。

3. 学生能学会使用VB编写顺序结构、选择结构和循环结构的程序。

技能目标：1. 学生能够运用VB编程语言解决实际问题，培养编程思维和逻辑能力。

2. 学生能够独立编写、调试和运行简单的VB程序，提高编程实践能力。

3. 学生能够通过VB程序设计，培养问题分析、解决方案设计的能力。

情感态度价值观目标：1. 学生在学习过程中，培养对计算机编程的兴趣和热情，形成积极的学习态度。

2. 学生在合作学习中，培养团队协作精神，学会分享、交流和互助。

3. 学生通过编程实践，认识到编程对解决现实问题的意义，增强社会责任感。

课程性质分析：本课程为信息技术学科，旨在让学生掌握VB编程基础，培养编程技能和逻辑思维能力。

学生特点分析：六年级学生具有一定的计算机操作基础，对新知识充满好奇心，具备初步的自主学习能力。

教学要求：1. 结合学生特点，采用任务驱动法、案例教学法和分组合作法，激发学生学习兴趣，提高实践能力。

2. 教学过程中注重理论与实践相结合，让学生在实践中掌握VB编程知识。

3. 教学评价关注学生的知识掌握、技能提升和情感态度价值观的培养，全面评估学生的学习成果。

二、教学内容本章节教学内容主要包括以下几部分：1. VB编程环境介绍与基本操作：- 熟悉VB集成开发环境；- 学会创建、保存和打开VB项目；- 掌握VB窗体设计、控件使用和属性设置。

2. VB编程语言基础：- 变量声明、数据类型、常量与变量；- 运算符与表达式；- 控制结构（顺序结构、选择结构、循环结构）。

3. VB编程实例分析：- 顺序结构程序设计；- 选择结构程序设计；- 循环结构程序设计。

4. 编程实践与拓展：- 完成课后练习题，巩固所学知识；- 分析并解决实际问题，培养编程思维；- 探索VB高级应用，提高编程技能。

利用VB实现多媒体播放器

利用VB实现多媒体播放器实验方案学时：6学时实验性质：验证性一、实验目的1.通过实验学习多媒体技术有关知识，增进对多媒体技术的熟悉和体会。

2.掌握VB处理中经常用到的全然概念和名词。

3.学习使用VB编写多媒体播放器。

二、实验内容和要求1.掌握VB中需要经常接触的全然概念。

2.练习使用VB，尝试它的各项功能。

要求掌握全然处理功能，学会使用控件制作播放器。

三、实验环境〔硬件环境和软件环境〕1.带有声卡、麦克风、音箱或耳机的多媒体计算机。

2.WindowsXP以上操作系统。

3.工具软件VB。

四、实验报告要求实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和处理、实验结果分析、体会质疑建议。

具体请参阅实验报告模板。

五、操作方法与实验步骤参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。

〔注重不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理〕六、实验讲义实验1API_音频播放器本节要紧介绍了利用API函数制作WAV音频播放器，首先来介绍一下PlaySound()函数。

它的声明形式如下所示：PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVal lpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInteg er字符串lpszName为声音文件的全名。

长整型hModule为程序模块的句柄，通常设置为0。

长整型dwFlags标志设置，在使用文件名时设置为&20000。

•添加控件新建一个工程，在工程里添加windows窗体“form1〞，把它的“Text〞属性改为“API_音频播放〞。

在“form1〞上添加一个DriveListBox控件做为驱动器列表框，一个DirListBox控件做为名目列表框，一个FileListBox控件做为文件列表框，一个Button控件做为命令按钮，五个Label控件做为标识。

网络编程用VB实现简单的聊天实验报告

实验3：计算机网络实验——网络编程1一、实验目的：（1）熟悉和掌握网络编程的基本方法和步骤；（2）进一步理解client/server交互模式；（3）加深学生对于网络协议概念的理解以及协议的设计和实现方法。

二、实验任务：使用任意网络编程语言（Java、C、VB、Delphi等）编写网络选课模拟程序，它由client和server 两部分组成，client和server之间的通信基于TCP协议。

实现数据的收发。

三、网络编程：大多数网络应用程序都遵从client/server交互模型。

该模型中，服务器应用是一种专门用来提供某一种服务的程序，它被动地等待通信，而客户应用主动地启动通信，请求服务器的服务。

服务器程序既可以接收信息也能发送信息，还可以成为客户。

TCP/UDP赋予每个服务一个唯一的协议端口号。

服务器程序通过协议端口号来指定它所提供的服务，然后被动地等待通信。

客户在发送连接请求时，必须说明服务器程序运行主机的IP 地址和协议端口号来指定它所希望的服务。

服务器端计算机通过此端口号将收到的请求转向正确的服务器程序。

大多数网络编程语言都提供或者使用控件封装了套接字应用程序接口（Socket API），应用程序通过套接字接口调用来实现和传输层交互。

用户目前可以使用两种套接口，即流套接字TCP 和数据报套接字UDP。

流式套接字定义了一种可靠的面向连接的服务，提供了双向的，有序的，无重复并且无记录边界的数据流服务。

数据报套接字定义了一种无连接的服务，支持双向的数据流，但并不保证是可靠，有序，无重复的。

也就是说，一个从数据报套接字接收信息的进程有可能发现信息重复了，或者和发出时的顺序不同。

数据报套接字的一个重要特点是它保留了记录边界。

套节字API主要包括表1所示的接口。

使用面向连接的套接字编程，通过图2来表示其时序。

套接字工作过程如下：服务器首先启动，通过调用socket()建立一个套接字，然后调用bind()将该套接字和本地网络地址联系在一起，再调用listen()使套接字做好侦听的准备，并规定它的请求队列的长度，之后就调用accept()来接收连接。

VB学生成绩查询统计系统实验报告

学生成绩查询系统一、实习任务 (2)二、系统分析 (3)三、系统设计 (4)四、调试、排错、测试、试运行过程 (7)五、源程序完整或主要代码 (10)六、总结与体会 (17)七、参考文献 (18)一、实习任务1实习任务介绍：熟悉软件工程学的基本思想进行软件开发的原则和方法；结构化分析方法和步骤；结构化编程方法；面向对象的思想和程序设计方法。

按照软件开发的一般方法和步骤动手设计一个《学生成绩查询统计系统》。

2基本要求：①登录界面：密码最多尝试3次，连续3次均输入错误系统自动退出。

②具有录入成绩、添加记录、删除记录、修改记录功能。

③具有成绩查询功能，可以按照学号、课程号、课程名、分数段进行查询。

为便于查询，所有的学号和课程号可考虑以下拉列表的形式给出。

④具有全部成绩浏览功能，且能与数据库表最新数据同步。

⑤具有统计功能，能以直方图、饼图、折线图、散点图、立体直方图直观表示各成绩段的分布情况。

⑥具有打印学生成绩报表的功能。

⑦具有菜单和工具条的双重操作功能。

3 实习目的：掌握常用控件的使用，学会使用通用对话框控件进行编程，掌握创建多重窗体程序的有关技术，了解鼠标和键盘事件及事件过程的编写，综合应用了所学知识，加深对VB的理解。

4 选题的背景及意义：VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。

它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。

在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

vb用户界面设计实验报告（共9篇）

vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。

A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。

A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。

A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。

Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。

A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。

A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。

A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。

A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。

VB实验报告(实验10)

电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件实验时间2011-12-12班级：姓名：学号：实验目的:1）、理解System.IO 对象模型。

2）、熟练掌握使用File 和Directory 对象操作文件的方法。

3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。

4）、理解流的概念。

5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。

实验环境:Windows XPVisual 2003实验内容及过程:查找并替换文本文件的内容1、新建一个“VisualBasic 项目”2、界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。

还要再添加一个OpenFileDialog 控件。

界面安排如图T10-1。

3、编写程序代码引入System.IO 名称空间。

单击“选择文件”按钮的事件代码：图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。

VB实验报告

VB实验报告《VB程序设计》实验单元一实验报告专业班级：姓名学号 2指导教师：王云侠完成时间： 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。

对文本框计数：Text1=Val(text1)+1 。

2、命令按钮、字号、内容和格式的复制练习。

按钮1：使得Text1中的文本按要求改变。

按钮2：将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Ca ption=”实验2” 复制文本输入文本Text=“VB功能强大，但要下功夫学习才能学好。

” （每个同学文本框中内容可以不同） Text2 Command1 Command2 四、实验步骤1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

从运用中点击vb6.0经典版Text=”” Caption=”隶书25磅” Caption=”复制=>” 打开标准 EXE 建立一个form 1添加一个Label和TextBox，Label的caption改为“你单击窗体的次数”，TextBox 的text改为空，然后编写代码如图点击运行即可。

2、命令按钮、字号、内容和格式的复制练习。

从运用中点击vb6.0经典版打开标准 EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton，Label的caption改为“输入内容”和“复制效果”，TextBox的text改为“任意文字”和“空”，CommandButton的caption改为“隶书25磅”和“复制=>”。

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实验报告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的基本使用方法。

VB实验报告格式

Caption
输入半径
Text1
text
空
Text2
text
空
Text3
text
空
Command1
Caption
圆面积
Command2
Caption
圆周长
2、……
四、实验内容（程序代码）
1、
Private Sub Command1_Click()
Dim r As Single,s As Single
大庆石油学院学生实验报告
实验课程名称：VB程序设计2013年4月日
学院
石油工程
年级、专业、班
油06-1
姓名
学号
实验台号
xx
同组人
实验项目
名称
数组(一)
成绩
教师评语
教师签名：
年月日
实验报告内容（包括实验目的、原理、使用的仪器设备、实验步骤、实验过程及原始记录、实验结果及分析等）
一、实验目的
1．掌握静态数组的声明、数组元素的引用。
2．掌握一维静态数组的输入/输出方法。
3．掌握一维静态数组的常用算法。
二、实验项目
1、对于具有10个元素的一维数组，编程求其最大值和最小值。
2、对于具有10个元素的一维数组，编程使其按逆序存放并输出。
三、界面设计（窗体和控件属性说明）
1、
对象名称
属性
设abel1
1、
Text1中输入半径12，单击“圆面积”按钮，在Text2中显示452.3893344，单击“圆周长”，在Text3中显示75.3982224。
输入3.5，分别显示38.48450935和21.9911482。
2、
六、分析和体会（任选几条，此为可选项）

单级交流放大电路实验报告数据处理

一、实验目的1. 熟悉电子元器件和模拟电路实验箱的使用。

2. 掌握放大电路静态工作点的调试方法及其对放大电路性能的影响。

3. 学习测量放大电路Q点、AV、ri、ro的方法，了解共射极电路特性。

4. 学习放大电路的动态性能。

二、实验原理单级交流放大电路由放大器管、直流偏置电路和耦合电容组成。

其中，放大器管是核心部件，它能够放大输入信号的电压或电流。

直流偏置电路可以提供稳定的工作电压，确保输出信号的稳定。

本实验以NPN三极管的共发射极放大电路为例，通过调整电路参数，观察放大电路的性能。

三、实验仪器1. 示波器2. 信号发生器3. 数字万用表四、实验数据1. 静态工作点数据- VCC（电源电压）：12V- VB（基极电压）：2.5V- VC（集电极电压）：10V- IB（基极电流）：5mA- IC（集电极电流）：50mA- UCE（集电极与发射极间电压）：3V2. 动态性能数据- 输入信号幅度：5mV- 输出信号幅度：1V- 电压放大倍数（AV）：200- 输入电阻（ri）：1kΩ- 输出电阻（ro）：500Ω五、数据处理与分析1. 静态工作点分析通过实验数据可以看出，静态工作点VB、VC、IB、IC、UCE均符合设计要求。

VB 在2.5V左右，VC在10V左右，IB在5mA左右，IC在50mA左右，UCE在3V左右。

这说明电路的静态工作点设置合理，能够保证放大电路的正常工作。

2. 动态性能分析（1）电压放大倍数（AV）根据实验数据，电压放大倍数AV为200，符合设计要求。

这说明电路具有良好的电压放大能力。

（2）输入电阻（ri）根据实验数据，输入电阻ri为1kΩ，符合设计要求。

这说明电路具有良好的输入电阻特性。

（3）输出电阻（ro）根据实验数据，输出电阻ro为500Ω，符合设计要求。

这说明电路具有良好的输出电阻特性。

（4）失真分析在实验过程中，观察到输出波形在输入信号幅度较小的情况下没有失真，但在输入信号幅度较大时出现了失真。

vb关于for 循环实验报告

VB程序设计课内实验报告书系部名称：学生姓名：专业名称：班级：学号：时间： 2012-3-30 至 2012-4-9实验题目过程一、实验目的1．掌握if语句的使用。

2．掌握if语句的各种形式的使用。

3．掌握如何控制顺序结构和分支结构条件，防治if语句的错误。

二、实验内容实验一：利用分支结构判断输入的数是奇数还是偶数。

实验二：计算函数x (x≤1)y= 3x-2 (1≤x＜10)4x-12 (x≥10)实验三（选做）：判断象限三、设计方案（程序，界面）实验一：1.打开Visual Basic，新建一个EXE工程。

2.创建一个按钮命名Command1,双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4；4．分别保存工程文件和窗体文件实验二： 1. 打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图：1－2图1－23. 运行程序,点击Command1,得结果如图1-5；4．分别保存工程文件和窗体文件。

实验三： 1.打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图1-3.图1－33. 运行程序,点击Command1,得结果如图1-64．分别保存工程文件和窗体文件。

四、结果及分析实验一图1－4 实验二：图1－5-1图1-5-2图1-5-3 实验三：图1－6五、调试情况，设计技巧及体会通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。

同时也很好的解决了在试验中发现并解决问题。

六、源程序清单实验一：Private Sub Command1_Click()Dim x As Longx = Text1.TextIf x Mod 2 = 0 ThenLabel2 = "你输入的数是:" & x & "输入的是偶数"ElseLabel2 = "你输入的数是:" & x & "输入的是奇数"End IfEnd Sub实验二：Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)If x < 1 Theny = xText2.Text = yElseIf x >= 1 And x <= 10 Theny = 3 * x - 2Text2.Text = yElseIf x >= 10 Theny = 4 * x - 12Text2.Text = yEnd IfEnd Sub实验三：Private Sub Command1_Click()If Text1.Text > 0 And Text2.Text > 0 Then Label3 = "在第一象限"ElseIf Text1.Text < 0 And Text2.Text > 0 Then Label3 = "在第二象限"ElseIf Text1.Text < 0 And Text2.Text < 0 Then Label3 = "在第三象限"ElseIf Text1.Text > 0 And Text2.Text < 0 Then Label3 = "在第四象限"ElseIf Text1.Text <> 0 And Text2.Text = 0 Then Label3 = "在x轴上"ElseIf Text2.Text <> 0 And Text1.Text = 0 Then Label3 = "在y轴上"ElseIf Text2.Text = 0 And Text1.Text = 0 Then Label3 = "在原点上"End IfEnd Sub。

vb实用案例50例

实验报告11实验报告2：实验题目1：设计窗体。

参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。

参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。

苯妥英钠的实验报告

苯妥英钠的实验报告篇一:苯妥英钠设计性实验报告设计性实验报告实验名称:苯妥英钠的制备与分析姓名:闫洁班级:1220422学号:39日期:2015.11.2设计性实验报告一、实验目的1(学习安息香缩合反应的原理和应用维生素B1及氰化钠为催化剂进行反应的实验方法。

2(学习有害气体的排出方法。

3.学习二苯羟乙酸重排反应机理。

4.掌握用硝酸氧化的实验方法。

二、实验方案一1、实验原理1.安息香缩合反应(安息香的制备)VitB1CHOor NaCNH2.氧化反应(二苯乙二酮的制备)HNO3OH3.二苯羟乙酸重排及缩合反应(苯妥英的制备)O1.H2NCONH2/NaOHH5C62.HClH5C6 O4.成盐反应(苯妥英钠的制备) OOH5C6NaOHH5C6OH H5C6H5C6H2ON HHNONHONaNH2、实验仪器与药品仪器:烧杯(500 ml 250 ml)量筒、锥形瓶、三颈瓶、抽滤瓶、球形冷凝管、干燥管、水浴锅、布氏漏斗、温度计、玻璃棒、抽滤器、药品:苯甲醛、盐酸硫胺、氢氧化钠、无水乙醇、硝酸、浓盐酸4、实验装置图5、实验步骤(一)安息香的制备(盐酸硫胺催化) 1.原料规格及用量配比名称规格用量摩尔数摩尔比苯甲醛 CP d 1.050 bp179.9?20 ml 0.2盐酸硫胺原料药 3.5 g 氢氧化钠 CP 10 ml2. 操作在100 ml三口瓶中加入3.5 g盐酸硫胺(Vit.B1)和8 ml水，溶解后加入95,乙醇30 ml。

搅拌下滴加2 mol/L NaOH溶液10 m1。

再取新蒸苯甲醛20 ml，加入上述反应瓶中。

水浴加热至70?左右反应1.5 h。

冷却，抽滤，用少量冷水洗涤。

干燥后得粗品。

测定熔点，计算收率。

mp 136—l37?注:也可采用室温放置的方法制备安息香，即将上述原料依次加入到100 ml三角瓶中，室温放置有结晶析出，抽滤，用冷水洗涤。

于燥后得粗品。

测定熔点，计算收率。