有没有晓得这个代码怎样做计算器。（视频更好）

Dim counta As Double, countb As Double, countc As Double, ops As String, ops_single As String
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text + Command1(Index).Caption
End Sub

Private Sub Command2_Click(Index As Integer)
counta = Val(Text1.Text)
ops = Command2(Index).Caption
Text1.Text = ""
End Sub

Private Sub Command3_Click()
countb = Val(Text1.Text)
Select Case ops
Case "+"
Text1.Text = Str(counta + countb)
Case "-"
Text1.Text = Str(counta - countb)
Case "*"
Text1.Text = Str(counta * countb)
Case "/"
If countb = 0 Then
MsgBox "除数不能为零", vbCritical, "出错"
Text1.Text = ""
Text1.SetFocus
Else
Text1.Text = Str(counta / countb)
End If
End Select
End Sub

Private Sub Command4_Click()
Dim strlen As Integer<

计算器代码 用ASP做个简易计算器怎么做？求代码 看这个C#做的计算器程序 AUTOCAD2004中,有没有计算器 求一段用VB做计算器的代码。 怎样设计一个简单的计算器(请写明代码) 求VB计算器代码 计算器VB代码 VB计算器代码 简易计算器代码