Vb设计实验报告
计算机程序设计语言(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命名并保存。
答案：计算并输出圆的周长和面积。在窗体上显示和及平均值。利用InputBox函数将字符串进行相加和联接
班级：管08A-5学号：10901060201姓名：张跃洋
实验题目
顺序结构
实验目的
1.掌握赋值语句的使用方法
2.掌握数据输入、输出函数和语句，尤其是InputBox函数
实验内容
程序1：编程输入圆的半径，计算并输出圆的周长和面积。
方法一：用Inputbox函数实现圆半径的输入，用Print方法输出周长和面积。
c = "请输入第三个数""输入并计算"
d = "请输入第个数""输入并计算"
yi = InputBox(a, "输入成绩")
er = InputBox(b, "输入成绩")
san = InputBox(c, "输入成绩")
si = InputBox(d, "输入成绩")
qh = Val(yi) + Val(er) + Val(san) + Val(si)
方法二：用文本框控件实现半径的输入，用标签控件实际周长和面积的输出。
程序2：从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值。
Private Sub Command1_Click()
a = "请输入第一个数""输入并计算"
b = "请输入第二个数""输入并计算"
Text2.Text = Val(a) + Val(b)
End Sub
编译、运行过程中出现的主要问题及解决方法
&和+的区别：两个数值运算时
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用户界面设计实验报告（共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关于if语句实验报告
VB程序设计课内实验报告书系部名称：学生姓名：专业名称：班级：学号：时间：实验题目过程一、实验目的1．掌握for语句的使用。
2．掌握for语句的各种形式的使用。
3．掌握如何控制循环条件，防治死循环或不循环。
二、实验内容实验一：利用for语句实现1-3图形的输出。
实验二：利用for语句实现2-3图形的输出。
三、设计方案（程序，界面）实验一：1.打开Visual Basic，新建一个EXE工程。
2.创建一个按钮命名图（a）,双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4；4．分别保存工程文件和窗体文件实验二： 1. 打开Visual Basic，新建一个EXE工程2．创建一个按钮命名图（b）,双击Command1编写程序如图：1－2图2－13. 运行程序,点击Command1,得结果如图1-5；4．分别保存工程文件和窗体文件。
四、结果及分析实验一图1－2实验二：图2－2五、调试情况，设计技巧及体会通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。
同时也学习到处理一些突发问题的能力。
六、源程序清单实验一：Private Sub Command2_Click()For i = 1 To 4Print Spc(4 - i); String(2 * i - 1, Trim(i))Next iEnd Sub实验二：Private Sub Command1_Click()For i = 1 To 5Print Tab(i); String(6 - i, "*")Next iEnd Sub。
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实验报告实验一
vb实验报告实验一VB实验报告实验一引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。
本实验旨在通过实际操作，了解VB的基本语法和开发环境，并通过一个简单的案例来展示VB的应用。
一、实验目的本实验的主要目的是让学生熟悉VB的开发环境和基本语法，并通过一个简单的案例来加深对VB的理解和应用。
二、实验内容本实验的主要内容包括：1. VB开发环境的安装与配置；2. VB的基本语法和控件的使用；3. 通过一个简单的案例来展示VB的应用。
三、实验步骤1. 安装VB开发环境：根据教材提供的安装包，按照步骤进行安装，并进行必要的配置。
2. 创建新项目：打开VB开发环境，点击“新建项目”，选择Windows应用程序，并设置项目名称和保存路径。
3. 设计界面：在VB的设计界面中，通过拖拽控件的方式，设计出所需的界面布局，并设置控件的属性。
4. 编写代码：在VB的代码编辑器中，编写相应的代码，实现界面与功能的交互。
5. 调试运行：点击“调试”菜单中的“开始调试”选项，运行程序，并检查是否达到预期效果。
6. 保存项目：在调试运行成功后，及时保存项目并进行备份。
四、实验案例本实验以一个简单的学生成绩管理系统为例，通过VB实现以下功能：1. 学生信息录入：通过输入学生的姓名、学号、成绩等信息，将其保存到数据库中。
2. 学生信息查询：根据学号或姓名等关键字，从数据库中查询学生的信息，并在界面中显示出来。
3. 学生成绩统计：根据数据库中保存的学生信息，计算出平均成绩、最高分和最低分，并在界面中显示出来。
实验结果：经过以上步骤的实验操作，我们成功地实现了一个简单的学生成绩管理系统。
通过该系统，我们可以方便地录入、查询和统计学生的成绩信息。
实验总结：通过本次实验，我们深入了解了VB的开发环境和基本语法，并通过一个简单的案例来加深对VB的理解和应用。
通过实际操作，我们掌握了VB开发的基本流程，提高了编程能力和解决问题的能力。
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实验报告格式
输入半径
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、
六、分析和体会（任选几条，此为可选项）
vb猜数字游戏课程设计报告
vb猜数字游戏课程设计报告猜数字游戏猜数字游戏实验报告课程设计的目的课程设计为学生提供了一个既能动手又能动脑,独立实践的机会,将课本上的vb 课理论知识和实践有机的结合起来,锻炼学生的分析解决实际问题的能力、提高运用vb应用的能力。
课程设计题目和简介猜数字游戏,游戏开始时系统将随机产生一个数字不同的四位数,玩家根据游戏提示纠正答案,1A0B,表示猜中一个数字且位置正确,2A2B,有两个数字正确且位置正确有两个数字正确当位置不正确,输入的数字不能相同也不能为空而且只有十次机会。
设计说明开始游戏 Randomize产生随机数用户输入值确定比较随机值与输入值给出提示退出游戏设计思路首先要创建三个窗口,form1是进入游戏界面,form2是游戏运行界面,form3是游戏规则介绍。
1其次要按要求实现三个窗口的show与hide在代码为Private Sub command*_click()form*.showForm*.hideEnd sub在form3中我没有用这种方法,因为在form3中又关闭按钮,如果想之前一样的话,按关闭按钮就直接退出游戏了,而我想要实现是再次回到游戏进入界面,所以有用了一个方法代码为:Private sub form_unload(Cancle as integer)Form1.showEnd sub这样子就防止之前那种情况的发生了下一步开始创建控件现在form1中创建游戏进入界面,根据游戏需要应该创建3个command控件,和一个label控件2然后开始编写代码代码如下Private Sub Command1_Click()Form1.Hideform2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()EndEnd Sub3Private Sub Form_Load()Label1.BackStyle = 0 把label1的背景方式改为透明 End Sub当然也可以在form1的界面上加上自己喜欢的图片,需要在picture中加载然后在form3中设计游戏规则界面这个界面中我把最大化与最化省去了,然后把关闭按钮编写了一下在form3的属性栏中吧minbutton和maxbutton的属性改为false这4样子就不会有最大最小化按钮了剩下的就编写代码了 Private SubForm_Load()Label1.BackStyle = 0End SubPrivate Sub Form_unload(Cancle As Integer)Form1.ShowEnd Sub也可以在form3界面中加载自己喜欢的图片下面的也是这个程序中最重要的程序——游戏的编写首先应该创建控件5也就是说要创建4个command控件和4个text控件2个label控件然后开始编写代码Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As IntegerPublic cishu As IntegerPrivate Sub Command1_Click() 在点击开始按钮之后command是可见的,可使用的Command2.Enabled = TrueCommand3.Enabled = True Randomize 随机产生四个不同的数字Label2.Caption = 0 & "A" & 0 & "B"a1 = Int(10 * Rnd)Doa2 = Int(10 * Rnd)6Loop While a2 = a1Doa3 = Int(10 * Rnd)Loop While a3 = a1 Or a3 = a2Doa4 = Int(10 * Rnd)Loop While a4 = a1 Or a4 = a2 Or a4 = a3Label1.Caption = "已经随机产生了一个数字,0~9,不同的四位数，猜猜是什么数吧，"End SubPrivate Sub Command2_Click() 重新开始游戏的设置cishu = 0Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""RandomizeLabel2.Caption = 0 & "A" & 0 & "B"7a1 = Int(10 * Rnd)Doa2 = Int(10 * Rnd)Loop While a2 = a1Doa3 = Int(10 * Rnd)Loop While a3 = a1 Or a3 = a2Doa4 = Int(10 * Rnd)Loop While a4 = a1 Or a4 = a2 Or a4 = a3Label1.Caption = "已经随机产生了一个数字,0~9,不同的四位数，猜猜是什么数吧，"End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load() 可以使command2和command3点击开始游戏按扭之前是灰色的不可用的Command2.Enabled = False8Command3.Enabled = FalseLabel1.BackStyle = 0Label2.BackStyle = 0 End SubPrivate Sub Text1_Change() Text控件中焦点的设置If Len(Text1.Text) = 1 ThenText2.SetFocusEnd IfEnd SubPrivate Sub text2_change()If Len(Text2.Text) = 1 ThenText3.SetFocusEnd IfEnd SubPrivate Sub text3_change()If Len(Text3.Text) = 1 ThenText4.SetFocusEnd IfEnd SubPrivate Sub Command3_Click() 猜数字真确与否的代码9Dim tmp1 As Integer, tmp2 As Integer, tmp3 As Integer, tmp4 As IntegerDim A As Integer, B As IntegerA = 0B = 0If cishu = 9 ThenMsgBox "很遗憾，你已经猜了10次答案是" & a1 & a2 & a3 & a4, , "猜数字"Exit SubEnd Iftmp1 = Val(Text1.Text)tmp2 = Val(Text2.Text)tmp3 = Val(Text3.Text)tmp4 = Val(Text4.Text)If tmp1 = tmp2 Or tmp1 = tmp3 Or tmp1 = tmp4 ThenMsgBox "输入的数字不能相同,请重新输入", 48, "猜数字游戏"End IfIf tmp2 = tmp3 Or tmp2 = tmp4 Or tmp2 = tmp1 ThenMsgBox "输入的数字不能相同,请重新输入", 16, "猜数字游戏"10End IfIf tmp3 = tmp4 Or tmp3 = tmp2 Or tmp3 = tmp1 ThenMsgBox "输入的数字不能相同,请重新输入", 64, "猜数字游戏"End IfIf tmp4 = tmp1 Or tmp4 = tmp2 Or tmp4 = tmp3 ThenMsgBox "输入的数不能相同,请重新输入", 48, "猜数字游戏"End Ifcishu = cishu + 1If tmp1 = a1 ThenA = A + 1ElseIf tmp1 = a2 Or tmp1 = a3 Or tmp1 = a4 Then B = B + 1End IfIf tmp2 = a2 ThenA = A + 1ElseIf tmp2 = a1 Or tmp2 = a3 Or rmp2 = a4 Then B = B + 1End IfIf tmp3 = a3 ThenA = A + 111ElseIf tmp3 = a1 Or tmp3 = a2 Or tmp3 = a4 Then B = B + 1End IfIf tmp4 = a4 ThenA = A + 1ElseIf tmp4 = a1 Or tmp4 = a2 Or tmp4 = a3 Then B = B + 1End IfLabel2.Caption = A & "A" & B & "B"If A = 4 ThenMsgBox "恭喜你,你猜对了，" & "你一共猜了" & cishu & "次",, "猜数字游戏"End IfEnd SubPrivate Sub text1_Click() 设置鼠标点解text自动消除数字Text1.Text = ""End SubPrivate Sub text2_Click()Text2.Text = ""End SubPrivate Sub text3_Click()Text3.Text = ""12End SubPrivate Sub text4_Click()Text4.Text = ""End Sub另外需要设置text中数字的大小和输入长度,在font属性栏中设置数字的大小,在maxlength的属性栏中改为1,使在text控件中只能输入一个数字。
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：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
前方交会实验报告(含VB程序代码)
立体像对前方交会实验报告一、实验目的在掌握前方交会原理的基础上，自己编写前方交会程序，在计算机上调试，输出计算结果并对计算结果进行检验。
通过上机调试程序加强动手能力的培养，通过对实验过程的掌握以及对实验结果的分析，增强学生综合运用所学知识解决实际问题的能力。
二、实验仪器计算机，VB6.0三、实验数据1.模拟像片一对：左片号23，右片号24；2.航摄机主距：f=150mm；3.左片23号片外方位元素：φ=−0°25′00″ω=−1°00′00″k=−0°10′00″Xs=103007.006117 Ys=139998.994849 Zs=4801.9989994 （m）右片24号片外方为元素：φ=1°39′59″ω=−0°10′00″k=0°40′00″Xs=106002.023762 Ys=140005.002780 Zs=4797.009648 （m）待求像点坐标如下表：四、实验内容利用所给立体像对两张像片的内、外方位元素，编写空间前方交会程序，根据所给像对中若干同名像点在左右像片上的坐标，解求其对应的地面点的物方坐标，实现空间前方交会的过程。
五、实验成果程序流程图：程序设计界面：程序运行界面：运行结果：（注：表上显示地面点坐标依次是：7,9,4,6,5,8）附：excel进行角度转换：六、程序如下：Dim f#, x1#, y1#, x2#, y2#, i%, j%, u1#, u2#, v1#, v2#, w1#, w2#, fai1#, kab1#, omg1#, fai2#, kab2#, omg2# Dim a12#, a13#, b11#, b12#, b13#, c11#, c12#, c13#, a21#, a22#, a23#, b21#, b22#, b23#, c21#, c22#, c23# Dim n1#, n2#, bu#, bv#, bw#Dim xs1#, xs2#, ys1#, ys2#, zs1#, zs2#Private Sub Command1_Click()fai1 = Val(Text1.Text): kab1 = Val(Text3.Text): omg1 = Val(Text2.Text)fai2 = Val(Text11.Text): kab2 = Val(Text10.Text): omg2 = Val(Text7.Text)f = Val(Text13.Text)xs1 = Val(Text4.Text): xs2 = Val(Text9.Text): ys1 = Val(Text5.Text): ys2 = Val(Text8.Text): zs1 = Val(Text6.Text): zs2 = Val(Text12.Text)End SubPrivate Sub Command3_Click()x1 = Val(InputBox("输入23片坐标x的值"))y1 = Val(InputBox("输入23片坐标y的值"))x2 = Val(InputBox("输入24片坐标x的值"))y2 = Val(InputBox("输入24片坐标y的值"))End SubPrivate Sub Command2_Click()Text1.Visible = FalseText2.Visible = FalseText3.Visible = FalseText4.Visible = FalseText5.Visible = FalseText6.Visible = FalseText7.Visible = FalseText8.Visible = FalseText9.Visible = FalseText10.Visible = FalseText11.Visible = FalseText12.Visible = FalseText13.Visible = FalseLabel1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = FalseLabel4.Visible = FalseLabel5.Visible = FalseLabel6.Visible = FalseLabel7.Visible = FalseLabel8.Visible = FalseLabel9.Visible = FalseLabel10.Visible = FalseLabel11.Visible = FalseLabel12.Visible = FalseLabel13.Visible = FalseLabel14.Visible = Falsea11 = Cos(fai1) * Cos(kab1) - Sin(fai1) * Sin(omg1) * Sin(kab1)a12 = -Cos(fai1) * Sin(kab1) - Sin(fai1) * Sin(omg1) * Cos(kab1)a13 = -Sin(fai1) * Cos(omg1)b11 = Cos(omg1) * Sin(kab1)b12 = Cos(omg1) * Cos(kab1)b13 = -Sin(omg1)c11 = Sin(fai1) * Cos(kab1) + Cos(fai1) * Sin(omg1) * Sin(kab1)c12 = -Sin(fai1) * Sin(kab1) + Cos(fai1) * Sin(omg1) * Cos(kab1)c13 = Cos(fai1) * Cos(omg1)a21 = Cos(fai2) * Cos(kab2) - Sin(fai2) * Sin(omg2) * Sin(kab2)a22 = -Cos(fai2) * Sin(kab2) - Sin(fai2) * Sin(omg2) * Cos(kab2)a23 = -Sin(fai2) * Cos(omg2)b21 = Cos(omg2) * Sin(kab2)b22 = Cos(omg2) * Cos(kab2)b23 = -Sin(omg2)c21 = Sin(fai2) * Cos(kab2) + Cos(fai2) * Sin(omg2) * Sin(kab2)c22 = -Sin(fai2) * Sin(kab2) + Cos(fai2) * Sin(omg2) * Cos(kab2)c23 = Cos(fai2) * Cos(omg2)u1 = a11 * x1 + a12 * y1 - a13 * fv1 = b11 * x1 + b12 * y1 - b13 * fw1 = c11 * x1 + c12 * y1 - c13 * fu2 = a21 * x2 + a22 * y2 - a23 * fv2 = b21 * x2 + b22 * y2 - b23 * fw2 = c21 * x2 + c22 * y2 - c23 * fbu = xs2 - xs1bv = ys2 - ys1bw = zs2 - zs1n1 = (bu * w2 - bw * u2) / (u1 * w2 - u2 * w1)n2 = (bu * w1 - bw * u1) / (u1 * w2 - u2 * w1)Dim xx#, yy#, yy1#, yy2#, zz#xx = Fix((xs1 + u1 * n1) * 1000 + 0.5) / 1000yy1 = Val(Text5.Text) + v1 * n1yy2 = Val(Text8.Text) + v2 * n2yy = Fix(((yy1 + yy2) / 2) * 1000 + 0.5) / 1000zz = Fix((Val(Text6.Text) + w1 * n1) * 1000 + 0.5) / 1000Form1.Print "地面坐标为:"Form1.Print "xx="; xx, "yy="; yy; "zz="; zzEnd Sub七、实验心得通过本次前方交会实验，熟悉掌握了前方交会原理，并利用计算机程序对其进行了解决，收益颇多！。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Vb设计实验报告
一、设计内容和目的
这次实验设计，我做的是学生信息管理系统，主要功能是提供学生信息保存和查询功能。
主要分为个窗口，其具体功能如下：
1、登录窗口：提供学生和管理员登录。
2、信息管理窗口：主操作窗口，可以进行重登陆、注销、退出、用户查询、
管理员管理、系统信息的操作。
包括一个下拉菜单和工具栏。
3、用户查询窗口：可以查询数据库中保存的学生信息。
4、管理员管理窗口：只有管理员可以进入，显示数据库中所有的学生信息，
并且可以添加修改。
5、系统信息窗口：是系统的信息内容。
另外，根据网上的代码，我又制作了俄罗斯方块小游戏和画图工具。
二、设计过程：
1、实验构思：在系统设计之前，对实验内容和结构的构思占据了相当一部分时
间。
最终决定做一个“学生信息管理系统”，这样比较贴近自身情况，也有比较多的内容可以设计。
2、技术实现：在制作过程中主要使用了vb2005和数据库技术实现系统的设计、
实现和运行。
Photoshop等技术使程序的界面看起来更加友好。
3、运行调试：在系统制作中的运行调试过程中，出现了很多问题，比如各窗口
之间的调用和访问，如何退出，控件的背景设置、字体颜色设置等，都需要经过一遍遍的调试发现、解决。
4、系统打包：在打包的时候，我按照老师给的方法一步步设置，可是由于粗心
等原因，总是达不到满意的效果，直到第三次才真正成功。
三、系统结构：
如一所述，系统分为5个模块，各个模块之间可以自由访问。
四、实验结果：
该系统能够提供学生和管理员两种类型的登录，
可以实现学生信息的查询、管理员对信息的
修改，等。
五、设计心得：
在设计过程中，遇到了许多困难，比如：数据库无法连接、窗口无法正常访问、控件背景与窗体背景不协调等。
后来通过查看课本和访问网络将这些问题解决了。
在这个过程中，我深深体会到大作业的用意：将所学理论知识用于实践。
正是因为这样，许多理论上的知识才能真正得到理解。
处理问题的过程，也就是学习的过程。
背课本何其简单，真正的能力却是将课本运用到实践中去！。