当前位置：文档之家 › VB程序设计报告

VB程序设计报告

  • 格式：pdf
  • 大小：1009.36 KB
  • 文档页数：16

下载文档原格式

  / 16

合集下载

计算机程序设计语言(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用户界面设计实验报告（共9篇）

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语言程序设计

VB语言程序设计

第一题设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n 的随机整数，并分别显示在3个标签中。

程序如下：Private Sub Form_Load() ‘加载Dim n As Integer, a As Integer ‘定义随机变量Dim b As Integer, c As IntegerRandomize ‘使rnd函数产生不同序列的随机数n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框供用户输入数值a = Int(n * Rnd) ‘在小于n的数随机选取一树值“下同”b = Int(n * Rnd)c = Int(n * Rnd)Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同”Label2.Caption = bLabel3.Caption = cEnd Sub ‘结束运行第二题设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数.程序如下：Private Sub Command1_Click() '执行Dim m As Single, a As Single '定义变量为单精度Dim b As Single, c As SingleDim d As Singlea = Val(Text1.Text) '为变量赋值b = Val(Text2.Text)c = Val(Text3.Text)第三题设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。

VB课程设计报告

VB课程设计报告

课程设计(论文)任务书机电学院专业班一、课程设计(论文)题目：数学宝典二、课程设计(论文)工作自20 年 1 月4日起至 20 年1 月 8 日止三、课程设计(论文) 地点: 计算中心机房四、课程设计(论文)内容要求：1. 本课程设计的目的（1）掌握VB语言的数据类型和各种语句、各种控件和函数的使用；（2）培养学生独立设计算法、编写调试程序的能力；（3）培养学生分析、解决问题的能力；（4）提高学生的科技论文写作能力。

2. 课程设计的任务及要求设计一个提供计算多项数学问题的程序，至少包含3个数学问题（例如求1!+2!+3!+……+n!；用公式计算e的近似值；）用户可自行选择计算的问题。

1）基本要求：（1）贯彻事件驱动的程序设计思想；（2）要求界面设计简洁、美观、实用；（3）编程、调试、运行结果正确；（4）给程序做出必要的注释，以增强程序的可读性。

（5）.提供条件控制功能，如计算e的近似值时要将精度控制在10-9，（键盘提示出n 的取值范围）防止计算结果溢出；2）创新要求：在基本要求达到后，可进行创新设计，可以对界面或内容进行创新，界面友好，人性化，内容新颖。

3) 课程设计报告撰写及装订要求课程设计报告的撰写要求语句通顺，格式规范，图文并茂。

报告按如下内容和顺序用A4纸进行打印并装订成册。

（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。

（2）设计任务书（3）评阅书（4）目录（5）正文（6）主要参考文献4) 课程设计评分标准：（1）考勤与课程设计态度：20分；（2）完成设计过程：40分；（3）完成调试：20分；（4）论文质量：20分。

5）参考文献：（1）吴昊.《VB程序设计教程》中国铁道出版社（2）龚沛曾《VB程序设计简明教程》高等教育出版社（3）王栋《VB程序设计实用教程》清华大学出版社6）课程设计进度安排内容天数地点构思及收集资料1图书馆编程与调试3实验室撰写论文1图书馆、实验室学生签名：年月日课程设计（论文）评阅意见评阅人职称讲师20 年1月9日目录一、绪论 (5)1.1 Visual Basic 概念1.2 Visual Basic系统的术语1.3 系统的主要特点1.4课程设计的背景与目的二、需求分析 (7)2.1社会和技术需求分析2.2客户和功能需求分析三、概要设计 (8)3.1课程设计的开发流程3.2主要算法思想原理四、详细设计 (10)4.1程序源代码五、运行结果及分析 (13)5.1各数学问题的运行结果与分析5.2调试过程六、课程设计心得 (20)6.1此次课程设计总结6.2系统存在的问题及解决策略6.3对VB这门课程的学习心得七、参考文献 (21)第1章绪论1.1 Visual Basic 概念Visual Basic（简称VB）是Microsoft公司在Basic语言的基础之上推出的软件开发工具，它是一种基于对象的可视化编程语言，是目前Windows平台上设计应用程序最为快捷的工具之一。

VB程序设计实训报告

VB程序设计实训报告

VB程序设计实训报告VB程序设计实训报告VB编程设计实训报告一，实训目的：加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。

二，实训时间:202*年10月202*年11月三，实训方式：上机操作四，实训类容：这次在杨立雄老师的带领下，利用VB开发工具与数据库SQL开发一个使用的小型管理信息系统。

我选择了学籍管理系统。

它的功能要求如下：1，学籍信息输入：实现学生基本情况的输入。

包括各个学生的情况，姓名，家庭号码，家庭住址，学号等各个信息。

2，学籍信息管理：本模块实现了信息的修改，删除，查询。

还有个人信息。

把信息统计这个繁琐的工作简单化，为学生信息的管理方面提高工作效率。

3，学籍信息查询：通过输入学号便可以查询到这个学生的全部信息，包括姓名，性别，出生年月，班级，入学日期，联系电话，奖励和成绩表都一目了然，很大的方便了教工们查询学生信息的过程。

4，统计查询：实现查询全班人数，男女生比例等。

五，实训体会：这次实训，感觉既有趣又有些辛苦。

这还是老师担心我们适应不了所以没教那么多知识，即使这样我们仍学到了比以前上学时更多的知识，而且这些知识有好多都是我们自己去领悟的到的。

我也知道有人比我们更累，所以我自觉得还是挺好的。

经过这次的实训，我真真切切的感受到了计算机在我们生活中工作中的运用，这些软件，程序能让我们提高工作的效率，更直观更便捷切入主题。

这次我们学习的是数据源的原理及应用的各方面知识，由老师带着我们不断操作。

VB能有效的组织，管理和共享数据库信息，能把数据库信息与ADO结合在一起，实现数据库信息的共享。

同时，VB概念清晰，简单易学，使用。

是适合企业管理人员，数据库管理员使用的首选。

我觉得学习了这个，对我们参加工作后制表，创建查询，数据分析和材料演示都有很大的作用，这样，我们能更清楚的了解信息并进行分析。

当然，在学习的过程并不是一帆风顺的，在这之中，因为要操作的东西很多，有时错一步，后面的结果都无法显示，而自己的计算机反应慢，根本检查不出来是哪里出了错。

vb程序设计实验心得_ui设计心得体会与总结

vb程序设计实验心得_ui设计心得体会与总结

vb程序设计实验心得_ui设计心得体会与总结在进行VB程序设计实验过程中，我积累了不少心得体会与经验，对UI设计也有一些心得总结。

下面就我在VB程序设计实验中的心得体会与UI设计的心得进行总结。

对于VB程序设计实验，我发现编写代码之前，合理规划程序结构是非常重要的。

在实验开始前，要对实验的功能需求进行分析和梳理，明确程序需要实现的功能和界面要求。

然后，根据需求确定程序的主要模块和子程序，划分出合理的函数和过程。

这样做有助于提高代码的可读性和可维护性，并能够更好地使不同模块之间的功能职责分明，相互独立。

在实验中，我遵循了这个原则，对程序进行了良好的结构规划，保证了程序的可扩展性和可维护性。

在UI设计方面，我发现界面的布局和色彩搭配对于用户体验至关重要。

在设计界面时，要注意将相关功能模块归类放置，并采用合适的布局方式进行排版。

界面的配色方案要与程序的功能和主题相匹配，色彩应该简练、舒适、协调，从而提升用户体验感。

在实验中，我根据实验的主题和功能，灵活运用了界面布局和色彩搭配的原则，使得界面看起来简洁、美观，并且呼应了实验的主题。

对于UI设计，我也注意到用户友好性的重要性。

用户友好性是指界面设计应该符合用户的使用习惯和认知规律，让用户能够快速理解和使用程序。

在设计界面时，要尽量减少用户的操作步骤和点击次数，提供直观明了的操作提示和用户交互反馈。

要根据实际使用场景，合理设置各种交互元素和功能按钮，以方便用户的操作。

在实验中，我针对用户友好性进行了一些优化设计，如添加操作提示文本、设置合理的按钮位置和大小等，大大提升了程序的易用性和用户满意度。

通过VB程序设计实验，我深刻体会到了良好的代码编写和UI设计对于程序的重要性。

一个优秀的VB程序应该不仅具备良好的功能性，还应该具备良好的可读性、可维护性和用户友好性。

只有在平衡好这些方面的关系上下功夫，才能够开发出高质量的VB程序。

在以后的学习和工作中，我将继续努力提高自己的编码和设计水平，为开发出更好的程序而努力。

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程序设计课程设计报告彩票一、课程目标知识目标：1. 让学生理解VB程序设计的基本原理和彩票业务逻辑；2. 掌握运用VB编程实现彩票号码生成、显示、存储等功能；3. 学会分析彩票系统中的随机数生成算法及其应用。

技能目标：1. 能够运用VB编程语言编写简单的彩票程序，实现基本功能；2. 培养学生独立分析问题、解决问题的能力；3. 提高学生的编程实践能力和团队协作能力。

情感态度价值观目标：1. 培养学生对计算机编程的兴趣，激发学习积极性；2. 培养学生严谨、细致的学习态度，养成良好的编程习惯；3. 增强学生的创新意识，鼓励尝试和探索。

课程性质：本课程为选修课，旨在让学生在掌握基本编程知识的基础上，进一步提高编程实践能力。

学生特点：学生已经具备一定的计算机操作能力和VB编程基础，对新鲜事物充满好奇心。

教学要求：注重理论与实践相结合，鼓励学生动手实践，培养实际编程能力。

在教学过程中，将课程目标分解为具体的学习成果，以便进行教学设计和评估。

通过本课程的学习，使学生能够独立完成一个简单的彩票程序设计，提高学生的编程技能和创新能力。

二、教学内容1. 彩票系统概述：介绍彩票的基本概念、分类及我国彩票市场现状。

2. VB程序设计基础：回顾VB编程环境、基本语法和数据类型。

3. 随机数生成算法：讲解伪随机数生成方法，分析在彩票程序中的应用。

4. 彩票号码生成与显示：学习如何使用VB实现随机生成彩票号码，并在界面上显示。

5. 彩票号码存储与查询：教授如何将生成的彩票号码存储到文件中，并实现查询功能。

6. 彩票程序调试与优化：介绍程序调试方法，分析程序性能，进行优化。

教学内容安排与进度：第1周：彩票系统概述，VB程序设计基础回顾；第2周：随机数生成算法，彩票号码生成与显示；第3周：彩票号码存储与查询；第4周：彩票程序调试与优化。

教材章节关联：1. 彩票系统概述：与教材第1章“VB程序设计概述”相关；2. VB程序设计基础：与教材第2-3章“VB基本语法”和“数据类型”相关；3. 随机数生成算法：与教材第4章“随机数”相关；4. 彩票号码生成与显示、存储与查询：与教材第5章“文件操作”和第6章“界面设计”相关；5. 彩票程序调试与优化：与教材第7章“程序调试与优化”相关。

俄罗斯方块vb代码

信阳农业高等专科学校《Visual Basic程序设计》课程设计报告报告题目：俄罗斯方块系别：计算机科学系专业：应用电子班级： 10级电子一班姓名：师艳霞辅导老师：侯丽萍完成时间：2011.12.10内容简介我设计的是一个游戏《俄罗斯方块》。

打开Visual Basic程序，创建一个工程，一、新建一个窗体form1,如图所示：二、新建窗体form2，设计窗体，如图所示：将这个窗体的caption属性改为“俄罗斯方块游戏设置”,关卡（速度）内的滑动条HScroll1的largechang属性为5，mas属性为10，min属性为1，smallchange属性为1，tabindex为2。

难度（高度）内的滑动条HScroll2属性同HScroll1，min属性为0，tabindex为4。

编写代码：Private Sub Command2_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command1_Click()Form2.HideForm3.ShowForm3.Text2.Text = HScroll1.Value Form3.Text1.Text = HScroll2.Value End SubPrivate Sub HScroll2_Change()Frame2.Caption = "难度（高度）：" + Str(HScroll2.Value)Command1.SetFocusEnd SubPrivate Sub HScroll2_Scroll()Frame2.Caption = "难度（高度）：" + Str(HScroll2.Value)Command1.SetFocusEnd SubPrivate Sub HScroll1_Change()Frame1.Caption = "关卡（速度）：" + Str(HScroll1.Value)Command1.SetFocusEnd SubPrivate Sub HScroll1_Scroll()Frame1.Caption = "关卡（速度）：" + Str(HScroll1.Value)Command1.SetFocusEnd Sub三、新建窗体form3，设计窗体，如图：窗体的caption属性为“俄罗斯方块”，picture属性添加icon图片。

VB循环结构程序设计

VB循环结构程序设计1. 循环结构概述在VB程序设计中，循环结构用于重复执行一段代码块，以实现对特定任务的重复操作。

循环结构可以帮助提高程序的效率和灵活性，在处理一些需要重复操作的情况下非常有用。

2. VB中的循环结构2.1 DoLoop循环DoLoop循环是VB中最基本的循环结构，它可以根据指定的条件重复执行一段代码块，直到满足退出条件为止。

2.1.1 Do While循环Do While循环适用于在循环开始之前就已知循环条件的情况。

在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。

vbDo While condition' 循环体代码Loop2.1.2 Do Until循环Do Until循环与Do While循环相反，它适用于在循环开始之前并不知道循环条件的情况。

在每次循环开始前，会先判断循环条件是否为假，如果为假，则执行循环体中的代码块，然后判断循环条件，直到循环条件为真时退出循环。

vbDo Until condition' 循环体代码Loop2.2 For循环For循环是一种比较常用的循环结构，适用于循环次数已知的情况。

它通过指定循环变量的初始值、终止值和步长来控制循环的次数。

vbFor counter = start To end [Step step]' 循环体代码Next [counter]2.3 While循环While循环适用于在循环开始之前就已知循环条件的情况。

在每次循环开始前，会先判断循环条件是否为真，如果为真，则执行循环体中的代码块，然后判断循环条件，直到循环条件为假时退出循环。

vbWhile condition' 循环体代码Wend3. 循环结构应用实例以下是一个简单的应用实例，演示了如何使用循环结构来实现对一组数字进行求和的功能。

vbDim sum As IntegerDim num As IntegerDo While num <> 0Console.Write(\。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
l11ie i (1 2 ) l22ie i (2 2 ) l33ie i (3 2 )
按欧拉公式展开，取实部相等，得
3 1
同样可求得
l1 sin(1 2 ) l3 sin(3 2 ) l1 sin(1 3 ) l2 sin( 2 3 )
' 定义原动件角速度变量 ' 定义关于转向的变量 ' 定义关于 BCD 排列方向的变量
' 定义数组来储存摆角
label11 中进行机构说明 Call ddraw Call draw(0, 360) End If If lMin = l4 Then Label11.Caption = "双曲柄机构" Call ddraw Call draw(0, 360) End If If lMin = l3 Then Label11.Caption = " 曲柄摇杆机构（原动件为摇杆） " label11 中进行机构说明 s1() = bj(l1, l2, l3, l4) Call ddraw Call draw(s1(0), s1(1)) End If If lMin = l2 Then Label11.Caption = "双摇杆机构" s2 = bjd(l1, l2, l3, l4) Call ddraw Call draw(s2(0), s2(1)) End If Else Label11.Caption = "双摇杆机构" s3 = bjd(l1, l2, l3, l4) Call ddraw Call draw(s3(0), s3(1)) End If If 2 * lMax >= s Then MsgBox "无法构成四杆机构", 16, "Error" Exit Sub End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text6.Text = ""
消去 2 得
A sin 3 B cos 3 C 0
（3）
（4）
式中： A 2l1l3 sin 1
B 2l3 (l1 c o s 1 l4 )
2 2 C l2 l12 l32 l4 2l1l4 c o s1
解之得
tan(
3
2
) ( A A 2 B 2 C 2 ) /( B C )
l1e i1 l 2 e i2 l 4 l3 e i3
(2)
利用欧拉公式展开得：
l1 (cos 1 i sin 1 ) l2 (cos 2 i sin 2 ) l4 l3 (cos 3 i sin 3 )
将实部和虚部分离得：
l1 sin 1 l2 sin 2 l3 sin 3 l1 cos 1 l2 cos 2 l4 l3 cos 3
2.程序代码
Const pi As Double = 3.1415926 Dim l1 As Double Dim l2 As Double Dim l3 As Double Dim l4 As Double Dim w1 As Double Dim n As Integer Dim m As Integer Private Sub Command1_Click() On Error Resume Next l1 = Val(Text1.Text) l2 = Val(Text2.Text) l3 = Val(Text3.Text) l4 = Val(Text4.Text) w1 = Abs(Val(Text6.Text)) Dim s1() As Double Dim s2() As Double Dim s3() As Double。 Rem 判断是否输入全部数据 If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" _ Or Text4.Text = "" Or Text6.Text = "" Then MsgBox "请输入全部数据", 16, "Error" Exit Sub End If If Option1.Value = True Then '确定转向变量是顺时针还是逆时针 n = -1 Else n=1 End If If Option3.Value = True Then '确定 BCD 排列方向是顺时针还是逆时针 m = -1 Else m=1 End If lMax = Max(l1, l2, l3, l4) '取四杆中的最大值 lMin = Min(l1, l2, l3, l4) '取四杆中的最小值 s = l1 + l2 + l3 + l4 ' 求四杆长度和 If lMax + lMin <= 2 * s Then If lMin = l1 Then Label11.Caption = "曲柄摇杆机构（原动件为曲柄）" ' 满足杆长条件时 '最短杆为 l1 '在 ' 输入数据 '定义四杆的长度变量
基于 VB 的平面铰链四杆机构运动曲线绘制程序设计
设计任务
利用 VB 编写程序， 要求所编程序可以任一平面铰链四杆机构 （双曲柄机构、 曲柄摇杆机构、双摇杆机构） ，绘制出连杆和连架杆转角、角速度、角加速度随 原动件转角变化而变化的曲线。
已知条件
用户输入原动件杆长及角速度、连杆杆长、连架杆杆长、机架杆长作为已知 条件。
2 l12 (l 4 l3 ) 2 l 2 最小摆角： cos a0 2l1 (l 4 l3 ) 2 l12 (l 4 l3 ) 2 l 2 2l1 (l 4 l3 )
最大摆角： cos a1
在双摇杆机构中，当 l1 和 l2 共线时，l1 与水平（ l4 ）方向的夹角为最大和最小 摆角。如图四和图五所示。
程序编写
1.界面设计 界面中有“初始数据输入”部分， “BCD 排列方式和转动方向选择”部分， “结构示意图”区域和三个图线显示区域。用户输入全部数据后，点击“运行” ， 将在界面下部三个图线显示区域中看到运动变化曲线。 界面中的一些控件说明见 下表。 。
默认控件 Textbox Textbox Textbox Textbox Textbox OptionButton OptionButton OptionButton OptionButton Label Image PictureBox PictureBox PictureBox 控件名称 Text1 Text2 Text3 Text4 Text5 Option1 Option2 Option3 Option4 Label11 Image1 Picture1 Picture2 Picture3 含义或内容 原动件 AB 的长度 连杆 BC 的长度 连架杆 CD 的长度 机架 AD 的长度 原动件的角速度 变量：n 曲柄转向选择 变量：m BCD 排列方向选择 显示机构类型 显示结构示意图 显示转角图线 显示角速度图线 显示角加速度图线
' 绘制运动变化曲线
'最短杆为 l4 ' 在 label11 中进行机构说明 ' 绘制运动变化曲线
'最短杆为 l3 '在 ' 计算确定运动始末角度 ' 绘制运动变化曲线
' 最短杆为 l3 ' 在 label11 中进行机构说明 '计算确定运动始末角度 ' 绘制运动变化曲线
' 其他情况 '在 label11 中进行机构说明 '计算确定运动始末角度 '绘制运动变化曲线
方程推导
1. 位置分析 建立如图一的坐标系。设构件 1 的长度 为 l1 ，其方位角为 1 ， l1 为构件的杆矢量，
即 l1 =
→ AB
。 机构中其余构件均可表示为相应
的杆矢量，这样就构成了一个封闭矢量多边 形，即 ABCDA。据此得： （1） l1 l2 l4 l3 改写为复数形式得：
（11）
2 2 l33 l112 cos( 2 3 )
（12）
4. 最大和最小摆角分析 原动件是曲柄的四杆机构， 原动件做圆周转动， 而原动件是摇杆的四杆机构， 原动件做往复摆动运动。 所以对于双摇杆机构和原动件为摇杆的曲柄摇杆机构需 要确定其最大和最小摆角。 在原动件为摇杆的曲柄摇杆机构中，当 l4 与 l3 共线时， l1 与水平（ l4 ）方向 的夹角为最大和最小摆角。如图二和图三所示。
x 1 x2
) 2 arctan(1)
算法及流程图
1.算法说明 首先根据用户输入的杆长数据判断出最长感和最短杆。 如果四杆的长度满足 杆长条件（最长感和最短杆杆长之和杆长之小于等于其余两杆长度之和） ，再根 据最短杆分别是 l1 ， l2 ， l3 ， l4 时，从而确定机构分别是原动件为曲柄的曲柄摇 杆机构，双摇杆机构，原动件为摇杆的曲柄摇杆机构，双曲柄机构。如果不满足 杆长条件，则机构是双摇杆机构。如果最长杆的长度大于其余三杆长度之和，则 输入的杆长无法构成四杆机构。 通过确定的机构类型，可以求得机构原动件在一 个周期内的摆角范围（原动件为曲柄的四杆机构，其转角从 0~360°，原动件为 摇杆的四杆机构可以通过几何关系求解） 。接着由绘图区域大小和转角，角速度， 角加速度间的关系大致确定相应坐标系的范围并绘制坐标系。 再使 1 从初始摆角 开始，每一次循环给以一个微小增量，分别求出 2 ， 3 ， 2 ， 3 ， 2 ， 3 ， 描点，就形成了运动曲线。 2.流程图