Private Sub Command1_Click()
Dim i, sum As Long
    sum = Val(Text2.Text)
    i = Val(Text1.Text)
    If i Mod 2 = 1 Then
    sum = sum + i
    Text2.Text = sum
End If

End Sub

Private Sub Command2_Click()
    End
   
End Sub

Dim sum As Long

Private Sub Command1_Click()
Dim i As Long
 i = Val(Text1.Text)
 If i Mod 2 = 1 Then
   sum = sum + i
   Text2.Text = sum
 End If
   
End Sub

Private Sub Command2_Click()
    End
   
End Sub

Private Sub Form_Load()
  sum = 0
  Text2.Text = sum
End Sub

怎么把VB的东东搬到这来了！