08VB复习大纲.pptVIP

有程序段 Dim X As Integer, Y As Integer X = 5 Y = 6 PRINT X + Y = 11 上述程序段运行时输出的结果是（ ）。 A、X+Y=11 B、11 C、X+Y=11， D、True 要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（ ） Mid(“Visual BASIC 6.0”,8,5) 与以下语句功能相同的语句是_________。 Do While a = True … Loop A． Do … Loop While a = True B． Do … Loop While a = False C． Do Until a = True … Loop D． Do Until a = False … Loop Input函数 格式： 　Input(number, [#]filenumber) 例 Open f:\StudentFile2.dat For Input As #1 str = Input(LOF(1), #1) 8.3 随机文件 打开随机文件 　Open pathname For Random As [#]filenumber Len=reclength 例如： 　Open D:\TestDate.rec For Random As #1 Len=16 一个文件的大小用函数Lof测试后长度为2000，同时，打开这个文件的命令可以用如下语句： Open “f1.dat” For Random As #1 Len=10 则这个文件的记录数是（ ）。 200 读、写随机文件 写随机文件 　Put [#]filenumber, [recnumber], varname 读随机文件 　Get [#]filenumber, [recnumber], varname 例: Put 1, , s s.no, s.name, s.sex, s.math 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 (错) 例 修改记录。设计子过程，对一个已存在的职工工资简表person.rec进行修改，凡是低于500元的工资增加50元。 职工记录定义如下：（记录必须在标准模块或窗体模块中定义 ） Type person no As Integer name As String * 8 wages As Single End Type 增加工资的子过程如下 Sub increase() Dim i%, total% Dim p As person Open f:\VB例程\person.rec For Random As #1 Len = 14 total = LOF(1) / Len(p) 计算文件的记录数 For i = 1 To total (while not eof(1)) Get #1, , p If p.wages 500 Then p.wages = p.wages + 50 Put #1, Loc(1), p 文件指针返回原来记录的位置 End If Next Close #1 End Sub 4. 下面事件过程的功能是从学生分数顺序文件D:\file1.dat中读取各个学生的分数，并求该班的最高分数。 Private Sub command1_Click() Dim score!, s!，max! Open d:\file1.dat For Input As #3 s = 0：max=0 While （9） （10） if scoremax Then max=score Wend Print 最高分数为：; max Close #3 End Sub Not EOF(3) Input #3,score 8.5 文件操作用的3个控件 驱动器列表框 目录列表框 文件列表框 驱动器列表框 属性 　object.Dri