vb计算器实训 实验报告Word文档下载推荐.docx
- 文档编号:20357862
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:22
- 大小:106.26KB
vb计算器实训 实验报告Word文档下载推荐.docx
《vb计算器实训 实验报告Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《vb计算器实训 实验报告Word文档下载推荐.docx(22页珍藏版)》请在冰豆网上搜索。
Command7
CE
Command8
Sqrt
Command9
1/x
Command10
%
Command11
=
Text1
Text
0.
Alignment
1-rightjustify
四号
Form1
计算器
Maxbutton
False
Form2:
Command12
caption
sin
index
Command13
A
enabled
false
Form2
Frame1
“”
Frame2
Option1
十六进制
Option2
八进制
Option3
十进制
Option4
二进制
Form3:
确定
Image1
Stretch
True
Form3
帮助主题
2、界面图:
3、代码书写:
OptionExplicit
DimiAsInteger
DimjAsInteger
DimmAsString
Dimx1AsDouble
Dimx2AsDouble
DimyAsString
DimopAsInteger
DimlastinputAsString
PrivateSubAbout_Click()
Form1.Hide
Form3.Show
EndSub
PrivateSubCommand1_Click(IndexAsInteger)输入数字0-9
IfText1.Text="
0."
Orlastinput="
="
Then
Text1.Text=Index
lastinput="
number"
Else
IfForm1.Tag<
>
"
"
IfIndex=10Then
Text1.Text="
Else
Text1.Text=Command1(Index).Caption
EndIf
Form1.Tag="
Text1.Text=Text1.Text&
Command1(Index).Caption
EndIf
PrivateSubCommand10_Click()
Text1.Text=Format(Text1.Text/100,"
0.####################"
)
PrivateSubCommand11_Click()
x2=Val(Text1.Text)
SelectCasey
Case"
+"
x1=x1+x2
-"
x1=x1-x2
×
x1=x1*x2
÷
Ifx2=0Then
m=MsgBox("
除数不能为0"
vbExclamation+vbOKOnly,"
提示"
Text1.SetFocus
x1=x1/x2
EndSelect
Text1.Text=Format(x1,"
0.#####################"
PrivateSubCommand2_Click(IndexAsInteger)
x1=Val(Text1.Text)
op=Index
SelectCaseop
Case0
y="
Case1
Case2
Case3
PrivateSubCommand3_Click()'
正负号
Text1.Text=-Val(Text1.Text)
PrivateSubCommand4_Click()'
小数点
IfInStr(Text1.Text,"
."
)Then
ExitSub
Text1.Text=Text1.Text+"
PrivateSubCommand5_Click()
DimlengthAsInteger
length=Len(Text1.Text)'
数字长度
Iflength=1Then
IfText1.Text<
Then'
除非结果为0,否则都要退一位
Text1.Text=Left(Text1.Text,length-1)
PrivateSubCommand6_Click()'
清空当前数据
PrivateSubCommand7_Click()'
清除所有数据
x1=0
x2=0
Text1.Text=Format(0,"
PrivateSubCommand8_Click()
IfText1.Text<
0Then
m=MsgBox("
被开方数要大于零"
Text1.Text=Sqr(Val(Text1.Text))
PrivateSubCommand9_Click()
IfText1.Text=0Then
Text1.SetFocus
Text1.Text=Format(1/Val(Text1.Text),"
PrivateSubcopy_Click()'
复制
Clipboard.Clear
Clipboard.SetTextText1.SelText
PrivateSubForm_Initialize()'
利用控件数组产生0-9的控件
Fori=1To9
LoadCommand1(i)
SelectCaseiMod3
WithCommand1(i)
.Visible=True
.Caption=i
.Left=Command1(0).Left+1440
.Top=Command1(i-3).Top+Command1(i).Height-1095
EndWith
.Left=Command1(0).Left
.Top=Command1(i-1).Top+Command1(i).Height-1095
.Left=Command1(0).Left+720
.Top=Command1(i-2).Top+Command1(i).Height-1095
Nexti
Forj=1To3'
‘生成运算符的控件按钮
LoadCommand2(j)
WithCommand2(j)
.Left=Command2(0).Left
.Top=Command2(j-1).Top+Command2(j).Height+100
Command2(j).Caption=Choose(j,"
"
Nextj
Endsub
PrivateSubForm_Resize()
Me.Width=4230
Me.Height=4860
PrivateSubkexue_Click()’到科学型界面
Form2.Show
PrivateSubpaste_Click()'
粘贴
Text1.SelText=Clipboard.GetText
DimkAsInteger
DimnAsInteger
DimYAsString
DimBAsString
DimDAsString
Form2.Hide
PrivateSubCommand1_Click(IndexAsInteger)'
输入数字0-9
0"
SelectCaseY
Case"
PrivateSubCommand12_Click(IndexAsInteger)
SelectCaseIndex
Text1.Text=Format(Sin(Val(Text1.Text)),"
Text1.Text=Format(Cos(Val(Text1.Text)),"
Text1.Text=Format(Tan(Val(Text1.Text)),"
Fori=1ToVal(Text1.Text)-1
Text1.Text=Format(i*Text1.Text,"
Nexti
EndSelect
lastinput="
PrivateSubCommand13_Click(IndexAsInteger)
Text1.Text=Command13(Index).Caption
Form1.Tag="
Command13(Index).Caption
SelectCaseCommand13(Index).Caption
A"
:
D=D&
10"
B"
11"
C"
12"
D"
13"
E"
14"
F"
15"
Y="
Y="
数字的长度
除非结果为零,否则都要减一位
PrivateSubCommand6_Click()'
PrivateSubCommand7_Click()'
EndSub
被开方的数要大于零"
.Visible=True
.Caption=i
生成运算符的控件按钮
Fork=1To3
LoadCommand12(k)
WithCommand12(k)
.Left=Command12(0).Left
.Top=Command12(k-1).Top+Command12(k).Height+100
Command12(k).Caption=Choose(k,"
cos"
tan"
n!
Nextk
Forn=1To5
L
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb计算器实训 实验报告 vb 计算器 实验 报告