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实验报告
复杂型科学计算器的设计与实现实验目的1．通过本实验，进一步理解Visual Basic的编程方法。
2．提高运用Visual Basic编程的能力。
3．培养对所学知识的综合运用能力。
实验类型综合型。
实验内容与步骤一、分析问题，选择算法科学计算器主要实现基本的加减乘除运算、正弦余弦、正切余切、正割余割、反正弦反余弦、双曲正弦、双曲余弦、对数和求绝对值等函数功能。
为实现上述功能，我的基本思路是在窗体上建立三个控件数组，第一个控件数组有十五个命令按钮，分别实现正弦余弦、正切余切、正割余割、反正弦反余弦、双曲正弦、双曲余弦、对数和求绝对值等函数功能；第二个控件数组作包括十二个命令按钮，用来进行计算器的数据输入；第三个控件数组为基本的运算符号，实现基本加减乘除和乘方运算。
退格、清除、等于、退出作为独立的命令按钮，另外设计一个功能切换按钮实现显示当前系统日期和时间。
二、建立用户界面建立如下界面：三、设置窗体和控件属性四、编写代码，进行调试编写代码如下：通用：Dim Num1, Num2 As SingleDim n As Integer '乘方变量Dim pi As SingleDim result As SingleDim fuhao As Integer '判断是否有运算符号Dim sign As Integer '储存运算符号Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9sign = 10 + IndexCase 10sign = 20fuhao = 1 '第一次输入的底数已放入Num1,标记已有符号，第二次输入时数据放入Num2Case 11 To 14sign = 10 + IndexEnd SelectText1.Text = "" '清空文本框End SubPrivate Sub Command2_Click(Index As Integer) 'Select Case IndexCase 0 To 9Text1.Text = Text1.Text & IndexCase 10Text1.Text = Text1.Text & "."Case 11Text1.Text = "-"End SelectIf fuhao = 0 Then '若无符号数据放入Num1，有符号数据放入Num2Num1 = V al(Text1.Text)ElseNum2 = V al(Text1.Text)End IfEnd SubPrivate Sub Command3_Click(Index As Integer) '判断标记运算符号Select Case IndexCase 0 To 6sign = IndexEnd SelectText1.Text = ""fuhao = 1 '标记已有运算符End SubPrivate Sub Command4_Click() 'If V al(Text1.Text) = 0 ThenText1.Text = ""fuhao = 0ElseText1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command5_Click() '清空文本框Text1.Text = ""fuhao = 0End SubPrivate Sub Command6_Click()Dim Num As Single '角度中间转换变量pi = 3.141592654e = 2.718282Select Case signCase 0Text1.Text = Num1 & "+" & Num2 & "=" & Chr(13) & Chr(10) & Num1 + Num2Case 1Text1.Text = Num1 & "-" & Num2 & "=" & Chr(13) & Chr(10) & Num1 - Num2Case 2Text1.Text = Num1 & "*" & Num2 & "=" & Chr(13) & Chr(10) & Num1 * Num2Case 3Text1.Text = Num1 & "/" & Num2 & "=" & Chr(13) & Chr(10) & Num1 / Num2Case 4 Text1.Text = "输入错误！请重新输入："Case 5Text1.Text = "输入错误！请重新输入："Case 6 result = Num1For n = 1 To Num2 - 1result = result* Num1 Next nText1.Text = Num1 & "^" & Num2 & "=" & Chr(13) & Chr(10) & resultCase 10Num = Num1 / 180 * piText1.Text = "sin" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & Sin(Num)Case 11Num = Num1 / 180 * piText1.Text = "cos" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & Cos(Num)Case 12Num = Num1 / 180 * piIf ((Num - pi / 2) Mod pi) = 0 ThenText1.Text = "输入错误！请重新输入："ElseTan(Num)End IfCase 13Num = Num1 / 180 * piText1.Text = "sec" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & 1 / Cos(Num)Case 14Num = Num1 / 180 * piText1.Text = "csc" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & 1 / Sin(Num)Case 15Num = Num1 / 180 * piText1.Text = "ctg" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & 1 / Tan(Num)Case 16If Abs(Num1) > 1 ThenText1.Text = "输入错误！请重新输入："ElseNum = (Atn(Num1 / Sqr(-Num1 * Num1 + 1))) / pi * 180Text1.Text = "arcsin" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & NumEnd IfCase 17If Abs(Num1) > 1 ThenText1.Text = "输入错误！请重新输入："ElseNum = (Atn(-Num1 / Sqr(-Num1 * Num1 + 1)) + 2 * Atn(1)) / pi * 180Text1.Text = "arccos" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & NumEnd IfCase 18Num = (Atn(Num1)) / pi * 180NumCase 19Num = (Atn(Num1) + 2 * Atn(1)) / pi * 180Text1.Text = "arcctg" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & NumCase 20If Num1 > 0 And Num2 > 0 ThenText1.Text = "log" & "(" & Num1 & ")" & Num2 & "=" & Chr(13) & Chr(10) & Log(Num2) / Log(Num1)ElseText1.Text = "输入错误！请重新输入："End IfCase 21If Num1 > 0 ThenText1.Text = "ln" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & Log(Num1)ElseText1.Text = "输入错误！请重新输入："End IfCase 22Text1.Text = "sh" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & (Exp(Nun1) - Exp(-Num1)) / 2Case 23Text1.Text = "ch" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & (Exp(Num1) + Exp(-Num1)) / 2Case 24Text1.Text = "abs" & "(" & Num1 & ")" & "=" & Chr(13) & Chr(10) & Abs(Num1)End Selectfuhao = 0 '标记重置End SubPrivate Sub Command7_Click() '附加功能，输出系统时间Text1.Text = NowEnd SubPrivate Sub Command8_Click() '关闭计算器EndEnd SubPrivate Sub Form_Load()Text1.Text = NowLabel1.Caption = " 制作者：李乐" & Chr(13) & Chr(10) & Now End SubPrivate Sub Text1_Change()End Sub五、编译生成exe文件在文件菜单中生成EXE可执行文件。
vb计算器实习报告
摘要Visual Basic是近年来在国内外得到迅速推广应用的可视化程序设计语言具有简单易学,功能强效率高等特点.它提供了开发Windows 应用程序最迅速，最简捷的方法，不但专业人员得心应手的开发工具，而且易于被非专业人员掌握使用。
本课程主要讲述Visual Basic的基本概念，语法规则和利用Visual Basic进行程序设计方法。
同时掌握窗体设计，函数和控件的使用方法。
VB程序设计是工科专业开设的一门基础编程课程。
通过这门课程的学习，一方面是培养一个人的逻辑编程能力，提高其使用计算机能力，为今后从事本专业领域的软件开发打下基础；另一方面通过VB中体现出的面向对象思想，以培养学生认识问题，分析问题解决问题的思路和能力。
目录一. 题目：简单的科学计算器................................................................................................... - 3 -二. 选题的意义 ......................................................................................................................... - 3 -三. 系统设计............................................................................................................................... - 4 -1总体结构设计： .............................................................................................................. - 4 -2 各功能的实现 ................................................................................................................. - 4 -1数值输入、小数点、正负号................................................................................... - 4 -2.计算功能................................................................................................................... - 5 -3. “=”号输出结果........................................................................................................ - 6 -4.正弦、余弦、正切运算的实现：........................................................................... - 6 -四. 测试....................................................................................................................................... - 8 -1.用例阐述系统................................................................................................................... - 8 -2. 代码如下：..................................................................................................................... - 9 -五. 结论..................................................................................................................................... - 15 -六、参考文献............................................................................................................................ - 16 -一. 题目：简单的科学计算器二. 选题的意义随着现代科学技术日新月异，高速发展，因此计算器进入课堂是历史的必然。
VB简单计算器实验
在代码中针对每个过程都有简单注释；在代码的开头例如“'''operand ----------------------------操作数'''Calculation -------------------------计算”，这些都是帮助说明变量用途而写。
ElseIf LastInput = "负值" Then
'**************除法10
'*************求平方根10
'*************当前操作数的百分比10
'****************求倒数，用除法11
'*************等于11
一、程序功能和总体说明：
本程序使用VB语言编成，只使用了一个窗体模块，完成模仿市面简单计算器的功能。例如加减乘除，开方，求倒数，求百分比，并可连贯运算这些功能。
Case Asc(0) '48为字符零的Ascii值
Call Command0_Click
'Command0.Value = True‘与Call Command0_Click作用相同
Case Asc(0) To Asc(9) '49 To 57数字键1至9的Ascii值
Char = Chr(KeyAscii)
NumOperand = 1 '操作数个数置1
DecimalFlag = False
Time = 0
End Sub
'***************定义处理数字按钮通用过程
vb计算器实验报告
vb计算器实验报告《VB计算器实验报告》摘要：本实验报告通过使用VB（Visual Basic）编程语言，设计并实现了一个简单的计算器应用程序。
实验结果表明，该计算器能够实现基本的四则运算功能，并且具有良好的用户界面和操作体验。
本实验为学习VB编程语言的初学者提供了一个很好的实践机会，也为进一步深入学习和开发更复杂的应用程序奠定了基础。
1. 背景VB是一种由微软公司开发的基于对象的编程语言，它是一种易学易用的编程语言，适合初学者入门。
VB可以用于开发各种类型的应用程序，包括桌面应用程序、Web应用程序和移动应用程序等。
在本实验中，我们将使用VB编程语言设计并实现一个简单的计算器应用程序，以展示其基本功能和特点。
2. 实验目的通过本实验，我们旨在掌握VB编程语言的基本语法和功能，并且能够设计并实现一个简单的计算器应用程序。
同时，我们也将学习如何创建用户界面、处理用户输入和实现基本的数学运算功能。
3. 实验方法本实验使用Visual Studio作为开发环境，通过VB编程语言实现计算器应用程序的设计和开发。
在设计过程中，我们将考虑用户界面的布局和美观性，以及计算器功能的实现和操作流程。
在开发过程中，我们将使用VB的各种语法和功能，如变量、条件语句、循环语句和函数等，来实现计算器的基本功能。
4. 实验结果经过设计和开发，我们成功实现了一个简单的计算器应用程序。
该计算器具有清晰的用户界面和友好的操作体验，能够实现基本的加减乘除等四则运算功能。
用户可以通过点击按钮或者输入数字和运算符来进行计算，同时还可以实现清零和退格等功能。
整体而言，该计算器应用程序能够满足基本的计算需求，并且具有较好的稳定性和性能。
5. 结论通过本实验，我们不仅掌握了VB编程语言的基本语法和功能，还学会了如何设计和实现一个简单的计算器应用程序。
同时，我们也了解到了用户界面设计和用户体验的重要性，以及如何通过VB编程语言实现各种功能和操作。
vb实验报告
报告封面
2014-2015学年第一学期
封面和里边的需要写的内容不要空着学号、姓名、学院、年级、专业班等
实验课程: Visual 程序设计设课形式: 非独立
课程学分: 4
实验一
注: 请大家着重做好“智能计算器”, 并在此基础填写实验报告。
实验二
注: 请大家着重做好“简单游戏设计”, 并在此基础填写实验报告。
实验三
注: 请大家着重做好“设计一个拾色器”, 并在此基础填写实验报告。
实验四
注: 请大家着重做好“选课系统”, 并在此基础填写实验报告。
说明：请大家务必将上述4个实验做完, 并认真按要求撰写实验报告, 每位同学按顺序做好4个实验的实验报告交给班长或学习委员, 班长或学习委员按学号从小到大排序后上交。
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)。
西安科技大学
可视化编程语言实验报告
题目：科学计算器
班级：
学号：
姓名：
2010年11月
复杂型科学计算器的设计与实现实验目的
1．通过本实验，进一步理解Visual Basic的编程方法。
2．提高运用Visual Basic编程的能力。
3．培养对所学知识的综合运用能力。
实验类型
综合型。
实验内容与步骤
一.界面设计。
Command5Caption=
三．程序代码：
Dim num1 As Single, num2 As Single
Dim fu As Integer
Dim sign As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
sign = Index + 20
Case 10
sign = Index + 20
fu = 1
Case 11 To 14
sign = Index + 20
End Select
= ""
End Sub
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0 To 9
= & Index
If fu = 0 Then
num1 = Val
Else
num2 = Val
Case 10
= & "-"
Case 11
= & "."
Case 12 To 18
= ""
sign = Index fu = 1
End Select
End Sub
Private Sub Command3_Click() If =”” then
else
= Left$, Len - 1)
End if
End Sub
Private Sub Command4_Click() = ""
End Sub
Private Sub Command5_Click() Dim n As Integer, cf As Single fu = 0: cf = 1
Select Case sign
Case 12
= num1 & "+" & num2
= num1 + num2
Case 13
= num1 - num2
Case 14
= num1 * num2
Case 15
= num1 / num2
Case 18
For n = 1 To num2 cf = cf * num1
Next n
= cf
Case 20
= Sin(num1)
Case 21
Case 22
= Tan(num1)
Case 23
= 1 / Cos(num1)
Case 24
= 1 / Sin(num1)
Case 25
= 1 / Tan(num1)
Case 26
= Sqr(num1)
Case 27
= 1 / num1
Case 28
= Atn(num1)
Case 29
= Atn(num1) + 2 * Atn(1)
Case 30
= Log(num2) / Log(num1)
Case 31
= Log(num1)
Case 32
= (Exp(num1) - Exp(-num1)) / 2 Case 33
= (Exp(num1) + Exp(-num1)) / 2 Case 34
= Abs(num1)
End Select
End Sub
四.保存工程并生成exe可执行文件。