VB编写简易计算器(附图).doc

资料收集于网络，如有侵权请联系网站删除用VB6.0编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。2、各控件组其属性设置如下：控件名称功能/属性窗体Form 1简易计算器按钮Command1Command1（0） Command1（9）即：Caption 0 9按钮Command2小数点“.”按钮Command3等于号“=”按钮Command4退格按钮Command5清除按钮Command6Command6（0） Command6（3）即：Caption +、-、*、/按钮Command7负数按钮Command8平方设置效果如下图所示：二、编写代码Dim s1 As Single, s2 As Single, ysf As String定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符Private Sub Command1_Click(Index As Integer)Text1.Text = Text1.Text & Command1(Index).Caption将command1的单击事件与文本框显示的内容连接End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + .If (InStr(Text1.Text, .) = 1) Then 第一位不能为小数 Text1.Text = End IfIf InStr(Text1.Text, .) Len(Text1.Text) Then 防止出现两个小数点 Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command3_Click()s2 = Val(Text1.Text) 开始加减乘除运算 Select Case ysf Case + Text1.Text = s1 + s2 Case - Text1.Text = s1 - s2 Case * Text1.Text = s1 * s2 Case / If s2 = 0 Then虽然调查显示我们的创意计划有很大的发展空间，但是各种如“漂亮女生”和“碧芝”等连锁饰品店在不久的将来将对我们的创意小屋会产生很大的威胁。 MsgBox 分母不能为零!五、创业机会和对策分析 Text1.Text = Else Text1.Text = s1 / s2营销环境信息收集索引 End If附件（一）： End Select尽管售价不菲，但仍没挡住喜欢它的人来来往往。这里有营业员们向顾客们示范着制作各种风格迥异的饰品，许多顾客也是学得不亦乐乎。在现场，有上班族在里面精挑细选成品，有细心的小女孩在仔细盘算着用料和价钱，准备自己制作的原料。可以想见，用本来稀奇的原料，加上别具匠心的制作，每一款成品都必是独一无二的。而这也许正是自己制造所能带来最大的快乐吧。Text1 = IIf(Left(Text1.Text, 1) = ., 0 & Text1.Text, Text1.Text) 这个很关键，如果没有这个的话，得出小于1的小数前面没有0标题：大学生究竟难在哪？创业要迈五道坎 2004年3月23日End SubPrivate Sub Command4_Click()If Text1.Text = Then 文本为空就结束8、你是如何得志DIY手工艺制品的？Exit Sub标题：手工制作坊 2004年3月18日End If大学生的消费是多种多样，丰富多彩的。除食品外，很大一部分开支都用于。服饰，娱乐，小饰品等。女生都比较偏爱小饰品之类的消费。女生天性爱美，对小饰品爱不释手，因为饰品所展现的魅力，女人因饰品而妩媚动人，亮丽。据美国商务部调查资料显示女人占据消费市场最大分额，随社会越发展，物质越丰富，女性的时尚美丽消费也越来越激烈。因此也为饰品业创造了无限的商机。 据调查统计，有50% 的同学曾经购买过DIY饰品，有90% 的同学表示若在学校附近开设一家DIY手工艺制品，会去光顾。我们认为：我校区的女生就占了80%。相信开饰品店也是个不错的创业方针。Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 文本退一格End Sub3、消费“多样化”Private Sub Command5_Click()Text1.Text = 清除当前框内文本End SubPrivate Sub Command6_Click(Index As Integer)s1 = Val(Text1.Text) 将s1隐藏起来ysf = Command6(Index).CaptionText1.Text = End SubPrivate Sub Command7_Click()If Left(Text1.Text, 1) - Then 判断作为负数Text1.Text = - & Text1.TextElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command8_Click()Text1.Text = Text1.Text * Text1.Text 平方End Sub各位朋友，可以将红色代