请问各位这个题怎么做？？【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：102,415贴子：
请问各位这个题怎么做？？收藏
vb?培训选达内=技能+学历+就业!15年40W学员,总监教学,4个月速成!vb?真正先就业后付款,想学习,想就业,先来达内0元试听吧!
你这个题出得好奇怪，前面的那么多全是废话。问题不需要前面的叙述。①Text2属性窗口 MultiLine=True ScrollBars=3 - Both②text1属性窗口
PasswordChar=* （如果是代码，应该是PasswordChar=”*“，窗体设置内不需要打引号）
楼上正解！
登录百度帐号推荐应用在VB中怎样编写错误处理程序
我的图书馆
在VB中怎样编写错误处理程序
在VB中怎样编写错误处理程序
王 语 宋国平王语(1966-)，吉林辽源人，辽源分校网络中心主任，讲师。宋国平(1968-)，吉林德惠人，吉林电大科长，讲师。
摘 要：在编写程序中难免会出现错误，从而导致得不到正确的结果。如何跟踪、避免和解决错误，是程序开发人员面临的不可回避的问题。本文结合实例，比较系统地阐述了利用编写错误处理程序来解决这一问题的方法。关键词：VB；错误处理；语句；处理程序
一、问题的提出我们在编程过程中难免出现一些这样或那样的的错误 ，使程序不能运行或是得不到正确的结果，所以我们要了解错误出现的原因并学会避免它。让我们来分析一下错误类型和产生错误的原因：语法错：在输入的语句不正确时发生。例如：关键字拼写错误、标点符号的缺失或者变量名拼写错误。例如：在使用If语句时没有相应的End If进行匹配将导致一个语法错。Visual Basic会在进行到下一条语句之前对语法错给出提示。运行错：在一个命令企图执行一个无效的动作时发生。例如：在企图把一个字符串赋值给一个数字类型的变量时发生运行错。在运行错发生时会激活错误处理程序。逻辑错：在程序既没有语法错也没有运行错的情况下执行程序得到的结果却不是正确的结果时，我们说发生了逻辑错。例如：应用程序要求用户提供口令，可是口令是正确的时候却不能进入应用程序，这时就说发生了逻辑错。二、解决的方法在这里我们主要说明一下运行错的解决方法。当一个程序运行出错时，vb提供了缺省的错误处理可以提供给用户出现错误的编号和对错误的一段简短描述并自动终止应用程序。举例来说，如果把一个很大的计算结果保存到一个整型变量中，会导致溢出的运行错。Visual Basic会给出下图所示的出错编号为6，原因为“溢出”的对话框。 由于Visual Basic不支持集中错误处理技术。每一个过程或事件都要求有一个错误处理程序来解决一个它自己的错误，所以我们必须自己编写错误处理程序。创建一个错误处理程序的三个基本步骤：激活一个错误处理程序 编写对可能发生的错误进行处理的代码继续程序的运行下面具体介绍一下详细步骤：通过激活错误处理程序来对运行错进行处理。在过程中使用On Error GoTo语句加一个命名的标号来激活错误处理程序。标号是用来指出错误发生时程序转向错误处理程序的入口。（Identifies a point in code to which the execution will branch when an error is encountered）。这部分代码称为"错误处理程序"，命名和变量的命名一样，可以以冒号结尾。放在过程的Exit Sub语句之后。 下面的程序是DataErr错误处理程序实现对数据溢出错误的处理：Private Sub Command1-Click()&&&&On Error GoTo DataErr&&&&Dim num As Integer, var As Integer&&&&num=10&&&&var = num * 10000&&&&Print var&&&&Exit Sub&&&&DataErr:MsgBox “Try multiplying with a smaller integer”End Sub三、使用Err对象看过这个例子之后让我们来看看咋样使用Err对象：Err对象能报告包含和运行错相关的错误信息。可以帮助确定发生的错误类型、原因和错误发生的地方。Err的属性是由错误发生者设置的。错误可能是由Visual Basic或是编程者产生的。在运行错发生时，运行错的属性就被设置为能唯一标志这个错误的信息以及要求的处理。1、Err对象的属性Number属性返回或设置标识错误的编号。它是Err对象的缺省属性。它可以用来确定是哪一个错误发生了，它的值是错误的唯一标识。语法格式：Object.NumberDescription 属性返回或设置用来对错误进行描述的字符串。语法格式：Object.DescriptionSource属性返回或设置产生错误的应用程序的名字的字符串。当一个意外错误发生时，这个值被自动设置。语法格式：Object.Source返回或设置一个包含指向帮助文件所在位置的路径的字符串。语法格式：Object.HelpFileHelpContext属性返回或设置包含帮助文件中有关主题的上下文ID的字符串。语法格式：Object.HelpContext用Resume语句来实现继续运行程序。三种Resume语句：Resume语句程序从产生错误的语句开始接着运行。Resume Next语句程序从产生错误的语句的下一条语句接着运行。Resume line语句从Resume line语句后指定的标号或是行号处开始运行程序，注意标号或是行号指定的语句必须和错误处理程序在同一个过程中。在下面的例子中，使用到了上面提到的三种属性来处理一个除数为零的错误。Private Sub Result-Click()&&&&On Error GoTo err1&&&&Text3.Text = Text1.Text / Text2.Text&&&&Msgbox “Error resolved”&&&& Exit suberr1:&&&&MsgBox Err.Number&&&&MsgBox Err.Description&&&&MsgBox Err.Source&&&&If Err.〖ZK(〗Number = 11 Then&&&&&&&&&&&&Text2.Text = Text2.Text + 1&&&&End If&&&&ResumeEnd Sub2、&&&Err对象的方法?Clear方法在错误处理后清除Err对象的所有属性的值。使Resume语句或On Error语句之后或是结束一个子程序块或一个函数过程之后都会自动调用这个方法。语法格式：Object.ClearRaise方法这个方法用来产生一个错误。它是在测试和评估的时候使用的。这样可以主动地产生错误,以便在程序其他地方的错误处理程序来对它进行处理。语法格式：Object.Raise number,source,description,helpfile, helpcontext除了number以外的所有参数都是可选的请看下面的实例Private 〖ZK(〗Sub cmdError_Click?br& &&&&Dim num As Integer&&&&num=Val(Text1.Text)&&&&On Error GoTo NoErr&&&&Err.Raise numExit SubNoErr:&&&&Select case Err.NumberCase 6MsgBox “Data Overflow"Text1.SetFocusCase 11MsgBox "Division by zero"Text1.SetFocusCase elseMsgBox "Error not known"Exit Sub&&&&End selectText1.Text=“ "End Sub四、跟踪错误对程序中发生的错误进行捕获。当执行一个标志着错误处理程序开始的On Error语句时就引发了对错误的跟踪。当执行到Exit Sub、Exit Function、Exit Property、End Sub、End Function 或End Property语句时就意味着跟踪的结束。可以使用On Error GoTo 0来结束对错误的跟踪。考虑用下面两种跟踪和处理错误的方法 ：即时处理和延时处理1、错误的即时处理在程序错误一发生时就转向错误处理程序并马上进行处理。“On Error GoTo line"语句给出了错误处理程序的入口位置。错误处理程序一般以一个标号开始，这个标号也就是在On Error GoTo语句中使用到的标号。错误处理程序采取相应的动作来解决出现的错误并从出错的语句或者出错语句的下一条语句接着运行程序。需要一条语句在错误处理程序完成后结束这个过程（Exit Sub）。2、错误的延时处理?这种方法中VB忽略发生的错误，但是代码最后检测到这个错误。用于象除数为零等这种错误。错误处理代码用来重新设置变量的值，使得程序可以继续执行下去。缺点是在可能出错的地方，都需要编写错误处理代码。Err对象在一个新的错误产生时不保存先前的错误信息。但是我们可以使用“On Error Resume Next"语句来激发这种错误处理方法。会让Visual Basic在错误已经发生后继续执行程序。下面的例子就是先查看Err对象的Number属性，如果该属性的值大于0，则表明有多个错误发生了。Private Sub Command1-Click()&&&&On Error Resume Next&&&&Text3.Text= Text1.Text / Text2.Text&&&&If Err.Number & 0 ThenIf Err.Number = 11 ThenText3.Text = 0ElseMsgBox “Input not valid"Exit SubEnd If&&&&End IfEnd Sub“On Error Resume Next"语句标志在此使用的是延迟处理的方法。同时也调用了Clear方法来清除并设置Err对象的属性，为下一个出现的错误做准备。 创建一个公共错误处理过程下面的代码就创建了一个函数Check，它在用户没有输入顾客的名称时产生一个错误：Function check( )&&&&If Text1.Text = “ ” Then&&&&&&&&&&&&Err.Raise 900, , “No blanks allowed”&&&&Else&&&&&&&&&&&&MsgBox “Record saved"&&&&End IfEnd FunctionPrivate Sub Save-Click()&&&&Call&&checkEnd Sub
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&