那个高手帮我分析下啊，vb计算器代码 那里有问题

Option Explicit
Dim num1 As Double, num2 As Double
Dim sum As Double
Dim ope As Double

Private Sub clean_Click()
num1 = 0
num2 = 0
sum = 0
Text1.Text = " "
End Sub

Private Sub close_Click()
End
End Sub

Private Sub Form_Load()
num1 = 0
num2 = 0
sum = 0
End Sub

Private Sub num_Click(Index As Integer)
Select Case Index
Case 0
If Text1.Text = " " Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text + "0"
End If
Case 1
If Text1.Text = " " Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text + "1"
End If
Case 2
If Text1.Text = " " Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text + "2"
End If
Case 3
If Text1.Text = " " Then

那个高手帮我分析下啊，vb计算器代码 那里有问题 帮我计算下VB程序，谢谢！！！ 谢谢~~帮我计算下VB~~ 高手帮我分析下 高手帮我改正下VB 帮我分析下VB判断质数代码 帮我分析下这个VB程序的问题 失恋高手请进、帮我分析下 各位情场高手帮我分析下 高手进帮我分析下副业