vb 窗体内的每一个控件不可用_VB小程序，验证ISBN号码

VB小程序，关注我有更多的有趣的VB小程序

题意(仅限于练习)：每一本正式的图书都有一个ISBN号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，格式如“X-XXX-XXXXX-X”,其中符号“-”是分隔符，紧后一位是识别码。识别码计算方法如下：首位数字乘以1加上次位数字乘以2....以此类推，用所得到的结果除以11，所得的余数妈为识别码，如果余数为10，刚识别码为大写的x。

本节主要学习了，怎么样把txt文件读入到ListBox列表和数组中，着重理解算法，与实际工作中可能不符合。

界面：

控件：两个Label标签，一个Command命令按钮，两个ListBox列表框

代码：

Option Explicit

Dim a(1 To 100) As String '存储ISBN号码

Private Sub Command1_Click()

Dim st As String, ch As String, k As Integer, i As Integer, t As String, j As Integer

Dim sum As Integer, number As Integer, tnum As Integer

For i = 1 To 100

st = a(i)

k = 0: sum = 0

For j = 1 To Len(st) - 2

ch = Mid(st, j, 1)

If ch >= "0" And ch <= "9" Then

k = k + 1

sum = sum + Val(ch) * k

End If

Next j

number = sum Mod 11

t = Mid(st, j + 1, 1)

If t = "X" Then tnum = 10 Else tnum = Val(t)

If number <> Val(tnum) Then List2.AddItem "第" & Str(i) & "条"

Next i

End Sub

Private Sub Form_Load() '读入数据到list中

Dim TextLine$, j%

j = 1

Open "E:VB教学练习xtISBN号码.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, TextLine

a(j) = TextLine '每一行数据读取到数组中

List1.AddItem "第" & j & "条ISBN号码为：" & TextLine '数据读取到list中

j = j + 1

Loop

Close #1

End Sub

练习ISBN号码：

0-342-56743-8

0-256-51243-4

0-416-76489-4

0-548-45287-3

0-968-31473-2

0-432-96452-5

0-317-86572-4

0-186-53764-6

0-486-74356-8

0-286-54625-3

0-254-79668-0

0-246-59672-4

0-246-89762-X

7-302-48145-4

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！