来自「Visual Basic中,对于文本比较好的处理方式.」· 代码 · 共 19 行

Attribute VB_Name = "Module1"
Type salary
    name As String * 8
    salary As Long
End Type
                           'recno表示记录号
Public sal As salary, recno As Integer

                           '检查编号的通用过程
Function cheno(no As String) As Boolean
    recno = Val(no)
    If recno < 0 Or recno > 999 Then
        MsgBox "输入的职工号超出范围", 0, "检查编号"
        cheno = True
    Else
        cheno = False
    End If
End Function