急需解决两个VB计算器的小问题

老师要求我们做VB计算器
但是其实基础什么也没说
所以这简直就是。。。然后问他还说要你自己想。。。恶心的我就。。。那就给个长时间吧。。。他要你2天做出来。。。

还好。。基本搞定。。。现还欠两要求
求大虾们帮忙
一 文本框只允许有12个数字 超过12个要给出提示框
二 实现小数点功能

我的编码
Option Explicit
Dim lastinput As String
Dim Num1 As Double
Dim Num2 As Double
Dim opttype As Integer
Dim result As Double

Private Sub Command1_Click(Index As Integer)
If Text1.Text = "0" Then Text1.Text = ""
Text1.Text = Text1.Text & Index
End Sub

Private Sub Command2_Click()
Text1.Text = "0"
End Sub

Private Sub Command3_Click(Index As Integer)
Num1 = Val(Text1.Text)
Text1.Text = ""
lastinput = "opt"
opttype = Index
End Sub

Private Sub Command4_Click()
Num2 = Val(Text1.Text)
Select Case opttype
Case 0
result = Num1 + Num2
Case 1
result = Num1 - Num2
Case 2
If Val(Num2) = 0 Then

急需解决两个VB计算器的小问题 两个VB的小问题 VB编写的计算器问题 VB中 计算器的问题 关于VB计算器的问题 VB两个小问题 制作计算器的VB小程序 用VB做算术计算器,在两个文本框中输入数值,加,减,乘都没有问题,可是除法的时候有点小问题. VB编程的两个小问题 电脑两个急需解决的问题?