按你的要求做的代码如下在1个新窗体上编排以下控件添加1个Label1控件用作显示数据，name=lblScreen 添加1个Command控件数组10个数字用作输入数据的按钮0~9，name=cmdNumber，index=0~9 添加1个Command控件用作小数。

text3text=valtext1text+valtext2text复制，把里面+号分别改成* 如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了感谢观看。

定义2个公用变量 变量1 变量2 储存 2个相加减乘除的值，当按数字键 文本框显示按键 变量1=按键1的值，接着按键2时变量1=变量1 按键2的值，同时test1text=变量1，计算器显示框显示以此类推当按。

这是刚看VB的时候写的一个简易计算器，可以看看Dim Num1， Num2 As SingleDim StrNum1， StrNum2 As StringDim FirstNum As Boolean #39判断是否是数字开头Dim PointFlag As Boolean #39判断是否已有小数点Dim Runsign As。

这个我做过，代码如下Option Explicit Dim q As Integer， w As Single Private Sub Command1_ClickIndex As IntegerIf Index = 10 Then Text1Text = Text1Text quotquotElse Text1Text = Text1Text CStr。