1.答案： 错误1改正为：For two=1Ton-one 错误2改正为：If one+two*2+five*5=60Then 错误3改正为：Next two 错误4改正为：Next one 2.答案： 错误1改正为：If ave(Line_no)<ave()Then 错误2改正为：Line no=i 错误3改正为：a(1,j)=a(Line_no,j) 错误4改正为：sum=sum+a(,j) 六、综合编程 1,编一帐号和密码输入的检验程序。对输入的帐号和密码规定如下： (1)帐号为不超过6位数字，密码为6位字符，在本题中，密码假定为“123456”。 (2)密码输入时在屏幕上不显示输入的字符，而以“*”代替。 (3)当输入不正确，如帐号为非数字字符或密码不正确时，显示有关信息。 (4)当输入正确时，关闭密码窗口，显示Windows操作系统的记事本窗口。 按要求完成有关控件的属性的设置，编写确定按钮的单击事件过程。相关界面如下列各图 所示。 。登录 回 账号 88883 的入密羽 密码 车率家 密码错误 确定 取清 重R)■ 取消 2.将C盘根目录下的一个文本文件old.dat复制到新文件new.dat中，并利用文件操作语句 将old.dat文件从磁盘上删除。 答案： 1. Private Sub Form_Load() Textl.MaxLength=6 Text2.PasswordChar="*" End Sub Private Sub Textl LostFocus() Dim i As Integer,s As String 1 IfNot IsNumeric(Text1.Text)Then MsgBox"账号有非数字符号！"，vbExclamation+vbRetryCancel,,"输入账号" Text1.Text="" Text1.SetFocus Exit Sub End If IfLen(Text1.Text)>6 Then1. 答案： 错误 1 改正为：For two = 1 To n - one 错误 2 改正为：If one + two * 2 + five * 5 = 60 Then 错误 3 改正为：Next two 错误 4 改正为：Next one 2. 答案： 错误 1 改正为：If ave(Line_no) < ave(i) Then 错误 2 改正为：Line_no = i 错误 3 改正为：a(1, j) = a(Line_no, j) 错误 4 改正为：sum = sum + a(i, j) 六、综合编程 1. 编一帐号和密码输入的检验程序。对输入的帐号和密码规定如下： （1）帐号为不超过 6 位数字，密码为 6 位字符，在本题中，密码假定为“123456”。 （2）密码输入时在屏幕上不显示输入的字符，而以“*”代替。 （3）当输入不正确，如帐号为非数字字符或密码不正确时，显示有关信息。 （4）当输入正确时，关闭密码窗口，显示 Windows 操作系统的记事本窗口。 按要求完成有关控件的属性的设置，编写确定按钮的单击事件过程。相关界面如下列各图 所示。 2. 将 C 盘根目录下的一个文本文件 old.dat 复制到新文件 new.dat 中，并利用文件操作语句 将 old.dat 文件从磁盘上删除。 答案： 1. Private Sub Form_Load() Text1.MaxLength = 6 Text2.PasswordChar = "*" End Sub Private Sub Text1_LostFocus() Dim i As Integer, s As String * 1 If Not IsNumeric(Text1.Text) Then MsgBox "账号有非数字符号！", vbExclamation + vbRetryCancel, "输入账号" Text1.Text = "" Text1.SetFocus Exit Sub End If If Len(Text1.Text) > 6 Then