2. 计算机
  3. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record IDAs Integer：NameAs String*20 End Type Private Sub Command 1_Click() Dim Ma

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record IDAs Integer：NameAs String*20 End Type Private Sub Command 1_Click() Dim Ma

admin2015-05-29  26
问题 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Type
Record IDAs Integer：NameAs String*20
End Type
Private Sub Command 1_Click()
Dim MaxSize，NextChar,MyChar
Open"d：＼temp＼female．txt"For Input As#1
MaxSize=LOF(1)
For NextChar=MaxSize To 1 Step-1
MyChar=Input(1，#1)
Next
NextChar
Print EOF(1)
Close #1
End Sub
运行程序，单击命令按钮，其输出结果为
选项 A、True
B、FALSE
C、0
D、Null
答案A
解析 LOF函数返回给文件分配的字节数(即文件的长度)，与DOS下用Dir命令所显示的数字相同。EOF函数用于判断文件指针是否已到文件结尾，如果到达文件末尾，则返回True。通过使用EOF函数，测试是否到达文件末尾。本题中的循环遍历了整个文件，因此循环结束时文件指针在文件结尾。
转载请注明原文地址:https://jikaoti.com/ti/ii60FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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