代码如下Dim t， t1 As Integer Dim x， y As Double Public Sub comx = Vall1CaptionSelect Case t1 Case Is = 1 y = y + x Case Is = 2 y = y x Case Is = 3 y = y * x Case。
分类 电脑网络 程序设计 其他编程语言 解析其实比较简单啦，用一个窗体就可以实现啦！我自己写的，你可以看看 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim i。
1启动软件，新建一个变准EXE工程2我们在窗体上绘制好要使用到的控件3双击计算按钮进入代码窗口，我们可以在这里编写代码4接下来我们打入累加的赋值语句5接下来我们点击运行测试的小三角6这时候我们就。
01 打开VB，新建一个EXE文件02 画上四个方框，表示运算法则即加减乘除四项，3个文本控件表示数，一个标签控件为“=”并对控件进行命名03 然后。
我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数第二个数结果我们现在要text也要拉出三个，把了text里面text1text2text3全部删掉我们现在要把command拉出四个。
2各控件组其属性设置如下设置效果如下图所示二编写代码 Dim s1 As Single， s2 As Single， ysf As String ‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符 Private Sub Command1_Click。
1打开VB新建一个EXE2如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号当然，界面可以自己发挥3画好之后，就可以把控件进行命名，注意是属性栏的Caption项。
程序流程 输入要计算数据计算结果显示数据 VB的实现 文本框TextBox控件 表达式 标签Label控件 三编制程序一 在VB60中新建一个标准EXE工程 二 建立一个窗体，窗体属性设置如下名称 = M。
private sub 计算byval sender as object， byval e as eventargs handles 等号click 下一个数 = 输入框text 输入框text ＝ ”“select case 操作 case quot加quot结果 = 上一个数 + 下一个数 case quot减quot结果 =。
很简单的窗口放入四个COMMAND控件Caption属性分别为+－X÷，三个TEXT控件，再放入三个Label控件Caption属性分别为操作数1操作数2和计算结果，窗口的Caption属性改为“四则运算”代码如下Private Sub。
Call Run #39调用计算子程序，该子程序在下面有说明 Else signflag = True #39前面没有未运算的，将有无运算符标志设为quot有quotstrn2 = strn1 #39把字符串1复制给字符串2 strn1 = quotquot #39字符串1清空 End If runsig。
Option Explicit Dim Op1， Op2 #39 预先输入操作数Dim DecimalFlag As Integer #39 小数点存在吗Dim NumOps As Integer #39 操作数个数Dim LastInput #39 指示上一次按键事件的类型Dim OpFlag #39 指示未。
不知道你想要哪种，偶是新手，只会最简单的 首先拖出三个text，再拖出4个Command按钮 caption分别为+ * 这样就准备就绪了 先讲一下简单用法，第一个text是第一个加数被减数因数被除数，而第二个text是第二个。
切记，必须要先写上你要乘，除，加，减或二次方的数字再点击加减乘除符号，否则会造成数据复位，前面的会白算的，这与计算器是一个道理举例来说本来是2+22的按扭顺序，在这里是2 + 2 2 举。
可以就是将文本框后面增加一个数字，就是在文本框内容最后增加命令按钮所显示的数字 比如 Private Sub Command3_Clicktext1Text = text1Text quot3quotEnd Sub 或通用的按钮组 Private Sub Command1_ClickIndex As。
