10套机试试卷第1套答案

1、第1套答案一、调试程序（程序存盘文件名为Test11.vbp，Test11.frm，40分)评分标准：1、正确保存文件 5分 2、每个改错点 7分（程序中画线部分为考生改错位置）(程序中画线部分为考生改错位置)Option ExplicitPrivate Sub Command1_Click() Dim ObjectString As String 改为：Dim DelString As String Dim ResultString As String Dim objLength As Integer Dim delLength As Integer Dim temp As String D

2、im i As Integer ObjectString = Text1.Text DelString = Text2.Text objLength = Len(ObjectString) delLength = Len(DelString) j=l Do While i = delLength 改为： objLength temp = Mid(ObjectString, i, delLength) If temp DelString Then ResultString = ResultString + Mid(ObjectString, i, 1) i = i+1 Else i = i+1

3、改为： i = i + delLength End 修改为： End If Loop Text3.Text = ResultStringEnd SubPrivate Sub Form_Load() 改为： Command1.Caotion = 删除 或修改属性 End Sub二、编程：(程序存盘文件名TEST12.Vbp，TESTl2.Frm,，60分)评分标准：1、文件存盘 5分2、正确设计界面 10分3、正确读入学生信息 10分4、正确在组合框中显示学号 10分5、正确根据学号查找学生记录 10分6、正确退出程序 10分7、程序结构合理、清晰 5分源程序如下：Option base 1Pr

4、ivate Type student no As Integer name As String * 8 sex As String * 2 rq As Date class As String * 5End TypeDim stud( ) As student,n as integerPrivate Sub Form_Load() 给定义的数组赋初值 Open “test12in.txt” for input as #1 n=1Do while not(eof)Redim preserve stud(n)input #1,stud(n).no,stud(n).name,stud(n).sex,

5、stud(n).rq,stud(n).classn=n+1loopclose #1 For i = 1 To n Combo1.AddItem stud(i).no NextEnd SubPrivate Sub Combo1_Click() i = 1查找指定学号的学生记录 Do While Val(Combo1.Text) stud(i).no i = i + 1 Loop If i n Then MsgBox 没有该学号的记录, 0, 信息提示End End if Text1(0).Text = stud(i).no 显示找到的学生记录 Text1(1).Text = stud(i).name Text1(2).Tex