2. 计算机
  3. 在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type

在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type

admin2009-03-15  52
问题 在窗体上画一个命令按钮，然后编写如下代码：        Private Type Record               ID As Integer               Name As String * 20        End Type        Private Sub Command1_Click( )               Dim MaxSize, NextChar, MyChar               Open "d:\vb\tt. txt" For Input As #1              MaxSize = LOF(1)               For NextChar = MaxSize To 1 Step - 1                   Seek # 1, NextChar                   MyChar = Input(1, # 1)              Next NextChar              Print EOF(1)              Close $1       End Sub      假设文件d:\vb\tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。
选项 A、True
B、False
C、0
D、Null
答案2
解析 在For循环体中，最后利用Seek语句将文件指针指向第1个字符后；因此Print EOF(1)语句中， EOF(1)函数得到的值为False，即文件指针当前不指向文件的结尾。值得注意的是，当文件d:\vb\tt.txt的内容为空或者是该文件只有一个字符的时候，EOF(1)函数得到的值就应该为True，也就是说当前文件指针指向文件结尾。
转载请注明原文地址:https://www.kaotiyun.com/show/2C1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)