Question

求vb代码的注释及相应知识点，急！！！！！！！

Public Class 圆括号配对

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim diaAs NewOpenFileDialog()
dia.InitialDirectory = "C:\"
dia.Filter = "TextFiles|*.txt|AllFiles|*.*"
Ifdia.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dimr As NewStreamReader(dia.FileName, Encoding.Default)
Dims As String =r.ReadLine()(定义为字符串= r.readline)

Do While Not s Is Nothing
ListBox1.Items.Add(s)
s = r.ReadLine()
Loop
r.Close()
End If
End Sub

Private Sub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click（ByVal:按值传递,对应还有:ByRef,按形传递，sender,事件源，System.EventArgs
事件类型）
Dim j As Integer(d定义整数变量)
For i =0 To ListBox1.Items.Count - 1
j = KuoHaoMatch(ListBox1.Items(i))
Ifj = 0 Then
ListBox2.Items.Add("左右括号配对")
Else
ListBox2.Items.Add(IIf(j >0, "缺少" & j & "个右括号", "缺少" & j & "个左括号"))
EndIf
Next
End Sub
Private Function KuoHaoMatch(ByValStrTemp As String)As Integer
Dim j As Integer, k As Integer
j = 0
k = 0
For i =1 To Len(StrTemp)
IfMid(StrTemp, i, 1) = "(" Then
j = j + 1
ElseIfMid(StrTemp, i, 1) = ")" Then
k = k + 1
EndIf
Next
KuoHaoMatch = j - k
End Function

End Class

Answer 1

好久没有接触VB，而且还停留在VB6的时代，这个应该是VB.net或更高版本的代码吧？且按语句的理解写一下注释，毕竟你这个问题只有人看，没有人回，有不当之处请一笑置之。
Public Class 圆括号配对 '定义一个类,用于检查左括号右括号配对的情况

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click '这个应该是读入代码文件的按钮,打开一个文件,并将文件中的内容逐行填入listbox中
Dim diaAs NewOpenFileDialog() '声明一个打开对话框
dia.InitialDirectory = "C:\" '初始目录为"C:\"
dia.Filter = "TextFiles|*.txt|AllFiles|*.*" '滤波器设定,两个类型:txt文件及所有文件
Ifdia.ShowDialog() = Windows.Forms.DialogResult.OK Then '显示打开对话框,并且获得被按下的按钮,如果按钮为"OK",则:
Dimr As NewStreamReader(dia.FileName, Encoding.Default) '打开"打开对话框"返回的文件
Dims As String =r.ReadLine()(定义为字符串= r.readline)'读取一行

Do While Not s Is Nothing '如果读入行不为空(循环读入,直到文件结束)
ListBox1.Items.Add(s) 'listbox添加数据
s = r.ReadLine() '读取下一行
Loop
r.Close() '关闭流
End If
End Sub

Private Sub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click（ByVal:按值传递,对应还有:ByRef,按形传递，sender,事件源，System.EventArgs
事件类型）'逐行处理括号配对的按钮
Dim j As Integer(d定义整数变量)
For i =0 To ListBox1.Items.Count - 1 '获得listbox的行数,并以此为循环的最大次数
j = KuoHaoMatch(ListBox1.Items(i)) '调用函数,计算listbox每一行内容中的左括号与右括号差值
Ifj = 0 Then
ListBox2.Items.Add("左右括号配对") '差值为0, 认为配对
Else
ListBox2.Items.Add(IIf(j >0, "缺少" & j & "个右括号", "缺少" & j & "个左括号"))'差值大于0,认为缺少对应的右括号,差值小于0,认为缺少对应的左括号,并将结果添加到listbox
EndIf
Next
End Sub
Private Function KuoHaoMatch(ByValStrTemp As String)As Integer
Dim j As Integer, k As Integer
j = 0
k = 0
For i =1 To Len(StrTemp)'以传入字符串的长度为最大循环次数,即逐个字符比较,以获得左右括号的个数
IfMid(StrTemp, i, 1) = "(" Then '计算左括号个数,知识点是Mid函数,请参阅MSDN
j = j + 1
ElseIfMid(StrTemp, i, 1) = ")" Then '计算右括号个数
k = k + 1
EndIf
Next
KuoHaoMatch = j - k '返回差值
End Function

End Class