问专家-航空货运单的真伪判断

航空货运单的真伪判断

编号：	QA004897
建立日期：	2004年9月4日	最后修改日期：	2004年9月4日
所属类别：	Visual Basic - 标准控件

    操作系统: Windows
    编程工具: VB6
    问题: 问题：“航空货运单的真伪判断”
    我是一位VB初学者，使用VB编写“航空货单查询”。
    货运单号是由8位数字组成的，其中的最后一位数是效验数，（如：7546554 1）这个数字1是由前7位数字除于数字7所剩的余数。（又如：7849554 6）6是效验数，我的问题就是如何在VB的（Text1）文本框输入时辨认真伪？谢谢，请指教。
    水平: 刚入门(韩梅生)

    可以这样做：
    Private Sub Text1_Validate(Cancel As Boolean)
     If Len(Text1.Text) <> 8 Then
     Cancel = True
     Beep
     Exit Sub
     End If

     Cancel = Val(Left(Text1.Text, 7)) Mod 7 _
     <> Val(Mid(Text1.Text, 8))
     If Cancel Then Beep
    End Sub

此问题由李海回答。

附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 标准控件, screen, button, combo, checkbox, listbox。

	把这个问题推荐给朋友

Web Designed by ZebraStudio