Question

VB中tag属性问题

Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) = 13 Then
Dim i, m As Integer, Tag As Boolean
m = Val(TextBox1.Text)
Tag = True
i = 2
Do
If (m Mod i) = 0 Then
Tag = False
Label2.Text = m & "不是素数"
Exit Do
End If
i = i + 1
Loop While (2 <= i And i <= m - 1)
If i = m Then Label2.Text = m & "是素数"
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class

这是判断素数的题目，想问一下tag=true和tag=false在这一题的作用？

Answer 1

这个Tag是个标签值，在这段程序代码中没有实例作用，但它可以为后续程序段，比如要判断是否是“素数”，只要判断这个Tag布尔值就可以判断是否是素数。比如：
If tag=True then
MsgBox "此数是素数！”
else
MsgBox "此数非素数！”
End IF
以上是个人一些理解。

Answer 2

从代码里面看，tag并没有起任何作用，可能原作者本来对tag变量还有其他处理的，发的时候精简了一部分，所以这个变量在这里没有被使用。

Answer 3

从这段程序看，它根本没有用，可以删除。

追问

是不是等于一个if语句，可以这么说么

追答

不可以象你那么说，一个逻辑值的真假，只是用于后面程序的判断，比如说这里在不是素数的地方它为假，那么后面判断它为假时，说明它已经进入过以下程序段（也就是说m mod i=0成立过）。
If (m Mod i) = 0 Then
Tag = False
Label2.Text = m & "不是素数"
Exit Do
End If