VB课程设计报告+计算器
vb科学计算器课程设计
vb科学计算器课程设计一、课程目标知识目标：1. 学生能理解并掌握VB编程环境中科学计算器的基本功能与操作。
2. 学生能运用VB编程语言实现加、减、乘、除等基本运算，并掌握科学计算器的扩展功能，如平方根、指数、对数等。
3. 学生能运用所学知识解决实际生活中的科学计算问题。
技能目标：1. 学生能够独立进行VB科学计算器的界面设计，编写程序代码实现计算功能。
2. 学生通过实际操作，提高编程解决问题的能力，培养逻辑思维和动手实践能力。
3. 学生学会使用调试工具，能够发现并修正程序中的错误，提高程序的稳定性。
情感态度价值观目标：1. 学生培养对计算机编程的兴趣和热情，激发创新意识，提高自主学习的积极性。
2. 学生通过合作交流，培养团队协作能力和沟通能力，学会分享与互助。
3. 学生在解决问题的过程中，认识到编程在科学计算领域的重要作用，树立正确的价值观，增强社会责任感。
分析课程性质、学生特点和教学要求：本课程为VB科学计算器编程，结合学生年级特点，注重知识性与趣味性相结合，以培养学生编程兴趣和动手实践能力为主。
在教学过程中，需关注学生的个体差异，因材施教，鼓励学生积极参与，注重培养团队协作和沟通能力。
教学要求明确，以学生为主体，教师为主导，实现课程目标的具体学习成果。
二、教学内容1. VB科学计算器的基本概念与功能- 熟悉VB编程环境- 了解科学计算器的基本功能与操作2. VB编程基础- 变量、常量的定义与使用- 数据类型与运算符- 程序流程控制（顺序、选择、循环结构）3. 科学计算器功能实现- 基本运算（加、减、乘、除）- 扩展功能（平方根、指数、对数）- 界面设计与事件处理4. 程序调试与优化- 使用调试工具- 识别并修正程序错误- 提高程序稳定性与执行效率5. 实践项目与案例分析- 完成一个科学计算器项目- 分析并改进现有科学计算器程序教学安排与进度：第一周：熟悉VB编程环境，学习基本概念与功能第二周：学习VB编程基础，了解程序流程控制第三周：实现科学计算器基本运算功能第四周：完成扩展功能，进行界面设计与事件处理第五周：学习程序调试与优化，分析案例第六周：完成实践项目，进行成果展示与评价教学内容与教材关联：本章节教学内容与教材中相关章节紧密关联，涵盖了《VB程序设计》教材中第二章至第五章的主要内容，确保了教学内容的科学性和系统性。
vb 简易计算器实验报告
简易计算器课程设计报告一、实验目的:模拟计算器的功能。
系统启动后, 先清屏, 再在显示屏右侧显示0字样, 系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键, 其余按键不响应。
按键后屏幕显示效果要达到一般计算器显示屏的同样效果。
不要求设计一般计算器上都具有的M功能。
二、实验设计内容及思想:首先, 创建一个主体框架: 建立程序的主要界面后, 系统自动生成界面的主要窗口生成代码。
对于每个按钮的的代码段中, 分别添加事件触发的处理代码。
分别设立三个显示屏, 第一个显示屏作为“被加数”框, 第二个显示屏作为“加数”框, 第三个显示屏则作为输出框。
四则运算时直接采用计算表达式。
所以, 优先级和运算规则皆宜考虑在内。
在进行除法运算时, 若遇到除数为0, 则运用条件语句执行, 并在输出显示屏上输出“E”。
三角函数、指数、对数、整除、取余等运算, 也是运用类似手法。
考虑到计算器的操作简便性, 所以加入了复位和退出按钮。
三、源程序文件:Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x + yEnd SubPrivate Sub Command10_Click()Dim x As Integerx = Text1.TextText3.Text = Cos(x)End SubPrivate Sub Command11_Click()Dim x As Integerx = Text1.TextText3.Text = Tan(x)End SubPrivate Sub Command12_Click()Dim x As Integerx = Text1.TextText3.Text = Atn(x)End SubPrivate Sub Command13_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x ^ yEnd SubPrivate Sub Command14_Click() Dim x As Integerx = Text1.TextIf x <= 0 ThenText3.Text = "输入错误"ElseText3.Text = Log(x)End IfEnd SubPrivate Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End SubPrivate Sub Command2_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x - yEnd SubPrivate Sub Command3_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x * yEnd SubPrivate Sub Command4_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextIf y = 0 ThenText3.Text = "E"ElseText3.Text = x / yEnd IfEnd SubPrivate Sub Command5_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x \ yEnd SubPrivate Sub Command6_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x Mod yEnd SubPrivate Sub Command7_Click()Text1.Text = ""Text2.Text = ""Text3.Text = " 0" End SubPrivate Sub Command8_Click()EndEnd SubPrivate Sub Command9_Click()Dim x As Integerx = Text1.TextText3.Text = Sin(x)End Sub源代码截图:四、运行结果演示: 加法演示:减法演示: 乘法演示:除法演示:能够整除: 不能够整除:除数为零:。
用VB设计一个简单的计算器
用VB设计一个简单的计算器VB大作业报告程序功能介绍：计算器可以进行简单的。
加、减、乘、除、乘方、开方、阶乘、取余和清零。
主要源程序：设置程序从form2启动。
首先出来一个展示界面，内容包括自己的姓名、班级和所做的课题。
等待时间是3秒。
Private Sub Form_Load()Label4.Caption = "3"End SubPrivate Sub Timer1_Timer() “倒计时，当倒计时为0时，一界面隐藏弹出二界面”Label4.Caption = Label4.Caption - 1If (Label4.Caption = "0") ThenForm1.HideForm2.ShowEnd IfEnd Sub解释：定时器以一定的时间间隔产生Timer事件从而执行相应的时间过程。
当form2消失后，form3开始运行。
用户名与密码正确时form3消失form出现。
进入计算器的主要界面。
Private Sub Command1_Click()If Text1.Text <> "******" ThenMsgBox "用户名错误，请重新输入"Text1.SetFocusEnd IfIf Text2.Text <> "123" ThenMsgBox "密码不正确，请重新输入"Text2.SetFocusElseIf Text1 = "******" And Text2 = "123" ThenForm2.HideForm3.ShowEnd IfEnd SubPrivate Sub Text1_Change()End Sub解释：利用Msgbox判断输入数据的正确性，否则不允许登录。
然后进入计算器界面：Private Sub Command1_Click()Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) “加法运算”End SubPrivate Sub Command2_Click()Text3.Text = Str(Val(Text1.Text) - Val(T ext2.Text))“减法运算”End SubPrivate Sub Command3_Click()Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text))“乘法运算”End SubPrivate Sub Command4_Click()Text3.Text = Str(Val(Text1.Text) / Val(T ext2.Text))“除法运算”End SubPrivate Sub Command6_Click()Text3.Text = Str(Val(Sqr(Text1.Text)))“开方运算”End SubPrivate Sub Command5_Click()Text1.Text2 = Str(Val(Text1.Text) * Val(Text1.Text)) “乘方运算”End SubPrivate Sub Command7_Click()Text1 = ""Text2 = "" “清零”Text3 = ""End SubPrivate Sub Command8_Click()Dim a#, s#s = 1a = Val(Text1)For i = 1 To a “阶乘运算”s = s * iText3 = sNext iEnd SubPrivate Sub Command9_Click()Text3 = Str(Val(Text1) Mod (Text2)) “除法取余”End SubPrivate Sub Text1_Change()End Sub总体解释：工程主要包括3个界面，第一个界面主要包括（课题、班级、姓名、倒计时器），第二个界面主要包括（用户名、密码，只有二者都输入正确时才能登录进入第三个界面），第三个界面主要包括（计算器的简单运算加、减、乘、除、乘方、开方、阶乘、取余和清零）。
用VB做简易计算器
《VB》课内实验报告学生姓名:及学号：学院:班级: 数学101课程名称：VB实验题目:控件数组的应用指导教师姓名及职称：2012年03月28日目录一、实验目的 (1)二、实验内容 (1)三、实验要点及说明 (1)四、实现方法 (1)五、实验结果 (2)六、源程序清单 (2)七、思考及总结 (4)一、实验目的1．掌握动态数组与静态数组的使用方法。
2．掌握控件数组的添加、删除以及使用方法。
3．掌握If语句、Select Case语句以及循环语句的使用。
4．掌握控件数组中索引号（Index）的作用。
二、实验内容1．制作计算器，完成十进制的加减乘除运算。
2．随机产生15个不重复的A-Z（包括A，Z）的大写字母，存放在字符数组中。
三、实验要点及说明1．利用数组控件完成计算器的制作。
（1）设计界面及设置属性界面设计中的显示部分要求用标签实现；运算符、数字分别使用控件数组实现；（2）编写代码图3-1 设计界面程序代码的任务是单击数字按钮和运算符按钮实现十进制的常规运算，同时要求做到实现正负号的转变、结果的标准输出以及除法中除数的检查等功能。
2．界面设计部分要求能够体现出字符数组中的内容，且实现随机不重复显示的功能，具体参数不做要求。
四、实现方法运行环境：Visual Basic运行开发环境；1．VB6.0窗体的属性设置运用复制的方法建立两个建立控件数组，编写代码。
2. 设置窗体的属性，添加一个文本框MultiLine属性设置成True，编写代码。
五、实验结果1. 能够完成十进制的加减乘除运算，可以判断被除数是否为零，如果为零，弹出对话框提示错误。
2.单击窗体随机出现15个不同的字母。
六、源程序清单1、源程序：Option Explicit ‘对所有变量进行显式声明Dim Num1 As Single, Num2 As Single ‘声明Num1，Num2为单精度浮点型变量Dim Flag As Boolean ‘声明Flag为布尔变量Dim Cul As Integer ‘声明Cul为整型变量Private Sub Command1_Click(Index As Integer) ‘Command1的单击事件Num1 = Val(Text1.Text) ‘Text1中的值赋给Num1Flag = True ‘Flag为真Cul = IndexEnd SubPrivate Sub _Click() ‘Command4的单击事件If InStr(Text1.Text, ".") = 0 And Text1.Text <> "" Then ‘如果Text1中没Text1.Text = Text1.Text + "." 有"."并且不为空，就在Text1中加一个"."End IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Flag Then Text1.Text = "": Flag = False ‘如果Flag为真则Text1赋为空Text1.Text = Text1.Text + Command2(Index).Caption ‘如果为假Text1加End Sub Command2(Index) Private Sub Command5_Click() ‘Command5的单击事件的单击事件Text1.Text = "" ‘清空Text1,Num1, Num2的值Num1 = 0Num2 = 0End SubPrivate Sub Command6_Click() ‘Command6的单击事件Dim result As Single ‘声明result为单精度浮点型变量Num2 = Val(Text1.Text) ‘Text1中的值赋给Num2Flag = True ‘Flag b变为真Select Case Cul ‘Select循环Case 0: result = Num1 + Num2Case 1: result = Num1 - Num2Case 2: result = Num1 * Num2Case 3:If Num2 <> 0 Then ‘若分母为零提示result = Num1 / Num2ElseMsgBox "出错！被0除！"End IfEnd SelectIf result \ 1 <> result Then ‘如果result \ 1不等于result那么在result前Text1.Text = Format(result, "0.#") 加”0.”赋给Text1.TextElseText1.Text = Str(result) ‘否则直接将result转化成字符串赋给Text1.TextEnd IfEnd SubPrivate Sub Command3_Click() ‘Command3的单击事件If Text1.Text <> "" Then ‘如果Text1.Text不是空的If InStr( Text1.Text, "-") = 0 Then ‘Text1.Text中不包含"-"Text1.Text = "-" + Text1.Text ‘把"-" Text1.Text连接后赋给Text1.Text ElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End If ‘取Text1.Text中长度减1的字符赋给Text1.Text End IfEnd Sub2、源程序Private Sub Form_Click() ‘Form的单击事件Dim s(1 To 15) As String * 1, c As String * 1 ‘声明s,c为定长字符串Dim Found As Boolean ‘声明Found为布尔变量s(1) = chr(Int(Rnd * 26 + 65)) ‘将一随机字符赋给s(1)n = 2Do While n <= 15 ‘循环条件n<=15c = chr(Int(Rnd * 26 + 65)) ‘将一随机字符赋给cFound = FalseFor j = 1 To n – 1 ‘For循环If s(j) = c Then Found = TrueNext jIf Not Found Then ‘Found为假，进行下两行语句s(n) = cn = n + 1End IfLoopFor i = 1 To 15 ‘循环输出s(i)到Text1.Text中Text1.Text = Text1.Text & s(i)Next iEnd Sub七、思考及总结。
《软件设计基础(VB)》简单科学计算器课程设计报告书
河北联合大学 《软件设计基础（VB）》课程设计报告设计名称： 姓 名： 专业班级： 学 院： 设计时间： 设计地点：简易科学计算器学 号：指导教师评语：成绩：指导教师签字： 年月日目录1.课程设计目的 ··············································································32.课程设计任务与要求 ·····································································33.课程设计说明书 ···········································································44.课程设计成果 ············································································205.程序调试过程 ············································································236.设计问题的不足和改进方案 ··························································237.课程设计心得 ············································································248.附录 ························································································249.参考文献24《软件设计基础（VB）》课程设计报告第 3 页，共 26 页1．课程设计目的 《软件设计基础（VB）》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖 VB 的知识点，又接近工程实际需 要。
vb计算器实验报告
vb计算器实验报告《VB计算器实验报告》摘要：本实验报告通过使用VB（Visual Basic）编程语言，设计并实现了一个简单的计算器应用程序。
实验结果表明，该计算器能够实现基本的四则运算功能，并且具有良好的用户界面和操作体验。
本实验为学习VB编程语言的初学者提供了一个很好的实践机会，也为进一步深入学习和开发更复杂的应用程序奠定了基础。
1. 背景VB是一种由微软公司开发的基于对象的编程语言，它是一种易学易用的编程语言，适合初学者入门。
VB可以用于开发各种类型的应用程序，包括桌面应用程序、Web应用程序和移动应用程序等。
在本实验中，我们将使用VB编程语言设计并实现一个简单的计算器应用程序，以展示其基本功能和特点。
2. 实验目的通过本实验，我们旨在掌握VB编程语言的基本语法和功能，并且能够设计并实现一个简单的计算器应用程序。
同时，我们也将学习如何创建用户界面、处理用户输入和实现基本的数学运算功能。
3. 实验方法本实验使用Visual Studio作为开发环境，通过VB编程语言实现计算器应用程序的设计和开发。
在设计过程中，我们将考虑用户界面的布局和美观性，以及计算器功能的实现和操作流程。
在开发过程中，我们将使用VB的各种语法和功能，如变量、条件语句、循环语句和函数等，来实现计算器的基本功能。
4. 实验结果经过设计和开发，我们成功实现了一个简单的计算器应用程序。
该计算器具有清晰的用户界面和友好的操作体验，能够实现基本的加减乘除等四则运算功能。
用户可以通过点击按钮或者输入数字和运算符来进行计算，同时还可以实现清零和退格等功能。
整体而言，该计算器应用程序能够满足基本的计算需求，并且具有较好的稳定性和性能。
5. 结论通过本实验，我们不仅掌握了VB编程语言的基本语法和功能，还学会了如何设计和实现一个简单的计算器应用程序。
同时，我们也了解到了用户界面设计和用户体验的重要性，以及如何通过VB编程语言实现各种功能和操作。
vb实验报告实验一
vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。
实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件，将点击的运算符保存下来。
4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。
实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。
4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。
实验结果：
经过实验，成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。
实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。
通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。
VB设计计算器实验报告
VB设计计算器实验报告姓名：专业：学号：二〇一一年十一月七日设计功能完整的计算器，实现如下图所示按钮（除“MC”,“MR”,“MS”,“M+”）及菜单功能，如图：一、解题思路、分析：对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算器的程序进行参考分析。
首先先定义一些量，比如说前后两个操作数op1、op2，小数点是否真存在的量DecimalFlag，操作数个数NumOps，上一次按键的类型等。
接着对窗体进行初始化，同时设置所有变量为其初始。
然后对各个键盘的命令进行编写程序，对0---9按键设置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其他按键都各自设置为一个命令，分别单独进行编写程序。
同时在多个命令中都要对显示器中的小数点进行分析，看它是否是真实存在。
同时对于除法分母是否为0，也要加以考虑。
二、源程序：Option ExplicitDim Op1, Op2 ' 前面输入的操作数Dim DecimalFlag As Integer ' 小数点仍然存在吗？Dim NumOps As Integer ' 操作数个数Dim LastInput ' 指示上一次按键事件的类型Dim OpFlag ' 指示未完成的操作Dim TempReadout' 窗体的初始化过程' 设置所有变量为其初始值Private Sub Form_Load()DecimalFlag = FalseNumOps = 0LastInput = "NONE"OpFlag = " "Text1.Text = Format(0, "0.")'Decimal.Caption = Format(0, ".")End Sub' 退格键Private Sub Command1_Click()If Len(Text1.Text) = 1 ThenText1.Text = Format(0, "0.")DecimalFlag = FalseLastInput = "NONE"ElseIf Text1.Text = "0." ThenText1.Text = "0."DecimalFlag = FalseLastInput = "NONE"ElseText1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd IfEnd SubPrivate Sub Command2_Click()' CE (取消输入) 按钮的 Click 事件过程Text1.Text = Format(0, "0.")DecimalFlag = FalseLastInput = "CE"End SubPrivate Sub Command3_Click()' C (取消) 按钮的 Click 事件过程' 重新设置显示并初始化变量Text1.Text = Format(0, "0.")Op1 = 0Op2 = 0Form_LoadEnd SubPrivate Sub Command8_Click(Index As Integer)' 数字键 (0-9) 的 Click 事件过程' 向显示中的数追加新数If LastInput <> "NUMS" ThenText1.Text = Format(0, ".")DecimalFlag = FalseEnd IfIf DecimalFlag ThenText1.Text = Text1.Text + Command8(Index).CaptionElseText1.Text = Left(Text1.Text, InStr(Text1.Text, Format(0, ".")) - 1) + Command8(Index).Caption + Format(0, ".") End IfIf LastInput = "NEG" Then Text1.Text = "-" & Text1.TextLastInput = "NUMS"End SubPrivate Sub Command11_Click(Index As Integer)' 运算符 (+, -, x, /, =) 的 Click 事件过程' 如果接下来的按键是数字键，增加 NumOps。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
目录●概要设计说明 (3)●总体设计分析 (3)●小组成员及分工方法....................................3 -4 ●功能模块图 (4)●负责模块的程序设计分析 (5)●负责模快的程序源代码及流程图.....................5-12 ●公共系统使用说明及截图..............................13-16 ●结束语、心得体会 (17)●课程设计结评分表…………………………………18-19一、概要设计说明本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。
科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。
在标准型中，编辑菜单（edit）包含复制（copy）、粘贴（paste）。
查看菜单包含标准型（standar）、科学型（scientific）。
帮助菜单中包含关于（about）（内含开发制作者信息）二、总体设计分析（含功能模块图）一．小组成员分工1 科学型角度弧度和进制的调用，由小组成员共同完成2 科学计算器中，x^2,x^3,x^y,1/x,n！,Log按键，及八进制转二进制，八进制转十进制，由**负责。
3科学计算器中，BackSpance、CE、C和运算符号+、-、*、/、.、-/+、=以及标准型计算器由***负责4 科学计算器中，sin，cos，tan,Rnd,Exp,ATn按钮以sin/cos/tan计算时角度和弧度的转换由**负责。
5 科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or，Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。
6 标准型菜单部分（查看菜单标准型（standar）、科学型（scientific）。
帮助菜单中包含关于（about）（内含开发制作者信息））及标准型和科学型的数字键和科学型的16进制转换由李诗瑶负责。
二、功能模块图三、负责模块的程序设计分析1. sin 、cos 、tan 、ATn 按钮分别求某个数值/角度/弧度的正弦、余弦、正切、反正切值。
2.Exp 、Rnd 按钮分别返回e 的x 次幂和取[0，999999999）之间的随机数，而mod 保证了随机数是整数。
3.角度、弧度按钮统计框 数据的处理保存 调出 清除基本运算进制之间的转换科学计算器特殊功能 平均值标准误差求和 + - * \科学计数法三角函数的运算阶乘 倒数 乘方 对数函数角度弧度梯度指数计算sin、cos、tan、ATn时进行转换。
四、自己负责模块的程序源代码（1）Sin、Cos、Tan、Rnd、Exp、Atn按钮程序代码Sin：Private Sub m_Btn_sin_Click()If IsJd Thenm_Tb_Out.Text = str(Sin((V al(m_Tb_Out.Text) / 180) * PI)) '由于sin只能进行对弧度的运算，所以在进行sin的运算时，如果是角度需要转换为弧度后进行sin运算。
Elsem_Tb_Out.Text = str(Sin(Val(m_Tb_Out.Text)))End IfIf Left(m_Tb_Out.Text, 2) = " ." Thenm_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)ElseIf Left(m_Tb_Out.Text, 2) = "-." Thenm_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)End IfIsShowEd = TrueLastGame = "sin"IsLastOut = FalseEnd SubCos：Private Sub m_Btn_Cos_Click()If IsJd Thenm_Tb_Out.Text = str(Cos((Val(m_Tb_Out.Text) / 180) * PI)) '由于cos只能进行对弧度的运算，所以在进行cos的运算时，如果是角度需要转换为弧度后进行cos运算。
Elsem_Tb_Out.Text = str(Cos(V al(m_Tb_Out.Text)))End IfIf Left(m_Tb_Out.Text, 2) = " ." Thenm_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)ElseIf Left(m_Tb_Out.Text, 2) = "-." Thenm_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)End IfIsShowEd = TrueLastGame = "cos"IsLastOut = FalseEnd SubTan：Private Sub m_Btn_tan_Click()If IsJd Thenm_Tb_Out.Text = str(Tan((Val(m_Tb_Out.Text) / 180) * PI)) '由于tan只能进行对弧度的运算，所以在进行tan的运算时，如果是角度需要转换为弧度后进行tan运算。
Elsem_Tb_Out.Text = str(Tan((V al(m_Tb_Out.Text) / 180) * PI)) End IfIf Left(m_Tb_Out.Text, 2) = " ." Thenm_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)ElseIf Left(m_Tb_Out.Text, 2) = "-." Thenm_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)End IfIsShowEd = TrueLastGame = "tan"IsLastOut = FalseEnd SubRnd：Private Sub m_Btn_rnd_Click()OutptNum Rnd * 1000000000 Mod 1000000000 '取[0，999999999）之间的随机数，而mod保证了随机数是整数IsShowEd = TrueLastGame = "rnd"IsLastOut = FalseEnd SubExp：Private Sub m_Btn_exp_Click() '返回e的x次幂的值OutptNum Exp(InptNum)IsShowEd = TrueLastGame = "exp"IsLastOut = FalseEnd SubAtn：Private Sub m_Btn_Atan_Click() '返回一个数的反正切值If IsJd Thenm_Tb_Out.Text = str(Atn((V al(m_Tb_Out.Text) / 180) * PI))Elsem_Tb_Out.Text = str(Atn(Val(m_Tb_Out.Text)))End IfIf Left(m_Tb_Out.Text, 2) = " ." Thenm_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)ElseIf Left(m_Tb_Out.Text, 2) = "-." Thenm_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)End IfIsShowEd = TrueLastGame = "atan"IsLastOut = FalseEnd Sub（2）角度、弧度按钮程序代码角度：Private Sub m_RoBtn_Jd_Click(Index As Integer)If Index = 1 ThenIsJd = FalseElseIsJd = TrueEnd IfEnd Sub弧度：Private Sub m_RoBtn_Jd_Click(Index As Integer)If Index = 1 ThenIsJd = FalseElseIsJd = TrueEnd IfEnd Sub五、sin、cos、tan、Atn流程图1.sin:开始IsJdm_Tb_Out.Text = str(Sin((Val(m_Tb_Out. Text) / 180) * PI))m_Tb_Out.Text =str(Sin(Val(m_Tb_Out.Text)))开始Left(m_Tb_Out.Text, 2) = " ."m_Tb_Out.Text = "0" +Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)Left(m_Tb_Out.Text, 2) = "-."m_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text,Len(m_Tb_Out.Text) - 1)2、cos:开始IsJdm_Tb_Out.Text = str(Cos((Val(m_Tb_Out. Text) / 180) * PI))m_Tb_Out.Text =str(Cos(Val(m_Tb_Out.Text)))开始Left(m_Tb_Out.Text, 2) = " ."m_Tb_Out.Text = "0" +Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)Left(m_Tb_Out.Text, 2) = "-."m_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text,Len(m_Tb_Out.Text) - 1)3、tan:开始IsJdm_Tb_Out.Text = str(Tan((Val(m_Tb_Out. Text) / 180) * PI))m_Tb_Out.Text =str(Tan((Val(m_Tb_Out.Text) / 180) * 开始Left(m_Tb_Out.Text, 2) = " ."m_Tb_Out.Text = "0" +Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)Left(m_Tb_Out.Text, 2) = "-."m_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text,Len(m_Tb_Out.Text) - 1)4．Atn:六、公共系统使用说明及截图开始IsJdm_Tb_Out.Text = str(Atn((Val(m_Tb_Out.Text) / 180) * PI)) m_Tb_Out.Text = str(Atn(Val(m_Tb_O ut.Text)))开始Left(m_Tb_Out.T ext, 2) = " ."Left(m_Tb_Out.Te xt, 2) = "-."m_Tb_Out.Text = "-0" +Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)m_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)一、进制调用Private Sub m_Rdo_Jz_Click(Index As Integer) '对于二进制、八进制、十进制以及十六进制之间的相互转换创建控件数组If Index = 0 Then '当选择hex时，即选择了option button的index=0,把文本框里面的数转化为十六进制数If LstChk = 1 Then '运用选择语句，把所有的进制数（除十六进制本身）全部转化为十六进制数ElseIf LstChk = 2 Thenm_Tb_Out.Text = DEC_to_HEX(Int(Val(m_Tb_Out.Text)))m_Tb_Out.Text = OCT_to_HEX(m_Tb_Out.Text)ElseIf LstChk = 3 Thenm_Tb_Out.Text = BIN_to_HEX(m_Tb_Out.Text)End IfElseIf Index = 1 Then '当选择1时，所有进制转化为十进制If LstChk = 0 Thenm_Tb_Out.Text = IIf(HEX_to_DEC(m_Tb_Out.Text) = 0, "", HEX_to_DEC(m_Tb_Out.Text))ElseIf LstChk = 2 Thenm_Tb_Out.Text = IIf(OCT_to_DEC(m_Tb_Out.Text) = 0, "", OCT_to_DEC(m_Tb_Out.Text))ElseIf LstChk = 3 Thenm_Tb_Out.Text = IIf(BIN_to_DEC(m_Tb_Out.Text) = 0, "", BIN_to_DEC(m_Tb_Out.Text))End IfElseIf Index = 2 Then '当选择2时，所有进制转化为八进制If LstChk = 0 Thenm_Tb_Out.Text = HEX_to_OCT(m_Tb_Out.Text)ElseIf LstChk = 1 Thenm_Tb_Out.Text = DEC_to_OCT(Int(Val(m_Tb_Out.Text)))ElseIf LstChk = 3 Thenm_Tb_Out.Text = BIN_to_OCT(m_Tb_Out.Text)End IfElseIf Index = 3 Then '当选择3时，所有进制转化为二进制If LstChk = 0 Thenm_Tb_Out.Text = HEX_to_BIN(m_Tb_Out.Text)ElseIf LstChk = 1 Thenm_Tb_Out.Text = DEC_to_BIN(Int(Val(m_Tb_Out.Text)))ElseIf LstChk = 2 Thenm_Tb_Out.Text = OCT_to_BIN(m_Tb_Out.Text)End IfEnd IfLstChk = IndexEnableNumBtnEnd Sub （二)．使用截图.七、结束语、心得体会。