1 / 13
文档名称:

VB计算器(界面设计全部代码).doc

格式:doc   大小:131KB   页数:13页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB计算器(界面设计全部代码).doc

上传人:guoxiachuanyue 2021/9/15 文件大小:131 KB

下载得到文件列表

VB计算器(界面设计全部代码).doc

相关文档

文档介绍

文档介绍:实用标准文案
: .
VB计算器
此计算器能够实现加减乘除等一系列的功能。还有实现显示系统时间的附加功能。
程序设计:0-9和点在command1的组内。其他的按钮式运算符和其他功能。
正切和余切有对特殊值进行警告, 除也有对除数为零的情况提示警告, 还有阶乘等一系列计
算溢出的情况提出警告,还有很多需要完善。 。。这仅供参考。
Public sum As Double
Public k As Stri ng
Public dia n As Boolea n
Public b As In teger
Public poin tflag As Boolea n
Dim clearFlag As Boolea n
Public F As Long
'Dim start As boole n
Public resl As Boolean ' 运算结果存储在 resl里
Public ff As Double 'resl 里是否为空
数字按钮在一个组内,点
'llllllllllllllllllllllllllllllllllllllllllllllllllllllll
击按钮输入数字 lllllllllllllllllllllllllllllllllllllllllll
Private Sub comma nd1_click(l ndex As In teger)
Select Case In dex
Case 1
If Not clearFlag The n ' 不是等号,那么显示 1
= & 1
Else ' 是等号,那么清空
= 1
clearFlag = False
End If
If Len() = 2 And InStr(1, Text1, "0") = 1 Then Text1 = Right(Text1, 1)
'如果第一位的数位 0,字符串的长度为 ,即两个数中右面的数
Case 2
If Not clearFlag Then
= & 2
Else
= 2
clearFlag = False
End If
If Len () = 2 And In Str(1, Text1, "0") = 1 The n Text1 : Case 3
If Not clearFlag The n
= & 3
Else
=Right(Text1, 1)
clearFlag = End If
=3
False
If Len () = 2 And In Str(1, Text1, "0") = 1 The n Text1 :
=Right(Text1, 1)
Case 4
If Not clearFlag The n

= & 4
Else

=4
clearFlag =
False
End If
If Len () = 2 And In Str(1, Text1, "0") = 1 The n Text1 :
=Right(Text1, 1)
Case 5
If Not clearFlag Then
= & 5
Else
= 5
clearFlag = False
End If
If Len() = 2 And InStr(1, Text1, "0")=
=1 The n Text1 =
=Right(Text1, 1)
Case 6
If Not clearFlag The n

= & 6
Else

=6
clearFlag = End If
False
If Len() = 2 And InStr(1, Text1, "0")=
=1 The n Text1 =
=Right(Text1, 1)
Cas

最近更新

北京仁达中学高三物理联考试卷含解析 6页

北京五路居第一中学2022年高二政治联考试卷含.. 6页

北京侯黄庄中学2020-2021学年高一物理下学期期.. 4页

北京刘家河中学2021-2022学年高二英语联考试卷.. 10页

北京农大附属中学2020-2021学年高一地理上学期.. 9页

北京前锋学校高三英语联考试卷含解析 6页

北京北大附属中学香山分校高三数学理月考试题.. 7页

能源互联网建设专项施工方案评审汇报 35页

北京北方中学2021-2022学年高一地理上学期期末.. 11页

北京医学院附属中学2020年高二化学期末试卷含.. 4页

北京南口机车车辆厂职工子弟中学高二数学文模.. 6页

北京启蒙学校2020年高二数学文上学期期末试题.. 5页

装修作业指导书样本 19页

北京后沙峪中学高三数学文月考试题含解析 6页

自适应航行控制方法-洞察及研究 35页

郑州绿地广场精装修样板层施工组织设计样本 46页

智慧农业物联网架构优化-洞察及研究 36页

北京坨里镇上万中学高三物理联考试卷含解析 5页

北京垡上中学2022年高一物理联考试题含解析 5页

北京大兴区庞各庄中学2020年高一数学文测试题.. 5页

北京大兴区黄村第一中学高二历史模拟试卷含解.. 8页

北京大华山中学2021-2022学年高三英语月考试卷.. 4页

北京大峪中学分校2020-2021学年高二历史月考试.. 8页

北京大灰厂中学2022年高三化学联考试题含解析.. 7页

北京安慧北里中学2020年高二地理下学期期末试.. 21页

北京女子实验中学高二物理月考试卷含解析 4页

北京实验外国语学校2022年高一化学联考试卷含.. 4页

焦虑自评量表SAS完整 6页

牙体牙髓病用药 53页

升压站调试方案 11页