标题:小弟我刚刚学习编程的visual basic 08,作业遇到了麻烦,请求大虾帮忙!!
只看楼主
fsi087186
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-3-27
结帖率:0
已结贴  问题点数:10 回复次数:3 
小弟我刚刚学习编程的visual basic 08,作业遇到了麻烦,请求大虾帮忙!!
因为用的是英文教材的书,所以更是难上加难,现在有一道题是要做一个程序辨认ISBN码是否正确

原题目是英文的,然后我自己翻译了一下,题目的大致内容如下:

国际标准书号(International Standard Book Number)简称ISBN,是国际通用的图书或独立的出版物代码,它由是个字符组成。前九个字符是数字,然后最后一个字符是X(X就代表10)或者是单独一个数字。

0-13-030-657-6,0-32-108559-X,0-471-58719-2是三个ISBN码的例子。连字号“-”把这一串字符分成了四部分,第一部分一般是由一个数字组成,代表语言(0是英语,2是法语,3是德语,等...);第二个部分是代表出版社的号码;第三部分是书本的号码;第四本部分是由一个字符组成的,这个字符叫做“校验码”,校验码通常是一组数字的最后一位,由前面的数字通过某种运算得出,用以检验该组数字的正确性。

我们把ISBN这十个字符参考成 d1,d2,d3,d4,d5,d6,d7,d8,d9和d10,
那么ISBN码的sum:

10×d1 + 9×d2 + 8×d3 + 7×d4 + 6×d5 + 5×d6 + 4×d7 + 3×d8 + 2×d9 + 1×d10

加起来可以被11整除

如果ISBN码最后一个字符是X,那么在“sum”里面,X将会代替10,例如,ISBN码0-32-1085599-X,那么sum将会是

10×0 + 9×3 + 8×2 + 7×1 + 6×0 + 5×8 + 4×5 + 3×9 + 2×9 + 1×10 = 165

165÷11等于15 所以这个ISBN码没有错误,如果ISBN有错的话,那么它将不会能被11整除


关于这道题目的问题是:

写一个程序 可以允许ISBN类型的号码(包括连字号“-”)作为输入,计算sum(*),然后显示是否这是一个有效地ISBN号码。(提示:如果n Mod 11 是0 那么数字n 可以被11整除)。 在计算sum之前,程序要检查前九个字符必须是数字,然后最后一个字符必须是数字或者X。


对于这种题我根本是无从下手,希望大侠们能帮我写写代码~~~不尽感激!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

搜索更多相关主题的帖子: basic visual 作业 
2010-04-28 15:28
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
得分:5 
程序代码:
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sss As String = TextBox1.Text
        sss = sss.Replace("-", "")

        If Not IsNumeric(sss.Substring(0, sss.Length - 1)) Or sss.Length <> 10 Then
            MsgBox("非法ISBN,请重新输入")
            Exit Sub
        End If


        Dim ss As Integer
        For i As Int16 = 10 To 1 Step -1
            ss += i * IIf(Not IsNumeric(sss.Substring(10 - i, 1)), 10, sss.Substring(10 - i, 1))
        Next
        MsgBox(ss)
        If ss Mod 11 = 0 Then MsgBox("ISBN码正确") Else MsgBox("ISBN不正确")

    End Sub

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2010-04-28 19:01
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
得分:5 
学习了。

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-04-28 20:25
fsi087186
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-3-27
得分:0 
多谢多谢~~之前很忙,一直没能上网~~
2010-05-02 08:09



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-304737-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.397285 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved