[求助]计算器制作思路要怎么做呢代码也好（初学者）

封xin封mg

高手门可以帮我弄一个计算器的代码（ＶＢ．ＮＥＴ）
按键输入的
或者可以给我点意见思路　
希望在这里可以找到灵感
谢谢～～～～～～～～～～～～！

云飞

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
str1 = ""
str2 = ""
point = False
firstnum = True
End Sub
'数字按键代码
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click
buttonClicked = CType(sender, Button)
If firstnum Then
str1 = buttonClicked.Text
firstnum = False
Else
str1 = str1 + buttonClicked.Text
End If
'If Button12.MouseButtons Then
'If Not point Then
'If firstnum Then
'str1 = "0."
'firstnum = False
'Else
' str1 = str1 + "."
'End If
'point = True'
'End If
'Else
'Exit Sub
'point = True
'End If
TextBox1.Text = str1
End Sub

我的思路是这样的，但是小数点的处理还不知道该怎么做。还请高手指教下

敬你永远遗忘

我 还是不太明白你可以说的详细些吗

緣妢_兲紸龍

谢谢你的回复

※随风飘荡※

定义好多个button
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click
buttonClicked = CType(sender, Button)
If firstnum Then
str1 = buttonClicked.Text
firstnum = False'判断是不是第一个字符，在form-_load里初始化
Else
str1 = str1 + buttonClicked.Text
End If
TextBox1.Text = str1
End Sub

这是我的一点思路，我也在学做计算器，现在小数点不知道该怎么做