VB科学计算器的实现实验报告Word格式文档下载.doc
《VB科学计算器的实现实验报告Word格式文档下载.doc》由会员分享，可在线阅读，更多相关《VB科学计算器的实现实验报告Word格式文档下载.doc（11页珍藏版）》请在冰点文库上搜索。
Caption
“sin”
Index
Command1
（1）
“cos”
Command1
（2）
“tg”
2
Command1（3）
“sec”
3
Command1（4）
“csc”
4
Command1（5）
“ctg”
5
Command1（6）
“arcsin”
6
Command1（7）
“arcos”
7
Command1（8）
“arctg”
8
Command1（9）
“arcctg”
9
Command1（10）
“log”
10
Command1（11）
“ln”
11
Command1（12）
“sh”
12
Command1（13）
“ch”
13
Command1（14）
“abs”
14
Command2（0）
“0”
Command2
（1）
“1”
1
Command2
（2）
“2”
Command2（3）
“3”
Command2（4）
“4”
Command2（5）
“5”
Command2（6）
“6”
Command2（7）
“7”
Command2（8）
“8”
Command2（9）
“9”
Command2（10）
“.”
Command2（11）
“-”
Command3（0）
“+”
Command3
（1）
Command3
（2）
“*”
Command3（3）
“/”
Command3（4）
“（”
Command3（5）
“）”
Command3（6）
“^”
Command4
“<
--“
Command5
“CE”
Command6
“=”
Command7
“功能切换”
Command8
“退出”
Label1
清空
Text1
BackColor
&
H00FFFFC0&
ForeColor
H00FF0000&
MultiLine
true
Text
Font
宋体常规三号
Enlabied
False
Form1
自制科学计算器
H00FFC0C0&
四、编写代码，进行调试
编写代码如下：
通用：
DimNum1,Num2AsSingle
DimnAsInteger'
乘方变量
DimpiAsSingle
DimresultAsSingle
DimfuhaoAsInteger'
判断是否有运算符号
DimsignAsInteger'
储存运算符号
双击任意数组控件一按钮输入代码：
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0To9
sign=10+Index
Case10
sign=20
fuhao=1'
第一次输入的底数已放入Num1,标记已有符号，第二次输入时数据放入Num2
Case11To14
EndSelect
Text1.Text="
"
'
清空文本框
EndSub
双击任意数组控件二按钮输入代码：
PrivateSubCommand2_Click（IndexAsInteger）'
数字输入
Case0To9
Text1.Text=Text1.Text&
Index
Case10
"
."
Case11
Text1.Text="
-"
EndSelect
Iffuhao=0Then'
若无符号数据放入Num1，有符号数据放入Num2
Num1=Val（Text1.Text）
Else
Num2=Val（Text1.Text）
EndIf
双击任意数组控件三按钮输入代码：
PrivateSubCommand3_Click（IndexAsInteger）'
判断标记运算符号
Case0To6
sign=Index
Text1.Text="
fuhao=1'
标记已有运算符
双击ß
按钮输入代码：
PrivateSubCommand4_Click（）'
每次从右边删除一个数字
IfVal（Text1.Text）=0Then
Text1.Text="
fuhao=0
Else
Text1.Text=Left$（Text1.Text,Len（Text1.Text）-1）
EndIf
EndSub双击CE按钮输入代码：
PrivateSubCommand5_Click（）'
Text1.Text="
fuhao=0
双击等号按钮输入代码：
PrivateSubCommand6_Click（）
DimNumAsSingle'
角度中间转换变量
pi=3.141592654
e=2.718282
SelectCasesign
Case0
Text1.Text=Num1&
+"
&
Num2&
="
Chr（13）&
Chr（10）&
Num1+Num2
Case1
Num1-Num2
Case2
*"
Num1*Num2
Case3
/"
Num1/Num2
Case4
Text1.Text="
输入错误！
请重新输入：
Case5
Case6
result=Num1
Forn=1ToNum2-1
result=result*Num1
Nextn
Text1.Text=Num1&
^"
result
Case10
Num=Num1/180*pi
Text1.Text="
sin"
（"
Num1&
）"
Sin（Num）
Case11
cos"
Cos（Num）
Case12
If（（Num-pi/2）Modpi）=0Then
Text1.Text="
Else
Text1.Text="
tg"
Tan（Num）
EndIf
Case13
sec"
1/Cos（Num）
Case14
csc"
1/Sin（Num）
Case15
ctg"
1/Tan（Num）
Case16
IfAbs（Num1）>
1Then
Num=（Atn（Num1/Sqr（-Num1*Num1+1）））/pi*180
Text1.Text="
arcsin"
Num
Case17
Num=（Atn（-Num1/Sqr（-Num1*Num1+1））+2*Atn
（1））/pi*180
arccos"
Case18
Num=（Atn（Num1））/pi*180
arctg"
Case19
Num=（Atn（Num1）+2*Atn
（1））/pi*180
arcctg"
Case20
IfNum1>
0AndNum2>
0Then
Text1.Text="
log"
Log（Num2）/Log（Num1）
Else
EndIf
Case21
IfNum1>
ln"
Log（Num1）
Case22
sh"
（Exp（Nun1）-Exp（-Num1））/2
Case23
ch"
（Exp（Num1）+Exp（-Num1））/2
Case24
abs"
Abs（Num1）
fuhao=0'
标记重置
双击功能切换按钮输入：
PrivateSubCommand7_Click（）'
附加功能，输出系统时间
Text1.Text=Now
双击退出按钮输入代码：
PrivateSubCommand8_Click（）'
关闭计算器
End
输入窗体代码：
PrivateSubForm_Load（）
Label1.Caption="
制作者：
李亚进"
Now
五、编译生成exe文件
在文件菜单中生成EXE可执行文件。
升级会员 