vb怎么制作一个计算器？

~ 控件 名称 Caption 控件 名称 Caption \x0d\x0a窗体 Form 1 计算器 \x0d\x0a按钮 Command 1（0）～Command1（9） Caption 0 ～ 9 \x0d\x0a按钮 Command6（0） + \x0d\x0a按钮 Command 6（1） - \x0d\x0a按钮 Command 6（2） *\x0d\x0a按钮 Command 6（3） /\x0d\x0a按钮 Command 2 退格 \x0d\x0a按钮 Command 3 清除\x0d\x0a按钮 Command 4 .\x0d\x0a按钮 Command 5 = \x0d\x0a\x0d\x0aDim shu1 As Single, shu2 As Single, suanfu As String\x0d\x0a'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符\x0d\x0a\x0d\x0aPrivate Sub Command1_Click(Index As Integer)\x0d\x0aText1.Text = Text1.Text & Command1(Index).Caption\x0d\x0a'将command1的单击事件与文本框显示的内容连接\x0d\x0a\x0d\x0aEnd Sub\x0d\x0aPrivate Sub Command2_Click() '假如输入错误,可每次退后一格\x0d\x0aIf Text1.Text = "" Then\x0d\x0aExit Sub\x0d\x0aEnd If\x0d\x0aText1.Text = Left(Text1.Text, Len(Text1.Text) - 1)\x0d\x0aEnd Sub\x0d\x0aPrivate Sub Command3_Click()\x0d\x0a Text1.Text = "" '清除\x0d\x0aEnd Sub\x0d\x0aPrivate Sub Command4_Click()\x0d\x0aText1.Text = Text1.Text + "."\x0d\x0aIf (InStr(Text1.Text, ".") = 1) Then '第一位不能为小数\x0d\x0a Text1.Text = ""\x0d\x0aEnd If\x0d\x0a\x0d\x0aIf InStr(Text1.Text, ".") < Len(Text1.Text) Then '防止出现两个小数点\x0d\x0aText1.Text = Left(Text1.Text, Len(Text1.Text) - 1)\x0d\x0aEnd If\x0d\x0a\x0d\x0aEnd Sub\x0d\x0a\x0d\x0aPrivate Sub Command5_Click() '开始加减乘除的运算\x0d\x0ashu2 = Val(Text1.Text)\x0d\x0a Select Case suanfu\x0d\x0a Case "+"\x0d\x0a Text1.Text = shu1 + shu2\x0d\x0a Case "-"\x0d\x0a Text1.Text = shu1 - shu2\x0d\x0a Case "*"\x0d\x0a Text1.Text = shu1 * shu2\x0d\x0a Case "/"\x0d\x0a If shu2 = 0 Then\x0d\x0a Text1.Text = "被除数不可为0"\x0d\x0a Else\x0d\x0a Text1.Text = shu1 / shu2\x0d\x0a End If\x0d\x0a End Select\x0d\x0aEnd Sub\x0d\x0a\x0d\x0aPrivate Sub Command6_Click(Index As Integer)\x0d\x0ashu1 = Val(Text1.Text) '将shu1隐藏起来\x0d\x0a suanfu = Command6(Index).Caption\x0d\x0a Text1.Text = ""\x0d\x0aEnd Sub

---

碾子山区15221871421： 怎样用VB做一个小型计算器 - ？
戴庾阿莫： 你的问题在界面还是在算法?要是算法上的问题可以这样:声明两个数组作为栈(可用类模块)'Class Stack:Dim stc(100),top as integer Sub Push(k) stc(top)=k top=top+1 End Sub Function Pop top=top-1 Pop=stc(top) End Function Function Peek Peek=stc(top-1) End Function 然后按下运算符按钮就把数字压入数字栈(push) 看看符号占上面的是否为低级运算,是则push符号,否则取出数字占的两个进行计算,结果入栈……

碾子山区15221871421： 怎样用VB设计简单计算器？
戴庾阿莫：Dim x As String Private Sub Command1_Click() Text1.Text = Text1.Text & ＂1＂ End Sub Private Sub Command10_Click() Text1.Text = Text1.Text & ＂6＂ End Sub Private Sub Command11_Click() Text1.Text = Text1.Text & ＂9＂ End Sub ...

碾子山区15221871421： 如何用VB编写最简单的计算器程序 - ？
戴庾阿莫： 组成包括Label控件2个,其中一个用来显示数字,一个在那个显示数字的上方空白显示,纯属修饰作用 按钮19个,分别为10个数字0~9,小数点,四则运算按钮,正负号按钮,求倒数按钮,等号按钮,清零按钮,C和CE有啥区别我还真不知道..所以就写了C了.

碾子山区15221871421： vb怎么设计个简单的计算器 - ？
戴庾阿莫： 给你个稍微简单一点的....用控件数组的.Dim v As Boolean Dim s As Integer Dim x As Double Dim y As Double Private Sub Command1_Click(Index As Integer) If Form1.Tag = ＂s＂ Then If Index = 10 Then Text1.Text = ＂0.＂ Else Text1....

碾子山区15221871421： 在VB中,怎么样做一个简单计算器？
戴庾阿莫： val(text1.text)+val(text2.text2) '加 val(text1.text)-val(text2.text2) '减 val(text1.text)*val(text2.text2) '乘 val(text1.text)/val(text2.text2) '除

碾子山区15221871421： 用VB怎么做一个完整的计算器? - ？
戴庾阿莫： Dim flag As Integer Dim s1 As String Private Sub Command1_Click() '数字“1” Text1.Text = Text1.Text + Str$(1) End Sub Private Sub Command2_Click() '数字“2” Text1.Text = Text1.Text + Str$(2) End Sub Private Sub Command3_Click...

碾子山区15221871421： 用VB怎么编一个计算器呀?？
戴庾阿莫： 最简单的界面就是普通计算机的界面 显示屏是textbox,下面是各种command按钮,最好是五行四列共20个按钮,十个数字,加减乘除,等于,点,跟号,平方,删除键,清空键

碾子山区15221871421： 我想用vb做一个简单的计算器,那位高手可以指点一下 - ？
戴庾阿莫： Private Sub Command1_Click()这是加法,其他的只需把+改为其他的 Dim a, b, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = a + b MsgBox c '弹出答案 End Sub

碾子山区15221871421： 如何用VB编写一个计算器 - ？
戴庾阿莫： 建立14个按钮,按钮的名字都要Command1,设置Index属性,0~9分别对应数字0~9,10为小数点,11为等号,12~14分别对应+、-、*和/. 2、输入如下代码: Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As ...

碾子山区15221871421： vb计算器怎么做啊? - ？
戴庾阿莫： ' ------------------------------------------------------------------------' 版权所有 (C) 1994 Microsoft Corporation'' 您可以免费以任何方式使用、修改、复制并分发您认为有用的' 示例应用程序文件 (或任何修改过的版本).Microsoft 对任何' 示例应用程序文件...