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 Then
1. 答案： 错误 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
MsgBox"账号不能多于6位！"，vbExclamation+vbRetryCancel,."输入账号" Text1.Text="" Text1.SetFocus End If End Sub Private Sub Command1 ClickO) IfText2.Text="123456"Then Me.Hide Shell "c:\winnt\notepad.exe",vbMaximizedFocus Else MsgBox"密码错误"，vbCritical+vbRetryCancel,"输入密码" Text2.Text="M Text2.SetFocus End If End Sub Private Sub Command2 Click() End End Sub Private Sub Command1 Click() Dim strl As String Open "c:\old.dat"For Input As #1 Open "c:\new.dat"For Output As #2 Do While Not EOF(1) Input #1,strl Print #2.strl Loop Close #2.#1 Kill "C:\old.dat" End Sub
MsgBox "账号不能多于 6 位！", vbExclamation + vbRetryCancel, "输入账号" Text1.Text = "" Text1.SetFocus End If End Sub Private Sub Command1_Click() If Text2.Text = "123456" Then Me.Hide Shell "c:\winnt\notepad.exe", vbMaximizedFocus Else MsgBox "密码错误", vbCritical + vbRetryCancel, "输入密码" Text2.Text = "" Text2.SetFocus End If End Sub Private Sub Command2_Click() End End Sub 2. Private Sub Command1_Click() Dim strl As String Open "c:\old.dat" For Input As #1 Open "c:\new.dat" For Output As #2 Do While Not EOF(1) Input #1, strl Print #2, strl Loop Close #2, #1 Kill "C:\old.dat" End Sub
模拟试题二 一、选择题 1.以下不允许用户在程序运行时输入文字的控件是 A.标签框 B.文本框 C.下拉式组合框 D.简单组合框 2.在VB中，下列不能作为存放对象的容器是 A.窗体Fom B.框架Frame C.图片框Picturebox D.图象框Image 3.循环结构ForI%=-1to-17Step-2共执行 次。 A.5 B.6 C.8 D.9 4.为使文本框显示滚动条，必须首先设置的属性是 A.Mulitiline B.Autosize C.Alignment D.Scrollbars 5,改变控件在窗体中的上下位置，应修改控件的 属性。 A.Top B.Left C.Width D.Right 6.将通用对话框类型，设置为字体对话框，可修改该控件的 属性。 A.font B.filename C.filter D.action
模拟试题二 一、选择题 1. 以下不允许用户在程序运行时输入文字的控件是_______。 A. 标签框 B. 文本框 C. 下拉式组合框 D. 简单组合框 2. 在 VB 中，下列不能作为存放对象的容器是_______。 A. 窗体 Form B. 框架 Frame C. 图片框 Picturebox D. 图象框 Image 3. 循环结构 For I%= -1 to -17 Step -2 共执行_______次。 A. 5 B. 6 C. 8 D. 9 4. 为使文本框显示滚动条，必须首先设置的属性是_______。 A. Mulitiline B. Autosize C. Alignment D. Scrollbars 5. 改变控件在窗体中的上下位置，应修改控件的_______属性。 A .Top B. Left C. Width D. Right 6. 将通用对话框类型，设置为字体对话框，可修改该控件的_______属性。 A. font B. filename C. filter D. action
7.标签控件最重要的属性是 A.caption B.text C.name D.width 8.文本框中选定的内容，由下列 属性反映。 A.Text B.Caption C.Seltext D.sellenght 9.选中复选框控件时，value属性的值，可以是 A.true B.false C.0 D.1 10.设置列表框选中的文本用 属性。 A.selected B.caption C.text D.list 11.简单组合框的style值为 A.0 B.1 C.2 D.3 12.在文件列表框的实现文件的多重选择，应修改该控件的 属性。 A.filename B.pattern C.path D.multiselect l3.语句listl.removeitem1将删除list.listindext等于 的项目
7. 标签控件最重要的属性是_______。 A. caption B. text C. name D. width 8. 文本框中选定的内容，由下列_______属性反映。 A. Text B. Caption C. Seltext D. sellenght 9. 选中复选框控件时，value 属性的值，可以是_______。 A. true B. false C. 0 D.1 10. 设置列表框选中的文本用_______属性。 A. selected B. caption C. text D. list 11. 简单组合框的 style 值为_______。 A .0 B. 1 C. 2 D. 3 12. 在文件列表框的实现文件的多重选择，应修改该控件的_______属性。 A. filename B. pattern C. path D. multiselect 13. 语句 listl.removeitem 1 将删除 list.listindext 等于_______的项目
A.0 B.2 C.3 D.1 l4.计时器的interval属性值为0时，表示 A.计时器失效 B.相隔1毫秒 C.相隔0毫秒 D.相隔0秒 15.以下的VB常量中非法的是 A.“Good Luck” B.PI C.1.5E-03 D.16.3412 16.骰子是一个正六面体，分别用1~6代表这六个面，掷一次骰子出现的数可表示为 A.int(md*6+1) B.int(rd*6) C.int(md*7) D.int(md(6)+1) 17.要想返回文本框中输入的内容则可利用其 属性进行编程。 A.caption B.text C.name D.righttoleft 18.下列不能用commondialog控件调用的对话框是 A.open/save B.help C.font D.search 19.要使得窗体一开始运行就充满整个屏幕则须设置 属性。 A.borderstyle
A. 0 B. 2 C. 3 D. 1 14. 计时器的 interval 属性值为 0 时，表示_______。 A. 计时器失效 B. 相隔 1 毫秒 C. 相隔 0 毫秒 D. 相隔 0 秒 15. 以下的 VB 常量中非法的是_______。 A. “Good Luck” B. PI C. 1.5E-03 D. 16.3412 16. 骰子是一个正六面体，分别用 1~6 代表这六个面，掷一次骰子出现的数可表示为 _______。 A. int(rnd*6+1) B. int(rnd*6) C. int(rnd*7) D. int(rnd(6)+1) 17. 要想返回文本框中输入的内容则可利用其_______属性进行编程。 A. caption B. text C. name D. righttoleft 18. 下列不能用 commondialog 控件调用的对话框是_______。 A. open/save B. help C. font D. search 19. 要使得窗体一开始运行就充满整个屏幕则须设置_______属性。 A. borderstyle