※ 引述《rala1128 (饼饼)》之铭言： : Option Explicit : Private Sub CommandButton1_Click() : ◤ Dim r As Integer◢ : ◤ If CheckIDNum(UCase(Me.TextBox1)) Then◢ : MsgBox "身分证字号正确" ◣ & Chr(10) & Chr(10) & ◢ "切换至VBE程式码" : ViewCode : Unload Me : Else : MsgBox "输入错误，请重新输入" : ◤ r = Len(TextBox1.Text) : Me.TextBox1.SetFocus : Me.TextBox1.SelStart = 0 : Me.TextBox1.SelLength = r◢ : End If : End Sub ◤ Dim r As Integer◢ : 定义r为整数 ◤ If CheckIDNum(UCase(Me.TextBox1)) Then◢ : 如果CheckIDNum()为真,则继续, CheckIDNum为验证身份证的函数 ◣ & Chr(10) & Chr(10) & ◢: Chr()为ASCII函数,Chr(10)为换行符号 Len()为计算字串内字元数目的函数 如果是初学者的话,建议先买本入门书看一看. 另外,也可以多利用Help. : 请问大大 : 用三角形框起来的地方是我看不懂的地方 : 可以解释给我听吗?? : 这是输入身分证字号的那个表格的程式码... : 是不是有些地方是我用不到的...像是他一直会出现"r" : 可是我不知道"r"代表着是什麽... : 还有"Chr(10)"我也不懂他是什麽?? : ※ 引述《qsss (Qsss)》之铭言： : : 这个范例已经包括验证的公式了... : : 只是它的侦错防呆的机制是不是你要的? : : 还有...它使用的方式是不是你要的? : : 范例里面不只用到If..Then..Else : : 如果你的需求是只能使用If... : : 那你就要自行将Select改写成If用法了... --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 210.202.6.129