请教高手，用vb做计算器，那个等号的代码怎么写

计算器中的等号用VB怎么写代码~

Private Sub Command17_Click()
b = Val(Text1.Text)
Text1.Text = ""
If c = 1 Then
d = a + b
Text1.Text = Str(d)
Else
If c = 2 Then
d = a - b
Text1.Text = Str(d)
Else
If c = 3 Then
d = a * b
Text1.Text = Str(d)
Else
If c = 4 And b 0 Then
d = a / b
Text1.Text = Str(d)
Else: Text1.Text = "除数不能为0"
End If
End If
End If
End If
End Sub

1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：

设置效果如下图所示：


二、编写代码
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 Sub
Private Sub Command2_Click（）
Text1.Text = Text1.Text + “。”
If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数
Text1.Text = “”
End If
If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点
Text1.Text = Left
（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private 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
End Sub
Private Sub Command4_Click（）
If Text1.Text = “” Then ’文本为空就结束
Exit Sub
End If
Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text = “” ’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption
Text1.Text = “”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数
Text1.Text = “-” & Text1.Text
Else
Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text = Text1.Text * Text1.Text ‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接

给你写了个例子，看看就OK了。可以把对应的加号换成其他运算符号。

Private Sub Command1_Click()
'在文本框 text1.text 中输入的格式需要是 X+Y 这中方式

Dim a As Double
Dim b As Double

a = Mid(Text1.Text, 1, InStr(Text1.Text, "+") - 1)
b = Mid(Text1.Text, InStr(Text1.Text, "+") + 1)
Text1.Text = a + b

End Sub

首先要定义俩全局变量，一个保存当前值，一个保存操作类型(加减乘除)
在加减乘除的按钮按下时，查看当前操作是不是加减乘除状态，是则调用等号功能，并对当前Text1的值保存到全局变量，对应操作也存到全局变量
其次，数字按钮按下时，首先要确定是不是加减乘除状态，是则更新当前值，清空Text1,把当前数字赋给Text1;不是则按照你现在的方式更改Text1
最后，等号功能，按照当前操作，拿全局变量当前值和Text1的值进行相应加减乘除

这样直接写好麻烦的,干脆直接给你重新写一个好吧~

---

请教高手，用vb做计算器，那个等号的代码怎么写视频