开心准新娘
'这个很简单的了，你用记事本把这段代码复制过去，然后另存为.frm就可以了 '然后用vb打开。看看效果。 '以下保存为 任务名称.frm VERSION 5.00 Begin VB.Form Form1 Caption = "计算机" ClientHeight = 4230 ClientLeft = 60 ClientTop = 750 ClientWidth = 3165 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4230 ScaleWidth = 3165 StartUpPosition = 2 '屏幕中心 Begin VB.Frame Frame1 Height = 3495 Left = 120 TabIndex = 1 Top = 600 Width = 2895 Begin VB.CommandButton cmdResult Caption = "=" BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1080 TabIndex = 20 Top = 3000 Width = 1695 End Begin VB.CommandButton cmdOff Caption = "OFF" Height = 375 Left = 1560 TabIndex = 19 Top = 240 Width = 495 End Begin VB.CommandButton cmdCE Caption = "CE" Height = 375 Left = 2280 TabIndex = 18 Top = 240 Width = 495 End Begin VB.CommandButton cmdchu Caption = "/" Height = 375 Left = 2280 TabIndex = 17 Top = 2520 Width = 495 End Begin VB.CommandButton cmdjia Caption = "+" Height = 375 Left = 2280 TabIndex = 16 Top = 720 Width = 495 End Begin VB.CommandButton cmd0 Caption = "0" Height = 375 Left = 840 TabIndex = 15 Top = 2520 Width = 495 End Begin VB.CommandButton cmd6 Caption = "6" Height = 375 Left = 1560 TabIndex = 14 Top = 1320 Width = 495 End Begin VB.CommandButton cmd8 Caption = "8" Height = 375 Left = 840 TabIndex = 13 Top = 720 Width = 495 End Begin VB.CommandButton cmd4 Caption = "4" Height = 375 Left = 120 TabIndex = 12 Top = 1320 Width = 495 End Begin VB.CommandButton cmd9 Caption = "9" Height = 375 Left = 1560 TabIndex = 11 Top = 720 Width = 495 End Begin VB.CommandButton cmd2 Caption = "2" Height = 375 Left = 840 TabIndex = 10 Top = 1920 Width = 495 End Begin VB.CommandButton cmdjian Caption = "-" Height = 375 Left = 2280 TabIndex = 9 Top = 1320 Width = 495 End Begin VB.CommandButton cmdPoint Caption = "." BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1560 TabIndex = 8 Top = 2520 Width = 495 End Begin VB.CommandButton cmdcheng Caption = "*" Height = 375 Left = 2280 TabIndex = 7 Top = 1920 Width = 495 End Begin VB.CommandButton cmd5 Caption = "5" Height = 375 Left = 840 TabIndex = 6 Top = 1320 Width = 495 End Begin VB.CommandButton cmd3 Caption = "3" Height = 375 Left = 1560 TabIndex = 5 Top = 1905 Width = 495 End Begin VB.CommandButton cmd1 Caption = "1" Height = 375 Left = 120 TabIndex = 4 Top = 1920 Width = 495 End Begin VB.CommandButton cmd7 Caption = "7" Height = 375 Left = 120 TabIndex = 3 Top = 720 Width = 495 End Begin VB.CommandButton cmdChange Caption = "+/-" Height = 375 Left = 120 TabIndex = 2 Top = 2520 Width = 495 End End Begin VB.TextBox txt Alignment = 1 'Right Justify Enabled = 0 'False BeginProperty Font Name = "宋体" Size = 10.5 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 120 Locked = -1 'True TabIndex = 0 Top = 120 Width = 2895 End Begin VB.Menu meuFile Caption = "文件(&F)" Begin VB.Menu meuExit Caption = "退出(&X)" Shortcut = ^X End End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim XiaoShu As Boolean '在窗体变量中声明一个布尔值来判断是否按下了小数点键，防止txt中出现多个小数。如果已经输入了小数点则Xiaoshu为True，否则为False Dim FuHao As Byte '声明一个Byte来记录我们按下了什么符号，1为"+"，2为"-"，3为"*"，4为"/" Dim FirstNumber As Double '声明一个变量来记录操作数的第一个数,如A+B，那么FirstNumber来记下A的值。 Dim DengHao As Boolean '声明一个变量来记录是否按下了=号，如果按下了则为True Private Sub cmd0_Click() If txt.Text <> "" Then txt.Text = txt.Text + "0" '防止多个0在文本中出现 End Sub Private Sub cmd1_Click() '按下1时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "1" Else txt.Text = "1" '按下了等号 DengHao = False End If End Sub Private Sub cmd2_Click() '按下2时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "2" Else txt.Text = "2" '按下了等号 DengHao = False End If End Sub Private Sub cmd3_click() '按下3时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "3" Else txt.Text = "3" '按下了等号 DengHao = False End If End Sub Private Sub cmd4_Click() '按下4时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "4" Else txt.Text = "4" '按下了等号 DengHao = False End If End Sub Private Sub cmd5_Click() '按下5时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "5" Else txt.Text = "5" '按下了等号 DengHao = False End If End Sub Private Sub cmd6_Click() '按下6时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "6" Else txt.Text = "6" '按下了等号 DengHao = False End If End Sub Private Sub cmd7_Click() '按下7时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "7" Else txt.Text = "7" '按下了等号 DengHao = False End If End Sub Private Sub cmd8_Click() '按下8时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "8" Else txt.Text = "8" '按下了等号 DengHao = False End If End Sub Private Sub cmd9_Click() '按下9时 If Not DengHao Then '没按下等号 txt.Text = txt.Text + "9" Else txt.Text = "9" '按下了等号 DengHao = False End If End Sub Private Sub cmdCE_Click() txt.Text = "" XiaoShu = False End Sub Private Sub cmdChange_Click() If (Sgn(Val(txt.Text))) = 1 Then txt.Text = "-" + txt.Text: Exit Sub '用Sgn来判断txt文本框内的值的符号。大于0的话就在前面加上"-" If (Sgn(Val(txt.Text))) = -1 Then txt.Text = Abs(Val(txt.Text)) 'txt文本框的文本为大于0的数txt前面的"-"去掉。 End Sub Private Sub cmdcheng_Click() FirstNumber = Val(txt.Text) FuHao = 3 txt.Text = "" XiaoShu = False End Sub Private Sub cmdchu_Click() FirstNumber = Val(txt.Text) FuHao = 4 txt.Text = "" XiaoShu = False End Sub Private Sub cmdjia_Click() FirstNumber = Val(txt.Text) FuHao = 1 txt.Text = "" XiaoShu = False End Sub Private Sub cmdjian_Click() FirstNumber = Val(txt.Text) FuHao = 2 txt.Text = "" XiaoShu = False End Sub Private Sub cmdOff_Click() End End Sub Private Sub cmdPoint_Click() If txt.Text = "" Then txt.Text = "0" If Not XiaoShu Then '当我们以前没有按下小数点键时在txt中加上小数点 txt.Text = txt.Text + "." XiaoShu = True End If End Sub Private Sub cmdResult_Click() If FuHao = 1 Then '按下了+号 txt.Text = FirstNumber + Val(txt.Text) End If If FuHao = 2 Then '按下了-号 txt.Text = FirstNumber - Val(txt.Text) End If If FuHao = 3 Then '按下了*号 txt.Text = FirstNumber * Val(txt.Text) End If If FuHao = 4 Then '按下了、号 txt.Text = FirstNumber / Val(txt.Text) End If DengHao = True '记录下按了=号 XiaoShu = False End Sub Private Sub meuExit_Click() End End Sub
吃客声声
vb程序设计论文
在社会的各个领域，大家都跟论文打过交道吧，论文的类型很多，包括学年论文、毕业论文、学位论文、科技论文、成果论文等。如何写一篇有思想、有文采的论文呢？下面是我为大家收集的vb程序设计论文，希望能够帮助到大家。
Visual Basic（简称VB）是目前使用最广泛的一种程序设计语言，是在Basic语言的基础上发展起来的，它继承了Basic语言简单易用的优点，结合了可视化界面的设计方法，采用面向对象、事件驱动的编程机制，把Windows编程复杂性进行巧妙封装，使开发Windows环境下的各种应用软件变得更为容易。因此，目前国内很多高校都选择将《VB程序设计》这门课程作为理工科专业的一门基础课程。程序设计具有知识结构严谨、逻辑性强的特点，学生学习起来比较困难，教学效果也不尽如人意。如何提高本课程的教学质量和教学效果，是每位授课教师都会关注的课题。
1教学中存在的问题
就VB程序设计这门课程的教学现状而言，通常采用的还是以课本原有知识体系为脉络的传统讲授法，教学内容大多以线性方式展开，同时结合上机实践操作来巩固和熟悉课堂上所讲的每一章节的知识点。经过教学实践证明，这种教学模式能够让学生掌握Visual Basic的较多的理论知识，也可以阅读程序代码，但是让学生自己解决一些问题的时候，通常都会束手无策。经过分析总结出此课程在教学中存在的问题：
一是教学内容与教学目标不一致。VB程序设计课程的教学目标是培养学生程序设计的基本知识、思维方式以及基本的操作技能，而教师在实际授课时，大多单纯依照教材讲授理论基础知识，授课基本上是以语言自身的知识体系为脉络展开，过分注重语句、语法和结构的讲解，忽视对学生分析与解决问题能力的引导，不能很好的将编程环境、程序设计语言、算法、数据结构以及程序设计思想关联起来形成体系化教学。[1]导致学生只学会了语法概念而不会使用，能够读懂某一条语句，却无法理解一段代码的含义。
二是实验内容过于简单。上机实验大多都是属于基础与验证型实验，偏重于VB语言的基本语法和结构的练习，能够帮助学生更好的理解和掌握这些语法知识，但无法培养学生编程能力和解决实际问题的能力。实验内容普遍都是知识点案例，针对的是具体的一个或多个知识点，没有依托完整的实践项目，使学生对知识点的学习感到枯燥无味，而且很容易遗忘。
三是学生缺乏计算机的思维方式。学生在接触这门课程之前通常没有任何基础，学生普遍缺乏相应的知识背景和算法思想，对程序设计的思维方式还不适应，分析和解决问题的能力处于一个较低的水平。在学习过程中经常会出现这种情况，教师对程序进行分析讲解时学生能够听懂理解，代码也能够读懂，但是让学生自己编写时，就无处下手，久而久之学生对编程充满畏惧感，对学习本门课程缺乏兴趣。
如何改变目前教学中存在的问题，让学生能够更好地掌握VB语言，掌握程序设计的基本方法？需要对课程的教学进行改革和创新。
2课程教学改革
2.1拓展教学内容
本课程主要培养学生的程序设计思维方式和实际编程能力，而不是单纯的程序设计语言，因此必须打破固有的以“语法”和“结构”为中心的传统教学理念，以突出能力培养为主轴，围绕能力培养组织教学内容。教学内容的选择不能仅仅局限在一本教材上，要突破教材局限，将程序设计中所需要的众多知识点加以整合，包括VB语言的语法结构、可视化编程方法、常用的算法、数据结构以及程序的调试等，形成新的知识体系。在这里算法是程序设计的核心，而语言只是一种工具，在授课的过程中，特别是讲解实例时，需要剥开语言这层外壳，让学生掌握其中的精粹——算法，也就是如何利用计算机来解决某一具体问题。
当然，这并不是说语言不重要，语言是程序设计的工具，如果不掌握语言，程序设计就无从谈起。教材上的语法描述非常细致、系统，但大量的语法规则会使初学者感觉枯燥，这非常影响学生的学习兴趣。根据二八定律，在任何一组东西中，只有20%是最重要的，事实上VB语言也是如此，最常用、最重要的知识点并不是很多。因此在讲述语法时，只需提供给学生最基本的语法知识，其余的细枝末节可以由学生自学。
2.2优化教学方法和教学策略
在程序设计的教学中，传统讲课方式的缺陷已众所周知，因为这是一种以教师为主、学生为辅的一种授课形式，讲课中教师是积极的而学生是消极的，很难把学生吸引到学习进程之中。但这不是意味着要把这种授课方式抛弃，讲课是把大量知识传递给学生的一种常用模式，尤其在本课程的教学中，学生缺乏普遍缺乏知识背景，大量的理论知识需要传递给学生，这就需要教师进行详细地讲解。在讲解时应该采用多种策略，比如在讲述抽象概念时最好与实践相关联，或者与学生已有的知识联系起来，这样比较容易理解。在提到函数和数据类型的.时候，可以跟学生比较熟悉的Excel中的相关概念关联起来。在讲述面向对象的概念时，可以拿Windows操作系统作为例子，它就是依照面向对象的思想编制而成的，在桌面上的每个图标，可以理解成一个对象，当需要启动某个对象时，只需用鼠标点击它（消息驱动）。[2]不仅如此，在不同的情境下还需要灵活运用多种教学方法，如问题法、引导法、任务驱动和实例教学法等，这样有助于让学生从消极的学习者转变为积极的学习者。
2.3完善实验教学体系
VB程序设计是一门理论性和实验性都很强的课程，对实验环节有较高的要求。要学好这门课，学生只有经过大量的上机实验，才能掌握程序设计的技能和方法。因此，在教学过程中要给学生留出足够的上机时间，让学生在实验中理解VB语言的基本概念，掌握基本的编程方法。结合学生的专业方向，精心选择合适的案例、设计型与研究型课题，构建有助于培养学生动手能力和程序设计思维方式的实验教学平台。整个实验环节分为三个层次设计，基础验证型、设计开发型和研究创新型实验，每次实验课有多个基础验证型实验，帮助学生掌握相应的语法知识和算法设计，每一章精选1～2个设计开发型实验，与学生分析讨论解题思路，引导学生独立解决问题，培养学生的上机调试能力。学生以小组为单位，选择一个与其专业相关的研究题目，要求学生逐步完成研究分析与报告，写出个人的心得体会，并在学期末给出一定的时间完成课题。
2.4创建项目实例库
充分利用网络资源，搜集各类完整的VB程序实例，从中选取典型的、有实际意义的实例，作为程序设计的模板提供给学生。大多数学生基本上是初次接触计算机程序设计，习惯采用数学思维方式来分析问题，还没有真正掌握计算机编程的基本思路。在实验过程中，遇到一个新的题目，学生往往不知道从何下手，思路不清晰，此时就可以从项目实例库找出对应的实例，通过借鉴或修改相应的模板得到结果。“熟读唐诗三百首，不会做诗也会吟”，经常阅读这些实例，能够拓展学生的视野，促进学生对于程序设计思想的理解与认识，提高学生的编程能力。
在具体实施上，整理出40～50个典型项目实例，将它们分为五大类：基础类、算法类、图形类、文本类和应用类，供学生自主学习，另外从中选取6～8个典型的项目实例，要求学生必须理解掌握，这些实例基本上包含了这门课程的知识要点，理解了这些实例，对于课程的知识结构会有一个全面的了解。其中，学生最喜欢也最有兴趣的实例就是弹球游戏，通过对弹球游戏程序代码的阅读分析，学生能够更好地掌握定时器控件和控件坐标等相关的知识，学生也很有兴趣地去改写程序代码，以获得类似的动画效果，可见好的实例能够激发学生的求知欲望，提高学生的学习积极性，培养学生分析问题和解决问题的能力。
3结束语
VB程序设计课程对于理论知识和实际操作均有较高要求，教学时需要综合运用多种教学方法和教学策略，充分调动学生的学习积极性和主动性，将教学重点放在算法的分析和编程的训练上，注重实验教学环节，加强对学生程序设计思维方式和实际编程能力的培养，提高课程的教学效果。
3 柴油机电控技术的特点 柴油机电控技术与汽油机电控技术有许多相似之处，整个系 统都是由传感器、电控单元和执行器三部分组成。在电控喷射方 面柴油机与汽油机的主
亿万资金 5人参与回答 2023-12-06 计算机毕业论文/设计有哪些题目 ，这个很广，我们先看看看他的分类吧！其在学术领域分类属于信息科技类 计算机硬件技术(213081篇,5个子库) 一般性问题(65
卫浴小哥 6人参与回答 2023-12-12 基于视频的人流量监测系统设计与实现 图像水印识别微信小程序设计与实现 基于重力传感器的飞机大战游戏开发 手机平台
虫子在睡觉 5人参与回答 2023-12-08 一、定义计算机毕业论文是计算机专业毕业生培养方案中的必修环节。学生通过计算机毕业论文的写作，培养综合运用计算机专业知识去分析并解决实际问题的能力，学有所用，不仅
美人儿不哭 3人参与回答 2023-12-08 【摘要】本论文叙述了我校学成绩管理的现状以及Visual basic6.0语言的概况。重点介绍了学生成绩管理系统的实现过程：包括系统分析、 系统调查、 数据流程
歹徒通缉令 4人参与回答 2023-12-10 
