Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, temp, i, j As Integer For Each ctl As Control In Controls If TypeOf ctl Is TextBox Then If Not IsNumeric(ctl.Text) Then MessageBox.Show("请输入整数!") ctl.Focus() CType(ctl, TextBox).SelectAll() Exit Sub End If End If Next ' If IsNumeric(TextBox1.Text) = False Then ' MsgBox("请输入整数") ' TextBox1.Focus() ' TextBox1.SelectAll() ' Exit Sub ' End If '如果有很多个textbox 可否有快速的语法做每一个textbox检查呢? ' If IsNumeric(TextBox2.Text) = False Then ' MsgBox("请输入整数") ' TextBox2.Focus() ' TextBox2.SelectAll() ' Exit Sub ' End If a = Val(TextBox1.Text) b = Val(TextBox2.Text) If a > b Then 'a=5 b=2 temp = a 'temp=5 a=5 b=2 a = b 'temp=5 a=2 b=2 b = temp 'temp=5 b=5 a=2 End If If a <= 0 Or b <= 0 Then '左右两边的条件有一个成立就可以 MsgBox("请输入大於0的整数") Exit Sub End If For i = a To b If i Mod 2 = 0 Then j = j + 1 '当i除以2的余数为0时 j就加一 Next MsgBox("偶数共有" & j & "个") End Sub 以上的「For Each ctl As Control In Controls」 是用来取代下面的那两个 textbox的侦测 不过 我不了解的地方也就在这里 请教..以下几个关键字分别代表什麽呢? 1.for each 2.as Control 3. in control 谢谢 -- ┌─────◆ＫＫＣＩＴＹ◆─────┐ ◢　◤ 找歌最方便 KKBOX 歌词搜寻!! │ bbs.kkcity.com.tw │ \^_^ / ★http://www.kkbox.com.tw★ └──《From:218.169.123.248 》──┘ 　 ◤ 唱片公司授权，音乐尽情下载 --