关于VB编程的问题 高不高手都来看看

谁能给我解释一下每一段代码的意思啊     看起来模模糊糊Private Sub Command2_Click(Index As Integer)Form1.Tag = "T"If v Then    X = Val(Text1.Text)    v = Not vElse    Y = Val(Text1.Text)    Select Case s        Case 0            Text1.Text = X + Y        Case 1            Text1.Text = X - Y        Case 2            Text1.Text = X * Y        Case 3            If Y <> 0 Then            a = X / Y                        Text1.Text = Format(a, "0.########")            Else                MsgBox ("不能以0为除数")                Text1.Text = X                v = False            End If        Case 4            Y = 0            v = False    End Select    X = Val(Text1.Text)End Ifs = IndexEnd Sub

追问：汗   我是复制过来的 
当然没按行
Form1.Tag = "T"   With Text1不知道什么意思 
 If v Then   V是什么意思？
  v = Not v  这些大都看不懂       我菜鸟  新手的  
刚学不久   这是老师给的代码 
前就忙着考试   没理微机 （我高一）
现在有点兴趣就来玩玩了

答案：'断章取义很难解释，给你格式变了一下，你一看就知道，非常简单的代码
Private Sub Command2_Click(Index As Integer) 'command控件数组
    Form1.Tag = "T"
    With Text1
        If v Then
            X = Val(.Text)
            v = Not v
        Else
            Y = Val(.Text)
            Select Case s '对s进行判断作分支处理
            Case 0
                .Text = X + Y
            Case 1
                .Text = X - Y
            Case 2
                .Text = X * Y
            Case 3
                If Y <> 0 Then
                    a = X / Y
                    .Text = Format(a, "0.########") '显示格式
                Else
                    MsgBox ("不能以0为除数")
                    .Text = X
                    v = False
                End If
            Case 4
                Y = 0
                v = False
            End Select
            X = Val(.Text)
        End If
    End With
    s = Index
End Sub

上一个：VB编程如何让标签在窗体中来回滚动
下一个：vb编程产生30到50以内20个随机函数