10套機試試卷第1套答案

1、第1套答案一、調(diào)試程序（程序存盤文件名為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、正確設(shè)計界面 10分3、正確讀入學生信息 10分4、正確在組合框中顯示學號 10分5、正確根據(jù)學號查找學生記錄 10分6、正確退出程序 10分7、程序結(jié)構(gòu)合理、清晰 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() 給定義的數(shù)組賦初值 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